Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,19 @@
|
||||
{
|
||||
PROGRAMA : noprmt039.4gl
|
||||
OBJETIVO : Administrar los carnets de los contratistas
|
||||
DESARROLLADO POR : ING. JUAN SOTO
|
||||
FECHA : AGOSTO 17, 2023
|
||||
}
|
||||
GLOBALS "noprgb000.4gl"
|
||||
MAIN
|
||||
DEFER INTERRUPT
|
||||
CALL ARG_VAL(1) RETURNING usuarios
|
||||
CALL ARG_VAL(2) RETURNING clave
|
||||
|
||||
CONNECT to "smarmotech" USER usuarios USING clave
|
||||
SELECT * INTO p_companias.* FROM companias
|
||||
|
||||
CALL noprmt039()
|
||||
END MAIN
|
||||
FUNCTION noprmt039()
|
||||
END FUNCTION
|
||||
Reference in New Issue
Block a user