Hola amigos,
Le ando dando vueltas a si estoy programando correctamente.
Ya hice algunos meses algunas aplicaciones usando lazarus, componentes zeos y firebird. En principio todo funcionaba bien, pero despues de unos meses, me comentan que, en algunas ocasiones, no esta guardando los registros.En otros casos, he usado componentes ibx para lazarus, y hace exactamente lo mismo.
Lo primero que hago, es crear un datamodule y ahi le meto la basededatos, un dataset y un datasource. Los tres ligados. Con eso ya puedo acceder sin problemas.
Código Delphi
[-] fmodulodatos.ibproductos.SelectSQL.clear;
fmodulodatos.ibproductos.selectsql.Text:='select * from productos order by nombre_producto';
fmodulodatos.ibproductos.Open;
fmodulodatos.ibcomprasdetalle.SelectSQL.clear;
fmodulodatos.ibcomprasdetalle.SelectSQL.Text:='select * from comprasdetalle where id_compra=:idcompra';
fmodulodatos.ibcomprasdetalle.ParamByName('idcompra').asinteger:=idcompra;
fmodulodatos.ibcomprasdetalle.Open;
Tambien, sino quiero alterar el ibdataset de productos por ejemplo, lo que hay generar un ibdataset temporal al que le asigno la tabla productos con otros parametros para visualizar en un dbgrid por ejemplo.
A la hora de guardar, simplemente aplico lo siguiente:
Código Delphi
[-]with fmodulodatos do
begin
ibcomprasdetalle.insert;
ibcomprasdetalle.FieldByName('id_compra').asinteger:=idcompra;
ibcomprasdetalle.fieldbyname('id_producto').asinteger:=dblookupproducto.KeyValue;
ibcomprasdetalle.fieldbyname('cantidad').asinteger:=icantidad;
ibcomprasdetalle.fieldbyname('preciocoste').asfloat:=preciocost;
ibcomprasdetalle.fieldbyname('lote').asstring:=lote.Text;
ibcomprasdetalle.fieldbyname('fecha_caducidad').asdatetime:=datefechacaducidad.Date;
ibcomprasdetalle.Post;
INVENTARIO(DBLOOKUPPRODUCTO.KEYVALUE,icantidad); precios(dblookupproducto.KeyValue,preciocost); ibtransaction1.CommitRetaining;
end;
No se que mas hay que hacer para que no de problemas posteriores.
En las tablas tengo asignados los triggers, generators y en cada tabla, si hace falta, añado indices ademas de los que se generan solos por la primary key.
Q estoy haciendo mal.