{
-------------------------------------------------------------------------------
PROGRAMA             :  IPPRRP002
OBJETIVO             :  CATALOGO DE PRODUCTOS TERMINADOS
PROGRAMADOR          :  JUAN SOTO             
FECHA REALIZACION    :  Febrero 1997
DIRECTOR PROYECTO    :  JOSE ALFREDO PAULINO ALEJO
-------------------------------------------------------------------------------
}
GLOBALS "ipprgb000.4gl"

 
 DEFINE tipo_info  VARCHAR(30),
 formato VARCHAR(3),
 cuenta,cod_lista SMALLINT,
 selec_cta 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
   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 ipfmrp002 FROM "ipfmrp002"
    DISPLAY FORM ipfmrp002
    DISPLAY "ipprrp002" AT 4,3
    DISPLAY "Catalogo Productos " AT 6,33


     INPUT BY NAME decide,tipo_info,formato,cod_lista
       
       AFTER INPUT
       IF int_flag THEN
          LET numero_msg = 2
          CALL msg(numero_msg)
          LET int_flag = FALSE
          RETURN
       END IF
       
       
       END INPUT
    LET nombre_ant = "E"
    CONSTRUCT criterio ON a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
                     FROM cod_cia,cod_n,cod_grupo,cod_tipo,cod_sec

    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       RETURN
    END IF

IF decide = "A" THEN
    LET SELEC = 
    "SELECT a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
    "       a.unidad_med,SUM(b.cantidad_2) FROM iptb00002 a,iptb00006 b ",
    "WHERE a.status_t is NULL AND ",
    "      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 ",criterio clipped,
    " AND b.status_t is null ",
    " 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.descrip_esp"

    LET selec_cta =

    "SELECT count(*) ",
    " FROM iptb00002 a ",
    "WHERE a.status_t is NULL AND ",criterio clipped
ELSE
    LET SELEC = 
    
    "SELECT a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
    "       a.unidad_med,SUM(b.cantidad_2) FROM iptb00002 a,iptb00006 b ",
    "WHERE a.status_t is NULL AND ",
    "      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 ",criterio clipped,
    " AND b.status_t is null ",
    " 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,a.descrip_esp"

    LET selec_cta =
    "SELECT count(*) ",
    " FROM iptb00002 a ",
    "WHERE a.status_t is NULL AND ",criterio clipped
    
  
END IF

    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       RETURN
    END IF


--run the report
-- configure report engine; the functions prefixed fgl that are called here are part of the GRW API
    IF formato = 'XLS' THEN
    LET r_filename = "ipprrp002_2.4rp"
    ELSE
      LET r_filename = "ipprrp002.4rp"
    END IF  
    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
         CALL fgl_report_configurexlsxdevice(null,null,null,false,false,null,1)
         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_cta FROM selec_cta
    EXECUTE busca_cta INTO cuenta
    
    PREPARE busca FROM selec
    DECLARE accion CURSOR FOR busca

    IF formato = 'XLS' THEN
       START REPORT catalogo_xls TO  XML HANDLER HANDLER
    ELSE
      START REPORT catalogo TO  XML HANDLER HANDLER
    END IF

    
    LET progreso = 0
    DISPLAY Progreso TO progreso
    CALL ui.interface.refresh()
    LET idx = 1
    FOREACH accion INTO producto.* 
       IF tipo_info = 'CON EXISTENCIA' and producto.existencia = 0 THEN
          CONTINUE FOREACH
       END IF
       IF tipo_info = 'SIN EXISTENCIA' AND producto.existencia <> 0 THEN
          CONTINUE FOREACH
       END IF

       IF formato = 'XLS' THEN
          OUTPUT TO REPORT catalogo_xls(producto.*)
       ELSE
          OUTPUT TO REPORT catalogo(producto.*)
       END IF
       
          LET progreso = (idx /cuenta )*100
       
          DISPLAY Progreso TO progreso
          CALL ui.interface.refresh()
          LET idx = idx + 1
    END FOREACH
    LET progreso = 100 
    DISPLAY Progreso TO progreso
    CALL ui.interface.refresh()
    
    IF formato = 'XLS' THEN
      FINISH REPORT catalogo_xls
    ELSE 
    FINISH REPORT catalogo
    END IF
END IF    
    
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
                
      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 AND a.cod_lista = cod_lista
        END IF
        
        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 AND a.cod_lista =cod_lista
        
        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 AND a.cod_lista = 1
        
        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 AND a.cod_lista =1
        
        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


REPORT catalogo_xls(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 p_companias.*,hora
      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
           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 AND a.cod_lista =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 AND a.cod_lista =1
        
        
        
        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 AND a.cod_lista =1 
        
        
        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 AND a.cod_lista =1 
        
        
        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_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