{
-------------------------------------------------------------------------------
PROGRAMA             :  INPRRP009
OBJETIVO             :  Existencias a diferentes fechas.
PROGRAMADOR          :  Ing. Betania Guerrero Perez
FECHA REALIZACION    :  Septiembre 29, 1992
MODIFICADO POR       :  Ing. Juan Fco. Soto.
FECHA MODIFICACION   :  Octubre 27, 1992.
DESCRIPCION          :  Agregar Columna Costo Standard
-------------------------------------------------------------------------------
}
GLOBALS "inprgb000.4gl"
DEFINE total_p DECIMAL (18,4),ptotal_c DEC(18,4),
       imp1 CHAR(3), total_c,bodega SMALLINT,
       tipoReporte VARCHAR(3)
       
MAIN      
#   WHENEVER ERROR CONTINUE          
   DEFER INTERRUPT
   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave
   CALL ARG_VAL(3) RETURNING impresor 
   CALL STARTLOG("inprrp009.log")
   CONNECT to "smarmotech" USER  usuarios USING clave

   SELECT * INTO p_companias.* FROM companias
   CALL integridad() 
    IF bandera <> 0 THEN
       ERROR "HA OCURRIDO UN ERROR AL CONECTARME A LA BASE DE DATOS"
    END IF   
   CALL inprrp009()
END MAIN

FUNCTION inprrp009()
    DEFINE mes CHAR(2)
    DEFINE idx_ant,idx_cos,idx_act SMALLINT
    DEFINE ano_act CHAR(4)
    DEFINE salir,primera CHAR(1)
    DEFINE balance_in DECIMAL(12,2)
    DEFINE existe RECORD
           cod_n        LIKE intb00001.cod_n,
           cod_grupo    LIKE intb00001.cod_grupo,
           cod_tipo     LIKE intb00001.cod_tipo,
           cod_sec      LIKE intb00001.cod_sec,
           descrip_esp  LIKE intb00001.descrip_esp,
           unidad_med   LIKE intb00001.unidad_med,
           existe_act   DECIMAL(10,2),
           bodega       SMALLINT,
           titulo_bodega VARCHAR(100),
           costo      LIKE intb00013.costo_st,
          CODIGO      VARCHAR(25) 
    END RECORD


    # WHENEVER ERROR CONTINUE

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

    OPEN FORM infmrp009 FROM "infmrp009"
    DISPLAY FORM infmrp009
    CALL pantalla()
    DISPLAY "inprrp009" AT 4,3
    DISPLAY "Existencias a Diferentes Fechas" AT 6,24

    LET tipo_papel = 1
    CALL msgrp000(tipo_papel)

    INPUT BY NAME datos_cons.fech_fi,tipoReporte
      
    AFTER FIELD fech_fi
    IF datos_cons.fech_fi IS NULL THEN
       LET numero_msg = 16
       CALL msg(numero_msg)
       NEXT FIELD fech_fi
     END IF
     AFTER INPUT

    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = false
       RETURN
    END IF
     LET ano_act = year(datos_cons.fech_fi)

  END INPUT

    CONSTRUCT criterio ON b.cod_n,b.cod_grupo, b.cod_tipo,b.cod_sec,c.bodega
                     FROM cod_n,cod_grupo,cod_tipo,cod_sec,bodega
     BEFORE CONSTRUCT
         CALL bodegas('1') 

    AFTER CONSTRUCT
        IF int_flag THEN
           EXIT PROGRAM
        END IF
       EXIT CONSTRUCT
   END CONSTRUCT    
    
   LET selec =
   "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,d.descrip_esp,d.unidad_med, ",
   "       sum(c.cantidad_2),c.bodega,f.descripcion, a.costo_st  ",
   "FROM intb00013 a , intb00002 b,intb00006 c,intb00001 d,intb00009 f ",
   "WHERE a.ano = ",ano_act," and b.cod_n = a.cod_n and b.cod_grupo = a.cod_grupo and ",
   "      b.cod_tipo = a.cod_tipo and b.cod_sec  = a.cod_sec and ",
   "      b.cod_n = c.cod_n and b.cod_grupo = c.cod_grupo and b.cod_tipo = c.cod_tipo and b.cod_sec = c.cod_sec ",
   "  and b.cod_n = d.cod_n and b.cod_grupo = d.cod_grupo and b.cod_tipo = d.cod_tipo and b.cod_sec = d.cod_sec ",   
   "  and c.bodega = f.cod_bodega ",
   " and c.status_t is null and c.fecha <='",datos_cons.fech_fi USING "mm/dd/yyyy","' ",
   "   and   b.status_t is null AND a.status_t IS NULL AND ",criterio CLIPPED,
   " GROUP BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,c.bodega, ",
   "       a.costo_st,d.descrip_esp,d.unidad_med,f.descripcion 
   ORDER BY c.bodega,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec "
   
    

   
  DISPLAY "<< Estoy Buscando Los Costos Actuales >>" AT 19,14 
  ATTRIBUTE (REVERSE,BOLD) 

                                                       
       LET opt1 = fgl_winquestion("Atencion","Desea Reporte Grafico?",
                             "no","yes|no","question",0)

                           
DISPLAY "tipo reporte ",tiporeporte
       IF OPT1 = "yes" THEN
          CALL selectOutput() RETURNING r_output
          CALL configureOutput(r_output) RETURNING HANDLER
          IF tipoReporte = 'SDE' THEN
             START REPORT repinrp009 TO XML HANDLER HANDLER
          ELSE
             START REPORT paul TO XML HANDLER HANDLER
          END IF
      ELSE
         CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
                                                       doble_on,doble_off,comp_on,comp_off,
                                                       doce,normal,archivo,copia
          IF tipoReporte = 'SDE' THEN
             START REPORT repinrp009 TO archivo
          ELSE            
             START REPORT paul TO archivo
          END IF 
       END IF    
   
    LET idx_ant = 1
    LET idx_act = 1
    LET idx_cos = 1
    
    LET progreso = 10
    DISPLAY progreso to progreso
    CALL ui.Interface.refresh()

    PREPARE busca FROM selec
    DECLARE accion CURSOR FOR busca

    FOREACH accion INTO existe.*
           LET existe.CODIGO = existe.cod_n USING "<<<","-",existe.cod_grupo USING "<<<","-",existe.cod_tipo USING "<<<","-",existe.cod_sec USING "<<<<"
           IF tipoReporte = 'SDE' THEN
              OUTPUT TO REPORT repinrp009(existe.*)
           ELSE 
             OUTPUT TO REPORT paul(existe.*)
           END IF
    END FOREACH      
     LET progreso = 100
    DISPLAY progreso to progreso
    CALL ui.Interface.refresh()

    IF tipoReporte = 'SDE' THEN
       FINISH REPORT repinrp009 
    ELSE
       FINISH REPORT paul
    END IF
    
    DISPLAY BY NAME total_p,ptotal_c

   
    IF opt1 <> "yes" THEN
       RUN imprime
    END IF
    LET total_p = 0
    LET total_c = 0
    CLEAR SCREEN
END FUNCTION

REPORT paul(x)
   DEFINE x RECORD
          cod_n       LIKE intb00001.cod_n,
          cod_grupo   LIKE intb00001.cod_grupo,
          cod_tipo    LIKE intb00001.cod_tipo,
          cod_sec     LIKE intb00001.cod_sec,
          descrip_esp LIKE intb00001.descrip_esp,
          unidad_med  LIKE intb00001.unidad_med,
          
          existe_act DECIMAL(10,2),
          bodega      SMALLINT,
          titulo_bodega VARCHAR(100),
          costo       LIKE intb00013.costo_st,
          CODIGO      VARCHAR(25) 
   END RECORD,
     
     xancho1,xlargo1,xespesor1,xancho2,xlargo2,xespesor2,xmedida1,xmedida2,
     total_medida1,total_medida2 DEC(12,4),
     xcodigo_bloque CHAR(12),
   total_costo DEC(12,2)

   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(2) 
   DEFINE doce CHAR(2)
   DEFINE hora CHAR(5)
   OUTPUT
   TOP MARGIN 0
   LEFT MARGIN 0
   BOTTOM MARGIN 2
   PAGE LENGTH 100
   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 030
       LET comp_off = ASCII 18
       LET doce = ASCII 27, ASCII 77
       LET hora = time

       LET lj = (99 - LENGTH(p_companias.nombre CLIPPED))/2
       PRINT doce
       PRINT COLUMN 1, "inprrp009",
             COLUMN lj, p_companias.nombre CLIPPED,
             COLUMN 92, "Pag. ",pageno using "###"
       PRINT COLUMN 27, "    Sistema de Inventario de Materia Prima",
             COLUMN 92, today using "dd/mm/yyyy"
       PRINT COLUMN 27, "       Existencias a Diferentes Fechas",
             COLUMN 95, hora
       PRINT COLUMN 1, "--------------------------------------------------",
                       "--------------------------------------------------" 

       PRINT COLUMN 63, "Existencia",
             COLUMN 75, "Costo Std.",
             COLUMN 96, "Total"

       PRINT COLUMN 1, "Codigo",
             COLUMN 12, "Descripcion",
             COLUMN 63, "Al ", datos_cons.fech_fi using "dd/mm/yyyy",
             COLUMN 75, "Al ",datos_cons.fech_fi using "dd/mm/yyyy"

       PRINT COLUMN 1, "--------------------------------------------------",
                       "--------------------------------------------------"
    
       BEFORE GROUP OF x.bodega
       
       SKIP 1 LINES
       PRINT COLUMN 1, "BODEGA: ",x.titulo_bodega
          
      SKIP 1 LINE
      BEFORE GROUP OF X.CODIGO
           LET total_medida1 = 0
           LET total_medida2 = 0
           
      ON EVERY ROW
       IF total_p is null THEN
         LET total_p = 0
       END IF
       LET total_costo = 0
       LET total_costo = x.existe_act * x.costo

       LET total_p = total_costo + total_p
       PRINT COLUMN 1,  x.cod_n USING "&","-", x.cod_grupo USING "&","-",
                        x.cod_tipo USING "&&","-",x.cod_sec USING "&&&",
             COLUMN 12, x.descrip_esp CLIPPED,
             COLUMN 42, x.unidad_med,
             COLUMN 60, x.existe_act USING "---,---,---.#####",
             COLUMN 75, x.costo USING "###,###.####",
             COLUMN 87, total_costo USING "----,---,-##.####"
     #BUSCA DESGLOSE
      
         SELECT DISTINCT a.cod_n FROM intb00018 a WHERE       a.bodega = x.bodega and
                                                              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.status_t IS null  
           IF STATUS <> NOTFOUND THEN
               PRINT COLUMN 2, "=========","========================================"
               PRINT COLUMN 2, " CODIGO  ","          MEDIDAS RECIBIDAS              "
               PRINT COLUMN 2, "=========","========================================"
               PRINT COLUMN 2, "                ANCHO      LARGO    ESPES      ",x.unidad_med
         
           
           DECLARE busca_medida CURSOR FOR
            SELECT a.codigo_bloque,a.ancho1,a.largo1,a.espesor1,SUM(a.medida1)
                   
            INTO   xcodigo_bloque,xancho1,xlargo1,xespesor1,xmedida1
            FROM intb00018 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.bodega = x.bodega AND
                  a.status_T IS null
           GROUP BY a.codigo_bloque,a.ancho1,a.largo1,a.espesor1       
           FOREACH busca_medida 
                       PRINT COLUMN 2,xcodigo_bloque," ",xancho1 USING "###.####", 2 spaces,
                            xlargo1 USING "###.####", 2 spaces,
                            xespesor1 USING "###.####", 2 spaces,
                            xmedida1 USING "--,--#.####", 3 spaces,
                            xancho2  USING "###.####",2 spaces,
                            xlargo2 USING "###.####", 2 spaces,
                            xespesor2 USING "###.####", 2 spaces,
                            xmedida2 USING "--,--#.####"
            LET total_medida1 = xmedida1 + total_medida1
            LET total_medida2 = xmedida2 + total_medida2
            
                            
           END FOREACH
             PRINT COLUMN 45,"==========",
                 COLUMN 90,"=========="
           PRINT COLUMN 45, total_medida1 USING "--,--#.####",
                 COLUMN 90, total_medida2 USING "--,--#.####"
          END IF
      
     ON LAST ROW
       LET ptotal_c = SUM(x.existe_act) 
      

       
       PRINT COLUMN 1, "==================================================",
                       "=================================================="

       PRINT COLUMN 4, "Total Registros Impresos =", count(*) USING "<<<<"
       
       PRINT COLUMN 4,"Total Existencia Cantidades: ", ptotal_c USING "---,---,---.##"
       PRINT COLUMN 4,"Total Existencia Costo     : ", total_p  USING "###,###,###.##"
       
       PRINT COLUMN 4, ASCII 27, ASCII 80
 END REPORT
REPORT repinrp009(x)
   DEFINE x RECORD
          cod_n       LIKE intb00001.cod_n,
          cod_grupo   LIKE intb00001.cod_grupo,
          cod_tipo    LIKE intb00001.cod_tipo,
          cod_sec     LIKE intb00001.cod_sec,
          descrip_esp LIKE intb00001.descrip_esp,
          unidad_med  LIKE intb00001.unidad_med,
          
          existe_act DECIMAL(10,2),
          bodega      SMALLINT,
          titulo_bodega VARCHAR(100),
          costo       LIKE intb00013.costo_st,
          CODIGO      VARCHAR(25) 
   END RECORD,
     
     xancho1,xlargo1,xespesor1,xancho2,xlargo2,xespesor2,xmedida1,xmedida2,
     total_medida1,total_medida2 DEC(12,4),
     xcodigo_bloque CHAR(12),
   total_costo DEC(12,2)

   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(2) 
   DEFINE doce CHAR(2)
   DEFINE hora CHAR(5)
   OUTPUT
   TOP MARGIN 0
   LEFT MARGIN 0
   BOTTOM MARGIN 2
   PAGE LENGTH 100
   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 030
       LET comp_off = ASCII 18
       LET doce = ASCII 27, ASCII 77
       LET hora = time

       LET lj = (99 - LENGTH(p_companias.nombre CLIPPED))/2
       PRINT doce
       PRINT COLUMN 1, "inprrp009",
             COLUMN lj, p_companias.nombre CLIPPED,
             COLUMN 92, "Pag. ",pageno using "###"
       PRINT COLUMN 27, "    Sistema de Inventario de Materia Prima",
             COLUMN 92, today using "dd/mm/yyyy"
       PRINT COLUMN 27, "       Existencias a Diferentes Fechas",
             COLUMN 95, hora
       PRINT COLUMN 1, "--------------------------------------------------",
                       "--------------------------------------------------" 

       PRINT COLUMN 63, "Existencia",
             COLUMN 75, "Costo Std.",
             COLUMN 96, "Total"

       PRINT COLUMN 1, "Codigo",
             COLUMN 12, "Descripcion",
             COLUMN 63, "Al ", datos_cons.fech_fi using "dd/mm/yyyy",
             COLUMN 75, "Al ",datos_cons.fech_fi using "dd/mm/yyyy"

       PRINT COLUMN 1, "--------------------------------------------------",
                       "--------------------------------------------------"
    
              
      AFTER GROUP OF x.CODIGO
       IF total_p is null THEN
         LET total_p = 0
       END IF
       LET total_costo = 0
       LET total_costo = GROUP SUM(x.existe_act) * x.costo

       LET total_p = total_costo + total_p
       PRINT COLUMN 1,  x.cod_n USING "&","-", x.cod_grupo USING "&","-",
                        x.cod_tipo USING "&&","-",x.cod_sec USING "&&&",
             COLUMN 12, x.descrip_esp CLIPPED,
             COLUMN 42, x.unidad_med,
             COLUMN 60, GROUP SUM(x.existe_act) USING "---,---,---.#####",
             COLUMN 75, x.costo USING "###,###.####",
             COLUMN 87, total_costo USING "----,---,-##.####"
    
     ON LAST ROW
       LET ptotal_c = SUM(x.existe_act) 
      

       
       PRINT COLUMN 1, "==================================================",
                       "=================================================="

       PRINT COLUMN 4, "Total Registros Impresos =", count(*) USING "<<<<"
       
       PRINT COLUMN 4,"Total Existencia Cantidades: ", ptotal_c USING "----,---,---.##"
       PRINT COLUMN 4,"Total Existencia Costo     : ",total_p USING "###,###,###.##"
       
       PRINT COLUMN 4, ASCII 27, ASCII 80
 END REPORT