655 lines
22 KiB
Plaintext
655 lines
22 KiB
Plaintext
{
|
|
==============================================================================
|
|
PROGRAMA : TEPRRP011
|
|
SISTEMA : Sistema de Tesoreria
|
|
Objetivo : Panoramico de Cash Flow Real
|
|
PROGRAMADOR : Tadeo A. Ferreras
|
|
FECHA : Diciembre 08, 1995
|
|
==============================================================================
|
|
}
|
|
GLOBALS
|
|
"teprgb000.4gl"
|
|
|
|
DEFINE datos_11 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_ent,fecha_inicial,fecha_final DATE
|
|
DEFINE mes1,mes2,d,i,c,ano,mes_1,mes_2 INTEGER
|
|
DEFINE tasa DECIMAL(12,4)
|
|
DEFINE balance,balance1 INTEGER
|
|
DEFINE total_ig1 ARRAY[12] OF DECIMAL(12,4)
|
|
DEFINE total_di1 ARRAY[12] OF DECIMAL(12,4)
|
|
DEFINE total_dl1 ARRAY[12] OF DECIMAL(12,4)
|
|
DEFINE balan1 ARRAY[12] OF DECIMAL(12,4)
|
|
|
|
FUNCTION teprrp011()
|
|
LET int_flag = FALSE
|
|
|
|
OPTIONS
|
|
FORM LINE 8
|
|
|
|
OPEN FORM tefmrp011 FROM "tefmrp011"
|
|
DISPLAY FORM tefmrp011
|
|
DISPLAY "teprrp011" AT 4,3
|
|
DISPLAY "Panoramico de Cash Flow Real" AT 6,26
|
|
|
|
LET tipo_papel = 2
|
|
CALL msgrp000(tipo_papel)
|
|
CALL defecto(impresor) RETURNING imprime,letras.*,archivo
|
|
|
|
|
|
LET mes_1 = 1
|
|
INPUT BY NAME ano,tasa
|
|
|
|
AFTER FIELD ano
|
|
IF ano IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD ano
|
|
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_1 > mes_2 THEN
|
|
LET numero_msg = 51
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD mes_1
|
|
END IF
|
|
|
|
IF mes_2 - mes_1 > 11 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
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
SELECT a.valor/1000 INTO 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_ig1[idx] = 0
|
|
LET total_di1[idx] = 0
|
|
LET total_dl1[idx] = 0
|
|
END FOR
|
|
LET selec =
|
|
"SELECT UNIQUE a.codigo,a.descripcion,a.tipo,b.mes,",
|
|
" b.fecha_inicio, b.fecha_corte,'0' ",
|
|
"FROM tetb00003 a,prdtable b ",
|
|
"WHERE ",
|
|
" b.ano = b.ano AND ",
|
|
#" b.mes <= ? AND ",
|
|
" a.status_t IS NULL AND ",
|
|
" b.ano = ? ",
|
|
|
|
"ORDER BY 1,2,5 "
|
|
|
|
DISPLAY "<<<Buscando Informacion... Espere por Favor>>>" AT 19,14
|
|
ATTRIBUTE(blue)
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE busco CURSOR FOR comando
|
|
OPEN busco USING ano #mes_2,ano
|
|
|
|
START REPORT reporte_11 TO archivo #"oscar"
|
|
#START REPORT reporte_11 TO "salida"
|
|
|
|
DISPLAY "<<<Reporte Generandose... Espere por Favor>>>" AT 19,14
|
|
ATTRIBUTE(blue)
|
|
|
|
WHILE status != NOTFOUND
|
|
FETCH busco INTO datos_11.*
|
|
IF STATUS = NOTFOUND THEN
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
LET datos_11.monto1 = 0
|
|
CASE
|
|
WHEN datos_11.codigo = 1
|
|
SELECT SUM(a.monto/1000) INTO datos_11.monto1 FROM tetb00001 a
|
|
WHERE (a.status_t IS NULL) AND (a.procedencia IN (1,7)) AND
|
|
(a.fecha BETWEEN datos_11.fecha1 AND datos_11.fecha2)
|
|
EXIT CASE
|
|
|
|
WHEN datos_11.codigo = 2
|
|
SELECT SUM(a.monto/1000) INTO datos_11.monto1 FROM tetb00001 a
|
|
WHERE (a.status_t IS NULL) AND (a.procedencia = 2) AND
|
|
(a.fecha BETWEEN datos_11.fecha1 AND datos_11.fecha2)
|
|
EXIT CASE
|
|
|
|
WHEN datos_11.codigo = 3
|
|
SELECT SUM(a.monto/1000) INTO datos_11.monto1 FROM tetb00001 a
|
|
WHERE (a.status_t IS NULL) AND (a.procedencia = 3) AND
|
|
(a.fecha BETWEEN datos_11.fecha1 AND datos_11.fecha2)
|
|
EXIT CASE
|
|
|
|
WHEN datos_11.codigo = 4
|
|
SELECT SUM(a.monto/1000) INTO datos_11.monto1 FROM tetb00001 a
|
|
WHERE (a.status_t IS NULL) AND (a.procedencia = 4) AND
|
|
(a.fecha BETWEEN datos_11.fecha1 AND datos_11.fecha2)
|
|
EXIT CASE
|
|
|
|
WHEN datos_11.codigo = 22
|
|
LET datos_11.monto1 = (datos_11.monto * -1) / 1000
|
|
EXIT CASE
|
|
OTHERWISE
|
|
SELECT SUM(a.monto/1000)*-1 INTO datos_11.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_11.codigo AND
|
|
a.fecha BETWEEN datos_11.fecha1 AND datos_11.fecha2
|
|
EXIT CASE
|
|
|
|
END CASE
|
|
|
|
SELECT MAX(a.fecha)
|
|
INTO fecha_ent
|
|
FROM tetb00001 a
|
|
|
|
SELECT a.mes
|
|
INTO mes_2 #datos_11.mes
|
|
FROM prdtable a
|
|
WHERE a.fecha_inicio <= fecha_ent
|
|
AND a.fecha_corte >= fecha_ent
|
|
|
|
DISPLAY datos_11.codigo USING "&&" AT 21,30
|
|
DISPLAY datos_11.mes USING "&&" AT 21,34
|
|
DISPLAY datos_11.monto1 AT 21,40
|
|
|
|
IF datos_11.monto IS NULL THEN
|
|
LET datos_11.monto = 0
|
|
END IF
|
|
IF datos_11.monto1 IS NULL THEN
|
|
LET datos_11.monto1 = 0
|
|
END IF
|
|
|
|
IF datos_11.tipo = "DI" THEN
|
|
LET datos_11.monto = datos_11.monto * tasa
|
|
LET datos_11.monto1 = datos_11.monto1 * tasa
|
|
END IF
|
|
OUTPUT TO REPORT reporte_11(datos_11.*)
|
|
END WHILE
|
|
FINISH REPORT reporte_11
|
|
RUN imprime
|
|
#CALL fdestino(destino,archivo,imprime)
|
|
CLEAR SCREEN
|
|
END FUNCTION
|
|
|
|
REPORT reporte_11(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 doble_on CHAR(3)
|
|
DEFINE doble_off CHAR(3)
|
|
DEFINE negrillas_on CHAR(6)
|
|
DEFINE negrillas_off CHAR(6)
|
|
DEFINE comp_on CHAR(2)
|
|
DEFINE comp_off CHAR(3)
|
|
DEFINE doce CHAR(3)
|
|
DEFINE normal CHAR(3)
|
|
DEFINE hora CHAR(5)
|
|
DEFINE nombre1 ARRAY[12] OF CHAR(10)
|
|
DEFINE nombre2 ARRAY[12] OF CHAR(10)
|
|
DEFINE total_partida, total_procedencia, total_general DECIMAL(12,4)
|
|
|
|
OUTPUT
|
|
## DEFINICION DE LOS MARGENES DE IMPRESION
|
|
TOP MARGIN 0
|
|
LEFT MARGIN 0
|
|
BOTTOM MARGIN 3
|
|
|
|
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 29
|
|
LET doce = ASCII 30
|
|
LET normal = ASCII 029
|
|
|
|
{ LET doble_on = ASCII 001
|
|
LET doble_off = ASCII 002
|
|
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 normal = ASCII 27, ASCII 80
|
|
}
|
|
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"
|
|
|
|
LET nombre2[1] = " ENERO "
|
|
LET nombre2[2] = " FEBRERO "
|
|
LET nombre2[3] = " MARZO "
|
|
LET nombre2[4] = " ABRIL "
|
|
LET nombre2[5] = " MAYO "
|
|
LET nombre2[6] = " JUNIO "
|
|
LET nombre2[7] = " JULIO "
|
|
LET nombre2[8] = " AGOSTO "
|
|
LET nombre2[9] = "SEPTIEMBRE"
|
|
LET nombre2[10] = " OCTUBRE "
|
|
LET nombre2[11] = "NOVIEMBRE "
|
|
LET nombre2[12] = "DICIEMBRE "
|
|
|
|
|
|
## AQUI SE INDICA LA IMPRESION DE LOS ENCABEZADOS
|
|
LET c = 39
|
|
#FOR i = mes_1 TO mes_2
|
|
FOR i = 1 TO 12
|
|
LET c = c + 10
|
|
END FOR
|
|
|
|
LET d = (c-46)/2
|
|
PRINT COLUMN 1, negrillas_on,comp_on
|
|
PRINT COLUMN 1, "teprrp011",
|
|
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, " Panoramico de Cash Flow Real",
|
|
COLUMN c-4, hora
|
|
PRINT COLUMN d, " Expresados Em Miles (1000) "
|
|
SKIP 1 LINE
|
|
PRINT COLUMN 1, "FECHA : Desde ",nombre1[mes_1],
|
|
" Del ", ano - 1 USING "&&&&",
|
|
" Hasta ",nombre2[mes_2],
|
|
" Del ", ano USING "&&&&"
|
|
|
|
PRINT COLUMN 1, "--------------------------------------";
|
|
LET c = 39
|
|
#FOR i = mes_1 TO mes_2
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, "----------";
|
|
LET c = c + 10
|
|
END FOR
|
|
PRINT COLUMN c, "-----------"
|
|
# PRINT COLUMN c," "
|
|
|
|
PRINT COLUMN 1, "Partida";
|
|
LET c = 39
|
|
#FOR i = mes_1 TO mes_2
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, nombre1[i];
|
|
LET c = c + 10
|
|
END FOR
|
|
PRINT COLUMN c, " TOTALES "
|
|
# PRINT COLUMN c," "
|
|
|
|
PRINT COLUMN 1, "--------------------------------------";
|
|
LET c = 39
|
|
#FOR i = mes_1 TO mes_2
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, "----------";
|
|
LET c = c + 10
|
|
END FOR
|
|
PRINT COLUMN c, "-----------"
|
|
# PRINT COLUMN c," "
|
|
PRINT negrillas_off
|
|
|
|
BEFORE GROUP OF x.codigo
|
|
IF x.codigo = 1 THEN
|
|
PRINT COLUMN 1,negrillas_on,"INGRESOS",negrillas_off
|
|
PRINT COLUMN 1,negrillas_on,"========",negrillas_off
|
|
SKIP 1 LINE
|
|
END IF
|
|
|
|
IF x.codigo = 5 THEN
|
|
PRINT COLUMN 1,negrillas_on,"DESEMBOLSOS",negrillas_off
|
|
PRINT COLUMN 1,negrillas_on,"===========",negrillas_off
|
|
PRINT COLUMN 1,negrillas_on,"DESEMBOLSOS INTERNACIONALES (",
|
|
"TASA UTILIZADA RD$",tasa USING "<<<,<<<.<<",")",
|
|
negrillas_off
|
|
SKIP 1 LINE
|
|
END IF
|
|
|
|
IF x.codigo = 14 THEN
|
|
PRINT COLUMN 1,negrillas_on,"DESEMBOLSOS LOCALES",
|
|
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
|
|
IF total_partida is NULL THEN
|
|
LET total_partida = 0
|
|
END IF
|
|
|
|
IF total_procedencia is NULL THEN
|
|
LET total_procedencia = 0
|
|
END IF
|
|
|
|
IF total_general is NULL THEN
|
|
LET total_general = 0
|
|
END IF
|
|
|
|
LET idx = x.mes
|
|
IF x.mes >= 1 AND x.mes <= 12 THEN
|
|
PRINT COLUMN c, x.monto1 USING "#,###,###","|";
|
|
LET c = c + 10
|
|
END IF
|
|
|
|
IF x.tipo = "IG" THEN
|
|
LET total_ig1[idx] = total_ig1[idx] + x.monto1
|
|
END IF
|
|
|
|
IF x.tipo = "DI" THEN
|
|
LET total_di1[idx] = total_di1[idx] + x.monto1
|
|
END IF
|
|
|
|
IF x.tipo = "DL" THEN
|
|
LET total_dl1[idx] = total_dl1[idx] + x.monto1
|
|
END IF
|
|
|
|
LET total_partida = total_partida + x.monto1
|
|
|
|
AFTER GROUP OF x.tipo
|
|
PRINT COLUMN c, total_partida USING "#,###,###","|"
|
|
# LET total_procedencia = total_procedencia + total_partida
|
|
LET total_partida = 0
|
|
|
|
AFTER GROUP OF x.codigo
|
|
# PRINT " "
|
|
IF x.codigo = 4 THEN
|
|
LET c = 39
|
|
#FOR i = mes_1 TO mes_2
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, "---------","|";
|
|
LET c = c + 10
|
|
END FOR
|
|
PRINT COLUMN c, "---------","|"
|
|
# PRINT COLUMN c," "
|
|
|
|
PRINT COLUMN 5, "TOTAL INGRESOS";
|
|
LET c = 39
|
|
LET total_procedencia = 0
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT a.mes,a.fecha_inicio,a.fecha_corte
|
|
FROM prdtable a
|
|
WHERE a.ano = ano
|
|
ORDER BY 2
|
|
|
|
FOREACH busca INTO mes1
|
|
|
|
#FOR i = mes_1 TO mes_2
|
|
PRINT COLUMN c, total_ig1[mes1] USING "#,###,###","|";
|
|
LET c = c + 10
|
|
LET total_procedencia = total_procedencia + total_ig1[mes1]
|
|
END FOREACH #FOR
|
|
# PRINT COLUMN c," "
|
|
PRINT COLUMN c, total_procedencia USING "#,###,###","|"
|
|
END IF
|
|
|
|
IF x.codigo = 13 THEN
|
|
LET c = 39
|
|
#FOR i = mes_1 TO mes_2
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, "---------","|";
|
|
LET c = c + 10
|
|
END FOR
|
|
PRINT COLUMN c, "---------","|"
|
|
# PRINT COLUMN c," "
|
|
|
|
PRINT COLUMN 5, "TOTAL DESEMBOLSOS INTERN.";
|
|
LET c = 39
|
|
LET total_procedencia = 0
|
|
|
|
DECLARE busca1 CURSOR FOR
|
|
SELECT a.mes,a.fecha_inicio,a.fecha_corte
|
|
FROM prdtable a
|
|
WHERE a.ano = ano
|
|
ORDER BY 2
|
|
|
|
FOREACH busca1 INTO mes1
|
|
|
|
#FOR i = mes_1 TO mes_2
|
|
PRINT COLUMN c, total_di1[mes1] USING "#,###,###","|";
|
|
LET c = c + 10
|
|
LET total_procedencia = total_procedencia + total_di1[mes1]
|
|
END FOREACH #FOR
|
|
# PRINT COLUMN c," "
|
|
PRINT COLUMN c, total_procedencia USING "#,###,###","|"
|
|
END IF
|
|
|
|
IF x.codigo = 25 THEN
|
|
LET c = 39
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, "---------","|";
|
|
LET c = c + 10
|
|
END FOR
|
|
# PRINT COLUMN c," "
|
|
PRINT COLUMN c, "---------","|"
|
|
|
|
PRINT COLUMN 5, "TOTAL DESEMBOLSOS LOCALES";
|
|
LET c = 39
|
|
LET total_procedencia = 0
|
|
|
|
DECLARE busca2 CURSOR FOR
|
|
SELECT a.mes,a.fecha_inicio,a.fecha_corte
|
|
FROM prdtable a
|
|
WHERE a.ano = ano
|
|
ORDER BY 2
|
|
|
|
FOREACH busca2 INTO mes1
|
|
|
|
#FOR i = mes_1 TO mes_2
|
|
PRINT COLUMN c, total_dl1[mes1] USING "#,###,###","|";
|
|
LET c = c + 10
|
|
LET total_procedencia = total_procedencia + total_dl1[mes1]
|
|
END FOREACH #FOR
|
|
# PRINT COLUMN c," "
|
|
PRINT COLUMN c, total_procedencia USING "#,###,###","|"
|
|
|
|
LET c = 39
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, "---------","|";
|
|
LET c = c + 10
|
|
END FOR
|
|
# PRINT COLUMN c," "
|
|
PRINT COLUMN c, "---------","|"
|
|
|
|
PRINT COLUMN 5, "TOTAL DESEMBOLSOS ";
|
|
LET c = 39
|
|
LET total_procedencia = 0
|
|
|
|
DECLARE busca3 CURSOR FOR
|
|
SELECT a.mes,a.fecha_inicio,a.fecha_corte
|
|
FROM prdtable a
|
|
WHERE a.ano = ano
|
|
ORDER BY 2
|
|
|
|
FOREACH busca3 INTO mes1
|
|
|
|
#FOR i = mes_1 TO mes_2
|
|
PRINT COLUMN c, total_di1[mes1]+total_dl1[mes1]
|
|
USING "#,###,###","|";
|
|
LET c = c + 10
|
|
LET total_procedencia =
|
|
total_procedencia + total_di1[mes1] + total_dl1[mes1]
|
|
END FOREACH #FOR
|
|
# PRINT COLUMN c," "
|
|
PRINT COLUMN c, total_procedencia USING "#,###,###","|"
|
|
|
|
LET c = 39
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, "---------","|";
|
|
LET c = c + 10
|
|
END FOR
|
|
# PRINT COLUMN c," "
|
|
PRINT COLUMN c, "---------","|"
|
|
|
|
PRINT COLUMN 5, "FLUJO OPERATIVO";
|
|
LET c = 39
|
|
LET total_procedencia = 0
|
|
|
|
DECLARE busca4 CURSOR FOR
|
|
SELECT a.mes,a.fecha_inicio,a.fecha_corte
|
|
FROM prdtable a
|
|
WHERE a.ano = ano
|
|
ORDER BY 2
|
|
|
|
FOREACH busca4 INTO mes1
|
|
|
|
#FOR i = 1 TO mes_2
|
|
#IF i >= mes_1 and I <= mes_2 THEN
|
|
PRINT COLUMN c, total_ig1[mes1] + total_di1[mes1]+ total_dl1[mes1]
|
|
USING "-,---,---","|";
|
|
LET c = c + 10
|
|
LET total_procedencia = total_procedencia + total_ig1[mes1] +
|
|
total_di1[mes1] + total_dl1[mes1]
|
|
#END IF
|
|
IF mes1 = 1 THEN
|
|
LET mes2 = 12
|
|
LET balan1[mes1]=total_ig1[mes2]+total_di1[mes2]+total_dl1[mes2]+
|
|
balan1[mes2]
|
|
ELSE
|
|
IF mes1 = 10 THEN
|
|
LET balan1[mes1] = balance1
|
|
ELSE
|
|
LET balan1[mes1]=total_ig1[mes1-1]+total_di1[mes1-1]+total_dl1[mes1-1]+
|
|
balan1[mes1-1]
|
|
END IF
|
|
END IF
|
|
|
|
IF balan1[mes1] IS NULL THEN
|
|
LET balan1[mes1] = 0
|
|
END IF
|
|
END FOREACH #FOR
|
|
PRINT COLUMN c, total_procedencia USING "#,###,###","|"
|
|
# PRINT COLUMN c," "
|
|
|
|
PRINT COLUMN 5, "BALANCE INICIAL";
|
|
LET c = 39
|
|
LET total_procedencia = 0
|
|
|
|
DECLARE busca5 CURSOR FOR
|
|
SELECT a.mes,a.fecha_inicio,a.fecha_corte
|
|
FROM prdtable a
|
|
WHERE a.ano = ano
|
|
ORDER BY 2
|
|
|
|
FOREACH busca5 INTO mes1
|
|
|
|
#FOR i = 1 TO 12
|
|
PRINT COLUMN c, balan1[mes1] USING "-,---,---","|";
|
|
LET c = c + 10
|
|
LET total_procedencia = total_procedencia + balan1[mes1]
|
|
END FOREACH #FOR
|
|
# PRINT COLUMN c, total_procedencia USING "#,###,###","|"
|
|
# PRINT COLUMN c," "
|
|
LET mes_1 = 10
|
|
PRINT COLUMN c, balan1[mes_1] USING "-,---,---","|"
|
|
|
|
LET c = 39
|
|
FOR i = 1 TO 12
|
|
PRINT COLUMN c, "---------","|";
|
|
LET c = c + 10
|
|
END FOR
|
|
# PRINT COLUMN c," "
|
|
PRINT COLUMN c, "---------","|"
|
|
|
|
PRINT COLUMN 5, "BALANCE FINAL";
|
|
LET c = 39
|
|
LET total_general = 0
|
|
|
|
DECLARE busca6 CURSOR FOR
|
|
SELECT a.mes,a.fecha_inicio,a.fecha_corte
|
|
FROM prdtable a
|
|
WHERE a.ano = ano
|
|
ORDER BY 2
|
|
|
|
FOREACH busca6 INTO mes1
|
|
|
|
#FOR i = mes_1 TO mes_2
|
|
PRINT COLUMN c, total_ig1[mes1] + total_di1[mes1]+ total_dl1[mes1]+
|
|
balan1[mes1] USING "-,---,---","|";
|
|
LET total_general = total_general + total_ig1[mes1] +
|
|
total_di1[mes1] + total_dl1[mes1] +
|
|
balan1[mes1]
|
|
|
|
|
|
END FOREACH #FOR
|
|
# PRINT COLUMN c," "
|
|
# PRINT COLUMN c, total_general USING "-,---,---","|"
|
|
PRINT COLUMN c, total_ig1[mes_2] + total_di1[mes_2] +
|
|
total_dl1[mes_2] + balan1[mes_2]
|
|
USING "-,---,---","|"
|
|
END IF
|
|
|
|
ON LAST ROW
|
|
LET c = 39
|
|
PRINT negrillas_off
|
|
PRINT comp_off,negrillas_off
|
|
END REPORT
|