buenas noches
tengo un modulo de facturacion donde invoco a la pantalla de ingreso de datos de esta manera
Código Delphi
[-]procedure TfrmEmisionFactura.btnAgregaClick(Sender: TObject);
begin
p_opcion := 0;
While p_Opcion = 0 do
Begin
frmEmisionFacturaD:= TfrmEmisionFacturaD.Create(nil);
frmEmisionFacturaD.ShowModal;
End;
end;
y en el formulario que invoco hay una opcion para agregar articulos y lo invoco de la siguiente manera
Código Delphi
[-]procedure TfrmEmisionFacturaD.btnAgregaClick(Sender: TObject);
begin
_accion := 0;
While _Accion = 0 do
Begin
CdsDetalle.Append;
frmEmisionFacturaDDato := TfrmEmisionFacturaDDato.Create(nil);
frmEmisionFacturaDDato.FormStyle := fsNormal;
frmEmisionFacturaDDato.Visible := False;
frmEmisionFacturaDDato.ShowModal;
End;
end;
cuando ejecuto el programa funciona a la perfeccion la primera vez
luego, cuando grabo la factura se invoca el formulario "frmEmisionFacturaD" (se abre con normalidad)
pero sucede algo curioso, el campo tipo de documento no recibe el foco, hasta que yo presione alguna tecla
y luego cuando quiero agregar productos aparece el mensaje que adjunto.
PERO
si al momento de invocar el formulario "frmEmisionFacturaD" quitandole en el programa el "bucle"
Código Delphi
[-]While p_Opcion = 0 do
Begin
end..
no me aparece ningun error
en el destroy agrego lo siguiente en cada uno de los formularios
Código Delphi
[-]frmEmisionFacturaD := nil;
Código Delphi
[-]frmEmisionFacturaDDato := nil;
alguien tiene alfguna idea de lo que sucede?