Hola amigos, tengo un problemita para mostrar los registros recién cargados. desde una aplicacion delphi 5 e interbase 6.Lo hago de la siguinete manera:
Legajo:TIBTable
Para cargar los registros:
Código Delphi
[-]
datamodule.DataModule1.Legajo01.Open;
datamodule.DataModule1.Legajo01.Insert;
DataModule1.Legajo01.FieldByName('tipdoc_01').AsString:=tipo_1;
...
DataModule1.Legajo01.FieldByName('observ_01').AsString:=observ.Text;
DataModule1.Legajo01.Post;
DataModule1.Legajo01.Refresh;
DataModule1.IBTransaction1.CommitRetaining;
datamodule.DataModule1.Legajo01.Close;
procedure TForm1.numdocExit(Sender: TObject);var campo:string;
begin
existe.Params[0].AsString:=tipdoc.Text;
existe.Params[1].AsString:=numdoc.Text;
existe.Active:=true;
if existe.RecordCount<>0 then
begin
observ.Text:=existe.FieldByName('observ_01').AsString;
...
nacion.Text:=decoder(existe.FieldByName('idnaci_01').AsString);
end;
end.
end;
Los pasos que hago son, primero cargo un registro, despues lo quiero listar con el evento y el existe.RecordCount me da cero, sindo que recién cargue el registro. Cierro la aplicacion y la vuelvo abrir, ejecuto el evento y ahí si el existe.RecordCount me da distinto de cero. ¿Que pasa con esto?