Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,770 @@
|
||||
{
|
||||
-------------------------------------------------------------------------------
|
||||
PROGRAMA : NOPRRP001
|
||||
OBJETIVO : REPORTE DE INGRESOS DE LA NOMINA
|
||||
PROGRAMADOR : Ing. Betania Guerrero Perez
|
||||
FECHA REALIZACION : Noviembre 03, 1993
|
||||
-------------------------------------------------------------------------------
|
||||
}
|
||||
GLOBALS "noprgb000.4gl"
|
||||
|
||||
DEFINE p,m INT
|
||||
DEFINE totales ARRAY[200] OF DECIMAL(12,2)
|
||||
DEFINE tot_gral ARRAY[200] OF DECIMAL(12,2)
|
||||
DEFINE primera,sigue CHAR(1)
|
||||
DEFINE nombre_mes2 CHAR(12)
|
||||
|
||||
{DEFINE tot_gral ARRAY[50] OF RECORD
|
||||
cod_mov SMALLINT,
|
||||
valor DECIMAL(12,2)
|
||||
END RECORD}
|
||||
DEFINE o SMALLINT
|
||||
|
||||
# Variable de los encabezados
|
||||
DEFINE f DYNAMIC ARRAY OF RECORD
|
||||
primer_enc LIKE notb00002.primer_enc,
|
||||
segundo_enc LIKE notb00002.segundo_enc,
|
||||
tercer_enc LIKE notb00002.tercer_enc,
|
||||
cod_mov LIKE notb00002.cod_mov,
|
||||
clase_mov LIKE notb00008.clase_mov,
|
||||
no_columna INTEGER
|
||||
END RECORD
|
||||
|
||||
# Variable de los encabezados
|
||||
DEFINE j DYNAMIC ARRAY OF RECORD
|
||||
primer_enc LIKE notb00002.primer_enc,
|
||||
segundo_enc LIKE notb00002.segundo_enc,
|
||||
tercer_enc LIKE notb00002.tercer_enc,
|
||||
cod_mov LIKE notb00002.cod_mov,
|
||||
clase_mov LIKE notb00008.clase_mov,
|
||||
no_columna INTEGER
|
||||
END RECORD,
|
||||
primerDiaMes STRING
|
||||
|
||||
MAIN
|
||||
DEFER INTERRUPT
|
||||
CALL ARG_VAL(1) RETURNING usuarios
|
||||
CALL ARG_VAL(2) RETURNING clave
|
||||
|
||||
CONNECT to "smarmotech" USER usuarios USING clave
|
||||
SELECT * INTO p_companias.* FROM companias
|
||||
--LET usuarios = 'bisaac'
|
||||
LET primerDiaMes = '01/',month(today),'/',year(today)
|
||||
CALL noprrp001()
|
||||
END MAIN
|
||||
|
||||
FUNCTION noprrp001()
|
||||
|
||||
|
||||
## DEFINICION DE LOS REGISTROS DE BUSQUEDA CON LOS CAMPOS NECESARIOS PARA
|
||||
## EL REPORTE
|
||||
|
||||
|
||||
DEFINE imprime RECORD
|
||||
num_emp LIKE notb00008.num_emp,
|
||||
nom1_emp LIKE adtb00003.nom1_emp,
|
||||
nom2_emp LIKE adtb00003.nom2_emp,
|
||||
apell1_emp LIKE adtb00003.apell1_emp,
|
||||
apell2_emp LIKE adtb00003.apell2_emp,
|
||||
cod_mov LIKE notb00008.cod_mov,
|
||||
cantidad LIKE notb00008.cantidad,
|
||||
clase_mov CHAR(1),
|
||||
valor LIKE notb00008.valor,
|
||||
departamento LIKE adtb00003.departamento,
|
||||
cuenta_no LIKE cgtb00002.cuenta_no,
|
||||
no_columna SMALLINT
|
||||
END RECORD
|
||||
|
||||
OPTIONS
|
||||
FORM LINE 8,
|
||||
ERROR LINE 23,
|
||||
COMMENT LINE 21
|
||||
|
||||
CLEAR SCREEN
|
||||
LET formulario = formulario CLIPPED,"nofmrp001"
|
||||
OPEN FORM nofmrp001 FROM "nofmrp001"
|
||||
DISPLAY FORM nofmrp001
|
||||
# CALL pantalla()
|
||||
DISPLAY "noprrp001" AT 4,3
|
||||
DISPLAY "Nomina de Pago" AT 6,33
|
||||
|
||||
## INDICA EL TIPO DE PAPEL NECESARIO PARA EL REPORTE. 1 - PAPEL 9 1/2 X 11
|
||||
## 2 - PAPEL 14 7/8 X 11
|
||||
LET tipo_papel = 2
|
||||
CALL msgrp000(tipo_papel)
|
||||
|
||||
LET primera = "S"
|
||||
## AQUI SE INDICA EL CRITERIO DE BUSQUEDA DEL REPORTE
|
||||
INPUT BY NAME per_nomi.num_nomi,per_nomi.tipo_emp
|
||||
|
||||
AFTER FIELD num_nomi
|
||||
IF per_nomi.num_nomi IS NULL THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD num_nomi
|
||||
END IF
|
||||
|
||||
AFTER FIELD tipo_emp
|
||||
IF per_nomi.num_nomi IS NOT NULL THEN
|
||||
IF per_nomi.tipo_emp IS NOT NULL THEN
|
||||
|
||||
SELECT num_nomi,tipo_emp,fecha_del,fecha_al
|
||||
INTO per_nomi.num_nomi,per_nomi.tipo_emp,
|
||||
per_nomi.fecha_del,per_nomi.fecha_al
|
||||
FROM notb00010
|
||||
WHERE num_nomi = per_nomi.num_nomi and
|
||||
tipo_emp = per_nomi.tipo_emp
|
||||
|
||||
IF status = NOTFOUND THEN
|
||||
LET numero_msg = 3
|
||||
CALL msg(numero_msg)
|
||||
RETURN
|
||||
END IF
|
||||
ELSE
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD tipo_emp
|
||||
END IF
|
||||
END IF
|
||||
|
||||
DISPLAY BY NAME per_nomi.fecha_del,per_nomi.fecha_al
|
||||
|
||||
SELECT UNIQUE a.descrip INTO nombre_mes FROM mestable a
|
||||
WHERE a.mes = MONTH(per_nomi.fecha_del)
|
||||
|
||||
SELECT UNIQUE a.descrip INTO nombre_mes2 FROM mestable a
|
||||
WHERE a.mes = MONTH(per_nomi.fecha_al)
|
||||
|
||||
AFTER INPUT
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
|
||||
CONSTRUCT BY NAME criterio ON a.departamento,a.num_emp
|
||||
|
||||
# Busqueda de los encabezados
|
||||
LET selec1 =
|
||||
"SELECT UNIQUE b.primer_enc,b.segundo_enc,b.tercer_enc,",
|
||||
"c.cod_mov,a.clase_mov ",
|
||||
"FROM notb00002 b,notb00008 a,notb00013 c ",
|
||||
"WHERE c.cod_mov_a = a.cod_mov and a.num_nomi ='", per_nomi.num_nomi,
|
||||
"' AND a.tipo_emp = '",per_nomi.tipo_emp,"' AND b.status_t is null and ",
|
||||
criterio CLIPPED,
|
||||
"AND b.cod_mov = c.cod_mov ORDER BY 4 "
|
||||
PREPARE comando FROM selec1
|
||||
DECLARE accion CURSOR FOR comando
|
||||
|
||||
LET idx = 1
|
||||
FOREACH accion INTO j[idx].*
|
||||
IF j[idx].clase_mov = "I" or
|
||||
j[idx].clase_mov = "E" or
|
||||
j[idx].clase_mov = "P" THEN
|
||||
LET j[idx].no_columna = 1
|
||||
END IF
|
||||
IF j[idx].clase_mov = "D" or
|
||||
j[idx].clase_mov = "S" or
|
||||
j[idx].clase_mov = "R" THEN
|
||||
LET j[idx].no_columna = 2
|
||||
END IF
|
||||
LET f[idx].primer_enc = j[idx].primer_enc
|
||||
LET f[idx].segundo_enc = j[idx].segundo_enc
|
||||
LET f[idx].tercer_enc = j[idx].tercer_enc
|
||||
LET f[idx].cod_mov = j[idx].cod_mov
|
||||
LET f[idx].clase_mov = j[idx].clase_mov
|
||||
LET f[idx].no_columna = j[idx].no_columna
|
||||
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
{ AQUI ES LA COSA
|
||||
|
||||
LET idx = idx - 1
|
||||
|
||||
# Validacion de colunnas de ingresos
|
||||
LET m = 1
|
||||
FOR p = 1 TO idx
|
||||
IF f[p].no_columna = 1 THEN
|
||||
LET j[m].primer_enc = f[p].primer_enc
|
||||
LET j[m].segundo_enc = f[p].segundo_enc
|
||||
LET j[m].tercer_enc = f[p].tercer_enc
|
||||
LET j[m].cod_mov = f[p].cod_mov
|
||||
LET j[m].clase_mov = f[p].clase_mov
|
||||
LET j[m].no_columna = f[p].no_columna
|
||||
LET m = m + 1
|
||||
END IF
|
||||
END FOR
|
||||
LET j[m].primer_enc = "________"
|
||||
LET j[m].segundo_enc = "|TOTAL |"
|
||||
LET j[m].tercer_enc = "|GANADO|"
|
||||
LET j[m].cod_mov = null
|
||||
LET j[m].no_columna = null
|
||||
LET m = m + 1
|
||||
|
||||
# Validacion de colunnas descuentos
|
||||
FOR p = 1 TO idx
|
||||
IF f[p].no_columna = 2 THEN
|
||||
LET j[m].primer_enc = f[p].primer_enc
|
||||
LET j[m].segundo_enc = f[p].segundo_enc
|
||||
LET j[m].tercer_enc = f[p].tercer_enc
|
||||
LET j[m].cod_mov = f[p].cod_mov
|
||||
LET j[m].clase_mov = f[p].clase_mov
|
||||
LET j[m].no_columna = f[p].no_columna
|
||||
LET m = m + 1
|
||||
END IF
|
||||
END FOR
|
||||
LET j[m].primer_enc = "________"
|
||||
LET j[m].segundo_enc = "|TOTAL |"
|
||||
LET j[m].tercer_enc = "|DESC. |"
|
||||
LET j[m].cod_mov = null
|
||||
LET idx = m
|
||||
|
||||
## SE SELECCIONAN LOS CAMPOS NECESARIOS PARA EL REPORTE Y
|
||||
## SE DECLARA EL CURSOR PARA BUSCAR LA INFORMACION SELECCIONADA
|
||||
LET selec1 =
|
||||
" SELECT a.num_emp,b.nom1_emp,b.nom2_emp,b.apell1_emp,",
|
||||
" b.apell2_emp,d.cod_mov,sum(a.cantidad),a.clase_mov,",
|
||||
" sum(a.valor),b.departamento,c.cuenta_no ",
|
||||
" FROM notb00008 a,adtb00003 b,notb00013 d,outer cgtb00002 c ",
|
||||
" WHERE a.num_nomi = '",per_nomi.num_nomi,"' AND a.tipo_emp = '",
|
||||
per_nomi.tipo_emp,"' AND ",
|
||||
" a.num_emp = b.num_emp AND ",
|
||||
" a.departamento = c.departamento AND ",
|
||||
" a.fecha between '", per_nomi.fecha_del,"' and '",
|
||||
per_nomi.fecha_al,"' AND ",
|
||||
" a.cod_mov not in (100,101,102,110) and ",
|
||||
" a.cod_mov = d.cod_mov_a AND ",criterio CLIPPED,
|
||||
" GROUP BY a.num_emp,b.nom1_emp,b.nom2_emp,b.apell1_emp,b.apell2_emp,d.cod_mov,a.clase_mov, ",
|
||||
"b.departamento,c.cuenta_no ",
|
||||
" ORDER BY a.num_emp,d.cod_mov"
|
||||
PREPARE comando2 FROM selec1
|
||||
DECLARE accion1 CURSOR FOR comando2
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
DISPLAY "Buscando Informacion ... Espere Por Favor" AT 19,14
|
||||
ATTRIBUTE (REVERSE,BOLD)
|
||||
|
||||
CALL integridad()
|
||||
IF bandera = 1 THEN
|
||||
LET bandera = 0
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
DISPLAY " " AT 19,14
|
||||
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
|
||||
AT 19,14 ATTRIBUTE (REVERSE)
|
||||
CALL seleccionarsalida() RETURNING r_output
|
||||
CALL configureoutput(r_output) RETURNING handler
|
||||
START REPORT nomina_ing TO XML HANDLER handler
|
||||
|
||||
## SE BUSCA LA INFORMACION DE LOS CAMPOS DEL REGISTRO PARA DARLE
|
||||
## SALIDA AL REPORTE
|
||||
FOREACH accion1 INTO imprime.*
|
||||
# Acumula el total de descuentos por empleado
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
IF imprime.clase_mov = "I" or
|
||||
imprime.clase_mov = "E" or
|
||||
imprime.clase_mov = "P" THEN
|
||||
LET imprime.no_columna = 1
|
||||
END IF
|
||||
|
||||
IF imprime.clase_mov = "D" or
|
||||
imprime.clase_mov = "S" THEN
|
||||
LET imprime.no_columna = 2
|
||||
END IF
|
||||
|
||||
OUTPUT TO REPORT nomina_ing(imprime.*,per_nomi.num_nomi,per_nomi.tipo_emp,
|
||||
per_nomi.fecha_del,per_nomi.fecha_al,nombre_mes, nombre_mes2)
|
||||
|
||||
END FOREACH
|
||||
FINISH REPORT nomina_ing
|
||||
}
|
||||
CLEAR SCREEN
|
||||
END FUNCTION
|
||||
|
||||
## DEFINICION DEL REGISTRO DE IMPRESION CON LOS CAMPOS NECESARIOS PARA
|
||||
## EL REPORTE
|
||||
REPORT nomina_ing(x,no_nomina,tipo,fecha1,fecha2,nombre,nombre2)
|
||||
DEFINE x RECORD
|
||||
num_emp LIKE notb00008.num_emp,
|
||||
nom1_emp LIKE adtb00003.nom1_emp,
|
||||
nom2_emp LIKE adtb00003.nom2_emp,
|
||||
apell1_emp LIKE adtb00003.apell1_emp,
|
||||
apell2_emp LIKE adtb00003.apell2_emp,
|
||||
cod_mov LIKE notb00008.cod_mov,
|
||||
cantidad LIKE notb00008.cantidad,
|
||||
clase_mov CHAR(1),
|
||||
valor LIKE notb00008.valor,
|
||||
departamento LIKE adtb00003.departamento,
|
||||
cuenta_no LIKE cgtb00002.cuenta_no,
|
||||
no_columna SMALLINT
|
||||
END RECORD
|
||||
|
||||
|
||||
## DEFINICION DE LAS VARIABLES DE IMPRESION
|
||||
DEFINE nombre_depto CHAR(20)
|
||||
DEFINE doble_on CHAR(2)
|
||||
DEFINE doble_off CHAR(2)
|
||||
DEFINE negrillas_on CHAR(2)
|
||||
DEFINE negrillas_off CHAR(2)
|
||||
DEFINE comp_on CHAR(2)
|
||||
DEFINE comp_off CHAR(2)
|
||||
DEFINE doce CHAR(2)
|
||||
DEFINE normal CHAR(2)
|
||||
DEFINE hora CHAR(5)
|
||||
DEFINE fecha1,fecha2 DATE
|
||||
DEFINE segunda,tipo CHAR(1)
|
||||
DEFINE p_codigo,no_emp,k,h,n,ficha,no_nomina,l,cuenta_emp SMALLINT
|
||||
DEFINE nombre,nombre2,varia CHAR(11)
|
||||
DEFINE t_sal_hora,t_horas,sal_hora,horas DECIMAL(7,2)
|
||||
DEFINE t_salario1,salario,salario1 DECIMAL(8,2)
|
||||
DEFINE t_desc1,t_desc,neto,monto_desc,t_ganado,t_ganado_h,valor1,
|
||||
t_t_horas,t_t_valor_h,t_valor_h DECIMAL(10,2)
|
||||
DEFINE t_t_valor,t_t_neto,t_neto,t_t_Desc,t_t_ganado DECIMAL(12,2)
|
||||
|
||||
OUTPUT
|
||||
## DEFINICION DE LOS MARGENES DE IMPRESION
|
||||
TOP MARGIN 0
|
||||
LEFT MARGIN 0
|
||||
BOTTOM MARGIN 3
|
||||
PAGE LENGTH 100
|
||||
ORDER BY x.departamento,x.num_emp,x.no_columna,x.cod_mov
|
||||
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 27, ASCII 15
|
||||
# LET comp_off = ASCII 18
|
||||
# LET doce = ASCII 27, ASCII 77
|
||||
# LET normal = ASCII 27, ASCII 80
|
||||
LET hora = time
|
||||
|
||||
## ASIGNACION DEL TIPO DE NOMINA A IMPRIMIR
|
||||
IF tipo = "Q" THEN LET varia = "QUINCENALES" END IF
|
||||
IF tipo = "S" THEN LET varia = "SEMANALES" END IF
|
||||
IF tipo = "V" THEN LET varia = "VENDEDORES" END IF
|
||||
|
||||
## SE CALCULA LA LONGITUD DE LA VARIABLE -VARIA-
|
||||
LET l = (171 - LENGTH(varia))/2
|
||||
LET l = (103 - LENGTH(p_companias.nombre CLIPPED))/2
|
||||
|
||||
## AQUI SE INDICA LA IMPRESION DE LOS ENCABEZADOS
|
||||
PRINT COLUMN 1, doce,comp_on,
|
||||
COLUMN 2, "Nomina No.:",
|
||||
no_nomina,doble_on,
|
||||
COLUMN l, p_companias.nombre CLIPPED,
|
||||
doble_off,
|
||||
COLUMN 105," Pag. ",pageno using "###"
|
||||
|
||||
PRINT COLUMN 2, "noprrp001",
|
||||
COLUMN 63, "Nomina Empleados ",
|
||||
COLUMN L, varia ,
|
||||
COLUMN 145, today using "dd/mm/yy"
|
||||
|
||||
PRINT COLUMN 42, "Nomina Regular del",
|
||||
COLUMN 62, DAY(fecha1) using "&&",
|
||||
COLUMN 66, "de",
|
||||
COLUMN 70, nombre clipped,
|
||||
COLUMN 83, "Al",
|
||||
COLUMN 87, DAY(fecha2) using "&&",
|
||||
COLUMN 91, nombre2 clipped,
|
||||
COLUMN 103, "de",
|
||||
COLUMN 107, YEAR(fecha2) using "####",
|
||||
COLUMN 145, time
|
||||
SKIP 1 LINE
|
||||
PRINT COLUMN 1, "--------------------------------------";
|
||||
LET m = 36
|
||||
FOR i = 1 to idx
|
||||
PRINT COLUMN m, "------------";
|
||||
LET m = m + 12
|
||||
END FOR
|
||||
PRINT COLUMN m, "-----------"
|
||||
|
||||
# PRINT COLUMN 77, "Total";
|
||||
LET m = 56
|
||||
FOR i = 1 to idx
|
||||
PRINT COLUMN m, j[i].primer_enc;
|
||||
LET m = m + 11
|
||||
END FOR
|
||||
PRINT " "
|
||||
|
||||
LET m = 56
|
||||
FOR i = 1 to idx
|
||||
PRINT COLUMN m, j[i].segundo_enc;
|
||||
LET m = m + 11
|
||||
END FOR
|
||||
PRINT " "
|
||||
|
||||
PRINT COLUMN 1, "Ficha",
|
||||
COLUMN 7, "Nombre";
|
||||
|
||||
LET m = 56
|
||||
FOR i = 1 to idx
|
||||
PRINT COLUMN m, j[i].tercer_enc;
|
||||
LET m = m + 11
|
||||
END FOR
|
||||
PRINT COLUMN m+3, "NETO"
|
||||
LET m = 56
|
||||
FOR i = 1 TO idx
|
||||
PRINT COLUMN m, "(",j[i].cod_mov using "&&&",")";
|
||||
LET m = m + 11
|
||||
END FOR
|
||||
PRINT " "
|
||||
PRINT COLUMN 1, "-----------------------------------";
|
||||
|
||||
LET m = 36
|
||||
FOR i = 1 to idx
|
||||
PRINT COLUMN m, "------------";
|
||||
LET m = m + 12
|
||||
END FOR
|
||||
PRINT COLUMN m, "--------------"
|
||||
|
||||
SKIP 1 LINE
|
||||
## AQUI SE INDICA LA IMPRESION DEL DETALLE
|
||||
BEFORE GROUP OF x.departamento
|
||||
LET t_sal_hora = 0
|
||||
LET t_ganado = 0
|
||||
LET t_desc = 0
|
||||
LET t_neto = 0
|
||||
LET t_horas = 0
|
||||
LET t_valor_h = 0
|
||||
LET cuenta_emp = 0
|
||||
IF t_t_horas is null THEN
|
||||
LET t_t_horas = 0
|
||||
END IF
|
||||
|
||||
IF t_t_valor_h is null THEN
|
||||
LET t_t_valor_h = 0
|
||||
END IF
|
||||
|
||||
# Inicializacion del arreglo para los totales por departamentos
|
||||
FOR i = 1 TO idx
|
||||
LET totales[i] = 0
|
||||
END FOR
|
||||
|
||||
IF primera = "S" THEN
|
||||
FOR i = 1 TO idx
|
||||
LET tot_gral[i] = 0
|
||||
END FOR
|
||||
LET primera = "N"
|
||||
END IF
|
||||
#--------------------------------------------------------------------------
|
||||
IF t_t_ganado is null THEN
|
||||
LET t_t_ganado = 0
|
||||
END IF
|
||||
IF t_t_desc is null THEN
|
||||
LET t_t_desc = 0
|
||||
END IF
|
||||
IF t_t_neto is null THEN
|
||||
LET t_t_neto = 0
|
||||
END IF
|
||||
|
||||
BEFORE GROUP OF x.num_emp
|
||||
LET t_ganado_h = 0
|
||||
LET neto = 0
|
||||
LET valor1 = 0
|
||||
LET sigue = "N"
|
||||
LET segunda = "S"
|
||||
LET p = 1
|
||||
LET n = 38
|
||||
LET t_desc1 = 0
|
||||
LET sal_hora = 0
|
||||
|
||||
PRINT COLUMN 1, x.num_emp using "&&&&",
|
||||
COLUMN 7, x.nom1_emp clipped," ",
|
||||
x.apell1_emp clipped;
|
||||
|
||||
ON EVERY ROW
|
||||
IF x.cod_mov = 1 THEN
|
||||
LET i = 1
|
||||
IF x.cantidad is null THEN
|
||||
LET x.cantidad = 0
|
||||
END IF
|
||||
IF x.cantidad > 0 THEN
|
||||
LET sal_hora = x.valor/x.cantidad
|
||||
END IF
|
||||
PRINT COLUMN n-3, sal_hora using "###.##",
|
||||
COLUMN n+7, x.cantidad USING "###.##"," ",
|
||||
COLUMN n+14, x.valor USING "###,###.##";
|
||||
LET sigue = "S"
|
||||
LET t_sal_hora = t_sal_hora + sal_hora
|
||||
LET t_horas = t_horas + x.cantidad
|
||||
LET n = n + 25
|
||||
LET totales[i] = totales[i] + x.valor
|
||||
LET tot_gral[i] = tot_gral[i] + x.valor
|
||||
|
||||
# Acumulacion de los Ingresos
|
||||
IF x.clase_mov = "I" or x.clase_mov = "P" or
|
||||
x.clase_mov = "E" THEN
|
||||
LET t_ganado_h = t_ganado_h + x.valor
|
||||
END IF
|
||||
END IF
|
||||
IF sigue = "N" THEN
|
||||
LET sigue = "S"
|
||||
LET n = n + 13
|
||||
END IF
|
||||
IF x.valor is null THEN
|
||||
LET x.valor = 0
|
||||
END IF
|
||||
|
||||
IF x.cod_mov > 1 THEN
|
||||
LET segunda = "N"
|
||||
IF j[i].cod_mov = x.cod_mov THEN
|
||||
# Este sum es porque el interes es un movimiento y hay que sumarlo con el
|
||||
# valor de la cuota
|
||||
IF x.cod_mov = 12 THEN
|
||||
|
||||
SELECT valor INTO valor1 FROM notb00008
|
||||
WHERE cod_mov = 110 and num_emp = x.num_emp and
|
||||
num_nomi = no_nomina and tipo_emp = tipo
|
||||
|
||||
IF valor1 is null THEN
|
||||
LET valor1 = 0
|
||||
END IF
|
||||
|
||||
LET x.valor = x.valor + valor1
|
||||
END IF
|
||||
|
||||
LET totales[i] = totales[i] + x.valor
|
||||
LET tot_gral[i] = tot_gral[i] + x.valor
|
||||
|
||||
# Acumulacion de los Ingresos
|
||||
IF x.clase_mov = "I" or x.clase_mov = "P" or
|
||||
x.clase_mov = "E" THEN
|
||||
LET t_ganado_h = t_ganado_h + x.valor
|
||||
END IF
|
||||
|
||||
# Acumulacion de los descuentos
|
||||
IF x.clase_mov = "R" or
|
||||
x.clase_mov = "S" or
|
||||
x.clase_mov = "D" THEN
|
||||
LET t_desc1 = t_desc1 + x.valor
|
||||
END IF
|
||||
PRINT COLUMN n,x.valor USING "###,###.##";
|
||||
ELSE
|
||||
FOR k = i TO idx
|
||||
IF j[k].cod_mov = x.cod_mov THEN
|
||||
IF x.cod_mov = 12 THEN
|
||||
SELECT valor INTO valor1 FROM notb00008
|
||||
WHERE cod_mov = 110 and num_emp = x.num_emp and
|
||||
num_nomi = no_nomina and tipo_emp = tipo
|
||||
IF valor1 is null THEN
|
||||
LET valor1 = 0
|
||||
END IF
|
||||
LET x.valor = x.valor + valor1
|
||||
END IF
|
||||
PRINT COLUMN n,x.valor USING "###,###.##";
|
||||
LET totales[k] = totales[k] + x.valor
|
||||
LET tot_gral[k] = tot_gral[k] + x.valor
|
||||
|
||||
# Acumulacion de los Ingresos
|
||||
IF x.clase_mov = "I" or x.clase_mov = "P" or
|
||||
x.clase_mov = "E" THEN
|
||||
LET t_ganado_h = t_ganado_h + x.valor
|
||||
END IF
|
||||
|
||||
# Acumulacion de los descuentos
|
||||
IF x.clase_mov = "R" or
|
||||
x.clase_mov = "S" or
|
||||
x.clase_mov = "D" THEN
|
||||
LET t_desc1 = t_desc1 + x.valor
|
||||
END IF
|
||||
LET i = k
|
||||
EXIT FOR
|
||||
ELSE
|
||||
IF j[k].cod_mov is not null THEN
|
||||
PRINT COLUMN n,0 USING "###,###.##";
|
||||
LET totales[k] = totales[k] + 0
|
||||
LET tot_gral[k] = tot_gral[k] + 0
|
||||
END IF
|
||||
LET n = n + 11
|
||||
LET p = p + 1
|
||||
END IF
|
||||
END FOR
|
||||
END IF
|
||||
|
||||
LET p = p + 1
|
||||
LET n = n+11
|
||||
END IF
|
||||
LET i = i + 1
|
||||
|
||||
AFTER GROUP OF x.no_columna
|
||||
|
||||
IF segunda = "S" THEN
|
||||
LET n = n - 11
|
||||
FOR k = 1 TO idx
|
||||
IF j[k].no_columna = x.no_columna THEN
|
||||
IF j[k].cod_mov != 1 THEN
|
||||
IF j[k].cod_mov is not null THEN
|
||||
PRINT COLUMN n,0 USING "###,###.##";
|
||||
LET totales[k] = totales[k] + 0
|
||||
LET tot_gral[k] = tot_gral[k] + 0
|
||||
LET i = k + 1
|
||||
END IF
|
||||
END IF
|
||||
LET n = n + 11
|
||||
LET p = p + 1
|
||||
END IF
|
||||
END FOR
|
||||
END IF
|
||||
|
||||
IF x.no_columna = 1 THEN
|
||||
PRINT COLUMN n,"|", t_ganado_h USING "###,###.##","|";
|
||||
LET totales[i] = totales[i] + t_ganado_h
|
||||
LET tot_gral[i] = tot_gral[i] + t_ganado_h
|
||||
END IF
|
||||
|
||||
AFTER GROUP OF x.num_emp
|
||||
|
||||
IF no_emp is null THEN
|
||||
LET no_emp = 0
|
||||
END IF
|
||||
|
||||
LET no_emp = no_emp + 1
|
||||
LET cuenta_emp = cuenta_emp + 1
|
||||
IF t_neto IS NULL THEN
|
||||
LET t_neto = 0
|
||||
END IF
|
||||
IF t_ganado_h is null THEN
|
||||
LET t_ganado_h = 0
|
||||
END IF
|
||||
IF t_desc1 is null THEN
|
||||
LET t_desc1 = 0
|
||||
END IF
|
||||
LET neto = t_ganado_h + t_desc1
|
||||
IF p = idx THEN
|
||||
PRINT COLUMN n+1,"|", t_desc1 using "###,###.##","|";
|
||||
PRINT COLUMN n+11, neto USING "(((,((#.##)"
|
||||
END IF
|
||||
IF p != idx THEN
|
||||
LET p = idx - p
|
||||
LET p = (i + p) - 1
|
||||
FOR k = i TO p
|
||||
IF j[k].cod_mov is not null THEN
|
||||
PRINT COLUMN n, 0 using "###,###.##"," ";
|
||||
LET totales[k] = totales[k] + 0
|
||||
LET tot_gral[k] = tot_gral[k] + 0
|
||||
LET n = n + 11
|
||||
END IF
|
||||
END FOR
|
||||
PRINT COLUMN n,"|", t_desc1 using "###,###.##","|";
|
||||
PRINT COLUMN n+11, neto USING "(((,((#.##)"
|
||||
END IF
|
||||
|
||||
LET t_ganado = t_ganado + t_ganado_h
|
||||
LET t_desc = t_desc + t_desc1
|
||||
LET t_neto = t_neto + neto
|
||||
|
||||
AFTER GROUP OF x.departamento
|
||||
IF o is null THEN
|
||||
LET o = 1
|
||||
END IF
|
||||
#-------------------------------------------------------------------------------
|
||||
SELECT nom_dpto INTO nombre_depto FROM adtb00001
|
||||
WHERE departamento = x.departamento
|
||||
IF status = notfound THEN
|
||||
LET status = 0
|
||||
END IF
|
||||
PRINT negrillas_on
|
||||
# Impresion de los totales de los departamentos
|
||||
PRINT COLUMN 4,x.departamento USING "#####"," ",nombre_depto;
|
||||
IF t_t_valor is null THEN
|
||||
LET t_t_valor = 0
|
||||
END IF
|
||||
|
||||
PRINT COLUMN 35, t_sal_hora using "###.##",
|
||||
COLUMN 43, t_horas using "#,###.##";
|
||||
|
||||
LET t_t_horas = t_t_horas + t_sal_hora
|
||||
LET t_t_valor_h = t_t_valor_h + t_horas
|
||||
|
||||
LET m = 38
|
||||
LET sigue = "N"
|
||||
IF j[1].cod_mov = 1 THEN
|
||||
LET m = m + 15
|
||||
LET sigue = "S"
|
||||
END IF
|
||||
IF sigue = "N" THEN
|
||||
LET m = m + 15
|
||||
END IF
|
||||
|
||||
LET idx = idx - 1
|
||||
LET m = m - 1
|
||||
FOR i= 1 TO idx
|
||||
PRINT COLUMN m, totales[i] using "#,###,###.##";
|
||||
LET m = m + 11
|
||||
END FOR
|
||||
LET idx = idx + 1
|
||||
PRINT COLUMN n+1, t_desc using "#,###,###.##"," ",
|
||||
t_neto using "#,###,###.##"
|
||||
PRINT negrillas_off
|
||||
# NUMERO DE EMPLEADOS
|
||||
PRINT COLUMN 4, "NO. EMPLEADOS DEPTO: ",cuenta_emp USING "####"
|
||||
PRINT " "
|
||||
|
||||
# Acumulacion de Totales generales
|
||||
|
||||
LET t_t_ganado = t_t_ganado + t_ganado
|
||||
LET t_t_desc = t_t_desc + t_desc
|
||||
LET t_t_neto = t_t_neto + t_neto
|
||||
|
||||
ON LAST ROW
|
||||
PRINT negrillas_on
|
||||
PRINT COLUMN 4, "Total General ",
|
||||
COLUMN 33, t_t_horas USING "#,###.##",
|
||||
COLUMN 42, t_t_valor_h using "##,###.##";
|
||||
LET t_t_horas = 0
|
||||
LET t_t_valor_h = 0
|
||||
LET m = 38
|
||||
LET sigue = "N"
|
||||
IF j[1].cod_mov = 1 THEN
|
||||
LET m = m + 14
|
||||
LET sigue = "S"
|
||||
END IF
|
||||
IF sigue = "N" THEN
|
||||
LET m = m + 14
|
||||
END IF
|
||||
|
||||
LET idx = idx - 1
|
||||
FOR i= 1 TO idx
|
||||
PRINT COLUMN m, tot_gral[i] using "###,###.##";
|
||||
LET m = m + 11
|
||||
END FOR
|
||||
IF t_t_desc < 0 THEN
|
||||
LET t_t_desc = t_t_desc * -1
|
||||
END IF
|
||||
|
||||
LET t_t_neto = t_t_ganado - t_t_desc
|
||||
PRINT COLUMN m,t_t_desc using "###,###.##"," ",
|
||||
t_t_neto using "####,###.##", negrillas_off
|
||||
PRINT COLUMN 4, "Total Empleados ", no_emp using "<<<"
|
||||
LET t_t_ganado = 0
|
||||
LET t_t_desc = 0
|
||||
LET t_t_neto = 0
|
||||
LET no_emp = 0
|
||||
PRINT COLUMN 1,normal,comp_off
|
||||
END REPORT
|
||||
Reference in New Issue
Block a user