{
-------------------------------------------------------------------------------
PROGRAMA             :  EDPRRP508
OBJETIVO             :  Listar las Entrada de Diario PRODUCCION
PROGRAMADOR          :  JUAN F. SOTO
FECHA REALIZACION    :  FEBRERO 20, 1998.
-------------------------------------------------------------------------------
}
DATABASE marmotech
GLOBALS 

    DEFINE salir CHAR(1)
    DEFINE select_ac,select_ant,select_p CHAR(1000)
    DEFINE l,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),
           p_compania RECORD LIKE companias.*

    DEFINE acumulado_a RECORD
       cod_mov LIKE intb00005.cod_mov,
       cod_n  SMALLINT,
       cod_grupo SMALLINT,
       cod_Tipo SMALLINT,
       cod_Sec   SMALLINT,
       consumo   LIKE iptb00006.cantidad_2,
       material  LIKE iptb00004.material,
       labor     LIKE iptb00004.labor,
       gastos LIKE iptb00004.gastos
    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,gastos 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 iptb00006.cantidad_2,
       material     DECIMAL(12,2),
       mano_ob      DECIMAL(12,2),
       gastos    DECIMAL(12,2)
END RECORD

DEFINE acumulado RECORD
           cod_mov      LIKE iptb00006.cod_mov,
         # cod_cia      LIKE iptb00006.cod_cia,
           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,
           descrip_mov  LIKE intb00005.descrip_mov,
           consumo      INTEGER,
           material     LIKE iptb00004.material,
           labor        LIKE iptb00004.labor,
           gastos    LIKE iptb00004.gastos
    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 edprrp508()
END MAIN

FUNCTION edprrp508()

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

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

    OPEN FORM edfmrp508 FROM "edfmrp508"
    DISPLAY FORM edfmrp508
    CALL pantalla()
    DISPLAY "edprrp508" AT 4,3
    DISPLAY "Entrada de Diario PRODUCCION" AT 6,22

    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.material),MAX(b.labor),Max(b.gastos) ",
     "FROM iptb00006 a,iptb00002 c,iptb00005 d, OUTER iptb00004 b ",
     "WHERE a.fecha between ? and ? and a.status_t is NULL AND ",
     "      a.cod_mov IN (20) 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 ",
     "      c.cod_cia = 1 AND ",
     "      a.cod_mov = d.cod_mov AND b.ventas = 1 ",
     "GROUP BY 1,2,3,4,5,6,7,8  "

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

    DISPLAY "                                                "
            AT 19,14 

  ##### Envia la Informacion al printer de contabilidad

##### Loop para enviar informacion al reporte

   START REPORT opera TO "C:\\archivo"

   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

{
  Esta funcion se utiliza para desplegar mensajes de los reportes de 
  los sistemas de Ray-O-Vac Dominicana. 

  Realizada por Lic. Abner Montalvo y Johnny Soto         Agosto 21, 1992 
}
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) 
    SELECT * INTO p_compania.*
    FROM companias
    LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
    LET fecha = today USING "dd/mm/yy"  
    LET hora = time
    DISPLAY p_compania.nombre CLIPPED AT 4,l
            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 iptb00006.cod_mov,
        # cod_cia      LIKE iptb00006.cod_cia,
          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,
          descrip_mov  LIKE intb00005.descrip_mov,
          consumo     INTEGER,
          material     LIKE iptb00004.material,
          labor        LIKE iptb00004.labor,
          gastos    LIKE iptb00004.gastos
       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_gastos,t_t_total,t_t_t_total,
           t_total_material,t_total_labor,t_total_gastos,t_cantidad,debito,
           credito
    DECIMAL (12,2),
    nombre_cta CHAR(30)

   DEFINE ttotal_material,ttotal_labor,ttotal_gastos,tt_t_total,tt_t_t_total,
           tt_total_material,tt_total_labor,tt_total_gastos,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 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 hora = time
           LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
           PRINT COLUMN   1, comp_off,"edprrp508",
                 COLUMN  l, p_compania.nombre CLIPPED,
                 COLUMN 75, "Pag. ",pageno using "###"
           LET l = (80 - LENGTH("Sistema de Entradas Al Diario")) / 2
           PRINT COLUMN l, "Sistema de Entradas Al Diario",
                 COLUMN 75, today using "dd/mm/yy"

           LET l = (80 - LENGTH(x.descrip_mov CLIPPED)) / 2
           PRINT COLUMN l, x.descrip_mov CLIPPED,
                 COLUMN 78, hora

           PRINT COLUMN 28, "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 109,  "Gasto",
                 COLUMN 136, "Costo"

           PRINT COLUMN 4, "Movimiento",
                 COLUMN 49, "Cantidad",
                 3 spaces,  "Material",
                 4 spaces,  "Total",
                 9 spaces,  "Labor",
                 4 spaces,  "Total",
                 6  spaces,   "Indirecto",
                 4  spaces,   "Total",
                 9  spaces,   "Total"

           PRINT COLUMN 1, "--------------------------------------------------",
                           "--------------------------------------------------",
                           "----------------------------------------"
        LET t_cantidad = 0
        LET t_t_t_total = 0
        LET total_material = 0
        LET total_labor    = 0
        LET total_gastos = 0
        LET t_total_material = 0
        LET t_total_labor    = 0
        LET t_total_gastos = 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

      BEFORE GROUP OF x.cod_n  
       SKIP 1 LINE 
        LET tt_cantidad = 0
        LET tt_t_t_total = 0
        LET ttotal_material = 0
        LET ttotal_labor    = 0
        LET ttotal_gastos = 0
        LET tt_total_material = 0
        LET tt_total_labor    = 0
        LET tt_total_gastos = 0
        LET tt_t_total = 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 
        LET total_labor    = x.labor    * x.consumo 
        LET total_gastos = x.gastos * x.consumo 
        LET t_t_total = total_material + total_labor + total_gastos
        LET t_t_t_total = t_t_total + t_t_t_total

        LET tt_cantidad = tt_cantidad + x.consumo
        LET ttotal_material = x.material * x.consumo 
        LET ttotal_labor    = x.labor    * x.consumo 
        LET ttotal_gastos = x.gastos * x.consumo 
        LET tt_t_total = ttotal_material + total_labor + total_gastos
        LET tt_t_t_total = tt_t_total + tt_t_t_total

        LET t_total_material = t_total_material + total_material
        LET t_total_labor    = t_total_labor    + total_labor   
        LET t_total_gastos = t_total_gastos + total_gastos

        LET tt_total_material = tt_total_material + ttotal_material 
        LET tt_total_labor    = tt_total_labor    + ttotal_labor   
        LET tt_total_gastos = tt_total_gastos + ttotal_gastos

         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 "##,###,###.##",
               COLUMN 86, x.labor using "###.#####",
               COLUMN 96, total_labor using "#,###,###.##",
               COLUMN 109, x.gastos using "###.#####",
               COLUMN 116, total_gastos using "#,###,###.##",
               COLUMN 121, t_t_total using "##,###,###.##"
           END IF 

     AFTER GROUP OF x.cod_n  

      PRINT  COLUMN 42,  "--------------",
             COLUMN 69,  "--------------",
             COLUMN 96,  "----------",
             COLUMN 116, "-------------",
             COLUMN 121, "-------------"
               
       PRINT negrillas_on
       PRINT COLUMN 3,  "Total Compania---->",
             COLUMN 42,  tt_cantidad          using "###,###,###.##",
             COLUMN 69,  tt_total_material    USING "###,###,###.##",
             COLUMN 96,  tt_total_labor      USING "###,###.##",
             COLUMN 116, tt_total_gastos USING "##,###,###.##",
             COLUMN 121, tt_t_t_total using "##,###,###.##"
        PRINT negrillas_off

    IF material6 IS NULL THEN
       LET material6 = 0
    END IF
    IF material1 IS NULL THEN
       LET material1 = 0
    END IF
    IF mano_ob1  IS NULL THEN
       LET mano_ob1  = 0
    END IF
    IF gasto1 IS NULL THEN
       LET gasto1 = 0
    END IF

     LET material1 = material1 + tt_total_material
     LET mano_ob1  = mano_ob1 + tt_total_labor   
     LET gasto1    = gasto1 + tt_total_gastos


       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 + mano_ob1 + gasto1
 IF total1 <> 0 THEN
         SELECT a.descripcion INTO nombre_cta
         FROM cgtb00001 a
         WHERE a.cuenta_no = "1131-01"

         PRINT COLUMN   2, "1131-01", 
               COLUMN  18, nombre_cta CLIPPED,
               COLUMN  50, total1 using "###,###,##&.&&" 

LET debito = debito + total1
 IF afecta = "S" THEN
  INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"1131-01",null,null,null,null,null,
                        detalle1,null,total1,0,null,user,current,null,null)
 END IF

         SELECT a.descripcion INTO nombre_cta
         FROM cgtb00001 a
         WHERE a.cuenta_no = "1141"

         PRINT COLUMN   2, "1141", 
               COLUMN  18, nombre_cta CLIPPED,
               COLUMN  65, total1 using "###,###,##&.&&" 

LET credito = credito + total1
 IF afecta = "S" THEN
  INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"1141",null,null,null,null,null,
                        detalle1,null,material6,0,null,user,current,null,null)
 END IF
 END IF
###### Imprime total DEBITO y total CREDITO
        SKIP 1 LINE
         PRINT COLUMN 1,negrillas_on
         PRINT COLUMN 50,"--------------",
               COLUMN 65,"--------------"
         PRINT COLUMN 35,"Totales-->",
               COLUMN 50,debito USING "###,###,##&.&&",
               COLUMN 65,credito USING "###,###,##&.&&",negrillas_off

        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