{ ------------------------------------------------------------------------------- PROGRAMA : EDPRRP014 OBJETIVO : Listar las Entrada de Diario Cobros Clientes Locales Ingresos PROGRAMADOR : Tadeo A. Ferreras FECHA REALIZACION : Julio 28, 1993 ------------------------------------------------------------------------------- } DATABASE marmotech GLOBALS ###### Variables para busqueda de rango de fecha DEFINE afecta CHAR(1), detalle CHAR(30), mes SMALLINT , ano CHAR(4) , tasa DECIMAL(5,2) , p_fecha,fecha1, fecha2 DATE , nominas CHAR(1), entra CHAR(14), entra1 CHAR(5), tipo_papel SMALLINT, mano_obra,sueldo_ind,monto_banco,interes DECIMAL(12,2), ###### Variables para almacenar los datos selecionados selec5, selec6 CHAR(1500) ###### Variables que la almacenan la informacion enviada al reporte DEFINE diario1 RECORD cuenta_no SMALLINT, descripcion CHAR(30), valor DECIMAL(10,2), monto_desc DECIMAL(10,2) END RECORD END GLOBALS MAIN DEFER INTERRUPT CALL edprrp014() END MAIN FUNCTION edprrp014() OPTIONS FORM LINE 8, ERROR LINE 23, COMMENT LINE 21 ##### Abriendo y desplegando el formulario de captura de datos OPEN FORM edfmrp014 FROM "edfmrp014" DISPLAY FORM edfmrp014 CALL pantalla() DISPLAY "edprrp014" AT 4,3 DISPLAY "Entrada de Diario Cobros Clientes Locales-Ingresos" AT 6,15 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 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 DECLARE buscar CURSOR FOR SELECT a.cuenta_no,b.descripcion,SUM(a.monto) FROM tetb00001 a,cgtb00001 b WHERE a.status_t IS NULL AND (a.cuenta_no IS NOT NULL OR a.cuenta_no != " ") and a.cuenta_no not in ("1102","1113") AND a.cuenta_no = b.cuenta_no AND a.fecha BETWEEN fecha1 AND fecha2 and a.procedencia in (1,6) GROUP BY 1,2 ORDER BY 1 DISPLAY "<< Buscando Informacion ... Espere Por Favor. >>" AT 19,14 ATTRIBUTE (REVERSE,BOLD) OPEN buscar ##### Envia la Informacion al printer de contabilidad START REPORT entrada14 TO "C:\\archivo" 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 SELECT SUM(@monto_desc) INTO diario1.monto_desc FROM cctb00001 WHERE status_t is null and cuenta_no=diario1.cuenta_no and fecha_orig between fecha1 and fecha2 and tipo_doc = "PG" IF diario1.monto_desc is null THEN LET diario1.monto_desc = 0 END IF LET diario1.monto_desc = diario1.monto_desc * -1 IF int_flag THEN ERROR "(2) OPERACION CANCELADA" LET int_flag = FALSE RETURN END IF OUTPUT TO REPORT entrada14(diario1.*,fecha1,fecha2,detalle,entra) END WHILE FINISH REPORT entrada14 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 entrada14(x,fecha1,fecha2,detalle1,entrada) DEFINE x RECORD cuenta_no SMALLINT, descripcion CHAR(30), valor DECIMAL(10,2), monto_desc DECIMAL(12,2) END RECORD ### Acumula los valores de las diferentes cuentas para entrada diario de nomina DEFINE debito,credito DECIMAL(12,2), detalle1 CHAR(30), mano_obra,sueldo_ind,monto_banco DECIMAL(12,2), total1,total2,total3,total4,total5,total6 DECIMAL(12,2), total7,total8 DECIMAL(12,2),## Acumula los totales DEBITO Y CREDITO tasa1 DECIMAL(5,2), ## Almacena la tasa de la tasa de cambio fecha1,fecha2 DATE, #### Almacena las fecha del rango de busqueda nomina CHAR(1), doble_on CHAR(2), doble_off CHAR(2), negrillas_on CHAR(6), negrillas_off CHAR(6), comp_on CHAR(2), comp_off CHAR(2) , doce CHAR(2), normal CHAR(2) , normall CHAR(3) , comprimido CHAR(3), hora CHAR(5), dpto INTEGER , nomina1 CHAR(24), 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,"edprrp014", 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 22, "Entrada de Diario Cobros Clientes Locales-Ingresos", 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, "--------------------------------------------------", "----------------------------------------" SKIP 1 LINE ON EVERY ROW IF debito is null THEN LET debito = 0 END IF IF credito is null THEN LET credito = 0 END IF IF total1 IS NULL THEN LET total1 = 0 END IF IF total2 IS NULL THEN LET total2 = 0 END IF IF total4 IS NULL THEN LET total4 = 0 END IF LET total1 = total1 + x.valor LET total2 = total2 + x.monto_desc LET debito = debito + x.valor PRINT COLUMN 2, x.cuenta_no, COLUMN 18, x.descripcion, COLUMN 50, x.valor using "###,###,##&.&&" # busca los cobros realizados en cuentas por cobrar LET total3 = 0 SELECT SUM(a.valor+a.monto_desc) INTO total3 FROM cctb00001 a WHERE a.status_t IS NULL AND a.cuenta_no = x.cuenta_no AND a.fecha_orig BETWEEN fecha1 AND fecha2 and a.tipo_doc != "DE" IF total3 IS NULL THEN LET total3 = 0 END IF LET total3 = total3 * -1 LET total4 = total4 + total3 IF afecta = "S" THEN INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,x.cuenta_no,null,null,null,null, null,detalle1,null,x.valor,0,null,user,current, null,null) END IF ON LAST ROW ###### Acumulando totales por columna PRINT COLUMN 4, "4110", COLUMN 11, "4101", COLUMN 18, "DEDUCCION S/VENTAS", COLUMN 50, total2 using "###,###,##&.&&" LET debito = debito + total2 IF afecta = "S" THEN INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"4110",4101,null,null,null, null,detalle1,null,total2,0,null,user,current, null, null) END IF IF total4 > 0 THEN LET total5 = total4 - total1 LET total5 = total2 - total5 IF total5 <> 0 THEN IF total5 > 0 THEN PRINT COLUMN 4, "8620", COLUMN 18, "OTROS", COLUMN 65, total5 using "###,###,##&.&&" LET credito = credito + total5 IF afecta = "S" THEN INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"8620",NULL,null, null,null,null,detalle1,null,0,total5, null,user,current, null,null) END IF ELSE LET total5 = total5 * -1 PRINT COLUMN 2, "8620", COLUMN 11, "2100", COLUMN 18, "OTROS", COLUMN 50, total5 using "###,###,##&.&&" LET debito = debito + total5 IF afecta = "S" THEN INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"8620",4101,null,null, null,null,detalle1,null,total5,0,null, user,current,null,null) END IF END IF END IF LET total1 = total1 + total5 END IF PRINT COLUMN 4, "1120", COLUMN 11, "4101", COLUMN 18, "CUENTAS X COBRAR CTES DOMEST.", COLUMN 65, total4 using "###,###,##&.&&" LET credito = credito + total4 IF afecta = "S" THEN INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,"1120",4101,null,null,null, null,detalle1,null,0,total4,null,user,current, null,null) END IF ###### 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,debito USING "###,###,##&.&&", COLUMN 65,credito 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 " Ejecuta impresion 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