{
PROGRAMA             : IPPRRP020
PROGRAMADOR          : ING. JUAN SOTO
OBJETIVO             : IMPRIMIR LAS REQUISICIONES APROBADAS PARA LA ORGANIZACION DE LOS CAMIONES
FECHA                : 4/12/2010
}

GLOBALS
  "ipprgb000.4gl"
 MAIN
  DEFER INTERRUPT
  CALL ARG_VAL(1) RETURNING usuarios
  CALL ARG_VAL(2) RETURNING clave
  CALL ARG_VAL(4) RETURNING impresor
  CONNECT TO "smarmotech" USER usuarios USING clave
  SELECT a.* INTO p_companias.* FROM companias
  CALL ipprrp020() 
 END MAIN
 FUNCTION ipprrp020()
   DEFINE requisicion RECORD
       num_req        INT,
       fecha          CHAR(10),
       vendedor       CHAR(60),
       num_oc         INT,
       cotizacion_no  INT,
       cliente        CHAR(80),
       producto       CHAR(50),
       cantidad       DEC(12,4),
       mensaje        TEXT       
   END RECORD
   
   OPEN WINDOW w1 AT 5,7 WITH FORM "ipfmwd012"
   INPUT BY NAME 
 END FUNCTION