Buenos días a todos.
Tengo que iniciar una página justo al terminar el inicio del sistema y he hecho una unidad de código donde pongo la apertura de la página, justo despues del inicio del sistema, pero da error y no inicia el sistema sino quito la línea del RunModal… sin ella funciona perfectamente toda la carga de datos, etc.
Adjunto el código…
codeunit 50100 “Iniciar_Sistema”
{
[EventSubscriber(ObjectType::Codeunit, Codeunit::”System Initialization”, ‘OnAfterLogin’, ”, false, false)]
local procedure OnAfterLogin();
var
Comprobar: page “Customer Ledger Entries”;
Notificacion: record Customer;
UserSetup: record TablaUsuarios;
Filtro: Text;
Posicion: Integer;
begin
Clear(Filtro);
Posicion := 1;
if (UserSetup.Get(UserID) = true) then begin
UserSetup.SetFilter(CodigoUser, UserID);
if (UserSetup.Contabilidad = true) then begin
Notificacion.SetFilter(Seguimiento, format(true));
if Notificacion.FindSet(false) then begin
repeat
if Posicion = 1 then
Filtro := Notificacion.”No.”
else
Filtro += ‘|’ + Notificacion.”No.”;
Posicion += 1;
until Notificacion.Next() = 0;
end;
Comprobar.RecibirDatos(Filtro);
Comprobar.RunModal(); <- Esto hace que falle (las dos primeras veces si que me entró, pero ahora no lo consigo)
end;
end;
end;
}
El error que arroja es…
…se produjo el siguiente error: “Se produjo un error y la transacción se detuvo. Póngase en contacto con el administrador o con el socio para obtener más ayuda.”
Seguimiento pila AL:
Iniciar_Sistema(CodeUnit 50100).OnAfterLogin line 24 – Extensiones Plus
“System Initialization”(CodeUnit 150).OnAfterLogin(Event) line 2 – System Application by Microsoft
“System Initialization Impl.”(CodeUnit 151).InitCompany line 5 – System Application by Microsoft
“Company Triggers”(CodeUnit 2000000003).OnCompanyOpenCompleted(Event) line 2
” y seguimiento de la pila de AL:
Iniciar_Sistema(CodeUnit 50100).OnAfterLogin line 24 – Extensiones Plus
“System Initialization”(CodeUnit 150).OnAfterLogin(Event) line 2 – System Application by Microsoft
“System Initialization Impl.”(CodeUnit 151).InitCompany line 5 – System Application by Microsoft
“Company Triggers”(CodeUnit 2000000003).OnCompanyOpenCompleted(Event) line 2
A ver si podéis orientarme a que puede ser debido, porque no lo entiendo, ya que en principio debería funcionar.
Saludos y muchas gracias!!!
