414 lines
14 KiB
Plaintext
414 lines
14 KiB
Plaintext
globals "cgprgb000.4gl"
|
|
DEFINE idx INT,
|
|
HANDLER om.SaxDocumentHandler,
|
|
r_output,detalle_ent STRING
|
|
|
|
|
|
FUNCTION entrada(p_vetb021,p_cgtb341,P_CLAVE1,vetb60_2,itbis,neto,
|
|
descuento,fecha2,ventas,valor_bruto,entrada,tasa,afecta,r_output)
|
|
DEFINE p_vetb021 RECORD LIKE vetb00002.*
|
|
DEFINE p_cgtb341 RECORD LIKE cgtb00034.*,
|
|
p_clave1 CHAR(12),itbis,neto,descuento,valor_bruto,tasa decimal(12,2),
|
|
entrada,afecta char(15),
|
|
HANDLER om.SaxDocumentHandler,
|
|
r_output,detalle_ent STRING
|
|
DEFINE vetb60_2 RECORD
|
|
cuenta_no_ventas char(10),
|
|
cuenta_no_itbis char(10),
|
|
cuenta_no_descuento char(10),
|
|
cuenta_no_ingresos char(10),
|
|
cuenta_no_prima char(10)
|
|
END RECORD,
|
|
fecha2 DATE,ventas char(30)
|
|
# CALL seleccionarsalida() RETURNING r_output
|
|
CALL configureoutput(r_output) RETURNING handler
|
|
|
|
START REPORT entrada04 TO XML HANDLER handler
|
|
|
|
|
|
|
|
OUTPUT TO REPORT entrada04(p_vetb021.*,p_cgtb34.*,P_CLAVE,vetb60_2.*,
|
|
itbis,neto,descuento,fecha2,ventas,valor_bruto,entrada,tasa,afecta)
|
|
|
|
|
|
|
|
|
|
FINISH REPORT entrada04
|
|
|
|
END FUNCTION
|
|
|
|
|
|
REPORT entrada04(x,f,p_clave,d,itbis,neto,descuento,fecha2,ventas,valor_bruto,entrada,tasa,afecta)
|
|
DEFINE x RECORD LIKE vetb00002.*
|
|
|
|
DEFINE f RECORD LIKE cgtb00034.*
|
|
DEFINE d RECORD
|
|
cuenta_no_ventas char(10),
|
|
cuenta_no_itbis char(10),
|
|
cuenta_no_descuento char(10),
|
|
cuenta_no_ingresos char(10),
|
|
cuenta_no_prima char(10)
|
|
END record
|
|
DEFINE vendedor,imp,imp1 CHAR (1)
|
|
DEFINE descrip_venta CHAR(22)
|
|
DEFINE descrip1,afecta CHAR(30)
|
|
DEFINE doble_on,doble_off,negrillas_on,negrillas_off,comp_on,comp_off,
|
|
doce,normal CHAR(2)
|
|
DEFINE hora CHAR(5),
|
|
p_clave CHAR(12),itbis,neto,descuento,valor_bruto,tasa decimal(12,2),
|
|
fecha2 DATE,ventas,entrada,pventas char(30)
|
|
|
|
OUTPUT
|
|
TOP MARGIN 0
|
|
LEFT MARGIN 0
|
|
BOTTOM MARGIN 2
|
|
PAGE LENGTH 100
|
|
#ORDER BY p_clave #x.sec_vend,b.cod_cia,v.cod_n
|
|
|
|
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 15
|
|
LET comp_off = ASCII 18
|
|
LET doce = ASCII 27, ASCII 77
|
|
LET normal = ASCII 27, ASCII 80}
|
|
LET hora = time
|
|
LET lj = (80 - LENGTH(p_compania.nombre CLIPPED))/2
|
|
|
|
PRINT comp_off
|
|
PRINT COLUMN 1, "edprrp004",
|
|
COLUMN lj,p_compania.nombre CLIPPED,
|
|
COLUMN 75, "Pag. ",pageno using "###"
|
|
LET l = (80 - LENGTH("Sistema de Entradas Al Diario")) / 2
|
|
PRINT COLUMN l, "Sistema de Entradas Al Diario",
|
|
COLUMN 75, today using "dd/mm/yyyy"
|
|
IF ventas = "1" THEN
|
|
|
|
LET pventas= "LOCALES"
|
|
DISPLAY pventas
|
|
ELSE
|
|
IF ventas = "2" THEN
|
|
LET pventas= "EXPORTACION"
|
|
END IF
|
|
IF ventas = "3" THEN
|
|
LET pventas= "LOCALES USD$"
|
|
END IF
|
|
END IF
|
|
LET l = (80 - LENGTH("Ventas")) / 2
|
|
PRINT COLUMN l, "Ventas ",pventas,
|
|
COLUMN 78, hora
|
|
|
|
PRINT COLUMN 34, "Al ",fecha2 USING "dd/mm/yyyy"
|
|
|
|
-- IF pageno > 1 THEN
|
|
PRINT COLUMN 1,ASCII 18,ASCII 27, ASCII 80
|
|
PRINT COLUMN 01,"Entrada de Diario No.",
|
|
doble_on,entrada,doble_off
|
|
PRINT COLUMN 1,"Observaciones: _____________________________________"
|
|
PRINT COLUMN 1," _____________________________________",
|
|
COLUMN 10,"TASA",tasa
|
|
PRINT COLUMN 1,
|
|
"--------------------------------------------------",
|
|
"----------------------------------------",
|
|
negrillas_on
|
|
|
|
PRINT COLUMN 2, "Cuenta ",
|
|
COLUMN 11, "Dpto",
|
|
COLUMN 18, "Concepto",
|
|
COLUMN 50, "Debe",
|
|
COLUMN 71, "Haber",negrillas_off
|
|
|
|
PRINT COLUMN 1,
|
|
"--------------------------------------------------",
|
|
"----------------------------------------"
|
|
|
|
|
|
|
|
ON LAST ROW
|
|
|
|
IF ventas!=1 THEN
|
|
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_prima
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
|
|
LET debito1 = 0
|
|
LET debito1 = SUM(x.neto) using "(((,(((,##&.&&)"
|
|
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 <> 0 THEN
|
|
# LET debito = debito + debito1
|
|
PRINT COLUMN 2, d.cuenta_no_prima,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 50, neto using "(((,(((,##&.&&)"
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_prima,null,null,null,
|
|
null,null,detalle,null,neto,0,null,
|
|
user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
|
|
|
|
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_ingresos
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
|
|
LET debito1 = 0
|
|
LET debito1 = (neto*tasa)-neto using "(((,(((,##&.&&)"
|
|
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
|
|
IF debito1 <> 0 THEN
|
|
# LET debito = debito + debito1
|
|
PRINT COLUMN 2, d.cuenta_no_ingresos,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 50, debito1 using "(((,(((,##&.&&)"
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_ingresos,null,null,null,
|
|
null,null,detalle,null,debito1,0,null,
|
|
user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_descuento
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
|
|
LET debito1 = 0
|
|
LET debito1 = descuento*tasa using "(((,(((,##&.&&)"
|
|
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 <> 0 THEN
|
|
# LET debito = debito + debito1
|
|
PRINT COLUMN 2, d.cuenta_no_descuento,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 50, debito1 using "(((,(((,##&.&&)"
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_descuento,null,null,null,
|
|
null,null,detalle,null,debito1,0,null,
|
|
user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
|
|
LET nombre_cta = NULL
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_itbis
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
LET credito1 = 0
|
|
LET credito1 = itbis*tasa using "(((,(((,##&.&&)"
|
|
|
|
IF credito1 IS NULL THEN
|
|
LET credito1 = 0
|
|
END IF
|
|
IF credito1 <> 0 THEN
|
|
# LET credito = credito + credito1
|
|
PRINT COLUMN 2, d.cuenta_no_itbis,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 65, credito1 using "((#,###,##&.&&)"
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_itbis,null,null,
|
|
null,null,null,detalle,null,0,
|
|
credito1,null,user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
|
|
LET nombre_cta = NULL
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_ventas
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
LET credito1 = 0
|
|
LET credito1 = valor_bruto*tasa using "(((,(((,##&.&&)"
|
|
|
|
IF credito1 IS NULL THEN
|
|
LET credito1 = 0
|
|
END IF
|
|
IF credito1 <> 0 THEN
|
|
# LET credito = credito + credito1
|
|
PRINT COLUMN 2, d.cuenta_no_ventas,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 65, credito1 using "((#,###,##&.&&)"
|
|
DISPLAY afecta
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_ventas,null,null,
|
|
null,null,null,detalle,null,0,
|
|
credito1,null,user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
LET debito =(neto*tasa)+(descuento*tasa)
|
|
LET credito =(valor_bruto*tasa)+(itbis*tasa)
|
|
PRINT COLUMN 50,"--------------",
|
|
COLUMN 65,"--------------"
|
|
PRINT COLUMN 35,"Totales-->",
|
|
COLUMN 50,debito USING "###,###,##&.&&",
|
|
COLUMN 65,credito USING "###,###,##&.&&",negrillas_off
|
|
ELSE
|
|
#-----------------------------------------------------------------------------
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_ingresos
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
|
|
LET debito1 = 0
|
|
LET debito1 = neto using "(((,(((,##&.&&)"
|
|
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 <> 0 THEN
|
|
# LET debito = debito + debito1
|
|
PRINT COLUMN 2, d.cuenta_no_ingresos,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 50, debito1 using "(((,(((,##&.&&)"
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_ingresos,null,null,null,
|
|
null,null,detalle,null,debito1,0,null,
|
|
user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_descuento
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
|
|
LET debito1 = 0
|
|
LET debito1 = descuento using "(((,(((,##&.&&)"
|
|
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 IS NULL THEN
|
|
LET debito1 = 0
|
|
END IF
|
|
IF debito1 <> 0 THEN
|
|
#LET debito = debito + debito1
|
|
PRINT COLUMN 2, d.cuenta_no_descuento,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 50, debito1 using "(((,(((,##&.&&)"
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_descuento,null,null,null,
|
|
null,null,detalle,null,debito1,0,null,
|
|
user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
|
|
LET nombre_cta = NULL
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_itbis
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
LET credito1 = 0
|
|
LET credito1 = itbis using "(((,(((,##&.&&)"
|
|
|
|
IF credito1 IS NULL THEN
|
|
LET credito1 = 0
|
|
END IF
|
|
IF credito1 <> 0 THEN
|
|
# LET credito = credito + credito1
|
|
PRINT COLUMN 2, d.cuenta_no_itbis,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 65, credito1 using "((#,###,##&.&&)"
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_itbis,null,null,
|
|
null,null,null,detalle,null,0,
|
|
credito1,null,user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
|
|
LET nombre_cta = NULL
|
|
SELECT a.descripcion INTO nombre_cta
|
|
FROM cgtb00001 a WHERE a.cuenta_no = d.cuenta_no_ventas
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET nombre_cta = "NO EXISTE CTA"
|
|
END IF
|
|
LET credito1 = 0
|
|
LET credito1 = valor_bruto using "(((,(((,##&.&&)"
|
|
|
|
IF credito1 IS NULL THEN
|
|
LET credito1 = 0
|
|
END IF
|
|
IF credito1 <> 0 THEN
|
|
# LET credito = credito + credito1
|
|
PRINT COLUMN 2, d.cuenta_no_ventas,
|
|
COLUMN 18, nombre_cta CLIPPED,
|
|
COLUMN 65, credito1 using "((#,###,##&.&&)"
|
|
|
|
IF afecta = "S" THEN
|
|
INSERT INTO cgtb00004 VALUES(fecha2,1,entrada,d.cuenta_no_ventas,null,null,
|
|
null,null,null,detalle,null,0,
|
|
credito1,null,user,GETDATE(),null,null)
|
|
END IF
|
|
END IF
|
|
LET debito =(neto*tasa)+(descuento*tasa)
|
|
LET credito =(valor_bruto*tasa)+(itbis*tasa)
|
|
PRINT COLUMN 50,"--------------",
|
|
COLUMN 65,"--------------"
|
|
PRINT COLUMN 35,"Totales-->",
|
|
COLUMN 50,debito USING "###,###,##&.&&",
|
|
COLUMN 65,credito USING "###,###,##&.&&",negrillas_off
|
|
END IF
|
|
|
|
SKIP 30 LINE
|
|
PRINT COLUMN 10,"--------------",
|
|
COLUMN 35,"--------------",
|
|
COLUMN 60,"--------------"
|
|
PRINT COLUMN 10,"PREPARADO POR",
|
|
COLUMN 35," REVISADO POR ",
|
|
COLUMN 60,"AUTORIZADO POR"
|
|
|
|
#LET material1 = 0
|
|
#LET mano_ob1 = 0
|
|
#LET gasto1 = 0
|
|
##LET material6 = 0
|
|
#LET total1 = 0
|
|
SKIP 2 LINE
|
|
PRINT COLUMN 1, detalle
|
|
PRINT COLUMN 1,comp_off,negrillas_off
|
|
SKIP 4 LINE
|
|
|
|
END REPORT
|