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

369 lines
11 KiB
Plaintext
Raw Blame History

{
-------------------------------------------------------------------------------
PROGRAMA : EDPRRP064
OBJETIVO : Listar las Entrada de Diario Provision Seguro Maritimo
PROGRAMADOR : Juan F. Soto
FECHA REALIZACION : Mayo 20, 1994.
-------------------------------------------------------------------------------
}
DATABASE rayovac
GLOBALS
###### Variables para busqueda de rango de fecha
DEFINE afecta CHAR(1)
DEFINE detalle CHAR(30)
DEFINE mes SMALLINT
DEFINE ano CHAR(4)
DEFINE tasa DECIMAL(5,2)
DEFINE p_fecha,fecha1, fecha2 DATE
DEFINE nominas CHAR(1)
DEFINE entra CHAR(14)
DEFINE entra1 CHAR(5)
DEFINE tipo_papel SMALLINT
DEFINE valor,mano_obra,sueldo_ind,monto_banco,interes DECIMAL(12,2)
DEFINE orden INTEGER
###### Variables para almacenar los datos selecionados
DEFINE criterio,selec5, selec6 CHAR(1500)
###### Variables que la almacenan la informacion enviada al reporte
DEFINE diario1 RECORD
cuenta_no SMALLINT,
mercado CHAR(1),
cod_aux SMALLINT,
cod_sec SMALLINT,
num_doc INTEGER,
debito DECIMAL(10,2)
END RECORD
END GLOBALS
MAIN
DEFER INTERRUPT
CALL edprrp064()
END MAIN
FUNCTION edprrp064()
# WHENEVER ERROR CONTINUE
OPTIONS
FORM LINE 8,
ERROR LINE 23,
COMMENT LINE 21
##### Abriendo y desplegando el formulario de captura de datos
OPEN FORM edfmrp064 FROM "edfmrp064"
DISPLAY FORM edfmrp064
CALL pantalla()
DISPLAY "edprrp064" AT 4,3
DISPLAY "Entrada de Diario Provision Seguro Maritimo" AT 6,18
LET tipo_papel = 1
CALL msgrp000(tipo_papel)
###### Aceptando los valores para el rango de fecha
INPUT BY NAME entra,fecha1,fecha2,afecta,detalle
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 INPUT
EXIT INPUT
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
CONSTRUCT BY NAME criterio ON b.cod_n,a.liquidada
# Busca la informacion requerida
LET selec6 =
"SELECT '1161',a.liquidada,",
"a.cod_sp,a.cod_sp_sec,a.num_oc,sum(b.fob+b.costo_flete) ",
"FROM cgtb00017 a,cgtb00018 b ",
"WHERE a.status_t IS NULL and ",
"a.num_oc = b.num_oc and ",
"a.tipo = b.tipo and ",
"a.rep_entrada = b.rep_entrada and ",
"a.fecha BETWEEN ? AND ? and ",
criterio clipped,
" GROUP BY 1,2,3,4,5 ",
"ORDER BY 1 "
DISPLAY "<< Buscando Informacion ... Espere Por Favor. >>" AT 19,14
ATTRIBUTE (REVERSE,BOLD)
PREPARE comando FROM selec6
DECLARE buscar CURSOR FOR comando
OPEN buscar USING fecha1,fecha2
##### Envia la Informacion al printer de contabilidad
START REPORT entrada64 TO PIPE "lp -dcentral"
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
##### Loop para enviar informacion al reporte
WHILE STATUS != NOTFOUND
FETCH buscar INTO diario1.*
IF status = NOTFOUND THEN
EXIT WHILE
END IF
IF int_flag THEN
ERROR "(2) OPERACION CANCELADA"
LET int_flag = FALSE
RETURN
END IF
IF diario1.mercado = "L" THEN
LET diario1.debito = diario1.debito
ELSE
LET diario1.debito = diario1.debito * .10
END IF
OUTPUT TO REPORT entrada64(diario1.*,fecha1,fecha2,detalle,entra)
END WHILE
FINISH REPORT entrada64
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 entrada64(x,fecha1,fecha2,detalle1,entrada)
DEFINE x RECORD
cuenta_no SMALLINT,
mercado CHAR(1),
cod_aux SMALLINT,
cod_sec SMALLINT,
num_doc INTEGER,
debito DECIMAL(10,2)
END RECORD
### Acumula los valores de las diferentes cuentas para entrada diario de nomina
DEFINE debito,credito DECIMAL(12,2)
DEFINE detalle1 CHAR(30)
DEFINE 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,"edprrp064",
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 24, "Entrada de Diario Provision Seguro Maritimo",
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 doce
PRINT COLUMN 1,
"--------------------------------------------------",
"--------------------------------------------------",
negrillas_on
PRINT COLUMN 2, "Cuenta ",
COLUMN 11, "Dpto",
COLUMN 17, "Catalogo",
COLUMN 26, "Refe",
COLUMN 41, "Concepto",
COLUMN 75, "Debe",
COLUMN 93, "Haber",negrillas_off
PRINT COLUMN 1,
"--------------------------------------------------",
"--------------------------------------------------",
negrillas_off
SKIP 1 LINE
ON EVERY ROW
IF debito is null THEN
LET debito = 0
END IF
LET debito = debito + x.debito
PRINT COLUMN 2, x.cuenta_no,
COLUMN 17, x.cod_aux using "&&","-",x.cod_sec using "&&&&",
COLUMN 26, x.num_doc using "######",
COLUMN 35, "MAT. TRANSITO - MAT. PRIMA",
COLUMN 66, x.debito using "###,###,##&.&&"
IF afecta = "S" THEN
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,x.cuenta_no,null,x.num_doc,
x.cod_aux, x.cod_sec,null,detalle1,null,x.debito,
0,null,user,current,null,null)
END IF
ON LAST ROW
###### Acumulando totales por columna
PRINT COLUMN 4, "2136",
COLUMN 18, "RESERVA DE SEGURO MARITIMO",
COLUMN 84, debito using "###,###,##&.&&"
IF afecta = "S" THEN
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"2136",null,null,null,null,
null,
detalle1,null,0,debito,null,user,current,null,null)
END IF
###### Imprime total DEBITO y total CREDITO
SKIP 1 LINE
PRINT COLUMN 1,negrillas_on
PRINT COLUMN 66,"--------------",
COLUMN 84,"--------------"
PRINT COLUMN 35,"Totales-->",
COLUMN 66,debito USING "###,###,##&.&&",
COLUMN 84,debito USING "###,###,##&.&&",negrillas_off
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