{
-------------------------------------------------------------------------------
PROGRAMA             :  IPPRRP050
OBJETIVO             :  CATALOGO DE PRODUCTOS TERMINADOS PARA CONTEO FISICO
PROGRAMADOR          :  JUAN SOTO             
FECHA REALIZACION    :  12 Abril, 2021
-------------------------------------------------------------------------------
}
GLOBALS "ipprgb000.4gl"

 
 DEFINE tipo_info  VARCHAR(30),
 formato VARCHAR(3),
 cuenta,cod_lista SMALLINT,
  bodega INT,
  titulo_bodega STRING
MAIN                
   DEFER INTERRUPT
   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave
   CALL ARG_VAL(3) RETURNING impresor

   CONNECT to "smarmotech" USER  usuarios USING clave
   SELECT * INTO p_companias.* FROM companias
   DISPLAY "COMPANIAS ",p_companias.nombre
   CALL ipprrp002()
END MAIN

FUNCTION ipprrp002()

    DEFINE producto RECORD
      cod_cia       SMALLINT,
      cod_n        LIKE iptb00002.cod_n,
      cod_grupo    LIKE iptb00002.cod_grupo,
      cod_tipo     LIKE iptb00002.cod_tipo,
      cod_sec      LIKE iptb00002.cod_sec,
      descrip_esp  LIKE iptb00002.descrip_esp,
      unidad_med   LIKE iptb00002.unidad_med,
      existencia   DEC(12,4)
      
    END RECORD,      
      codigo CHAR(4),
      codigo_n smallint,
      nombre_imp CHAR(11)


    OPTIONS
       FORM LINE 8,
       ERROR LINE 23,
       COMMENT LINE 21

    CLEAR SCREEN

    OPEN FORM ipfmrp050 FROM "ipfmrp050"
    DISPLAY FORM ipfmrp050
    DISPLAY "ipprrp002" AT 4,3
    DISPLAY "Catalogo Productos " AT 6,33

    LET nombre_ant = "E"
    DIALOG ATTRIBUTE(UNBUFFERED)
      INPUT BY NAME bodega
         BEFORE INPUT
            CALL bodegas("1")
         AFTER FIELD bodega
            IF bodega IS NULL THEN
               CALL msg(16)
               NEXT FIELD bodega
            END IF 
            SELECT a.descripcion INTO titulo_bodega FROM intb00009 a WHERE a.cod_bodega = bodega
            
         AFTER INPUT
        END INPUT   
      CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
                     FROM cod_n,cod_grupo,cod_tipo,cod_sec

         
        AFTER CONSTRUCT      
        
      END CONSTRUCT
      ON ACTION generar ATTRIBUTE(TEXT="Genera Reporte",IMAGE="printer") 
            LET SELEC = 
            "SELECT a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
            "       a.unidad_med,ISNULL(SUM(b.cantidad_2),0) FROM iptb00002 a INNER JOIN iptb00006 b ON ",
            " a.cod_n = b.cod_n AND 
                  a.cod_grupo = b.cod_grupo AND 
                  a.cod_tipo = b.cod_tipo AND 
                  a.cod_sec = b.cod_Sec 
              and b.bodega = ",bodega ,
            " and b.status_t is null ",    
            "WHERE a.status_t is NULL  ",
            "      AND ",criterio CLIPPED,
            " GROUP BY a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp,a.unidad_med ",
            " ORDER BY a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec"
            
          


        --run the report
        -- configure report engine; the functions prefixed fgl that are called here are part of the GRW API
            CALL seleccionarSalida() RETURNING r_output
            LET r_filename = "ipprrp050.4rp"
            iF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
            
                 LET r_output=formato
                 LET preview=1
                 CALL fgl_report_selectDevice(r_output)                          -- changing default
                 CALL fgl_report_selectPreview(preview)                          -- changing default
                 LET handler = fgl_report_commitCurrentSettings()    -- commit changes
          ELSE 
             EXIT PROGRAM
           END IF
           
           #LET handler= fgl_report_createProcessLevelDataFile("datos.xml")

        --run the report
        IF handler IS NOT NULL THEN           -- report engine was configured ok
                                                              
            
            PREPARE busca FROM selec
            DECLARE accion CURSOR FOR busca

            
            START REPORT catalogo TO  XML HANDLER HANDLER
            
            LET idx = 1
            FOREACH accion INTO producto.* 

               OUTPUT TO REPORT catalogo(producto.*)

                  LET idx = idx + 1
            END FOREACH
            FINISH REPORT catalogo
         END IF
      ON ACTION CANCEL
        EXIT PROGRAM     
     END DIALOG
END FUNCTION

REPORT catalogo(x)
       DEFINE x RECORD
         cod_cia      SMALLINT,
         cod_n        LIKE iptb00002.cod_n,
         cod_grupo    LIKE iptb00002.cod_grupo,
         cod_tipo     LIKE iptb00002.cod_tipo,
         cod_sec      LIKE iptb00002.cod_sec,
         descrip_esp  LIKE iptb00002.descrip_esp,
         unidad_med   LIKE iptb00002.unidad_med,
         existencia   DEC(12,4)
       END RECORD,
       fecha_venta CHAR(10),
       ttipo DEC(12,3),
       etiqueta CHAR(30)

    DEFINE  pgrupo,pproducto CHAR(30),
            hora CHAR(5),
            prec_rd,prec_local_usd,prec_exp_usd,prec_euro,total_inv,valor_inv DECIMAL(12,2),
            cuenta_grupo SMALLINT,
            cuenta_total INT,
            pcodigo CHAR(25),
            fecha DATE

      ORDER BY x.cod_n,x.cod_grupo,x.cod_tipo
      
    FORMAT
      FIRST PAGE HEADER
        LET hora = time
        LET cuenta_grupo = 0
        LET cuenta_total = 0
        LET fecha = today
        LET ttipo = 0
        LET total_inv=0
        PRINTX titulo_bodega              
      BEFORE GROUP OF x.cod_n
        INITIALIZE p_iptb20.* TO NULL
        SELECT a.* INTO p_iptb20.* FROM iptb00020 a
        WHERE a.cod_n = x.cod_n

        IF p_iptb20.producto IS NULL THEN
           LET p_iptb20.producto = "SIN DESCRIPCION"
        END IF
        
      BEFORE GROUP OF x.cod_tipo
        LET ttipo = 0
        
      ON EVERY ROW
        IF valor_inv IS NULL THEN
           LET valor_inv = 0
        END IF   
        LET ttipo = ttipo + x.existencia
        
        LET prec_rd = 0
        LET prec_local_usd = 0
        LET prec_exp_usd =0
        LET prec_euro = 0
        IF cod_lista = 1 THEN
           SELECT AVG(a.precio) INTO Prec_rd FROM vetb00025 a
           WHERE a.cod_n = x.cod_n AND
              a.cod_grupo = x.cod_grupo AND
              a.cod_tipo = x.cod_tipo AND
              a.cod_sec = x.cod_Sec AND
              a.tipo_cliente IS NULL AND
              a.ventas = 1 
        END IF
        IF cod_lista = 2 THEN
        
        SELECT AVG(a.precio) INTO Prec_exp_usd FROM vetb00025 a
        WHERE a.cod_n = x.cod_n AND
              a.cod_grupo = x.cod_grupo AND
              a.cod_tipo = x.cod_tipo AND
              a.cod_sec = x.cod_Sec AND
              a.tipo_cliente IS NULL AND
              a.ventas = 2 
        END IF
        IF cod_lista = 3 THEN
        
        SELECT AVG(a.precio) INTO Prec_local_usd FROM vetb00025 a
        WHERE a.cod_n = x.cod_n AND
              a.cod_grupo = x.cod_grupo AND
              a.cod_tipo = x.cod_tipo AND
              a.cod_sec = x.cod_Sec AND
              a.tipo_cliente IS NULL AND
              a.ventas = 3 
        END IF
        IF cod_lista = 4 THEN
        
        SELECT AVG(a.precio) INTO Prec_euro FROM vetb00025 a
        WHERE a.cod_n = x.cod_n AND
              a.cod_grupo = x.cod_grupo AND
              a.cod_tipo = x.cod_tipo AND
              a.cod_sec = x.cod_Sec AND
              a.tipo_cliente IS NULL AND
              a.ventas = 4 
        END IF
        
        IF cod_lista = 99 THEN
           SELECT AVG(a.precio) INTO Prec_rd FROM vetb00025 a
           WHERE a.cod_n = x.cod_n AND
              a.cod_grupo = x.cod_grupo AND
              a.cod_tipo = x.cod_tipo AND
              a.cod_sec = x.cod_Sec AND
              a.tipo_cliente IS NULL AND
              a.ventas = 1 
              
        SELECT AVG(a.precio) INTO Prec_exp_usd FROM vetb00025 a
        WHERE a.cod_n = x.cod_n AND
              a.cod_grupo = x.cod_grupo AND
              a.cod_tipo = x.cod_tipo AND
              a.cod_sec = x.cod_Sec AND
              a.tipo_cliente IS NULL AND
              a.ventas = 2 
              
        SELECT AVG(a.precio) INTO Prec_local_usd FROM vetb00025 a
        WHERE a.cod_n = x.cod_n AND
              a.cod_grupo = x.cod_grupo AND
              a.cod_tipo = x.cod_tipo AND
              a.cod_sec = x.cod_Sec AND
              a.tipo_cliente IS NULL AND
              a.ventas = 3 
        
        SELECT AVG(a.precio) INTO Prec_euro FROM vetb00025 a
        WHERE a.cod_n = x.cod_n AND
              a.cod_grupo = x.cod_grupo AND
              a.cod_tipo = x.cod_tipo AND
              a.cod_sec = x.cod_Sec AND
              a.tipo_cliente IS NULL AND
              a.ventas = 4 
        END IF
         LET fecha_venta = NULL
         SELECT CAST(MAX(a.fecha_factura) AS CHAR(10)) INTO fecha_venta
         FROM vetb00002 a,vetb00003 b
         WHERE a.factura = b.factura AND
               b.cod_n = x.cod_n AND
               b.cod_grupo = x.cod_grupo AND
               b.cod_tipo = x.cod_tipo AND
               b.cod_sec = x.cod_sec AND
               a.status_t IS NULL
               
         LET pcodigo = x.cod_n USING "&&&&","-",
                       x.cod_grupo USING "&&&&","-",
                       x.cod_tipo USING "&&&&","-",
                       x.cod_sec USING "&&&&&&"
         LET pproducto = 'NO TIENE'
         IF cod_lista = 1 THEN
            LET etiqueta = "VENTAS LOCALES RD$"
         END IF
         IF cod_lista = 2 THEN   
            LET etiqueta = "VENTAS EXPORTACION USD$"
         END IF
         IF cod_lista = 3 THEN   
            LET etiqueta = "VENTAS LOCALES USD$"
         END IF

         IF cod_lista = 4 THEN   
            LET etiqueta = "VENTAS EURO"
         END IF
         
         SELECT a.descripcion INTO pproducto FROM iptb00024 a
         WHERE  a.cod_tipo = x.cod_tipo
         
         LET pgrupo = 'NO TIENE'
         SELECT a.descripcion INTO pgrupo FROM iptb00029 a
         WHERE a.cod_grupo = x.cod_grupo
   
         LET cuenta_grupo = cuenta_grupo +1   
         LET cuenta_total = cuenta_total + 1
         IF x.existencia IS NULL THEN
            LET x.existencia = 0
         END IF
         IF prec_rd IS NULL THEN
            LET prec_rd =0
         END IF
         LET valor_inv = x.existencia*prec_rd
         LET total_inv = total_inv+valor_inv
         
      #   IF prec_rd > 0 THEN               
         PRINTX x.*,p_companias.*,hora,p_iptb20.producto,
                prec_rd,prec_local_usd,prec_exp_usd,prec_euro,
                cuenta_total,cuenta_grupo,pcodigo,pproducto,
                fecha,tipo_info,pgrupo,fecha_venta,ttipo,etiqueta,total_inv,valor_inv
       # END IF
END REPORT