{
-------------------------------------------------------------------------------
PROGRAMA             :  EDPRRP512
OBJETIVO             :  Listar las Entrada de Diario Pilas Donadas y Promocion;x
PROGRAMADOR          :  Tadeo A. Ferreras          
FECHA REALIZACION    :  Julio 28, 1993 
-------------------------------------------------------------------------------
}
DATABASE marmotech
GLOBALS 

    DEFINE salir CHAR(1)
    DEFINE select_ac CHAR(1000)
    DEFINE idx_ac,ano,idx_a,idx_c,l SMALLINT
    DEFINE ano_act,c_ano CHAR(4)
    DEFINE fecha_2 CHAR(8)
    DEFINE fecha_ini_per CHAR(8),
           p_compania RECORD LIKE companias.*,
           iptb05 RECORD LIKE iptb00005.*

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,material9,material6,gastos DECIMAL(12,2)

###### Variables para almacenar los datos selecionados

###### Variables que la almacenan la informacion enviada al reporte

DEFINE acumulado RECORD
           cod_mov      LIKE iptb00006.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,
           consumo      INTEGER,
           descrip_esp  LIKE intb00001.descrip_esp,
           unidad_med   LIKE intb00001.unidad_med,
           descrip_mov  LIKE intb00005.descrip_mov,
           material     LIKE iptb00004.material,
           labor        LIKE iptb00004.labor,
           gastos    LIKE iptb00004.gastos
    END RECORD

DEFINE salir1 CHAR(1)
DEFINE idx INTEGER
END GLOBALS

MAIN
 DEFER INTERRUPT
 CALL edprrp051()
END MAIN

FUNCTION edprrp051()

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

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

    OPEN FORM edfmrp051 FROM "edfmrp051"
    DISPLAY FORM edfmrp051
    CALL pantalla()
    DISPLAY "edprrp051" AT 4,3
    DISPLAY "Entrada de Diario Pilas Donadas Y Promociones" AT 6,17

    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, ",
     "SUM(a.cantidad_2) ",
     "FROM iptb00006 a ",
     "WHERE a.fecha between ? and ? and a.status_t is NULL AND ",
     "      a.cod_mov IN (51) AND ",
     #"      a.cod_n IN (3,6,9) ",
     "GROUP BY 1,2,3,4,5 ",
     " 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

    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
     display acumulado.consumo at 18,1

     SELECT MAX(a.material),MAX(a.labor),MAX(a.gastos)
     INTO acumulado.material,acumulado.labor,acumulado.gastos
     FROM iptb00004 a
     WHERE a.cod_n = acumulado.cod_n AND
           a.cod_grupo = acumulado.cod_grupo AND
           a.cod_tipo = acumulado.cod_tipo AND
           a.cod_sec = acumulado.cod_sec AND
           a.ano = YEAR (fecha2) AND
           a.mes_fin = 12 AND
           a.ventas = "1" AND
           a.status_t IS NULL

      SELECT a.descrip_esp,a.unidad_med INTO acumulado.descrip_esp,
             acumulado.unidad_med
      FROM intb00001 a
      WHERE a.cod_n = acumulado.cod_n AND
            a.cod_grupo = acumulado.cod_grupo AND
            a.cod_tipo = acumulado.cod_tipo AND
            a.cod_sec = acumulado.cod_sec 
    
      SELECT a.descrip_mov INTO acumulado.descrip_mov
      FROM iptb00005 a
      WHERE a.cod_mov = acumulado.cod_mov

               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) 
    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_n       LIKE intb00001.cod_n,
          cod_grupo   LIKE intb00001.cod_grupo,
          cod_tipo    LIKE intb00001.cod_tipo,
          cod_sec     LIKE intb00001.cod_sec,
          consumo     INTEGER,
          descrip_esp LIKE intb00001.descrip_esp,
          unidad_med  LIKE intb00001.unidad_med,
          descrip_mov  LIKE intb00005.descrip_mov,
          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,
           mov_41
    DECIMAL (12,2)

   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 gasto2,total1,material9,material6,material1,mano_ob1,
           gasto1,debito,credito,gasto6
           DECIMAL(12,2),
           nombre_cta CHAR(30)
    DEFINE entrada CHAR(14)
    DEFINE detalle1 CHAR(30)

    OUTPUT
     TOP MARGIN 0
      LEFT MARGIN 0
      BOTTOM MARGIN 2

    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

        SELECT a.* INTO iptb05.*  
        FROM iptb00005 a
        WHERE a.cod_mov = 51

           LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
           PRINT COLUMN   1, "edprrp025",
                 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(iptb05.descrip_mov CLIPPED)) / 2
           PRINT COLUMN l, iptb05.descrip_mov CLIPPED,
                 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 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 debito = 0
        LET credito = 0
        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 material9 IS NULL THEN
       LET material9 = 0
    END IF
    IF material1 IS NULL THEN
       LET material1 = 0
    END IF
     
    IF gasto2 IS NULL THEN
       LET gasto2 = 0
    END IF

    IF gasto6 IS NULL THEN
       LET gasto6 = 0
    END IF

    IF gasto1 IS NULL THEN
       LET gasto1 = 0
    END IF

     LET material1 = material1 + tt_t_t_total
     AFTER GROUP OF x.cod_mov

      PRINT  COLUMN 42,  "--------------",
             COLUMN 69,  "--------------",
             COLUMN 96,  "----------",
             COLUMN 116, "-------------",
             COLUMN 121, "-------------"

       PRINT negrillas_on
       PRINT COLUMN 3,  "Total ---->",
             COLUMN 42,  t_cantidad          using "###,###,###.##",
             COLUMN 69,  t_total_material    USING "###,###,###.##",
             COLUMN 96,  t_total_labor      USING "###,###.##",
             COLUMN 116, t_total_gastos USING "##,###,###.##",
             COLUMN 121, t_t_t_total using "##,###,###.##"

       PRINT negrillas_off

      PRINT  COLUMN 42,  "==============",
             COLUMN 69,  "==============",
             COLUMN 96,  "==========",
             COLUMN 116, "=============",
             COLUMN 121, "============="

       LET t_cantidad = 0
       LET t_total_material = 0
       LET t_total_labor = 0
       LET t_total_gastos = 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, 
                   "--------------------------------------------------",
                   "----------------------------------------"

# BUSCA EL NOMBRE DE LA CUENTA
         SELECT a.descripcion INTO nombre_cta
         FROM cgtb00001 a
         WHERE a.cuenta_no = "7448"

         IF STATUS = NOTFOUND THEN
            LET nombre_cta = "NO EXISTE CTA"
         END IF

         PRINT COLUMN   2, "7448", 
               COLUMN  11, "4101",
               COLUMN  18, nombre_cta CLIPPED,
               COLUMN  50, material1 using "(((,(((,##&.&&)" 
 LET debito = debito + material1
 IF afecta = "S" THEN

  INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"7448",4101,null,null,null,null,
                       detalle1,null,material1,0,null,user,current,null,null)
END IF
#-----------------------------------------------------------------------------
#  BUSCA NOMBRE DE LA CUENTA

   LET nombre_cta = NULL
   SELECT a.descripcion INTO nombre_cta
   FROM cgtb00001 a
   WHERE a.cuenta_no = "1131-02"

   IF STATUS = NOTFOUND THEN
      LET nombre_cta = "NO EXISTE CTA"
   END IF
         PRINT COLUMN   2, "1131-02", 
               COLUMN  18, nombre_cta CLIPPED,
               COLUMN  65, material1 using "((#,###,##&.&&)" 
 LET credito = credito + material1
 IF afecta = "S" THEN
  INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"1131-02",null,null,
                        null,null,null,
                        detalle1,null,0,material1,null,user,current,null,null)
 END IF

         PRINT COLUMN 50,"--------------",
               COLUMN 65,"--------------"
         PRINT COLUMN 35,"Totales-->",
               COLUMN 50,debito USING "###,###,##&.&&",
               COLUMN 65,credito 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