Bueno comencemos describiendo y poniendo el código de diferentes partes, ya que el código entero no lo pondré hasta el final. Es muy probable que el código de una función o procedure vaya modificándose según avancemos, ya iré explicando por que. Lo ire haciendo en diferentes post, para que quede un poco más esquematizado.
Lo primero será la forma de llamarlo, ya hemos visto la function Acceso, que nos habré los form, según sea nuestro nivel de usuario, con lo que evitamos mayores controles de usuarios y tener que estar poniendo o quitando accesos y ademas gracias al nivel de usuario, también podemos ocultar o mostrar ciertos datos en nuestro form de una manera bastante simple.
Veamos la llamada a facturas
Código Delphi
[-]procedure TFMenu.act_V_FacturasExecute(Sender: TObject);
begin
VarSTipoDocumento:='FACTURA';
FXPAF.PC.ActivePageIndex:=0;
FXPAF.PC2.ActivePageIndex:=0;
Acceso(6,FXPAF);
end;
como podemos ver la linea
Cita:
VarSTipoDocumento:='FACTURA';
|
llama a una variable del formulario FXPAF, especificando el tipo de documento que es, de esta manera especificamos que documento tenemos seleccionado, ya que como os recuerdo, dentro de la tabla manejaremos 4 tipos de documentos diferentes.
Ademas nos aseguramos de colocar los Pagecontrol en página general, ya que podemos haber cambiado de una página/documento a otra al salir y volver a entrar.