{
-------------------------------------------------------------------------------
PROGRAMA             :  EDPRRP045
OBJETIVO             :  Listar las Entrada de Diario Materia Prima Enviada
                        a Proceso.
PROGRAMADOR          :  Tadeo A. Ferreras          
FECHA REALIZACION    :  Julio 28, 1993 
-------------------------------------------------------------------------------
}
DATABASE rayovac    
GLOBALS 

    DEFINE salir CHAR(1)
    DEFINE select_ac,select_ant,select_p CHAR(1000)
    DEFINE idx_ac,ano,idx_a,idx_c SMALLINT
    DEFINE ano_act,c_ano CHAR(4)
    DEFINE fecha_2 CHAR(8)
    DEFINE fecha_ini_per CHAR(8)

    DEFINE acumulado_a RECORD
       cod_mov LIKE intb00005.cod_mov,
       cod_n  SMALLINT,
       cod_grupo SMALLINT,
       cod_Tipo SMALLINT,
       cod_Sec   SMALLINT,
       consumo   LIKE intb00006.cantidad_2,
       material  LIKE iptb00004.material
    END RECORD

    DEFINE acumulado_ac RECORD
       cod_mov LIKE intb00005.cod_mov,
       cod_n  SMALLINT,
       cod_grupo SMALLINT,
       cod_Tipo SMALLINT,
       cod_Sec   SMALLINT,
       consumo   INTEGER,
       cantidad  LIKE vetb00014.cantidad
    END RECORD

    DEFINE costos      RECORD
       ventas CHAR(1),
       cod_n  SMALLINT,
       cod_grupo SMALLINT,
       cod_Tipo SMALLINT,
       cod_Sec   SMALLINT,
       mes       CHAR(2)
    END RECORD

    
###### Variables para busqueda de rango de fecha
DEFINE detalle CHAR(30)
DEFINE mes    SMALLINT 
DEFINE tasa DECIMAL(5,2) 
DEFINE p_fecha,fecha1, fecha2 DATE  
DEFINE nominas CHAR(1)
DEFINE entra  CHAR(14)
DEFINE entra1 CHAR(5)
DEFINE tipo_papel SMALLINT
DEFINE afecta CHAR(1)
DEFINE mano_ob,material,material6,gasto_ind DECIMAL(12,2)

###### Variables para almacenar los datos selecionados
DEFINE selec5, selec6 CHAR(1500) 

###### Variables que la almacenan la informacion enviada al reporte
DEFINE diario1 RECORD 
       cod_n        SMALLINT,
       cod_grupo    SMALLINT,
       cod_tipo     SMALLINT,
       cod_sec      SMALLINT,
       consumo      LIKE intb00006.cantidad_2,
       material     LIKE intb00006.cantidad_2
END RECORD

DEFINE acumulado RECORD
           cod_mov      LIKE intb00006.cod_mov,
           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,
           descrip_mov  LIKE intb00005.descrip_mov,
           consumo      LIKE intb00006.cantidad_2,
           material     LIKE intb00013.costo_st
    END RECORD

DEFINE diario2 RECORD 
       cod_n        SMALLINT,
       cod_grupo    SMALLINT,
       cod_tipo     SMALLINT,
       cod_sec      SMALLINT,
       costo        DECIMAL(12,2)
END RECORD
DEFINE salir1 CHAR(1)
DEFINE idx INTEGER
END GLOBALS

MAIN
 DEFER INTERRUPT
 CALL edprrp045()
END MAIN

FUNCTION edprrp045()

#   WHENEVER ERROR CONTINUE

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

##### Abriendo y desplegando el formulario de captura de datos

    OPEN FORM edfmrp045 FROM "edfmrp045"
    DISPLAY FORM edfmrp045
    CALL pantalla()
    DISPLAY "edprrp045" AT 4,3
    DISPLAY "Entrada de Diario Requisicion Materia Prima" AT 6,16

    LET tipo_papel = 1
    CALL msgrp000(tipo_papel)

 ###### Aceptando los valores para el rango de fecha

  INPUT BY NAME entra,fecha1,fecha2,afecta,detalle

        AFTER FIELD entra  
           SELECT unique ref FROM cgtb00004
           WHERE ref = entra

            IF STATUS != NOTFOUND THEN
               ERROR "(12) REGISTRO EXISTE"
               NEXT FIELD entra
            END IF

            LET entra1 = entra

  BEFORE FIELD fecha1
           SELECT MAX(fecha) INTO p_fecha FROM cgtb00004 
           WHERE ref[1,5] = entra1
           LET fecha1 = p_fecha + 1

           DISPLAY BY NAME fecha1

        AFTER FIELD fecha1
          IF fecha1 IS NULL THEN
           ERROR "(16) CAMPO EN BLANCO"
           NEXT FIELD fecha1
          END IF    

         IF fecha1 <= p_fecha THEN
            ERROR "(179) EXISTE ENTRADA DE DIARIO CON ESA FECHA"
            NEXT FIELD fecha1
         END IF

        AFTER FIELD fecha2 
           IF fecha2 is null THEN  
             ERROR "(16) CAMPO EN BLANCO"
             NEXT FIELD fecha2
           END IF

         IF fecha1 > fecha2 THEN
            ERROR "(149) FECHA NO PUEDE SER MAYOR QUE LA ANTERIOR"
            NEXT FIELD fecha1
         END IF
    
  ###### Selecionando en rango de fecha de la tabla de periodo para el fecha2

      SELECT UNIQUE ref FROM cgtb00004 where ref = entra    

      IF STATUS != NOTFOUND THEN
         ERROR "(12) REGISTRO EXISTE"
         NEXT FIELD fecha2
      END IF

 END INPUT 
##### Creando la facilidad para cancelar proceso con DELETE O SUPR

              IF int_flag THEN
                 ERROR "(2) OPERACION CANCELADA"
                 LET int_flag = false
                 RETURN
              END IF

# Busca la informacion requerida

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

   LET select_ac  = 
     "SELECT a.cod_mov,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
     "   c.descrip_esp,c.unidad_med,d.descrip_mov,SUM(a.cantidad_2), ",
     "   MAX(b.costo_st) ",
     "FROM intb00006 a,intb00013 b,intb00001 c,intb00005 d ",
     "WHERE a.fecha between ? and ? and a.status_t is NULL AND ",
     "      a.cod_mov = 36 AND b.ano = YEAR(?) AND b.mes_fin = 12 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 ",
     "      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 ",
     "      a.cod_mov = d.cod_mov ",
     "GROUP BY 1,2,3,4,5,6,7,8 ORDER BY 1,2,3,4,5 "

  PREPARE busca_ant FROM select_ac 
  DECLARE actual SCROLL CURSOR FOR busca_ant
  OPEN actual USING fecha1,fecha2,fecha2

    DISPLAY "                                                "
            AT 19,14 

##### Loop para enviar informacion al reporte

   START REPORT opera TO PIPE "lp -dcentral"

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

WHILE status != notfound
    FETCH  actual INTO acumulado.* 
       IF STATUS = NOTFOUND THEN
          EXIT WHILE  
       END IF

     IF int_flag THEN
      LET int_flag = false
      RETURN 
     END IF

         OUTPUT TO REPORT opera(acumulado.*,fecha1,fecha2,entra,detalle)
 END WHILE  

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

#### Funcion para dar salida ordenada a la informacion requerida de
#### una entrada de diario de nominas local


FUNCTION msgrp000(tipo_papel)
         DEFINE tipo_papel SMALLINT,
                longitud   CHAR(11),
                linea_papel CHAR(50) 

         CASE 
            WHEN tipo_papel = 1
                 LET longitud = " 9 1/2 x 11"
            WHEN tipo_papel = 2
                 LET longitud = "14 7/8 x 11"
         END CASE

         LET linea_papel = "Coloque papel ",longitud," en la impresora." 
         DISPLAY linea_papel 
                 AT 15,14 
         DISPLAY "Asegurese de que la impresora este encendida."
                 AT 16,14 
         DISPLAY "<Esc> Ejecuta impresion     <Supr> Cancela impresion" 
                 AT 18,14 

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

FUNCTION pantalla() 
    DEFINE fecha CHAR(8),
           hora char(5) 
    LET fecha = today USING "dd/mm/yy"  
    LET hora = time
    DISPLAY "R A Y . O . V A C  D O M I N I C A N A,  S. A." AT 4,17
            ATTRIBUTE (REVERSE,YELLOW)
    DISPLAY fecha AT 4,70 ATTRIBUTE (YELLOW)
    DISPLAY "Sistema de Contabilidad General" AT 5,24
    DISPLAY hora AT 6,73 ATTRIBUTE(YELLOW)

    CALL fgl_drawbox(5,79,3,1)
    CALL fgl_drawbox(1,79,22,1)
RUN "type C:\\archivo > %USPRINT%" END FUNCTION

  REPORT opera(x,fecha1,fecha2,entrada,detalle1)
       DEFINE x RECORD
          cod_mov     LIKE intb00006.cod_mov,
          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,
          descrip_mov LIKE intb00005.descrip_mov,
          consumo     LIKE  intb00006.cantidad_2,
          material    LIKE intb00013.costo_st
       END RECORD

    DEFINE fecha1,fecha2 DATE
    DEFINE l SMALLINT
    DEFINE c_ano1 char(4)
    DEFINE doble_on CHAR(3)
    DEFINE doble_off CHAR(3)
    DEFINE negrillas_on CHAR(6)
    DEFINE negrillas_off CHAR(6)
    DEFINE comp_on CHAR(3)
    DEFINE comp_off CHAR(3) 
    DEFINE doce CHAR(3)
    DEFINE normal CHAR(2) 
    DEFINE hora CHAR(5)
    DEFINE total_p,total_m DECIMAL(12,2)

    DEFINE total_material,total_labor,total_gasto_ind,t_t_total,t_t_t_total,
           t_total_material,t_total_labor,t_total_gasto_ind,t_cantidad
    DECIMAL (12,2)

   DEFINE ttotal_material,ttotal_labor,ttotal_gasto_ind,tt_t_total,tt_t_t_total,
           tt_total_material,tt_total_labor,tt_total_gasto_ind,tt_cantidad
    DECIMAL (12,2)
    DEFINE total1,material6,material1,mano_ob1,gasto1 DECIMAL(12,2)
    DEFINE entrada CHAR(14)
    DEFINE detalle1 CHAR(30)

    OUTPUT
     TOP MARGIN 0
      LEFT MARGIN 0
      BOTTOM MARGIN 2

    ORDER BY x.cod_mov,x.cod_n,x.cod_grupo,x.cod_tipo,x.cod_sec

    FORMAT

      PAGE HEADER
        LET doble_on =  ASCII 001
        LET doble_off = ASCII 002
        LET negrillas_on = ASCII 027, ASCII 098
        LET negrillas_off = ASCII 027, ASCII 099
        LET comp_on = ASCII 31
        LET comp_off = ASCII 029
        LET doce = ASCII 030
        LET normal = ASCII 27, ASCII 80
        LET hora = time

           PRINT COLUMN   1, comp_off,"edprrp045",
                 COLUMN  23, "R A Y . O . V A C  D O M I N I C A N A,  S. A.",
                 COLUMN 75, "Pag. ",pageno using "###"
           PRINT COLUMN 35, "Sistema de Contabilidad",
                 COLUMN 75, today using "dd/mm/yy"

           PRINT COLUMN 21, "Entrada de Diario Materia Prima Enviada a Proceso",   
                 COLUMN 78, hora

           PRINT COLUMN 34, "Del ",fecha1 USING "dd/mm/yy", " Al ",fecha2
                            USING "dd/mm/yy"
           PRINT comp_on

           SKIP 1 LINES

         BEFORE GROUP OF x.cod_mov

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


           PRINT COLUMN   4, "Movimiento",
                 COLUMN  49, "Cantidad",
                 COLUMN  58, "Costo ST.",
                 COLUMN  73, "Total"

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

        LET t_cantidad = 0
        LET t_t_t_total = 0
        LET total_material = 0
        LET total_labor    = 0
        LET total_gasto_ind = 0
        LET t_total_material = 0
        LET t_total_labor    = 0
        LET t_total_gasto_ind = 0
        LET t_t_total = 0

           PRINT COLUMN 1, x.cod_mov using "&&",
                 COLUMN 7, x.descrip_mov
           SKIP 1 LINE
           PRINT COLUMN 4, "Productos    "
             LET total_m = 0

      ON EVERY ROW

      IF x.consumo  IS NOT NULL THEN

        LET t_cantidad = t_cantidad + x.consumo
        LET total_material = x.material * x.consumo 

         PRINT COLUMN 1, x.cod_n USING "&","-", 
               COLUMN 3,  x.cod_grupo USING "&","-", 
               COLUMN 5, x.cod_tipo USING "&&","-", 
               COLUMN 8, x.cod_sec USING "&&&", 
               COLUMN 13, x.descrip_esp," ", 2 spaces,   
               COLUMN 42, x.consumo USING "##,###,###", 
               COLUMN 53, x.material USING "#,###.#####",
               COLUMN 69, total_material using "##,###,###.##"
           END IF 

    IF material1 IS NULL THEN
       LET material1 = 0
    END IF
     
           LET material1 = material1 + total_material

     AFTER GROUP OF x.cod_mov

      PRINT  COLUMN 42,  "--------------",
             COLUMN 69,  "--------------"

       PRINT negrillas_on
       PRINT COLUMN 3,  "Total ---->",
             COLUMN 42,  t_cantidad  using "###,###,###.##",
             COLUMN 69,  material1 USING "###,###,###.##"

       PRINT negrillas_off

      PRINT  COLUMN 42,  "==============",
             COLUMN 69,  "=============="

       LET t_cantidad = 0
       LET t_total_material = 0
       LET t_t_t_total = 0
       PRINT comp_off

       SKIP TO TOP OF PAGE

        ON LAST ROW 

       SKIP TO TOP OF PAGE
           PRINT comp_off

           PRINT COLUMN 01,"Entrada de Diario No.",
                            doble_on,entrada,doble_off 

           PRINT COLUMN 1,"Observaciones: _____________________________________"
           PRINT COLUMN 1,"               _____________________________________"

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

             PRINT COLUMN   2, "Cuenta ",
                   COLUMN  11, "Dpto", 
                   COLUMN  18, "Concepto", 
                   COLUMN  50, "Debe", 
                   COLUMN  71, "Haber",negrillas_off 

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

  LET total1 = material1 
  IF total1 < 0 THEN LET total1 = total1 * -1 END IF
 IF total1 <> 0 THEN
         PRINT COLUMN   2, "1141", 
               COLUMN  18, "INV. PROCESO- VALOR M.P. -STD-",
               COLUMN  50, total1 using "###,###,##&.&&" 

 IF afecta = "S" THEN
  INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"1141",null,null,null,null,null,
                        detalle1,null,total1,0,null,user,current,null,null)
 END IF
 END IF

 IF total1 <> 0 THEN
         PRINT COLUMN   2, "1151", 
               COLUMN  18, "INVENTARIO MATERIALES -AL STD",
               COLUMN  65, total1 using "###,###,##&.&&" 

 IF afecta = "S" THEN
  INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"1151",null,null,null,null,null,
                       detalle1,null,0,total1,null,user,current,null,null)
 END IF
 END IF

###### Imprime total DEBITO y total CREDITO
        SKIP 1 LINE
IF material1 <> 0 THEN
         PRINT COLUMN 1,negrillas_on
         PRINT COLUMN 50,"--------------",
               COLUMN 65,"--------------"
         PRINT COLUMN 35,"Totales-->",
               COLUMN 50,total1 USING "###,###,##&.&&",
               COLUMN 65,total1 USING "###,###,##&.&&",negrillas_off
 END IF

        LET material1 = 0
        LET mano_ob1  = 0
        LET gasto1    = 0
        LET material6 = 0
        LET total1    = 0
     SKIP 2 LINE
         PRINT COLUMN  1, detalle1
         PRINT COLUMN 1,comp_off,negrillas_off
     SKIP 4 LINE

   END REPORT