#pragma -w3
#pragma -es2
#include <hmg.ch>
Function Main
----> and all folow
Moderator: Rathinagiri
Code: Select all
SET WINDOW MAIN Off // <-- Line 224
Modulo_Coneccion_Al_Hosting () // Funcion de coneccion al hosting y DB's
// muestra una splash window
If ! Empty ( pcAdminPass ) // Si hay pass de administrador
Main_Usuarios () // Funcion de Login, show login window
Else // Si no hay pass de administrador entra directo
// es para la primera vez que se usa el programa
// y poder setear el pass de administrador y de usuarios
plAdminAccess := .T.
pcUsuario := "Administrador general"
MsgInfo ("Está iniciando sesión como Administrador general !" , "Permisos")
EndIf
SET WINDOW MAIN On // <-- Line 242
DEFINE WINDOW Main AT pnRowIniMain , pnColIniMain WIDTH nMinWidth HEIGHT nMinHeight VIRTUAL WIDTH Nil ;
VIRTUAL HEIGHT Nil TITLE pcSoftName + " - " + pcVersionIdLong ICON "AaaaCard" MAIN CURSOR NIL ; // and continue the code...