append en lugar de post...????

[JuanchoDev]

hola gente, a ver si me pueden dar una manito
este form en lugar de modificar (adoqueryX.post) esta agregando nuevos registros, la verdad no le encuentro el error...


procedure TForm13.Modificar1Click(Sender: TObject);
begin
//buscar el id
adoquery2.Close;
adoquery2.SQL.Text:='select id from inventario where descripcion=:a and ubicacion=:b and fecha=:c';
adoquery2.Parameters.ParamByName('a').Value:=edit2.Text;
adoquery2.Parameters.ParamByName('b').Value:=edit3.Text;
adoquery2.Parameters.ParamByName('c').Value:=edit6.Text;
adoquery2.Open;

//modificar
adoquery3.Close;
adoquery3.SQL.Text:='SELECT id, descripcion, ubicacion, cuit_proveedor, numero_de_factura, fecha FROM inventario where id=:a';
adoquery3.Parameters.ParamByName('a').Value:=adoquery2.fields[0].asString;
adoquery3.Open;
adoquery3.Edit;
adoquery3.Fields[1].AsString:=edit2.Text;
adoquery3.Fields[2].AsString:=edit3.Text;
adoquery3.Fields[3].AsString:=edit4.Text;
adoquery3.Fields[4].AsString:=edit5.Text;
adoquery3.Fields[5].AsString:=datetostr(date)+' '+timetostr(time);
adoquery3.Post;

//edit1 es autonumerico

edit1.Text:='El sistema lo ingresa';
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.text:='El sistema lo ingresa';

//refresh
memo1.Text:='Recuerde que el "Libro de Inventario" debe ser actualizado manualmente y con letra manuscrita';
adoquery1.Close;
adoquery1.SQL.Text:='select inventario.id, inventario.descripcion, inventario.ubicacion, inventario.CUIT_PROVEEDOR, inventario.fecha, numero_de_factura from inventario';
adoquery1.Open;
dbgrid1.Columns[0].Title.caption:='Codigo de Inventario';
dbgrid1.Columns[1].Title.caption:='Descripcion';
//las ubicaciones tendrian que ser fk
dbgrid1.Columns[2].Title.caption:='Ubicación';
//los proveedores tendrian que ser fk
dbgrid1.Columns[3].Title.caption:='Proveedor';
dbgrid1.Columns[4].Title.caption:='Fecha';
dbgrid1.Columns[5].Title.caption:='Numero de factura';
dbgrid1.Columns[0].Width:=95;
dbgrid1.Columns[1].Width:=95;
dbgrid1.Columns[2].Width:=95;
dbgrid1.Columns[3].Width:=95;
dbgrid1.Columns[4].Width:=95;
dbgrid1.Columns[5].Width:=95;

end;

[manuc]

Hola JuanchoDev,

Generalmente esto suele ocurrir, porque la consulta que está ejecutando con "adoquery3" no retorne ningún registro y se encuentra "empty". En este caso, al hacer un adoquery3.edit y no tener registro, el adoquery hace un .append, en vez de editar.

¿Podrías comprobar si en el momento de hacer adoquery3.edit, adoquery3 apunta al registro que quieres editar?

Un saludo.

[JuanchoDev]

solved!

gracias a todos/as!