{
-------------------------------------------------------------------------------
PROGRAMA             :  INPRRP038
OBJETIVO             :  CATALOGO DE MATERIA PRIMA VALORIZADO AL REAL
PROGRAMADOR          :  Juan F. Soto
FECHA REALIZACION    :  Junio 7, 1996.
-------------------------------------------------------------------------------
}

GLOBALS
 "inprgb000.4gl"

 DEFINE fecha3 DATE
FUNCTION inprrp038()
    DEFINE idx_c SMALLINT 
    DEFINE salir CHAR(1)
    DEFINE mes CHAR(2)

    DEFINE materia RECORD
      cod_n        LIKE intb00002.cod_n,
      cod_grupo    LIKE intb00002.cod_grupo,
      cod_tipo     LIKE intb00002.cod_tipo,
      cod_sec      LIKE intb00002.cod_sec,
      descrip_esp  LIKE intb00001.descrip_esp,
      unidad_med   LIKE intb00001.unidad_med,
      existencia   LIKE intb00006.cantidad_2,
      costo        LIKE intb00013.costo_st
    END RECORD,
        cod smallint
    DEFINE select_cost CHAR(1000)

    DEFINE costos RECORD
      cod_n SMALLINT,
      cod_grupo SMALLINT,
      cod_tipo SMALLINT,
      cod_sec  SMALLINT,
      fecha CHAR(2), 
      costo    LIKE intb00013.costo_st
    END RECORD


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

    CLEAR SCREEN
    
    OPEN FORM infmrp038 FROM "infmrp038" 
    DISPLAY FORM infmrp038
    CALL pantalla()
    DISPLAY "inprrp038" AT 4,3
    DISPLAY "Catalogo de Materia Prima" AT 6,27
IF status < 0 THEN
   CALL integridad()
    IF bandera = 1 THEN
      LET bandera = 0
       RETURN
    END IF
END IF

    LET tipo_papel = 1
    CALL msgrp000(tipo_papel)

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

     INPUT BY NAME decide,fecha3 
           AFTER FIELD fecha3
             IF fecha3 is null THEN
                LET numero_msg = 16
                CALL msg(numero_msg)
                NEXT FIELD fecha3
             END IF
           AFTER FIELD decide
                 IF decide IS NULL THEN
                    NEXT FIELD decide
                 END IF
     END INPUT

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

    CONSTRUCT criterio ON b.cod_n,b.cod_grupo,b.cod_tipo,b.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

  LET select_cost = 
      "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,max(a.fecha_lq), ",
      "       a.costo_lq  ",
      "FROM cttb00013 a,intb00002 c ",
      "WHERE ( a.cod_n = 1 AND a.cod_n = c.cod_n AND ",
      "      a.cod_grupo = c.cod_grupo AND ",
      "      a.cod_tipo = c.cod_tipo AND a.cod_sec  = c.cod_sec) AND ",
      "      c.status_t is null ",
      "GROUP BY 1,2,3,4,6 ORDER BY 1,2,3,4 "

      DISPLAY "<< Estoy Buscando Los Costos de las Materias Primas >>" 
              AT 19,14 ATTRIBUTE (REVERSE) 

      PREPARE busca_costo FROM select_cost
      DECLARE material_costo SCROLL CURSOR FOR busca_costo
      OPEN material_costo

      DISPLAY "                                                        "  
              AT 19,14 

    IF decide = "A" THEN
    LET SELEC = 
        "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp, ",
        "       b.unidad_med,SUM(c.cantidad_2) ",
        "FROM intb00002 a, intb00001 b,intb00006 c ",
        "WHERE (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 ",
        "      (a.cod_n = c.cod_n AND a.cod_grupo = c.cod_grupo AND ",
        "      a.cod_tipo = c.cod_tipo AND a.cod_sec = c.cod_Sec) AND ",
        "      c.fecha <= ? AND c.status_t is null AND ",
        "      a.status_t is NULL AND b.status_t is NULL AND ",  
        criterio clipped,
        " GROUP BY 1,2,3,4,5,6 ",
        " ORDER BY 5"
    ELSE
    LET SELEC = 
        "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp, ",
        "       b.unidad_med,SUM(c.cantidad_2) ",
        "FROM intb00002 a, intb00001 b,intb00006 c ",
        "WHERE (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 ",
        "      (a.cod_n = c.cod_n AND a.cod_grupo = c.cod_grupo AND ",
        "      a.cod_tipo = c.cod_tipo AND a.cod_sec = c.cod_Sec) AND ",
        "      c.fecha <= ? AND c.status_t is null AND ",
        "      a.status_t is NULL AND b.status_t is NULL AND ",  
        criterio clipped,
        " GROUP BY 1,2,3,4,5,6 ",
        " ORDER BY 1,2,3,4"
   END IF

      DISPLAY "<< Estoy Buscando Las Materias Primas >>" 
              AT 19,14 ATTRIBUTE (REVERSE) 

    PREPARE busca FROM selec
    DECLARE accion CURSOR FOR busca
    OPEN accion USING fecha3

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

 START REPORT inrp38 TO "C:\\archivo" 

 WHILE status != notfound
    FETCH   accion INTO materia.* 
      IF status = notfound THEN
        EXIT WHILE
     END IF

       LET salir = "N"
       LET idx_c = 1
       WHILE salir != "S"
         FETCH ABSOLUTE idx_c material_costo INTO costos.*
           IF status = notfound THEN
             LET idx_c = 1    
             LET salir = "S"
             EXIT WHILE
          END IF

          LET idx_c = idx_c + 1

          IF costos.cod_n = materia.cod_n AND
             costos.cod_grupo = materia.cod_grupo AND
             costos.cod_tipo = materia.cod_tipo AND
             costos.cod_sec  = materia.cod_sec THEN
              LET materia.costo = costos.costo
              LET salir = "S"
          END IF

          IF salir = "S" THEN
             LET idx_c = 1
             EXIT WHILE
          END IF
          END WHILE

         OUTPUT TO REPORT inrp38(materia.*)
        END WHILE
    FINISH REPORT inrp38

    CLEAR SCREEN

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

    REPORT inrp38(x)
       DEFINE x RECORD
          cod_n       LIKE intb00002.cod_n,
          cod_grupo   LIKE intb00002.cod_grupo,
          cod_tipo    LIKE intb00002.cod_tipo,
          cod_sec     LIKE intb00002.cod_sec,
          descrip_esp LIKE intb00001.descrip_esp,
          unidad_med  LIKE intb00001.unidad_med,
          existencia  LIKE intb00006.cantidad_2,
          costo       LIKE intb00013.costo_st
       END RECORD
    DEFINE l SMALLINT
    DEFINE doble_on CHAR(2)
    DEFINE doble_off CHAR(2)
    DEFINE negrillas_on CHAR(2)
    DEFINE negrillas_off CHAR(2)
    DEFINE comp_on CHAR(3)
    DEFINE comp_off CHAR(3) 
    DEFINE doce CHAR(2)
    DEFINE hora CHAR(5)
    DEFINE varia CHAR(19)
    OUTPUT
      LEFT MARGIN 0 
    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 doce = ASCII 27, ASCII 77  
        LET hora = time

        LET lj = (97 - LENGTH(p_companias.nombre CLIPPED))/2
           PRINT doce
           PRINT COLUMN   1, "inprrp038",
                 COLUMN  lj, p_companias.nombre CLIPPED,
                 COLUMN  90, "Pag. ",pageno using "###"
           PRINT COLUMN  25, "    Sistema de Inventario de Materia Prima",
                 COLUMN  90, today using "dd/mm/yyyy"
           PRINT COLUMN  25, "         Catalogo de Materia Prima",
                 COLUMN  90, hora
           PRINT COLUMN 25, "      Valorizacion Al Ultimo Precio Real"

             IF decide = "N" THEN
               LET varia = "N u m e r i c o"  clipped
          ELSE
               LET varia = "A l f a b e t i c o"
         END IF
        LET l = (95 - LENGTH(varia)) / 2
        PRINT COLUMN l, varia

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

           PRINT COLUMN  57, "Existencia",
                 COLUMN  74, "Costo"

           PRINT COLUMN   17, "Materiales",
                 COLUMN  55, "Al ", fecha3 using "dd/mm/yyyy",
                 COLUMN  75, "Real",
                 COLUMN  90, "Valor"


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

      ON EVERY ROW
         PRINT COLUMN   1, x.cod_n USING "&","-",x.cod_grupo USING "&","-",
                           x.cod_tipo USING "&&","-",x.cod_sec USING "&&&",
               COLUMN  15, x.descrip_esp," ",
                           x.unidad_med,
               column  55, x.existencia USING "##,###,###.##",
               COLUMN  69, x.costo USING "##,###.####",
               COLUMN  85, x.existencia * x.costo USING "##,###,###.####"

     ON LAST ROW
       SKIP 1 LINE
       PRINT COLUMN 85, "---------------"
       PRINT COLUMN 3, "Total de Registros Impresos = ", count(*) USING "####",
             COLUMN 85, SUM(x.existencia * x.costo) USING "##,###,###.####"
       PRINT COLUMN 85, "==============="
       PRINT COLUMN comp_off                

     END REPORT