Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,645 @@
|
||||
{
|
||||
-------------------------------------------------------------------------------
|
||||
PROGRAMA : EDPRRP029
|
||||
OBJETIVO : Entrada Devoluciones sobre ventas
|
||||
PROGRAMADOR : Ing. Juan F. Soto
|
||||
FECHA REALIZACION : Julio 11, 1994
|
||||
-------------------------------------------------------------------------------
|
||||
}
|
||||
SCHEMA smarmotech
|
||||
|
||||
GLOBALS
|
||||
"cgprgb000.4gl"
|
||||
DEFINE ultimo INT,
|
||||
tiempo VARCHAR(4),
|
||||
container DEC(10,2),
|
||||
idEntrada INT
|
||||
|
||||
MAIN
|
||||
DEFER INTERRUPT
|
||||
CALL ARG_VAL(1) RETURNING usuarios
|
||||
CALL ARG_VAL(2) RETURNING clave
|
||||
|
||||
# CONNECT TO "marmotech" AS "IFMX" USER usuarios USING clave
|
||||
CONNECT to "smarmotech" AS "MSSQL" USER usuarios USING clave
|
||||
SELECT a.* INTO p_compania.* FROM companias a
|
||||
|
||||
CALL edprrp029()
|
||||
END MAIN
|
||||
|
||||
FUNCTION edprrp029()
|
||||
|
||||
|
||||
DEFINE rventas RECORD
|
||||
compania SMALLINT,
|
||||
factura INTEGER,
|
||||
fecha_factura DATE,
|
||||
tipo_cliente SMALLINT,
|
||||
sec_cliente SMALLINT,
|
||||
nombre VARCHAR(30),
|
||||
monto_bruto DECIMAL(10,2),
|
||||
monto_desc DECIMAL(10,2),
|
||||
monto_itbi DECIMAL(10,2),
|
||||
monto_neto DECIMAL(10,2),
|
||||
status_t CHAR(1) ,
|
||||
descripcion VARCHAR(20),
|
||||
cuenta_no_ventas VARCHAR(10),
|
||||
cuenta_no_prima VARCHAR(10) ,
|
||||
cuenta_no_itbis VARCHAR(10),
|
||||
cuenta_no_Devolucion VARCHAR(10),
|
||||
cuenta_no_descuento VARCHAR(10),
|
||||
tasa DEC(10,2)
|
||||
END RECORD
|
||||
|
||||
# WHENEVER ERROR CONTINUE
|
||||
|
||||
OPTIONS
|
||||
FORM LINE 8,
|
||||
ERROR LINE 23,
|
||||
COMMENT LINE 21
|
||||
|
||||
OPEN FORM edfmrp029 FROM "edfmrp029"
|
||||
DISPLAY FORM edfmrp029
|
||||
|
||||
LET tipo_papel = 1
|
||||
LET container = 0
|
||||
CALL msgrp000(tipo_papel)
|
||||
|
||||
|
||||
INPUT BY NAME ventas,fecha_inicial,
|
||||
fecha_final,entrada, detalle1,afecta
|
||||
BEFORE INPUT
|
||||
LET pventas = ui.combobox.forname("formonly.ventas")
|
||||
CALL cventas()
|
||||
|
||||
AFTER FIELD entrada
|
||||
SELECT unique ref FROM cgtb00004
|
||||
WHERE ref = entrada
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
ERROR "(12) REGISTRO EXISTE"
|
||||
# NEXT FIELD entra
|
||||
END IF
|
||||
|
||||
LET entra1 = entrada
|
||||
|
||||
|
||||
AFTER FIELD fecha_final
|
||||
IF fecha_final is null THEN
|
||||
ERROR "(16) CAMPO EN BLANCO"
|
||||
NEXT FIELD fecha_final
|
||||
END IF
|
||||
|
||||
IF fecha_inicial > fecha_final THEN
|
||||
ERROR "(149) FECHA NO PUEDE SER MAYOR QUE LA ANTERIOR"
|
||||
# NEXT FIELD fecha_inicial
|
||||
END IF
|
||||
{ LET tiempo=MONTH(fecha_final) USING "&&",fecha_final USING "yy"
|
||||
SELECT MAX(a.ref[7,9]) INTO ultimo FROM cgtb00004 a
|
||||
WHERE a.ref[1,5] = 'ED.07' and a.ref[11,14] = tiempo
|
||||
|
||||
IF ultimo is null THEN
|
||||
LET ultimo = 0
|
||||
END IF
|
||||
LET ultimo = ultimo + 1
|
||||
LET entrada='ED.07-',ultimo USING "&&&","/",tiempo}
|
||||
LET idEntrada = 17;
|
||||
CALL controlNumericoED(idEntrada,fecha_final, NULL) RETURNING entrada
|
||||
DISPLAY "entrada: ",entrada
|
||||
|
||||
DISPLAY BY NAME entrada
|
||||
|
||||
###### Selecionando en rango de fecha de la tabla de periodo para el fecha_final
|
||||
|
||||
SELECT UNIQUE a.ref FROM cgtb00004 a where a.ref = entrada
|
||||
|
||||
IF STATUS != NOTFOUND THEN
|
||||
ERROR "(12) REGISTRO EXISTE"
|
||||
# NEXT FIELD fecha_final
|
||||
END IF
|
||||
|
||||
|
||||
BEFORE FIELD fecha_final
|
||||
LET fecha_final = today
|
||||
|
||||
|
||||
AFTER INPUT
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
IF fecha_inicial is null THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha_inicial
|
||||
END IF
|
||||
|
||||
IF fecha_final is null THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha_final
|
||||
END IF
|
||||
|
||||
IF fecha_final < fecha_inicial THEN
|
||||
LET numero_msg = 86
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha_final
|
||||
END IF
|
||||
|
||||
|
||||
EXIT INPUT
|
||||
END INPUT
|
||||
|
||||
# Busca las ventas locales para el rango de fechas especificado
|
||||
|
||||
LET selec4 =
|
||||
"SELECT a.cod_cia, a.num_doc, a.fecha_orig, a.tipo_cliente, ",
|
||||
"a.sec_cliente, b.nombre,(a.valor_cheque*-1), a.monto_desc, a.valor_efectivo,",
|
||||
"(a.valor*-1), a.status_t,c.descripcion,d.cuenta_no_ventas,d.cuenta_no_prima,d.cuenta_no_itbis, ",
|
||||
" d.cuenta_no_devolucion,d.cuenta_no_descuento,f.tasa ",
|
||||
"FROM cctb00001 a,vetb00004 b,vetb00061 c,vetb00060 d,cgtb00084 f ",
|
||||
" WHERE a.fecha_orig between ? and ? ",
|
||||
" and a.tipo_doc = 'NC' ",
|
||||
" and a.tipo_cliente = b.tipo_cliente ",
|
||||
" and a.sec_cliente = b.sec_cliente ",
|
||||
" and a.tipo_cliente = d.tipo_cliente ",
|
||||
" and c.ventas = d.ventas ",
|
||||
" and d.tipo_cliente = f.tipo_cliente ",
|
||||
" and c.ventas = f.ventas ",
|
||||
" and f.ventas = ? ",
|
||||
" and f.ano = year(a.fecha_orig) ",
|
||||
" and f.mes = month(a.fecha_orig) ",
|
||||
" and a.status_t IS NULL ",
|
||||
" ORDER BY c.descripcion,a.num_doc "
|
||||
|
||||
|
||||
PREPARE ventas_locales FROM selec4
|
||||
DECLARE facturas CURSOR FOR ventas_locales
|
||||
OPEN facturas USING fecha_inicial, fecha_final,ventas
|
||||
|
||||
|
||||
LET idx = 1
|
||||
FOREACH facturas INTO rventas.*
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
IF idx = 1 THEN
|
||||
CALL configureoutput("SVG") RETURNING handler
|
||||
START REPORT prn_credito TO XML HANDLER HANDLER
|
||||
|
||||
END IF
|
||||
|
||||
IF rventas.status_t = "E" or rventas.status_t = "D" THEN
|
||||
LET rventas.monto_bruto = 0
|
||||
LET rventas.monto_desc = 0
|
||||
LET rventas.monto_itbi = 0
|
||||
LET rventas.monto_neto = 0
|
||||
END IF
|
||||
|
||||
{IF rventas.monto_bruto < 0 THEN
|
||||
LET rventas.monto_bruto = rventas.monto_bruto * -1
|
||||
END IF
|
||||
|
||||
IF rventas.monto_desc < 0 THEN
|
||||
LET rventas.monto_desc = rventas.monto_desc * -1
|
||||
END IF
|
||||
|
||||
IF rventas.monto_itbi < 0 THEN
|
||||
LET rventas.monto_itbi = rventas.monto_itbi * -1
|
||||
END IF }
|
||||
|
||||
LET idx = idx + 1
|
||||
OUTPUT TO REPORT prn_credito(rventas.*)
|
||||
|
||||
END FOREACH
|
||||
IF idx > 1 THEN
|
||||
FINISH REPORT prn_credito
|
||||
|
||||
ELSE
|
||||
CALL fgl_winmessage("INFO","NO EXISTEN REGISTROS CON ESTAS CONDICIONES","INFO")
|
||||
END IF
|
||||
{ IF fgl_report_loadCurrentSettings("formato_entrada.4rp") THEN -- load the .4rp file
|
||||
CALL fgl_report_selectDevice("SVG") -- changing default
|
||||
CALL fgl_report_selectPreview(1)
|
||||
LET handler = fgl_report_commitCurrentSettings()
|
||||
START REPORT prn_credito TO XML HANDLER HANDLER
|
||||
|
||||
ELSE
|
||||
CALL fgl_winmessage("ERROR","NO SE ENCONTRO TEMPLATE","INFO")
|
||||
END IF
|
||||
}
|
||||
|
||||
DECLARE entrada CURSOR FOR ventas_locales
|
||||
OPEN entrada USING fecha_inicial, fecha_final,ventas
|
||||
|
||||
|
||||
LET idx = 1
|
||||
FOREACH entrada INTO rventas.*
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
IF idx = 1 THEN
|
||||
CALL configureoutput("SVG") RETURNING HANDLER
|
||||
|
||||
START REPORT ed29 TO XML HANDLER HANDLER
|
||||
END IF
|
||||
|
||||
IF rventas.status_t = "E" or rventas.status_t = "D" THEN
|
||||
LET rventas.monto_bruto = 0
|
||||
LET rventas.monto_desc = 0
|
||||
LET rventas.monto_itbi = 0
|
||||
LET rventas.monto_neto = 0
|
||||
END IF
|
||||
|
||||
{IF rventas.monto_bruto < 0 THEN
|
||||
LET rventas.monto_bruto = rventas.monto_bruto * -1
|
||||
END IF
|
||||
|
||||
IF rventas.monto_desc < 0 THEN
|
||||
LET rventas.monto_desc = rventas.monto_desc * -1
|
||||
END IF
|
||||
|
||||
IF rventas.monto_itbi < 0 THEN
|
||||
LET rventas.monto_itbi = rventas.monto_itbi * -1
|
||||
END IF }
|
||||
|
||||
LET idx = idx + 1
|
||||
|
||||
OUTPUT TO REPORT ed29(rventas.*)
|
||||
|
||||
END FOREACH
|
||||
IF idx > 1 THEN
|
||||
|
||||
FINISH REPORT ed29
|
||||
END IF
|
||||
END FUNCTION
|
||||
|
||||
REPORT prn_credito(x)
|
||||
DEFINE x RECORD
|
||||
compania SMALLINT,
|
||||
factura INTEGER,
|
||||
fecha_factura DATE,
|
||||
tipo_cliente SMALLINT,
|
||||
sec_cliente SMALLINT,
|
||||
nombre VARCHAR(30),
|
||||
monto_bruto DECIMAL(10,2),
|
||||
monto_desc DECIMAL(10,2),
|
||||
monto_itbi DECIMAL(10,2),
|
||||
monto_neto DECIMAL(10,2),
|
||||
status_t CHAR(1),
|
||||
descripcion VARCHAR(20),
|
||||
cuenta_no_ventas VARCHAR(10),
|
||||
cuenta_no_prima VARCHAR(10) ,
|
||||
cuenta_no_itbis VARCHAR(10),
|
||||
cuenta_no_Devolucion VARCHAR(10),
|
||||
cuenta_no_descuento VARCHAR(10),
|
||||
tasa DEC(10,2)
|
||||
|
||||
END RECORD,
|
||||
p_neto,p_itbi DEC(12,2)
|
||||
|
||||
DEFINE hora CHAR(5)
|
||||
|
||||
OUTPUT
|
||||
PAGE LENGTH 100
|
||||
TOP MARGIN 0
|
||||
LEFT MARGIN 0
|
||||
BOTTOM MARGIN 2
|
||||
ORDER BY x.descripcion
|
||||
FORMAT
|
||||
PAGE HEADER
|
||||
LET hora = time
|
||||
|
||||
|
||||
PRINT COLUMN 1, "edprrp029",
|
||||
COLUMN 43, p_compania.nombre,
|
||||
COLUMN 126, "Pag.",
|
||||
COLUMN 131, pageno using "###"
|
||||
PRINT COLUMN 51, " Sistema de Ventas ",
|
||||
COLUMN 124, today using "dd/mm/yyyy"
|
||||
|
||||
PRINT COLUMN 51, "Valorizacion Notas De Creditos",
|
||||
COLUMN 129, hora
|
||||
|
||||
PRINT COLUMN 53, "Del ", fecha_inicial using "dd/mm/yyyy",
|
||||
" Al ", fecha_final using "dd/mm/yyyy"
|
||||
SKIP 1 LINES
|
||||
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------",
|
||||
"--------------------------------------------------",
|
||||
"----------------------------------"
|
||||
|
||||
|
||||
PRINT COLUMN 1, "Documen",
|
||||
COLUMN 11, "Fecha",
|
||||
COLUMN 20, "C l i e n t e",
|
||||
COLUMN 66, "Monto RD$",
|
||||
COLUMN 81, "Descuento",
|
||||
COLUMN 97, "Neto RD$",
|
||||
COLUMN 115, "Itbis",
|
||||
COLUMN 129, "Valor "
|
||||
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------",
|
||||
"--------------------------------------------------" ,
|
||||
"----------------------------------"
|
||||
# , negrillas_off
|
||||
|
||||
BEFORE GROUP OF x.descripcion
|
||||
PRINT x.descripcion
|
||||
SKIP 1 LINE
|
||||
ON EVERY ROW
|
||||
|
||||
LET nom_cli = NULL
|
||||
|
||||
|
||||
|
||||
IF x.status_t IS NULL THEN
|
||||
SELECT a.nombre INTO nom_cli FROM vetb00004 a
|
||||
WHERE a.tipo_cliente = x.tipo_cliente and
|
||||
a.sec_cliente = x.sec_cliente and
|
||||
a.status_t is NULL
|
||||
|
||||
IF nom_cli IS NULL THEN
|
||||
LET nom_cli = "Cliente no existe. Verifique"
|
||||
END IF
|
||||
ELSE
|
||||
LET nom_cli = "NULA"
|
||||
END IF
|
||||
|
||||
PRINT
|
||||
COLUMN 1, x.factura using "######",
|
||||
COLUMN 9, x.fecha_factura using "dd/mm/yy",
|
||||
COLUMN 20, x.tipo_cliente using "&&","-",
|
||||
x.sec_cliente using "&&&&&&"," ", x.nombre,
|
||||
COLUMN 60, x.monto_bruto using "####,###,###.##",
|
||||
COLUMN 71, x.monto_desc using "####,###,###.##",
|
||||
COLUMN 82, x.monto_bruto - x.monto_desc
|
||||
using "####,###,###.##",
|
||||
COLUMN 93, x.monto_itbi using "####,###,###.##",
|
||||
COLUMN 104, x.monto_bruto - x.monto_desc +
|
||||
x.monto_itbi using "####,###,###.##"
|
||||
|
||||
AFTER GROUP OF x.descripcion
|
||||
SKIP 1 LINE
|
||||
PRINT
|
||||
# COLUMN 1, negrillas_on,
|
||||
COLUMN 28, "Total ",x.descripcion," ---> ",
|
||||
COLUMN 60, GROUP SUM(x.monto_bruto) using "####,###,###.##",
|
||||
COLUMN 71, GROUP SUM(x.monto_desc) using "####,###,###.##",
|
||||
COLUMN 82, GROUP SUM(x.monto_bruto - x.monto_desc)
|
||||
using "####,###,###.##",
|
||||
COLUMN 93, GROUP SUM(x.monto_itbi) using "####,###,###.##",
|
||||
COLUMN 104, GROUP SUM(x.monto_bruto - x.monto_desc +
|
||||
x.monto_itbi) using "####,###,###.##"
|
||||
#
|
||||
|
||||
ON LAST ROW
|
||||
SKIP 1 LINE
|
||||
|
||||
LET p_neto = SUM(x.monto_bruto - x.monto_desc + x.monto_itbi)
|
||||
LET p_itbi = SUM(x.monto_itbi)
|
||||
|
||||
PRINT
|
||||
COLUMN 28, "Total General ---> ",
|
||||
COLUMN 60, SUM(x.monto_bruto) using "####,###,###.##",
|
||||
COLUMN 71, SUM(x.monto_desc) using "####,###,###.##",
|
||||
COLUMN 82, SUM(x.monto_bruto - x.monto_desc)
|
||||
using "####,###,###.##",
|
||||
COLUMN 93, SUM(x.monto_itbi) using "####,###,###.##",
|
||||
COLUMN 104, SUM(x.monto_bruto - x.monto_desc + x.monto_itbi)
|
||||
using "####,###,###.##"
|
||||
IF x.tasa > 1 THEN
|
||||
|
||||
PRINT
|
||||
COLUMN 28, "Total General ",x.tasa USING "###.##",
|
||||
COLUMN 60, SUM(x.monto_bruto*x.tasa) using "####,###,###.##",
|
||||
COLUMN 71, SUM(x.monto_desc*x.tasa) using "####,###,###.##",
|
||||
COLUMN 82, SUM(x.monto_bruto - x.monto_desc) *x.tasa
|
||||
using "####,###,###.##",
|
||||
COLUMN 93, SUM(x.monto_itbi)*x.tasa using "####,###,###.##",
|
||||
COLUMN 104, SUM(x.monto_bruto - x.monto_desc + x.monto_itbi) *x.tasa
|
||||
using "####,###,###.##"
|
||||
|
||||
END IF
|
||||
|
||||
|
||||
END REPORT
|
||||
REPORT ed29(x)
|
||||
DEFINE x RECORD
|
||||
compania SMALLINT,
|
||||
factura INTEGER,
|
||||
fecha_factura DATE,
|
||||
tipo_cliente SMALLINT,
|
||||
sec_cliente SMALLINT,
|
||||
nombre VARCHAR(30),
|
||||
monto_bruto DECIMAL(10,2),
|
||||
monto_desc DECIMAL(10,2),
|
||||
monto_itbi DECIMAL(10,2),
|
||||
monto_neto DECIMAL(10,2),
|
||||
status_t CHAR(1) ,
|
||||
descripcion VARCHAR(20),
|
||||
cuenta_no_ventas VARCHAR(10),
|
||||
cuenta_no_prima VARCHAR(10) ,
|
||||
cuenta_no_itbis VARCHAR(10),
|
||||
cuenta_no_Devolucion VARCHAR(10),
|
||||
cuenta_no_descuento VARCHAR(10),
|
||||
tasa DEC(10,2)
|
||||
END RECORD,
|
||||
tdebito,tcredito,bruto,prima,descuento,itbis,neto DEC(12,2),
|
||||
descripcion_ventas,descripcion_prima,descripcion_itbis,descripcion_devolucion,descripcion_descuento
|
||||
VARCHAR(40)
|
||||
|
||||
OUTPUT
|
||||
PAGE LENGTH 100
|
||||
|
||||
FORMAT
|
||||
PAGE HEADER
|
||||
|
||||
PRINT COLUMN 1, "edprrp029",
|
||||
COLUMN 33, p_compania.nombre,
|
||||
COLUMN 75, "Pag. ",pageno using "###"
|
||||
PRINT COLUMN 35, "Sistema de Contabilidad",
|
||||
COLUMN 75, today using "dd/mm/yy"
|
||||
|
||||
PRINT COLUMN 29, "Entrada Devoluciones Sobre Ventas ",
|
||||
COLUMN 75, time
|
||||
|
||||
PRINT COLUMN 34, "Del ",fecha_inicial USING "dd/mm/yyyy",
|
||||
" Al ",fecha_final USING "dd/mm/yyyy"
|
||||
# , negrillas_off
|
||||
|
||||
SKIP 1 LINE
|
||||
|
||||
PRINT COLUMN 01,"Entrada de Diario No.",entrada
|
||||
SKIP 1 LINE
|
||||
PRINT COLUMN 1,"Observaciones: REGISTRO DEVOLUCIONES ",x.descripcion
|
||||
SKIP 1 LINE
|
||||
PRINT COLUMN 1," _____________________________________"
|
||||
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------",
|
||||
"----------------------------------------"
|
||||
|
||||
PRINT COLUMN 2, "Cuenta ",
|
||||
COLUMN 11, "Dpto",
|
||||
COLUMN 18, "Concepto",
|
||||
COLUMN 66, "Debe",
|
||||
COLUMN 81, "Haber"
|
||||
|
||||
PRINT COLUMN 1,
|
||||
"--------------------------------------------------",
|
||||
"----------------------------------------"
|
||||
|
||||
|
||||
ON LAST ROW
|
||||
LET bruto = SUM(x.monto_bruto)*x.tasa
|
||||
LET descuento =SUM(x.monto_desc)*x.tasa
|
||||
LET itbis = SUM(x.monto_itbi)*x.tasa
|
||||
LET neto = SUM(x.monto_bruto - x.monto_desc + x.monto_itbi)
|
||||
|
||||
LET tdebito=SUM(x.monto_bruto)*x.tasa+SUM(x.monto_itbi)*x.tasa
|
||||
LET descripcion_prima = NULL
|
||||
IF x.cuenta_no_prima IS NOT NULL THEN
|
||||
|
||||
SELECT a.descripcion INTO descripcion_prima FROM cgtb00001 a
|
||||
WHERE a.cuenta_no = x.cuenta_no_prima
|
||||
|
||||
LET prima = SUM(x.monto_bruto - x.monto_desc + x.monto_itbi)*(x.tasa-1)
|
||||
LET tcredito = SUM(x.monto_desc*x.tasa)+SUM(x.monto_bruto - x.monto_desc + x.monto_itbi)+
|
||||
prima
|
||||
|
||||
ELSE
|
||||
LET tcredito = SUM(x.monto_desc)+SUM(x.monto_bruto - x.monto_desc + x.monto_itbi)
|
||||
|
||||
END IF
|
||||
|
||||
SELECT a.descripcion INTO descripcion_Devolucion FROM cgtb00001 a
|
||||
WHERE a.cuenta_no = x.cuenta_no_Devolucion
|
||||
|
||||
SELECT a.descripcion INTO descripcion_ventas FROM cgtb00001 a
|
||||
WHERE a.cuenta_no = x.cuenta_no_ventas
|
||||
|
||||
SELECT a.descripcion INTO descripcion_itbis FROM cgtb00001 a
|
||||
WHERE a.cuenta_no = x.cuenta_no_itbis
|
||||
|
||||
SELECT a.descripcion INTO descripcion_Descuento FROM cgtb00001 a
|
||||
WHERE a.cuenta_no = x.cuenta_no_descuento
|
||||
|
||||
PRINT COLUMN 2, x.cuenta_no_Devolucion,"4101"," ",descripcion_devolucion,
|
||||
COLUMN 60, SUM(x.monto_bruto)*x.tasa USING "###,###,###.##"
|
||||
PRINT COLUMN 2, x.cuenta_no_itbis,"4101"," ",descripcion_itbis,
|
||||
COLUMN 60, SUM(x.monto_itbi)*x.tasa USING "###,###,###.##"
|
||||
|
||||
|
||||
PRINT COLUMN 2, x.cuenta_no_descuento,"4101"," ",descripcion_descuento,
|
||||
COLUMN 75, SUM(x.monto_desc*x.tasa) USING "###,###,###.##"
|
||||
|
||||
PRINT COLUMN 2, x.cuenta_no_ventas,"4101"," ",descripcion_ventas,
|
||||
COLUMN 75, SUM(x.monto_bruto - x.monto_desc + x.monto_itbi) USING "###,###,###.##"
|
||||
IF x.cuenta_no_prima IS NOT NULL THEN
|
||||
PRINT COLUMN 2, x.cuenta_no_prima,"4101"," ",descripcion_prima,
|
||||
COLUMN 75, prima USING "###,###,###.##"
|
||||
END IF
|
||||
SKIP 1 LINE
|
||||
PRINT COLUMN 62,"============",
|
||||
COLUMN 77,"============"
|
||||
PRINT COLUMN 60, tdebito USING "###,###,###.##",
|
||||
COLUMN 75, tcredito USING "###,###,###.##"
|
||||
|
||||
SKIP 3 LINES
|
||||
PRINT COLUMN 1, detalle1
|
||||
IF afecta = "SI" THEN
|
||||
BEGIN WORK
|
||||
CALL controlNumericoED(idEntrada,fecha_final, usuarios) RETURNING entrada
|
||||
DISPLAY "entrada real: ",entrada
|
||||
DISPLAY BY NAME entrada
|
||||
|
||||
INSERT INTO cgtb00004 (fecha, tipo, ref, cuenta_no,departamento, num_doc,
|
||||
cod_aux, cod_sec, detalles, detalle_1, detalle_2, debito, credito, status_t,
|
||||
us_crea, fech_crea, us_mod, fech_mod)
|
||||
VALUES(fecha_final,1,entrada,x.cuenta_no_Devolucion,4101,
|
||||
null,null,null,null,
|
||||
detalle1,null,bruto,0,null,usuarios,getdate(),null,null)
|
||||
|
||||
INSERT INTO cgtb00004 (fecha, tipo, ref, cuenta_no,departamento, num_doc,
|
||||
cod_aux, cod_sec, detalles, detalle_1, detalle_2, debito, credito, status_t,
|
||||
us_crea, fech_crea, us_mod, fech_mod)
|
||||
VALUES(fecha_final,1,entrada,x.cuenta_no_itbis,4101,
|
||||
null,null,null,null,
|
||||
detalle1,null,itbis,0,null,usuarios,getdate(),null,null)
|
||||
|
||||
INSERT INTO cgtb00004 (fecha, tipo, ref, cuenta_no,departamento, num_doc,
|
||||
cod_aux, cod_sec, detalles, detalle_1, detalle_2, debito, credito, status_t,
|
||||
us_crea, fech_crea, us_mod, fech_mod)
|
||||
VALUES(fecha_final,1,entrada,x.cuenta_no_descuento,null,
|
||||
null,null,null,null,
|
||||
detalle1,null,0,descuento,null,usuarios,getdate(),null,null)
|
||||
|
||||
INSERT INTO cgtb00004 (fecha, tipo, ref, cuenta_no,departamento, num_doc,
|
||||
cod_aux, cod_sec, detalles, detalle_1, detalle_2, debito, credito, status_t,
|
||||
us_crea, fech_crea, us_mod, fech_mod)
|
||||
VALUES(fecha_final,1,entrada,x.cuenta_no_ventas,4101,
|
||||
null,null,null,null,
|
||||
detalle1,null,0,neto,null,usuarios,getdate(),null,null)
|
||||
|
||||
IF x.cuenta_no_prima IS NOT NULL THEN
|
||||
|
||||
INSERT INTO cgtb00004 (fecha, tipo, ref, cuenta_no,departamento, num_doc,
|
||||
cod_aux, cod_sec, detalles, detalle_1, detalle_2, debito, credito, status_t,
|
||||
us_crea, fech_crea, us_mod, fech_mod)
|
||||
VALUES(fecha_final,1,entrada,x.cuenta_no_prima,4101,
|
||||
null,null,null,null,
|
||||
detalle1,null,0,prima,null,usuarios,getdate(),null,null)
|
||||
|
||||
END IF
|
||||
|
||||
|
||||
COMMIT WORK
|
||||
END IF
|
||||
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
|
||||
}
|
||||
|
||||
|
||||
# Desplega pantalla con logo de la compania
|
||||
{
|
||||
Esta funcion se utiliza para desplegar mensajes de errores en todos
|
||||
los sistemas de Ray-O-Vac Dominicana.
|
||||
Esta funcion busca el mensaje deseado en la tabla "msgtable" y lo
|
||||
despliega en la linea de mensajes
|
||||
}
|
||||
|
||||
FUNCTION msg(numero_msg)
|
||||
DEFINE numero_msg SMALLINT
|
||||
DEFINE descripcion CHAR (60)
|
||||
SELECT desc_msg INTO descripcion FROM msgtable
|
||||
WHERE cod_msg = numero_msg
|
||||
|
||||
IF status = NOTFOUND THEN
|
||||
LET numero_msg = 22
|
||||
SELECT desc_msg INTO descripcion FROM msgtable
|
||||
WHERE cod_msg = numero_msg
|
||||
ERROR descripcion ATTRIBUTE(BOLD)
|
||||
ELSE
|
||||
ERROR descripcion ATTRIBUTE(BOLD)
|
||||
LET numero_msg = 0
|
||||
END IF
|
||||
END FUNCTION
|
||||
|
||||
Reference in New Issue
Block a user