Hola,
este es mi código:
Cita:
screen.cursor := crHourGlass;
FrmEfePago := TFrmEfePago.Create(Self);
Screen.cursor := crDefault;
FrmDModule.TbEconoPago.Prepare;
TRY
FrmDModule.IBTransFXProce.Active := false;
if not FrmDModule.IBTransFXProce.InTransaction then begin
FrmDModule.IBTransFXProce.StartTransaction;
end;
FrmDModule.TbEconoPago.ParamByName('numalu').AsInteger := FrmDModule.TbAlumnosNUMALU.AsInteger;
FrmDModule.TbEconoPago.ExecProc;
//si NO hay registros de deudas
// if FrmDmodule.TbEconoPago.RecordCount = 0 then begin
// showmessage('No existen efectos a pagar !!!');
// end
// else begin // Si hay registros de deudas
//inserta un registro
FrmDmodule.TbEcono.Append;
//mostramos como modal el form
FrmEfePago.ShowModal;
// end;
FrmDMOdule.IBTransFXProce.Commit;
FINALLY
FrmEfePago.Free;
//liberamos recursos usados con el Procedure
FrmDMOdule.TbEconoPago.UnPrepare;
END;
|
Si quito el comentario del "
if FrmDmodule.TbEconoPago.RecordCount = 0 then " me responde siempre que 'No existen efectos a pagar !!!'
Si lo comento, al menos me deja entrar en la ventana en cuestión, pero este procedimiento está conectado con un DBgrid, que no muestra nada, asíque parece como si ni siquiera se llegase a abrir el procedimento.
hay algo que se me esté escapando?
GRacias por la ayuda.
Virginia