{         PROGRAMA         :  NOPRRP040
          OBJETIVO PROGRAMA:  GENERA REPORTE VALIDACION COMISIONES
          DESARROLLADO POR :  ING. JUAN SOTO
}

GLOBALS "noprgb000.4gl"
  DEFINE pvetb75 RECORD LIKE vetb00075.*,
         pvetb76 RECORD LIKE vetb00076.*,
         piptb20 RECORD LIKE iptb00020.*,
         salida CHAR(15)
MAIN
  DEFER INTERRUPT
  CALL ARG_VAL(1) RETURNING usuarios
  CALL ARG_VAL(2) RETURNING clave
  
 # LET usuarios = 'jsoto'
 # LET clave = 'lmmjvsd2009'
  
  CONNECT to "smarmotech"  USER  usuarios USING clave
  SELECT a.* INTO p_companias.* FROM companias a
  CALL noprrp040()
END MAIN

FUNCTION noprrp040()
   OPEN WINDOW nofmrp040 WITH FORM  "nofmrp040"

   CONSTRUCT  BY NAME criterio ON a.sec_vend

    CALL seleccionarSalida() RETURNING  r_output     

    LET selec = "SELECT a.*,b.*,c.* FROM vetb00075 a LEFT OUTER JOINING vet00076 b ON ",
                 " a.sec_vend = b.sec_vend INNER JOIN iptb00020 c ON b.cod_n = c.cod_n ",
                 " WHERE ",criterio CLIPPED,
                " ORDER BY a.sec_vend" 

    PREPARE comando FROM selec
    DECLARE  busca CURSOR FOR  comando
    OPEN busca
    
    LET idx = 1
    FOREACH busca INTO pvetb75.*,pvetb76.*,piptb20.*
      IF STATUS = NOTFOUND THEN
         EXIT FOREACH
      END IF 
      IF idx = 1 THEN
         LET r_filename = salida
         IF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
            LET preview=TRUE
            # CALL fgl_report_selectDevice(r_output)                          -- changing default
            # CALL fgl_report_selectPreview(preview)                          -- changing default
            LET handler = fgl_report_commitCurrentSettings()    -- commit changes
        END IF    
        
   
### Loop para igualar tipo de venta a la variable ventas.ventas
        IF handler IS NOT NULL THEN           -- report engine was configured ok
            
        END IF
     END IF
 
    END FOREACH   
END FUNCTION