Ver Mensaje Individual
  #1  
Antiguo 23-10-2008
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 20
FGarcia Va por buen camino
Editar e Insertar con un Dataset

Nuevamente solicitando ayuda con esto de los IBX y FB 2.0 D7.

tengo este codigo:

Código Delphi [-]
//Llamo a este procedimiento y le envio dos parametros
procedure TdmDatos.ActualizaTotales(strID, strPeso: string);
begin
  //Con el DataSet Totales
  with dstTotales do
    begin
      //Intentamos localizar la existencia de un registro con esta ID
      if Locate('Bascula',strID,[loCaseInsensitive]) then
        //SI existe recupero los valores de estos dos campos y cambio a EDICION
        begin
          showmessage('SI existe'); //Esto solo para verificar que si ingresa al 
ciclo
          accCuenta := dstTotalesACCOPERACION.Value;
          gblCuenta := dstTotalesGBLOPERACION.Value ;
          Edit;
        end
      else
        showmessage('NO existe'); //Esto solo para verificar que si ingresa al ciclo
        //SI NO existe cambio a modo INSERTAR NUEVO
        begin
          Append;
          accCuenta := 0;
          gblCuenta := 0;
          dstTotalesBASCULA.Value := StrToInt(strID);
        end;
      Inc(accCuenta);
      Inc(gblCuenta);
      dstTotalesACCOPERACION.Value := accCuenta;
      dstTotalesGBLOPERACION.Value := gblCuenta;
      
      //Guardo los datos nuevos
      dstTotales.Post;
    end;
end;

y espero obtener esto

Cita:
//Espero obtener algo asi (DESPUES DE VARIAS OPERACIONES):
ID |ACCOPERACION |GBLOPERACION
1 | 20 | 20
2 | 20 | 20
3 | 20 | 20
4 | 20 | 20

//Sin embargo obtengo esto
ID |ACCOPERACION |GBLOPERACION
1 | 1 | 1
2 | 1 | 1
3 | 1 | 1
4 | 1 | 1
1 | 1 | 1
2 | 1 | 1
3 | 1 | 1
4 | 1 | 1
1 | 1 | 1
2 | 1 | 1
3 | 1 | 1
4 | 1 | 1
1 | 1 | 1
2 | 1 | 1
3 | 1 | 1
4 | 1 | 1
¿Cual es mi error? ¿el dataset no es apropiado para esto? ya probe con un IBQuery y me devuelve los mismos resultados. Se agradece su ayuda y sugerencias.
__________________
ESTO ES UN FORO ... NO UN MÓVIL
¿Por qué no escribir de una manera comprensible para que los humanos lo podamos entender?
Responder Con Cita