jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

Browse Source
This commit is contained in:
jsoto
2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/cgdir/cgprrp012.4gl
+255
View File
@@ -0,0 +1,255 @@
{
==============================================================================
PROGRAMA : CGPRRP012
SISTEMA : Sistema de Contabilidad General
OBJETIVO : Imprimir Balance para las Cuentas con Estado_M Activo
PROGRAMADOR : Tadeo A. Ferreras
FECHA : Octubre 05, 1993
==============================================================================
}
GLOBALS
"cgprgb000.4gl"
DEFINE estado2 RECORD
estado_a CHAR(8),
balance_ant DECIMAL(12,2),
actividad DECIMAL(12,2),
balance_act DECIMAL(12,2),
descripcion VARCHAR(40),
grupo VARCHAR(40),
orden_grupo SMALLINT,
tasa DEC(10,2),
mes VARCHAR(20),
variacion DEC(12,2),
porc_v DEC(10,2)
END RECORD,
p_ano,p_mes SMALLINT,
chp_mes CHAR(2),
estado,tipo_estado VARCHAR(50),
cb ui.ComboBox
DEFINE fecha_inicial,fecha_final DATE
MAIN
DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CALL ARG_VAL(3) RETURNING impresor
CONNECT to "smarmotech" USER usuarios USING clave
SELECT a.* INTO p_compania.* FROM companias a
CALL cgprrp012()
END MAIN
FUNCTION cgprrp012()
LET int_flag = FALSE
OPTIONS
FORM LINE 9
OPEN FORM cgfmrp008 FROM "cgfmrp013"
DISPLAY FORM cgfmrp008
DISPLAY "cgprrp012" AT 4,3
DISPLAY "Catalogo / Estado-A" AT 6,30
LET tipo_papel = 1
CALL msgrp000(tipo_papel)
INPUT BY NAME p_ano,p_mes,estado,tipo_estado
BEFORE INPUT
LET cb = ui.ComboBox.forName("formonly.estado")
LET p_ano = YEAR(TODAY) USING "&&&&"
SELECT MAX(a.mes) INTO p_mes FROM cgtb00016 a WHERE a.ano=p_ano
LET chp_mes=p_mes USING "&&"
DISPLAY chp_mes TO p_mes
DISPLAY BY NAME p_ano
AFTER input
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
RETURN
END IF
SELECT AVG (a.tasa) INTO estado2.tasa FROM cgtb00084 a
WHERE a.mes = p_mes AND a.ano=p_ano AND a.ventas IN (2,3)
SELECT a.descrip INTO estado2.mes FROM mestable a WHERE a.mes =p_mes
EXIT INPUT
END INPUT
CALL seleccionarsalida() RETURNING r_output
DISPLAY "tipo estado ",tipo_estado," descripcion estado ",estado
DECLARE busco CURSOR FOR
{ PRIMER ESTADO =============================================}
SELECT a.estado_a,'0',SUM(a.actividad),ISNULL(SUM(a.balance_act)*b.signo,0),b.descripcion,b.grupo,
b.orden_grupos
FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON
a.estado_a is not null AND
a.ano = p_Ano AND a.mes = p_mes AND a.estado_a = b.estado
WHERE
b.descripcion_estado = estado AND b.tipo_estado = tipo_estado
GROUP BY a.estado_a,b.descripcion,b.grupo,b.orden_grupos,b.signo
UNION
SELECT a.estado_a,ISNULL(SUM(a.balance_act)*b.signo,0),SUM(a.actividad),'0',b.descripcion,b.grupo,
b.orden_grupos
FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON
a.estado_a is not null AND
a.ano = p_Ano-1 AND a.mes = p_mes AND a.estado_a = b.estado
WHERE
b.descripcion_estado = estado AND b.tipo_estado = tipo_estado
GROUP BY a.estado_a,b.descripcion,b.grupo,b.orden_grupos,b.signo
{ SEGUNDO ESTADO ===============================================}
UNION
SELECT a.estado_m,'0',SUM(a.actividad),ISNULL(SUM(a.balance_act)*b.signo,0),b.descripcion,b.grupo,
b.orden_grupos
FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON
a.ano = p_Ano AND a.mes = p_mes AND a.estado_m = b.estado
WHERE
b.descripcion_estado = estado AND b.tipo_estado = tipo_estado
GROUP BY a.estado_m,b.descripcion,b.grupo,b.orden_grupos,b.signo
UNION
SELECT a.estado_m,ISNULL(SUM(a.balance_act)*b.signo,0),SUM(a.actividad),'0',b.descripcion,b.grupo,
b.orden_grupos
FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON
a.ano = p_Ano-1 AND a.mes = p_mes AND a.estado_m = b.estado
WHERE
b.descripcion_estado = estado AND b.tipo_estado = tipo_estado
GROUP BY a.estado_m,b.descripcion,b.grupo,b.orden_grupos,b.signo
UNION
SELECT '339',0,SUM(a.actividad),ISNULL(SUM(a.balance_act)*b.signo,0),'Beneficios Bruto s/Ventas','Beneficios:',
'4'
FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON a.estado_m=b.estado AND b.tipo_estado = tipo_estado
WHERE a.ano = p_Ano AND a.mes = p_mes AND
a.estado_m in('301','302','311','312','313','314','329','321','322') AND
b.descripcion_estado = estado
GROUP BY b.signo
UNION
SELECT '339',ISNULL(SUM(a.balance_act)*b.signo,0),SUM(a.actividad),'0','Beneficios Bruto s/Ventas','Beneficios:',
'4'
FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON a.estado_m=b.estado AND b.tipo_estado = tipo_estado
WHERE a.ano = p_Ano-1 AND a.mes = p_mes AND
a.estado_m in('301','302','311','312','313','314','329','321','322') AND
b.descripcion_estado = estado
GROUP BY b.signo
UNION
SELECT '369',0,SUM(a.actividad),ISNULL(SUM(a.balance_act)*b.signo,0),'Beneficios Operativos','Beneficios Operativos:',
'6'
FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON a.estado_m=b.estado AND b.tipo_estado = tipo_estado
WHERE a.ano = p_Ano AND a.mes = p_mes AND
a.estado_m in('301','302','311','312','313','314','329','321','322','341','342','343','344','345') AND
b.descripcion_estado = estado
GROUP BY b.signo
UNION
SELECT '369',ISNULL(SUM(a.balance_act)*b.signo,0),SUM(a.actividad),'0','Beneficios Operativos','Beneficios Operativos:',
'6'
FROM cgtb00016 a LEFT OUTER JOIN cgtb00036 b ON a.estado_m=b.estado AND b.tipo_estado = tipo_estado
WHERE a.ano = p_Ano-1 AND a.mes = p_mes AND
a.estado_m in('301','302','311','312','313','314','329','321','322','341','342','343','344','345') AND
b.descripcion_estado = estado
GROUP BY b.signo
ORDER BY b.orden_grupos,b.grupo
LET idx=1
FOREACH busco INTO estado2.*
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = FALSE
FINISH REPORT reporte_12
EXIT FOREACH
END IF
IF idx=1 THEN
IF fgl_report_loadCurrentSettings(estado) THEN
CALL fgl_report_selectDevice(r_output)
LET handler = fgl_report_commitCurrentSettings()
ELSE
EXIT PROGRAM
END IF
START REPORT reporte_12 TO XML HANDLER HANDLER
END IF
OUTPUT TO REPORT reporte_12(estado2.*,fecha_inicial,fecha_final)
LET idx = idx+1
END FOREACH
IF idx > 1 THEN
FINISH REPORT reporte_12
ELSE
CALL fgl_Winmessage("INFO","NOEXISTEN DATOS","INFO")
END IF
END FUNCTION
REPORT reporte_12(x,fecha1,fecha2)
DEFINE x RECORD
estado_a CHAR(8),
balance_ant DECIMAL(12,2),
actividad DECIMAL(12,2),
balance_act DECIMAL(12,2),
descripcion VARCHAR(40),
grupo VARCHAR(40),
orden_grupo SMALLINT,
tasa DEC(10,2),
mes VARCHAR(20),
variacion DEC(12,2),
porc_v DEC(10,2)
END RECORD,
total_g_actual,total_g_anterior,balance_actual,balance_anterior,total_b_anterior,total_b_actual
DEC(12,2)
DEFINE fecha1,fecha2 DATE,
p_ano_ant SMALLINT,
chdescripcion STRING
DEFINE hora CHAR(5)
ORDER BY x.orden_grupo,x.grupo,x.estado_a
FORMAT
PAGE HEADER
LET hora = TIME
LET p_ano_ant = p_Ano -1
LET chdescripcion = cb.getTextOf(estado)
BEFORE GROUP OF x.grupo
LET total_b_anterior=0
LET total_b_actual=0
PRINTX x.grupo
AFTER GROUP OF x.estado_a
LET balance_actual = GROUP SUM(x.balance_act)
LET balance_anterior = GROUP SUM(x.balance_ant)
LET x.variacion = balance_actual-balance_anterior
LET x.porc_v = (x.variacion/balance_anterior)*100
PRINTX x.estado_a,x.descripcion,
balance_actual ,balance_anterior,
x.actividad ,
x.balance_act,
p_compania.nombre,hora,p_ano,p_mes,p_ano_ant,
estado2.mes,x.tasa,x.mes,x.variacion,x.porc_v,chdescripcion,tipo_estado
AFTER GROUP OF x.grupo
LET total_b_actual=GROUP SUM(x.balance_act)
LET total_b_anterior=GROUP SUM(x.balance_ant)
PRINTX total_b_anterior,total_b_actual
ON LAST ROW
LET total_g_actual=SUM(x.balance_act)
LET total_g_anterior=SUM(x.balance_ant)
PRINTX total_g_actual,total_g_anterior
END REPORT