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

 DEFINE l INTEGER
 DEFINE precio DECIMAL(8,3)

MAIN                
   DEFER INTERRUPT
   SELECT * INTO p_companias.* FROM companias
   CALL ipprrp006()
END MAIN

FUNCTION ipprrp006()

    DEFINE producto RECORD
      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,
      ventas       CHAR(1)
    END RECORD,      
      codigo CHAR(4),
      codigo_n smallint,
      nombre_imp CHAR(11)

#WHENEVER ERROR CONTINUE

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

    CLEAR SCREEN

    OPEN FORM ipfmrp006 FROM "ipfmrp002"
    DISPLAY FORM ipfmrp006
    #CALL pantalla()
    DISPLAY "ipprrp006" AT 4,3
    DISPLAY "Catalogo Productos Con Precio" AT 6,25

    LET tipo_papel = 1
    CALL msgrp000(tipo_papel)

     INPUT BY NAME decide,producto.ventas  

    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       RETURN
    END IF
    LET nombre_ant = "E"
    CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
                     FROM 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 UNIQUE a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
    "       a.unidad_med ",
    "FROM iptb00002 a ",
    "WHERE a.status_t is NULL AND ",criterio clipped,
    
    " ORDER BY 5,1,2,3,4"
ELSE
    LET SELEC = 
    "SELECT UNIQUE a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
    "       a.unidad_med ",
    "FROM iptb00002 a ",
    "WHERE a.status_t is NULL AND ",criterio clipped,
    " ORDER BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp "
    
END IF

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

     DISPLAY "Buscando Informacion ... Espere Por Favor" AT 19,14
     ATTRIBUTE (REVERSE,BOLD)

    PREPARE busca FROM selec

      CALL integridad()
         IF bandera = 1 THEN
            LET bandera = 0
            RETURN
        END IF 

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

    DECLARE accion CURSOR FOR busca

      DISPLAY "                                         " AT 19,14
      DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>" 
              AT 19,14 ATTRIBUTE (REVERSE) 

    START REPORT reporte6 TO "C:\\archivo"

    FOREACH accion INTO producto.* 
         OUTPUT TO REPORT reporte6(producto.*)
    END FOREACH
    FINISH REPORT reporte6

    CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION

    REPORT reporte6(x)
       DEFINE x RECORD
         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,
         ventas       CHAR(1)
       END RECORD

    DEFINE nom CHAR(30)
    DEFINE doble_on CHAR(2)
    DEFINE doble_off CHAR(2)
    DEFINE negrillas_on CHAR(2)
    DEFINE negrillas_off CHAR(2)
    DEFINE comp_on CHAR(2)
    DEFINE comp_off CHAR(2) 
    DEFINE doce CHAR(2)
    DEFINE hora CHAR(5),
           prec_m,prec_l DECIMAL(12,2)

    OUTPUT
      TOP MARGIN 0
      LEFT MARGIN 0
      BOTTOM MARGIN 2

    FORMAT
      PAGE HEADER
        LET doble_on =  ASCII 14
        LET doble_off = ASCII 20
        LET negrillas_on = ASCII 27, ASCII 69
        LET negrillas_off = ASCII 27, ASCII 70
        LET comp_on = ASCII 15
        LET comp_off = ASCII 18
        LET doce = ASCII 27, ASCII 77  
        LET hora = time

        LET l = (100 - LENGTH(p_companias.nombre CLIPPED))/2
           PRINT COLUMN  1, doce,negrillas_on
           PRINT COLUMN  1, "ipprrp006",
                 COLUMN  l, p_companias.nombre CLIPPED,
                 COLUMN 93, "Pag.",pageno using "###"
           PRINT COLUMN 1, 
                 COLUMN 34, "Sistema de Productos Terminados",
                 COLUMN 93, today using "dd/mm/yy"
           PRINT COLUMN 34, "Catalogo de Productos Con Precio",
                 COLUMN 96, hora
 
        PRINT COLUMN 1, "--------------------------------------------------",
                        "--------------------------------------------------" 

        PRINT COLUMN  2, "Codigo",
              COLUMN 14, "Descripcion",
              COLUMN 52, "Unidad Med.",       
              COLUMN 83, "Precio"

        PRINT COLUMN 83, "Lista "

        PRINT COLUMN 1, "--------------------------------------------------",
                        "--------------------------------------------------" 
        PRINT negrillas_off

   {   BEFORE GROUP OF x.ventas
        IF x.ventas IS NULL OR x.ventas = " " THEN
           PRINT "PRODUCTOS SIN PRECIOS"
        END IF

        IF x.ventas = "1" THEN
           PRINT "PRECIO LOCAL"
        END IF
        IF x.ventas = "2" THEN
           PRINT "PRECIO EXPORTACION"
        END IF

      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

        PRINT negrillas_on
        PRINT COLUMN   1, p_iptb20.producto CLIPPED,negrillas_off
}
      ON EVERY ROW

        LET precio = 0
        SELECT MAX(a.precio) INTO precio 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.ventas = x.ventas AND
              a.status_t IS NULL AND a.sec_cliente IS NULL

        IF precio IS NULL THEN
           LET precio = 0
        END IF

         PRINT COLUMN  2, x.cod_n USING "&&","-",
               COLUMN  4, x.cod_grupo USING "&&","-",
               COLUMN  6, x.cod_tipo USING "&&&","-",
               COLUMN  9, x.cod_sec USING "&&&",
               COLUMN 14, x.descrip_esp," ",
               COLUMN 52, x.unidad_med   CLIPPED,
               COLUMN 81, precio USING "###,###.##"
     
     AFTER GROUP OF x.cod_n

          PRINT negrillas_on
          PRINT "Total Items Por Producto: ", GROUP COUNT(*) USING "<<<,<<<,<<<"
          PRINT negrillas_off
  ON LAST ROW
          PRINT negrillas_on
          PRINT "Total Items En Maestra:   ", COUNT(*) USING "<<<,<<<,<<<"
          PRINT negrillas_off
          PRINT COLUMN 2, ASCII 27, ASCII 80 

END REPORT