Editar e Insertar con un Dataset

[[FGarcia]]

Ok! si, ese era un error que de tanto manipular ya no veia, sin embargo aun corrigiendolo el resultado no es el esperado, es decir...¡sigue sin funcionar!

ahora solo inserta los primeros 4 registros y no vuelve a insertar nada ( de hecho ahi comenze) el showmessage los coloque a modo de test de que sí ingresa al ciclo y lo hace bien, pero no guarda los datos que se van a editar. Ya ejecute un debug paso a paso y todo funciona bien, los datos se incrementan segun espero mas no son registrados en la bd.

//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

Estoy seguro que es una tontera la que estoy haciendo pero no la veo. Les agradezco la ayuda.

[boreg]

Según lo que veo el codigo hace lo que debería de hacer, incrementa en 1 el valor de los campos ACCOPERACION y GBLOPERACION, si no existe se agrega un registro con el nuevo ID e incrementa 1 desde 0 los mismos campos.
Quizás el error está en que te falta agregar las operaciones que mencionaste en un principio ("//Espero obtener algo asi (DESPUES DE VARIAS OPERACIONES):"), tambien veo que en el locate estas buscando en el campo "BASCULA" y en los datos nos estás mencionando el Campo "ID". Sería bueno que nos dijeras el valor que tienen los campos (ACCOPERACION y GBLOPERACION) antes de que hagas la edicion, si no es cero quizás haya algo mas que se nos escapa a la vista.

Saludos

[[coso]]

probaria esto

Código Delphi [-]
procedure TdmDatos.ActualizaTotales(strID, strPeso: string);
begin
      if dstTotales.Locate('BASCULA',Trim(strID),[loCaseInsensitive,loPartialKey]) then
      begin
          accCuenta := dstTotales.FieldByName('ACCOPERACION').Asinteger;
          gblCuenta := dstTotales.FieldByName('GBLOPERACION').Asinteger;
          dstTotales.Edit;
      end
      else
      begin
          accCuenta := 0;
          gblCuenta := 0;
          dstTotales.Append;
          dstTotales.FieldValues['BASCULA'] := StrToInt(strID);
      end;
      Inc(accCuenta);
      Inc(gblCuenta);
      dstTotales.FieldValues['ACCOPERACION'] := accCuenta;
      dstTotales.FieldValues['GBLOPERACION'] := gblCuenta;
      
      dstTotales.Post;
end;

poca modificacion podria ser el trim, o las mayusculas de BASCULA. He usado FieldValues solo para asegurar que existen los campos, y eliminar el with por legibilidad, nada mas.

[[coso]]

Otra cosa...¿el locate debe hacerse al campo bascula? ¿strPeso no lo usas? y...¿los strid que envias a la funcion son los correctos?

[[FGarcia]]

gracias nuevamente por el interes.

boreg: el nombre del campo es bascula, en la "tabla" que puse de ejemplo lo cambie por ID (un errorcillo), he realizado hasta 60 operaciones pero las cuentas no pasan de 1.
La tabla la vacio antes de cada prueba que he realizado por lo que empiezo desde 0 los valores de los campos ACCOperacion y GBLOperacion.

coso: probe tus modificaciones pero sigue haciendo lo mismo.

El campo bascula es un campo de tipo integer que solo va a poseer 4 valores (1,2,3,4) de ahi el ID.
Cada operacion realizada por esa bascula se va a contar y se colocara en dos campos ACCOperacion y GBLOperacion.
el campo strPeso es similar solo que el acumulara un float, actualmente no lo uso pues quiero primero definir lo del contador.

100% certificado que los datos que llegan son correctos.


p.d. Esto ya lo hice una vez con access, ahora que lo quiero colocar en firebird estoy mas perdido que un oso polar en el sahara.

[[coso]]

si bascula es de tipo integer no tendrias que hacer...
locate('bascula',strtoint(strid),[])? creo que si no lo que estas haciendo es comparar el valor numerico de la cadena '1'.

[boreg]

No se como funcionan los IBX pero, quizás no te está actualizando el valor de los campos con el POST prueba con un APPLYUPDATES y si usas algún componente de transaccion o estás abriendo una transaccion desde el componente de conexión (no se como se manejen las transacciones con IBX) haz, por lo menos, un commitretain.

Saludos

[[FGarcia]]

Pues no.

El CommitRetaining lo ejecuto despues del post en el evento afterpost del dataset.

Segun F1 :

function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;

por lo tanto no es necesario hacer el StrToInt(strID)

sniff, sniff, sniff ¡¡quiero a mi máma!!