jsoto/MBS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
9ce99926e183edbd36c62ff21b21b8d6feac956a
MBS/PROYECTO/cgdir/edprrp047.4gl
T

368 lines
12 KiB
Plaintext
Raw Blame History

{
-------------------------------------------------------------------------------
PROGRAMA : EDPRRP047
OBJETIVO : Gastos Indirectos Standar y Variacion
PROGRAMADOR : Tadeo A. Ferreras
FECHA REALIZACION : Julio 28, 1993
-------------------------------------------------------------------------------
}
DATABASE rayovac
GLOBALS
###### Variables para busqueda de rango de fecha
DEFINE detalle CHAR(30)
DEFINE mes SMALLINT
DEFINE ano CHAR(4)
DEFINE tasa DECIMAL(5,2)
DEFINE p_fecha,fecha1, fecha2 DATE
DEFINE afecta,nominas CHAR(1)
DEFINE entra CHAR(14)
DEFINE entra1 CHAR(5)
DEFINE tipo_papel SMALLINT
DEFINE mano_obra,sueldo_ind,monto_banco,interes DECIMAL(12,2)
###### Variables para almacenar los datos selecionados
DEFINE selec5, selec6 CHAR(1500)
###### Variables que la almacenan la informacion enviada al reporte
DEFINE diario1 RECORD
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
valor DECIMAL(10,2)
END RECORD
###### Variables que la almacenan la informacion enviada al reporte
END GLOBALS
MAIN
DEFER INTERRUPT
CALL edprrp047()
END MAIN
FUNCTION edprrp047()
# WHENEVER ERROR CONTINUE
OPTIONS
FORM LINE 8,
ERROR LINE 23,
COMMENT LINE 21
##### Abriendo y desplegando el formulario de captura de datos
OPEN FORM edfmrp047 FROM "edfmrp047"
DISPLAY FORM edfmrp047
CALL pantalla()
DISPLAY "edprrp047" AT 4,3
DISPLAY "Entrada Gasto Ind. Standard y Variacion" AT 6,20
LET tipo_papel = 3
CALL msgrp000(tipo_papel)
###### Aceptando los valores para el rango de fecha
INPUT BY NAME entra,fecha1,fecha2,detalle,afecta
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
AFTER FIELD detalle
DISPLAY "Buscando Datos Basicos1... Espere Por Favor" AT 19,14
SELECT SUM((a.cantidad/1000)*b.gasto_ind) INTO mano_obra
FROM cttb00003 a,cttb00029 b
WHERE a.fecha BETWEEN fecha1 AND fecha2 AND a.cod_prod = b.cod_prod AND
a.departamento = b.departamento AND b.ano = YEAR(a.fecha)
IF mano_obra IS NULL THEN
LET mano_obra = 0
END IF
DISPLAY "Buscando Datos Basicos2... Espere Por Favor" AT 19,14
SELECT SUM(a.debito-a.credito) INTO sueldo_ind FROM cgtb00004 a
WHERE a.status_t IS NULL AND a.departamento = 6500 AND a.tipo = 2 AND
a.fecha BETWEEN fecha1 AND fecha2 AND a.cuenta_no = "7600"
IF sueldo_ind IS NULL THEN
LET sueldo_ind = 0
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
START REPORT entrada47 TO PIPE "lp -dcentral"
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
##### Loop para enviar informacion al reporte
OUTPUT TO REPORT entrada47(fecha1,fecha2,detalle,entra,mano_obra,sueldo_ind)
#END WHILE
FINISH REPORT entrada47
CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
#### Funcion para dar salida ordenada a la informacion requerida de
#### una entrada de diario de nominas local
REPORT entrada47(fecha1,fecha2,detalle1,entrada,mano_obra,sueldo_ind)
DEFINE x RECORD
cta_aux CHAR(8),
descripcion CHAR(30),
valor DECIMAL(10,2)
END RECORD
### Acumula los valores de las diferentes cuentas para entrada diario de nomina
DEFINE detalle1 CHAR(30)
DEFINE debito,credito,mano_obra,sueldo_ind,monto_banco DECIMAL(12,2)
DEFINE total1,total2,total3,total4,total5,total6 DECIMAL(12,2)
DEFINE total7,total8 DECIMAL(12,2) ## Acumula los totales DEBITO Y CREDITO
DEFINE tasa1 DECIMAL(5,2) ## Almacena la tasa de la tasa de cambio
DEFINE fecha1,fecha2 DATE #### Almacena las fecha del rango de busqueda
DEFINE nomina CHAR(1)
DEFINE doble_on CHAR(2)
DEFINE doble_off CHAR(2)
DEFINE negrillas_on CHAR(6)
DEFINE negrillas_off CHAR(6)
DEFINE comp_on CHAR(2)
DEFINE comp_off CHAR(2)
DEFINE doce CHAR(2)
DEFINE normal CHAR(2)
DEFINE normall CHAR(3)
DEFINE comprimido CHAR(3)
DEFINE hora CHAR(5)
DEFINE dpto INTEGER
DEFINE nomina1 CHAR(24)
DEFINE entrada CHAR(14)
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 comprimido = ASCII 031
LET doce = ASCII 030
LET normal = ASCII 27, ASCII 80
LET normall = ASCII 029
LET hora = time
##### Selecionado la descripcion del fecha2
PRINT COLUMN 1, comp_off,"edprrp047",
COLUMN 23, "R A Y . O . V A C D O M I N I C A N A, S. A.",
COLUMN 75, "Pag. ",pageno using "###"
PRINT COLUMN 35, "Sistema de Contabilidad",
COLUMN 75, today using "dd/mm/yy"
PRINT COLUMN 29, "Entrada de Diario Cierre de Gastos",
COLUMN 78, hora
PRINT COLUMN 34, "Del ",fecha1 USING "dd/mm/yy", " Al ",fecha2
USING "dd/mm/yy"
# , negrillas_off
SKIP 1 LINE
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 56, "Debe",
COLUMN 71, "Haber",negrillas_off
PRINT COLUMN 1,
"--------------------------------------------------",
"----------------------------------------"
LET total1 = 0
LET total2 = 0
PRINT COLUMN 2, "1143",
COLUMN 11, "6500",
COLUMN 18, "INV. PROCESO- VALOR GI STD",
COLUMN 50, mano_obra using "###,###,##&.&&"
IF afecta = "S" THEN
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"1143",6500,null,null,null,null,
detalle1,null,mano_obra,0,null,user,current,null,null)
END IF
IF sueldo_ind IS NULL THEN
LET sueldo_ind = 0
END IF
PRINT COLUMN 2, "5910",
COLUMN 11, "6500",
COLUMN 18, "GASTO DE FABRICACION APLICADO",
COLUMN 50, sueldo_ind using "###,###,##&.&&"
IF afecta = "S" THEN
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"5910",6500,null,null,null,null,
detalle1,null,sueldo_ind,0,null,user,current,null,null)
END IF
LET total1 = sueldo_ind - mano_obra
PRINT COLUMN 2, "5501",
COLUMN 11, "4101",
COLUMN 18, "VARIACION GASTOS INDIRECTO",
COLUMN 50, total1 using "###,###,##&.&&"
IF afecta = "S" THEN
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"5501",4101,null,null,null,null,
detalle1,null,total1,0,null,user,current,null,null)
END IF
PRINT COLUMN 2, "7600",
COLUMN 11, "4101",
COLUMN 18, "VARIACION GASTO INDIRECTO",
COLUMN 65, sueldo_ind using "###,###,##&.&&"
IF afecta = "S" THEN
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"7600",4101,null,null,null,null,
detalle1,null,0,sueldo_ind,null,user,current,null,null)
END IF
PRINT COLUMN 2, "5910",
COLUMN 11, "6500",
COLUMN 18, "GASTO DE FABRICACION APLICADO",
COLUMN 65, sueldo_ind using "###,###,##&.&&"
IF afecta = "S" THEN
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"5910",6500,null,null,null,null,
detalle1,null,0,sueldo_ind,null,user,current,null,null)
END IF
LET total2 = mano_obra + total1 + sueldo_ind
LET total3 = sueldo_ind * 2
###### Imprime total DEBITO y total CREDITO
SKIP 1 LINE
PRINT COLUMN 1,negrillas_on
PRINT COLUMN 50,"--------------",
COLUMN 65,"--------------"
PRINT COLUMN 35,"Totales-->",
COLUMN 50,total2 USING "###,###,##&.&&",
COLUMN 65,total3 USING "###,###,##&.&&"
SKIP 2 LINE
PRINT COLUMN 1, detalle1
PRINT COLUMN 1,comp_off,negrillas_off
SKIP 4 LINE
END REPORT
{
Esta funcion se utiliza para desplegar mensajes de los reportes de
los sistemas de Ray-O-Vac Dominicana.
Realizada por Lic. Abner Montalvo y Johnny Soto Agosto 21, 1992
}
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)
LET fecha = today USING "dd/mm/yy"
LET hora = time
DISPLAY "R A Y . O . V A C D O M I N I C A N A, S. A." AT 4,17
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
Reference in New Issue View Git Blame Copy Permalink