{
==============================================================================
    PROGRAMA    : TEPRRP008
    SISTEMA     : Sistema de Tesoreria
    Objetivo    : Analisis del Cash Flow Real y Estimado
    PROGRAMADOR : Tadeo A. Ferreras
    FECHA       : Diciembre 08, 1995
==============================================================================
}
GLOBALS
  "teprgb000.4gl"

  DEFINE desplegar CHAR(35)

  DEFINE datos_8 RECORD
     codigo       INTEGER,
     descripcion  CHAR(30),
     tipo         CHAR(2),
     mes          INTEGER,       
     fecha1       DATE,    
     fecha2       DATE,    
     monto        DECIMAL(12,4),
     monto1       DECIMAL(12,4)      
  END RECORD
  DEFINE fecha_inicial,fecha_final DATE
  DEFINE d,i,c,ano,mes_1,mes_2 INTEGER       
  DEFINE tasa DECIMAL(12,4)
  DEFINE balance,balance1 INTEGER       
  DEFINE total_ig  ARRAY[12] OF DECIMAL(12,4)      
  DEFINE total_ig1 ARRAY[12] OF DECIMAL(12,4)      
  DEFINE total_di  ARRAY[12] OF DECIMAL(12,4)      
  DEFINE total_di1 ARRAY[12] OF DECIMAL(12,4)      
  DEFINE total_dl  ARRAY[12] OF DECIMAL(12,4)      
  DEFINE total_dl1 ARRAY[12] OF DECIMAL(12,4)      
  DEFINE balan     ARRAY[12] OF DECIMAL(12,4)      
  DEFINE balan1    ARRAY[12] OF DECIMAL(12,4)      
     MAIN 
    DEFER INTERRUPT
    CALL ARG_VAL(1) RETURNING usuarios
    CALL ARG_VAL(2) RETURNING clave
 
 CALL STARTLOG("teprrp001.txt")

  CONNECT to "sistemas"  USER  usuarios USING clave
  SELECT a.* INTO p_compania.* FROM companias a
  DISPLAY usuarios
  CALL teprrp008()
  END main
  
  FUNCTION teprrp008()
  LET int_flag = FALSE

  OPTIONS
     FORM LINE 8
     
   OPEN FORM tefmrp008 FROM "tefmrp008"
   DISPLAY FORM tefmrp008
   DISPLAY "teprrp008" AT 4,3 ATTRIBUTE(RED)
   DISPLAY "Analisis de Cash Flow Comparativo" AT 6,24 ATTRIBUTE(BLACK) 

   LET tipo_papel = 2
   CALL msgrp000(tipo_papel)
   CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
                                                       doble_on,doble_off,comp_on,comp_off,
                                                       doce,normal,archivo,copia

   INPUT BY NAME ano,mes_1,mes_2,tasa
  {  ON KEY (CONTROL-P)
       CALL busca_printer() RETURNING imprime,letras.*,archivo}

    AFTER FIELD ano          
     IF ano IS NULL THEN
        LET numero_msg = 16
        CALL msg(numero_msg)
        NEXT FIELD ano          
     END IF

    AFTER FIELD mes_1        
     IF mes_1 IS NULL THEN
        LET numero_msg = 16
        CALL msg(numero_msg)
        NEXT FIELD mes_1        
      END IF

    AFTER FIELD mes_2        
     IF mes_2 IS NULL THEN
        LET numero_msg = 16
        CALL msg(numero_msg)
        NEXT FIELD mes_2        
     END IF

  {   IF mes_2 - mes_1 > 8 THEN
        LET numero_msg = 75
        CALL msg(numero_msg)
        NEXT FIELD mes_2 
     END IF}
    AFTER FIELD tasa         
     IF tasa  IS NULL THEN
        LET numero_msg = 16
        CALL msg(numero_msg)
        NEXT FIELD tasa         
     END IF

    END INPUT
LET parametro = "D"
  #  CALL elijeimpresion(parametro) RETURNING orden,destino,letras.*      
    
    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       RETURN
    END IF

    SELECT a.valor1/1000,a.valor/1000 INTO balance,balance1 
      FROM tetb00007 a
     WHERE a.ano = ano - 1

    IF balance IS NULL THEN
       LET balance = 0
    END IF
    IF balance1 IS NULL THEN
       LET balance1 = 0
    END IF
      FOR idx = 1 TO 12
          LET total_ig[idx] = 0
          LET total_ig1[idx] = 0
          LET total_di[idx] = 0
          LET total_di1[idx] = 0
          LET total_dl[idx] = 0
          LET total_dl1[idx] = 0
      END FOR
      LET selec = 
       "SELECT UNIQUE a.codigo,a.descripcion,a.tipo,c.mes,b.fecha_inicio, ",
       "              b.fecha_corte,c.valor/1000 ",
       "FROM tetb00003 a,prdtable b,tetb00004 c ",
       "WHERE (a.codigo = c.codigo) AND (b.ano = c.ano) AND ",
       "      (b.mes = c.mes) AND (a.status_t IS NULL) AND b.ano = ? ",
       "ORDER BY 1,2"

       DISPLAY "<<<Buscando Informacion... Espere por Favor>>>" AT 19,14
       ATTRIBUTE(YELLOW)

       PREPARE comando FROM selec
       DECLARE busco CURSOR FOR comando
       OPEN busco USING ano 

       START REPORT reporte_8 TO screen

       DISPLAY "<<<Reporte Generandose...  Espere por Favor>>>" AT 19,14
       ATTRIBUTE(YELLOW)
                  
       WHILE status != NOTFOUND
       FETCH busco INTO datos_8.*
            IF STATUS = NOTFOUND THEN
               EXIT WHILE
            END IF
DISPLAY datos_8.*
            DISPLAY datos_8.tipo AT 21,30

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

            LET datos_8.monto1 = 0
            CASE
             WHEN datos_8.codigo = 1 
                  SELECT SUM(a.monto/1000) INTO datos_8.monto1 
                  FROM tetb00001 a
                  WHERE (a.status_t IS NULL) AND (a.procedencia IN (1,7)) AND 
                        (a.fecha BETWEEN datos_8.fecha1 AND datos_8.fecha2)
                  EXIT CASE

             WHEN datos_8.codigo = 2 
                  SELECT SUM(a.monto/1000) INTO datos_8.monto1 
                  FROM tetb00001 a
                  WHERE (a.status_t IS NULL) AND (a.procedencia = 2) AND 
                        (a.fecha BETWEEN datos_8.fecha1 AND datos_8.fecha2)
                  EXIT CASE

             WHEN datos_8.codigo = 3 
                  SELECT SUM(a.monto/1000) INTO datos_8.monto1 
                  FROM tetb00001 a
                  WHERE (a.status_t IS NULL) AND (a.procedencia = 3) AND 
                        (a.fecha BETWEEN datos_8.fecha1 AND datos_8.fecha2)
                  EXIT CASE

             WHEN datos_8.codigo = 4 
                  SELECT SUM(a.monto/1000) INTO datos_8.monto1 
                  FROM tetb00001 a
                  WHERE (a.status_t IS NULL) AND (a.procedencia = 4) AND 
                        (a.fecha BETWEEN datos_8.fecha1 AND datos_8.fecha2)
                  EXIT CASE
     
             WHEN datos_8.codigo = 22
                  LET datos_8.monto1 = datos_8.monto * -1
                  EXIT CASE

             OTHERWISE
                  SELECT SUM(a.monto/1000)*-1 INTO datos_8.monto1 
                  FROM cgtb00005 a,tetb00006 b
                  WHERE a.cheque_no = b.cheque_no      AND 
                        a.status_t  = "C"              AND 
                        a.cuenta_no = b.banco          AND 
                        b.codigo    = datos_8.codigo   AND 
                        a.fecha BETWEEN datos_8.fecha1 AND datos_8.fecha2 

                  EXIT CASE
          
           END CASE

           DISPLAY datos_8.monto1 AT 21,35

           IF datos_8.monto IS NULL THEN
              LET datos_8.monto = 0
           END IF
           IF datos_8.monto1 IS NULL THEN
              LET datos_8.monto1 = 0
           END IF
         
           IF datos_8.tipo = "DI" THEN
              LET datos_8.monto  = datos_8.monto  * tasa 
              LET datos_8.monto1 = datos_8.monto1 * tasa 
           END IF
           OUTPUT TO REPORT reporte_8(datos_8.*)
      END WHILE
      FINISH REPORT reporte_8
      #RUN imprime
      CALL fdestino(destino,archivo,imprime)
      CLEAR SCREEN
     END FUNCTION

REPORT reporte_8(x)
   DEFINE x RECORD
     codigo       INTEGER,
     descripcion  CHAR(30),
     tipo         CHAR(2),
     mes          INTEGER,       
     fecha1       DATE,    
     fecha2       DATE,    
     monto        DECIMAL(12,4),       
     monto1       DECIMAL(12,4)       
   END RECORD

## DEFINICION DE LAS VARIABLES DE IMPRESION
    DEFINE numero_ch CHAR(9),
           descripcion CHAR(30),
           detalle1,detalle2 CHAR(40)
    DEFINE hora CHAR(5)
    DEFINE nombre1 ARRAY[12] OF CHAR(10)

    OUTPUT
## DEFINICION DE LOS MARGENES DE IMPRESION
     TOP MARGIN 0
      LEFT MARGIN 0
      BOTTOM MARGIN 3

    FORMAT
      PAGE HEADER
        LET hora = time

        LET nombre1[1]  = " OCTUBRE  "
        LET nombre1[2]  = " NOVIEMBRE"
        LET nombre1[3]  = " DICIEMBRE"  
        LET nombre1[4]  = "  ENERO   "  
        LET nombre1[5]  = "  FEBRERO "   
        LET nombre1[6]  = "  MARZO   "   
        LET nombre1[7]  = "  ABRIL   "   
        LET nombre1[8]  = "  MAYO    "  
        LET nombre1[9]  = "  JUNIO   "
        LET nombre1[10] = "  JULIO   "   
        LET nombre1[11] = "  AGOSTO  " 
        LET nombre1[12] = "SEPTIEMBRE" 

## AQUI SE INDICA LA IMPRESION DE LOS ENCABEZADOS
           LET c = 39
           FOR i = mes_1 TO mes_2
               LET c = c + 20
           END FOR
               
           LET d = (c-46)/2
           PRINT COLUMN   1, letras.negrillas_on,letras.comp_on
           PRINT COLUMN   1, "teprrp008",
                 COLUMN   d, "R A Y . O . V A C  D O M I N I C A N A,  S. A.",
                 COLUMN c-7, "Pag. ",pageno using "###"
           PRINT COLUMN   d, "             Sistema de Tesoreria", 
                 COLUMN c-7, today using "dd/mm/yyyy"
           PRINT COLUMN   d, "      Analisis de Cash Flow Comparativo",
                 COLUMN c-4, hora
           PRINT COLUMN   d, "          Expresados Em Miles (1000)  "
           SKIP 1 LINE
           PRINT COLUMN   1, "PERIODO: ", ano USING "&&&&"

           PRINT COLUMN 1, "--------------------------------------";
           LET c = 39
           FOR i = mes_1 TO mes_2
               PRINT COLUMN c, "--------------------";
               LET c = c + 20
           END FOR
           PRINT COLUMN c," "

           PRINT COLUMN  1, "Partida";
           LET c = 41
           FOR i = 1 TO 12
               PRINT COLUMN c, nombre1[i];
               LET c = c + 20
           END FOR
           PRINT COLUMN c," "
               
           LET c = 39
           FOR i = 1 TO 12
               PRINT COLUMN c, " ESTIMADO      REAL","|";
               LET c = c + 20
           END FOR
           PRINT COLUMN c," "
           PRINT COLUMN 1, "--------------------------------------";
           LET c = 39
           FOR i = 1 TO 12
               PRINT COLUMN c, "--------------------";
               LET c = c + 20
           END FOR
           PRINT COLUMN c," "
           PRINT letras.negrillas_off
               
      BEFORE GROUP OF x.codigo 
           IF x.codigo = 1 THEN
              PRINT COLUMN 1,letras.negrillas_on,"INGRESOS",letras.negrillas_off
              PRINT COLUMN 1,letras.negrillas_on,"========",letras.negrillas_off
              SKIP 1 LINE
           END IF
           IF x.codigo = 5 THEN
              PRINT COLUMN 1,letras.negrillas_on,"DESEMBOLSOS",letras.negrillas_off
              PRINT COLUMN 1,letras.negrillas_on,"===========",letras.negrillas_off
              PRINT COLUMN 1,letras.negrillas_on,"DESEMBOLSOS INTERNACIONALES (",
                             "TASA UTILIZADA RD$",tasa USING "<<<,<<<.<<",")",
                             letras.negrillas_off
              SKIP 1 LINE
           END IF
           IF x.codigo = 14 THEN
              PRINT COLUMN 1,letras.negrillas_on,"DESEMBOLSOS LOCALES",
                             letras.negrillas_off
              SKIP 1 LINE
           END IF
           PRINT COLUMN  1, x.codigo USING "###"," ",x.descripcion CLIPPED;

           LET c = 39
## AQUI SE INDICA LA IMPRESION DEL DETALLE
         
      ON EVERY ROW
           LET idx = x.mes
           IF x.mes >= 1 AND x.mes <= 12 THEN
              PRINT COLUMN   c, x.monto  USING "#,###,###"," ",
                                x.monto1 USING "#,###,###","|";
              LET c = c + 20
           END IF
           
           IF x.tipo = "IG" THEN
              LET total_ig[idx]  = total_ig[idx]  + x.monto
              LET total_ig1[idx] = total_ig1[idx] + x.monto1
           END IF
           IF x.tipo = "DI" THEN
              LET total_di[idx]  = total_di[idx]  + x.monto
              LET total_di1[idx] = total_di1[idx] + x.monto1
           END IF
           IF x.tipo = "DL" THEN
              LET total_dl[idx]  = total_dl[idx]  + x.monto
              LET total_dl1[idx] = total_dl1[idx] + x.monto1
           END IF

      AFTER GROUP OF x.codigo
           PRINT " "
           IF x.codigo = 4 THEN
              LET c = 39
              FOR i = 1 TO 12
                 PRINT COLUMN   c, "---------"," ",
                                   "---------","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "
              PRINT COLUMN  5, "TOTAL INGRESOS";
              LET c = 39
              FOR i = 1 TO 12
                  PRINT COLUMN   c, total_ig[i] USING "#,###,###"," ",
                                    total_ig1[i] USING "#,###,###","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "
           END IF

           IF x.codigo = 13 THEN
              LET c = 39
              FOR i = 1 TO 12
                 PRINT COLUMN   c, "---------"," ",
                                   "---------","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "
              PRINT COLUMN  5, "TOTAL DESEMBOLSOS INTERN.";
              LET c = 39
              FOR i = 1 TO 12
                  PRINT COLUMN   c, total_di[i] USING "#,###,###"," ",
                                    total_di1[i] USING "#,###,###","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "
           END IF

           IF x.codigo = 25 THEN
              LET c = 39
              FOR i = 1 TO 12
                 PRINT COLUMN   c, "---------"," ",
                                   "---------","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "
              PRINT COLUMN  5, "TOTAL DESEMBOLSOS LOCALES";
              LET c = 39
              FOR i = 1 TO 12
                  PRINT COLUMN   c, total_dl[i] USING "#,###,###"," ",
                                    total_dl1[i] USING "#,###,###","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "

              LET c = 39
              FOR i = 1 TO 12
                 PRINT COLUMN   c, "---------"," ",
                                   "---------","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "
              PRINT COLUMN  5, "TOTAL DESEMBOLSOS ";
              LET c = 39
              FOR i = 1 TO 12
                  PRINT COLUMN   c, total_di[i]+total_dl[i] 
                                    USING "#,###,###"," ",
                                    total_di1[i]+total_dl1[i] 
                                    USING "#,###,###","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "

              LET c = 39
              FOR i = 1 TO 12
                 PRINT COLUMN   c, "---------"," ",
                                   "---------","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "

              PRINT COLUMN  5, "FLUJO OPERATIVO";
              LET c = 39
              FOR i = 1 TO 12
                IF i >=1 and I <= 12 THEN
                   PRINT COLUMN   c, total_ig[i] + total_di[i] + total_dl[i] 
                                     USING "-,---,---"," ",
                                     total_ig1[i] + total_di1[i]+ total_dl1[i] 
                                     USING "-,---,---","|";
                   LET c = c + 20
                END IF
                IF i = 1 THEN
                   LET balan[i]  = balance
                   LET balan1[i] = balance1
                ELSE
                   LET balan[i] =total_ig[i-1]+total_di[i-1]+total_dl[i-1]+
                                 balan[i-1] 
                   LET balan1[i]=total_ig1[i-1]+total_di1[i-1]+total_dl1[i-1]+
                                 balan1[i-1] 
                END IF
                IF balan[i] IS NULL THEN
                   LET balan[i] = 0
                END IF
                IF balan1[i] IS NULL THEN
                   LET balan1[i] = 0
                END IF
              END FOR
              PRINT COLUMN c," "

              PRINT COLUMN  5, "BALANCE INICIAL";
              LET c = 39
              FOR i = mes_1 TO mes_2
                  PRINT COLUMN   c, balan[i] USING "-,---,---"," ",
                                    balan1[i] USING "-,---,---","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "

              LET c = 39
              FOR i = 1 TO 12
                 PRINT COLUMN   c, "---------"," ",
                                   "---------","|";
                  LET c = c + 20
              END FOR
              PRINT COLUMN c," "

              PRINT COLUMN  5, "BALANCE FINAL";
              LET c = 39
              FOR i = 1 TO 12
                  PRINT COLUMN   c, total_ig[i] + total_di[i] + total_dl[i]+ 
                                    balan[i] USING "-,---,---"," ",
                                    total_ig1[i] + total_di1[i]+ total_dl1[i]+
                                    balan1[i] USING "-,---,---","|";
              END FOR
              PRINT COLUMN c," "
           END IF
     ON LAST ROW
           LET c = 39
           PRINT letras.negrillas_off
           PRINT letras.comp_off,letras.negrillas_off
  END REPORT