19 lines
475 B
Plaintext
19 lines
475 B
Plaintext
{
|
|
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 |