Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-05-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 17
Rofocale Va por buen camino
como podria hacer entonces...
alguien me ayuda ?
Responder Con Cita
  #2  
Antiguo 25-05-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.015
Poder: 22
oscarac Va por buen camino
ayudaria mucho si es que mencionas si tengo o no razon.... porque no se si lo que te digo te ayuda o no

enfoca bien el problema
dinos mas o menos cual es el flujo del programa... ese codigo que has colocado donde lo tienes?
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #3  
Antiguo 25-05-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 17
Rofocale Va por buen camino
en un boton agregar tengo ese codigo.. antes del boton agregar ya deben de estar llenos algunos edits..

bueno con el codigo de solo insertar

Código Delphi [-]
Close;
        SQL.Clear;
        SQL.Add('INSERT INTO ventasareas (areaventa, orden, articulo, codigo, descrip, cantidad, precio, cliente, categoria, fecha)');
        SQL.Add('VALUES(:areaventa, rden, :articulo, :codigo, :descrip, :cantidad, recio, :cliente, :categoria, :fecha)');
            params.ParamByName('areaventa').Value := sAreaVenta;
             if(iCliente < 1) then
               params.ParamByName('orden').Value := NULL
            else
               params.ParamByName('orden').Value := iorden;

            params.ParamByName('articulo').Value := txtclave.Text;
            params.ParamByName('codigo').Value := txtcodigo.Text;
            params.ParamByName('descrip').Value := txtdescripc.Text;
            params.ParamByName('cantidad').Value := txtcantidad.Text;
            params.ParamByName('precio').Value := txtprecio.Text;

            if(iCliente < 1) then
               params.ParamByName('cliente').Value := NULL
            else
               params.ParamByName('cliente').Value := IntToStr(iCliente);

            if(Length(txtcategoria.Text) > 0) then
               params.ParamByName('categoria').Value := txtcategoria.Text
            else
               params.ParamByName('categoria').Value := NULL;


            params.ParamByName('fecha').Value := FormatDateTime('dd/mm/yyyy',Date);
            ExecSQL;
            Close;

me ha funcionado bien, osea inserta en el grid todo lo que esta en los edits, pero si el articulo era repetido lo ponia en la siguiente fila del grid

asi que lo que queria hacer era comparar el codigo del articulo y si eran iguales lo actualizaba en ves de insertarlo en otra fila y si eran distintos insertaba el articulo en una nueva fila

me explico ?..

y asi que estaba haciendo mas o menos lo que te puse al inicio para poder hacer lo que te explico, pero no me sale...
Responder Con Cita
  #4  
Antiguo 25-05-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.015
Poder: 22
oscarac Va por buen camino
los datos del grid lo tienes en una tabla verdad?
entonces mas o menos podrias hacer asi..
(te pongo el PseudoCodigo)

Código Delphi [-]
 
if tblDatos.Locate ('Codigo', edtCodigo.Text, []) Then
   Begin
       Update....
   end
Else
   Begin
      Append
   end
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #5  
Antiguo 25-05-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 17
Rofocale Va por buen camino
no funciona ya lo probe... agrego al grid de forma normal.. cada uno en una fila mas no actualiza el item si es repetido
Responder Con Cita
  #6  
Antiguo 25-05-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.015
Poder: 22
oscarac Va por buen camino
OJO el dato no se agrega al Grid...
se agrega a una tabla la cual mediante el datasource muestra los datos en el grid
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #7  
Antiguo 25-05-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 17
Rofocale Va por buen camino
lo se.. mi grid esta ligado a la tabla.. pero no funciona.. inserta como siempre repetidamente uno tras de otro y no actualiza el mismo registro
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Actualizar registro.... BlueSteel MS SQL Server 2 03-10-2008 17:08:11
Actualizar registro georgejg Conexión con bases de datos 2 26-03-2008 23:35:00
Actualizar un campo de un registro alcides Varios 6 23-05-2007 10:20:31
actualizar registro de windows jmeng2 Varios 2 08-12-2004 16:44:02
Actualizar un único registro Muten Firebird e Interbase 2 16-03-2004 16:03:30


La franja horaria es GMT +2. Ahora son las 16:08:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi