Cita:
Empezado por maeyanes
Hola...
¿Puedes copiar el código completo del procedimiento/método así de cómo haces la llamada al mismo?
Saludos...
|
procedure TfrmMainGeneral.EjecutarForm(pForm: TfrmForm; pNomPantalla: String);
var
lTransActive: Boolean;
begin
lTransActive := False;
if not DMLectura.IBTRead.InTransaction then
begin
DMLectura.IBTRead.StartTransaction;
lTransActive := True;
end;//if not DMLectura.IBTRead.InTransaction then
if FSesionUsr.AccesoFormSistema(FSesionUsr.GetSesionIDGrupoUsuario, pNomPantalla) then
pForm.ExecuteModal(Self)
else
MessageDlg(Usuario_sin_permiso, mtInformation, [mbOK], 0);
if lTransActive then
DMLectura.IBTRead.Rollback;
end;
y despues lo que quiero hacer es
EjecutarForm(TfrmVenta, Pant_Ventas);