{
  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