526 lines
16 KiB
Plaintext
526 lines
16 KiB
Plaintext
SCHEMA decomarmol
|
|
|
|
GLOBALS
|
|
DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
|
|
r_filename STRING, -- filename of Report Design Document including .4rp extension
|
|
-- r_output STRING, -- output format option
|
|
preview INTEGER -- TRUE/FALSE, to set preview option
|
|
DEFINE genera_ncf CHAR(3)
|
|
DEFINE condicion RECORD LIKE vetb00012.*
|
|
DEFINE p_companias RECORD LIKE companias.*
|
|
DEFINE p_iptb01 RECORD LIKE iptb00001.*
|
|
DEFINE p_vetb44 RECORD LIKE vetb00044.*
|
|
DEFINE p_iptb20 RECORD LIKE iptb00020.*
|
|
DEFINE presupa RECORD LIKE vetb00044.*,
|
|
presupuesto RECORD LIKE vetb00045.*,
|
|
proyecto RECORD LIKE vetb00049.*,
|
|
nom_zona LIKE vetb00008.descrip,
|
|
nombre CHAR(30),
|
|
ncf RECORD LIKE vetb00071.*,
|
|
usuarios,clave CHAR(50),
|
|
ch_fecha CHAR(10),
|
|
cmd,imprime,copia,xcopia CHAR(150),archivo CHAR(80),impresor SMALLINT,
|
|
xncf,kitbis CHAR(1),
|
|
ciudades RECORD LIKE vetb00016.*,
|
|
xnum_req INT,
|
|
pbodega SMALLINT,
|
|
descrip_bodega CHAR(30),
|
|
sucnombre,strconect CHAR(50),
|
|
codigodgii CHAR(14),
|
|
descripcion_ncf CHAR(80),
|
|
kncf INTEGER,
|
|
r_output CHAR(3),
|
|
HANDLER om.SaxDocumentHandler,
|
|
fecha_vencimiento DATE
|
|
|
|
DEFINE localidad SMALLINT
|
|
|
|
DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off,
|
|
opt1 CHAR(3),
|
|
k2vendedor,pventas,pcondicion,petiquetas,ptipoNegocio,pciudad ui.combobox,
|
|
nombre_cia,nombre_area,nombre_ciudad CHAR(30),
|
|
nombre_vend,nombres,apellidos CHAR(70),
|
|
factura_e INT
|
|
|
|
|
|
DEFINE p_adtb03 RECORD LIKE adtb00003.*
|
|
DEFINE vendedorzp RECORD LIKE vetb00010.*
|
|
DEFINE unidades1 ARRAY[19] OF CHAR(14)
|
|
DEFINE decenas ARRAY[81] OF CHAR(20)
|
|
DEFINE centenas ARRAY[10] OF CHAR(20)
|
|
DEFINE miles ARRAY[9] OF CHAR(2)
|
|
DEFINE excede ARRAY[200] OF CHAR(1),
|
|
tipo_imp,p_codigo SMALLINT,
|
|
nombre_m CHAR(20),
|
|
descripcion CHAR(70)
|
|
DEFINE p_bonifica,cant_pend DYNAMIC ARRAY OF DECIMAL(12,3),
|
|
p_vetb50 RECORD LIKE vetb00050.*
|
|
|
|
DEFINE opt4,impresion,verdad,identifica,existe,tiene_facturas,
|
|
detalle,status_reg CHAR(1),
|
|
xverdad BOOLEAN,
|
|
opt3,opt string,
|
|
pcodigo CHAR(25),
|
|
criterio STRING,
|
|
selec string,
|
|
selec2 CHAR(500),
|
|
selec3 CHAR(1500),
|
|
tipo2,opcion CHAR(3),
|
|
valor_letras CHAR(90),
|
|
p_act,tipo1,longitud INTEGER,
|
|
p_fact_no CHAR(10),
|
|
p_cedula,p_serie INTEGER,
|
|
compania CHAR(50),
|
|
parametro CHAR(10),
|
|
medida CHAR(3),
|
|
descventa CHAR(11),
|
|
nombre_desc,descrip1,nombre_pt,nom_cliente CHAR(30),
|
|
descrip2 CHAR(80),
|
|
descrip3 CHAR(30),
|
|
descrip4 CHAR(30),
|
|
descrip5 CHAR(65),
|
|
descrip6 CHAR(45),
|
|
zona_p CHAR(30),
|
|
provincia_p CHAR(30),
|
|
tipo_papel, curr2,curr, curr1, fila, scr_l SMALLINT,
|
|
ano1,ano_c CHAR(4),
|
|
desc_valor CHAR(10),
|
|
sub_total CHAR(14),
|
|
itbi CHAR(14),
|
|
total_fact CHAR(14),
|
|
p_fecha_ven DATE,
|
|
p_existencia, p_costos,p_precio DECIMAL (12,5),
|
|
p_cantidad_1,p_costos1 DECIMAL (12,5),
|
|
p_costos2,xmonto DECIMAL (12,2),
|
|
p_cantidad_2,p_cantidad,p_costos3 DECIMAL (12,5),
|
|
valor_orig DECIMAL (12,5),
|
|
t_costos DECIMAL (12,5),
|
|
lj,idx INTEGER,
|
|
unidades DECIMAL(12,5),
|
|
dias_v ,h SMALLINT,
|
|
p_desc DECIMAL(10,3)
|
|
|
|
DEFINE numero_msg LIKE msgtable.cod_msg
|
|
DEFINE zona RECORD LIKE vetb00008.*
|
|
DEFINE provincia RECORD LIKE vetb00020.*
|
|
DEFINE datos RECORD LIKE vetb00019.*
|
|
DEFINE zonap RECORD LIKE vetb00009.*
|
|
DEFINE pago RECORD LIKE vetb00012.*
|
|
DEFINE medidas RECORD LIKE vetb00014.*
|
|
DEFINE pterminado RECORD LIKE iptb00002.*
|
|
DEFINE descuento RECORD LIKE vetb00013.*
|
|
DEFINE descuentoh RECORD LIKE vetb00027.*
|
|
DEFINE transportista RECORD LIKE vetb00015.*
|
|
DEFINE comisiones RECORD LIKE vetb00011.*
|
|
DEFINE cliente_bas RECORD LIKE vetb00004.*
|
|
DEFINE cliente_dir RECORD LIKE vetb00005.*
|
|
DEFINE cliente_eco RECORD LIKE vetb00006.*
|
|
DEFINE cliente_des RECORD LIKE vetb00007.*
|
|
DEFINE controles RECORD LIKE vetb00018.*
|
|
DEFINE paises RECORD LIKE cotb00018.*
|
|
DEFINE tarifa RECORD LIKE vetb00023.*
|
|
DEFINE visitas RECORD LIKE vetb00024.*
|
|
DEFINE pre_pila RECORD LIKE vetb00025.*
|
|
|
|
DEFINE rango RECORD
|
|
fech_in DATE,
|
|
fech_fi DATE
|
|
END RECORD
|
|
DEFINE lista_clientes DYNAMIC ARRAY OF RECORD
|
|
num_rnc1 CHAR(11),
|
|
tiponegocio CHAR(30),
|
|
kvendedor2 CHAR(60),
|
|
tipo_cliente2 SMALLINT,
|
|
sec_cliente2 INT,
|
|
nombre2 CHAR(60),
|
|
STATUS_CLIENTE CHAR(16),
|
|
telefono2 CHAR(20),
|
|
telefono3 CHAR(20),
|
|
fecha_venta CHAR(10)
|
|
|
|
END RECORD
|
|
|
|
DEFINE cli_vend1 ARRAY[100] OF RECORD
|
|
num_emp LIKE adtb00003.num_emp,
|
|
nom1_emp CHAR(15),
|
|
apell1_emp CHAR(15)
|
|
END RECORD
|
|
|
|
DEFINE datos_empleados RECORD
|
|
num_emp LIKE adtb00003.num_emp,
|
|
nom1_emp LIKE adtb00003.nom1_emp,
|
|
apell1_emp LIKE adtb00003.apell1_emp
|
|
END RECORD
|
|
|
|
DEFINE descuenta ARRAY[30] OF RECORD
|
|
codigo INTEGER,
|
|
porc DECIMAL(10,2),
|
|
valor DECIMAL(10,2)
|
|
END RECORD
|
|
|
|
DEFINE mes1 ARRAY [12] OF CHAR (11)
|
|
DEFINE dias ARRAY [7] OF CHAR(11)
|
|
|
|
DEFINE cli_vend ARRAY [50] OF RECORD
|
|
num_emp LIKE adtb00003.num_emp,
|
|
nombre_v CHAR(60)
|
|
END RECORD
|
|
|
|
DEFINE arr_area DYNAMIC ARRAY OF RECORD
|
|
area_num LIKE prtb00016.area_num,
|
|
nombre_area LIKE prtb00016.nombre_area
|
|
END RECORD
|
|
|
|
DEFINE arr_empleados ARRAY [200] OF RECORD
|
|
num_emp LIKE adtb00003.num_emp,
|
|
nom1_emp LIKE adtb00003.nom1_emp,
|
|
apell1_emp LIKE adtb00003.apell1_emp
|
|
END RECORD
|
|
|
|
DEFINE empleados ARRAY [200] OF RECORD
|
|
cod_emp_sec LIKE adtb00003.num_emp,
|
|
descrip6 CHAR(65)
|
|
END RECORD
|
|
|
|
DEFINE pilas DYNAMIC ARRAY OF RECORD
|
|
cod_n LIKE intb00001.cod_n,
|
|
cod_grupo LIKE intb00001.cod_grupo,
|
|
cod_tipo LIKE intb00001.cod_tipo,
|
|
cod_sec LIKE intb00001.cod_sec,
|
|
descrip_esp LIKE intb00001.descrip_esp
|
|
END RECORD
|
|
|
|
DEFINE zonas ARRAY [200] OF RECORD
|
|
cod_zona LIKE vetb00008.cod_zona,
|
|
descrip LIKE vetb00008.descrip
|
|
END RECORD
|
|
|
|
DEFINE provincias ARRAY [200] OF RECORD
|
|
cod_provincia LIKE vetb00020.cod_provincia,
|
|
nombre_provincia LIKE vetb00020.nombre_provincia
|
|
END RECORD
|
|
|
|
DEFINE porc_zona ARRAY [200] OF RECORD
|
|
ventas CHAR(1),
|
|
zona CHAR(3),
|
|
descrip CHAR(30),
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
mes SMALLINT,
|
|
desc_mes CHAR(30),
|
|
porciento DECIMAL(7,3)
|
|
END RECORD
|
|
|
|
DEFINE porc_prov ARRAY [300] OF RECORD
|
|
ventas CHAR(1),
|
|
zona CHAR(3),
|
|
provincia SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descrip CHAR(30),
|
|
mes SMALLINT,
|
|
desc_mes CHAR(30),
|
|
porciento DECIMAL(7,3)
|
|
END RECORD
|
|
|
|
DEFINE porc_vend ARRAY [300] OF RECORD
|
|
sec_vend SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
porciento DECIMAL(7,3)
|
|
END RECORD
|
|
|
|
DEFINE pres_venta ARRAY [800] OF RECORD
|
|
ventas CHAR(1),
|
|
descrip1 CHAR(15),
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
mes SMALLINT,
|
|
descrip_mes CHAR(11),
|
|
cantidad DECIMAL(12,5),
|
|
valor DECIMAL(12,5)
|
|
END RECORD
|
|
|
|
DEFINE reg_ventas RECORD
|
|
fecha DATE,
|
|
factura INTEGER,
|
|
unidades1 DECIMAL(12,3),
|
|
precio DECIMAL(10,2),
|
|
valor1 DECIMAL(16,2)
|
|
END RECORD
|
|
|
|
DEFINE reg_ventas2 RECORD
|
|
zona2 CHAR(3),
|
|
cod_n2 SMALLINT,
|
|
cod_grupo2 SMALLINT,
|
|
cod_tipo2 SMALLINT,
|
|
cod_sec2 SMALLINT,
|
|
descrip2 CHAR(30),
|
|
unidades2 DECIMAL(12,3),
|
|
valor2 DECIMAL(14,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_ventas ARRAY [200] OF RECORD
|
|
fecha DATE,
|
|
factura INTEGER,
|
|
unidades1 CHAR(14),
|
|
precio DECIMAL(8,2),
|
|
valor1 CHAR(17)
|
|
END RECORD
|
|
|
|
DEFINE arr_ventas2 ARRAY [200] OF RECORD
|
|
codigo1 CHAR(10),
|
|
descrip1 CHAR(30),
|
|
unidades1 CHAR(14),
|
|
valor1 CHAR(17)
|
|
END RECORD
|
|
DEFINE reg_clientes RECORD
|
|
tipo1 SMALLINT,
|
|
sec1 SMALLINT,
|
|
descrip1 CHAR(30),
|
|
unidades1 DECIMAL(12,3)
|
|
END RECORD
|
|
|
|
DEFINE arr_cajas ARRAY [200] OF RECORD
|
|
cod_n1 SMALLINT,
|
|
cod_grupo1 SMALLINT,
|
|
cod_tipo1 SMALLINT,
|
|
cod_sec1 SMALLINT,
|
|
descrip1 CHAR(30),
|
|
cajas1 INTEGER
|
|
END RECORD
|
|
|
|
DEFINE arr_ventas3 ARRAY [200] OF RECORD
|
|
codigo1 CHAR(7),
|
|
descrip1 CHAR(30),
|
|
unidades1 CHAR(14)
|
|
END RECORD
|
|
|
|
DEFINE arr_clientes DYNAMIC ARRAY OF RECORD
|
|
tipo_cliente LIKE vetb00004.tipo_cliente,
|
|
sec_cliente LIKE vetb00004.sec_cliente,
|
|
nombre LIKE vetb00004.nombre,
|
|
nombre_proyecto CHAR(40)
|
|
END RECORD
|
|
|
|
DEFINE fact_gral1 RECORD
|
|
cod_cia LIKE vetb00002.cod_cia,
|
|
ventas LIKE vetb00002.ventas,
|
|
zona CHAR(3),
|
|
factura LIKE vetb00002.factura,
|
|
conduce LIKE vetb00002.conduce,
|
|
fecha_conduce DATE,
|
|
fecha_factura DATE,
|
|
tipo_cliente LIKE vetb00002.tipo_cliente,
|
|
sec_cliente LIKE vetb00002.sec_cliente,
|
|
nombre CHAR(30),
|
|
direccion CHAR(80),
|
|
ciudad CHAR(20),
|
|
prima_us LIKE vetb00002.prima_us,
|
|
porc_desc LIKE vetb00002.porc_desc,
|
|
cond_pago LIKE vetb00002.cond_pago,
|
|
num_req INT,
|
|
orden INT,
|
|
fecha_orden DATE,
|
|
porc_itbi LIKE vetb00002.porc_itbi,
|
|
sec_vend LIKE vetb00002.sec_vend,
|
|
nombre_vend CHAR(60),
|
|
cod_transp LIKE iptb00006.cod_transp,
|
|
sec_transp LIKE iptb00006.sec_transp,
|
|
cod_tarifa LIKE iptb00006.cod_tarifa,
|
|
nombre_tran CHAR(30),
|
|
fecha_embarque DATE,
|
|
placa_transp LIKE iptb00006.placa,
|
|
sub_total DECIMAL(12,2),
|
|
desc_valor DECIMAL(12,2),
|
|
itbi DECIMAL(12,2),
|
|
total_fact DECIMAL(12,2)
|
|
END RECORD
|
|
DEFINE fact_gral RECORD
|
|
cod_cia LIKE vetb00002.cod_cia,
|
|
ventas LIKE vetb00002.ventas,
|
|
zona CHAR(3),
|
|
factura LIKE vetb00002.factura,
|
|
bodega SMALLINT,
|
|
conduce LIKE vetb00002.conduce,
|
|
fecha_conduce DATE,
|
|
fecha_factura DATE,
|
|
tipo_cliente LIKE vetb00002.tipo_cliente,
|
|
sec_cliente LIKE vetb00002.sec_cliente,
|
|
nombre CHAR(30),
|
|
direccion CHAR(80),
|
|
ciudad CHAR(20),
|
|
prima_us LIKE vetb00002.prima_us,
|
|
porc_desc LIKE vetb00002.porc_desc,
|
|
cond_pago LIKE vetb00002.cond_pago,
|
|
orden INT,
|
|
fecha_orden DATE,
|
|
porc_itbi LIKE vetb00002.porc_itbi,
|
|
sec_vend LIKE vetb00002.sec_vend,
|
|
nombre_vend CHAR(60),
|
|
cod_transp LIKE iptb00006.cod_transp,
|
|
sec_transp LIKE iptb00006.sec_transp,
|
|
cod_tarifa LIKE iptb00006.cod_tarifa,
|
|
nombre_tran CHAR(30),
|
|
fecha_embarque DATE,
|
|
placa_transp LIKE iptb00006.placa,
|
|
sub_total DECIMAL(12,2),
|
|
desc_valor DECIMAL(12,2),
|
|
itbi DECIMAL(12,2),
|
|
total_fact DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
|
|
DEFINE fact_det1 DYNAMIC ARRAY OF RECORD
|
|
area SMALLINT,
|
|
cod_n INT,
|
|
cod_grupo INT,
|
|
cod_tipo INT,
|
|
cod_sec INT,
|
|
descrip_esp CHAR(50),
|
|
unidad_med CHAR(5),
|
|
bodega SMALLINT,
|
|
cantidad DEC(12,5),
|
|
precio LIKE vetb00003.precio,
|
|
cantidad_2 LIKE vetb00003.cantidad_2,
|
|
monto_fact DECIMAL(12,2),
|
|
existencia DECIMAL(12,4)
|
|
END RECORD
|
|
DEFINE fact_det DYNAMIC ARRAY OF RECORD
|
|
area SMALLINT,
|
|
cod_n INT,
|
|
cod_grupo INT,
|
|
cod_tipo INT,
|
|
cod_sec INT,
|
|
descrip_esp CHAR(50),
|
|
unidad_med CHAR(5),
|
|
cantidad DEC(12,5),
|
|
precio LIKE vetb00003.precio,
|
|
cantidad_2 LIKE vetb00003.cantidad_2,
|
|
monto_fact DECIMAL(18,2),
|
|
cantidad_orden DEC(18,5),
|
|
pendiente DEC(18,5),
|
|
facturada DEC(18,5),
|
|
kit_id INT
|
|
|
|
END RECORD
|
|
|
|
|
|
DEFINE arr_cotiza DYNAMIC ARRAY OF RECORD
|
|
fila SMALLINT,
|
|
area LIKE vetb00051.area,
|
|
nombre_area CHAR(20),
|
|
cod_n LIKE vetb00051.cod_n,
|
|
cod_grupo LIKE vetb00051.cod_grupo,
|
|
cod_tipo LIKE vetb00051.cod_tipo,
|
|
cod_sec LIKE vetb00051.cod_sec,
|
|
nombre_p CHAR(50),
|
|
unidad CHAR(3),
|
|
cantidad_1 LIKE vetb00051.cantidad_1,
|
|
cantidad LIKE vetb00051.cantidad,
|
|
precio LIKE vetb00051.precio,
|
|
porc_desc LIKE vetb00051.porc_desc,
|
|
total_p DECIMAL(10,2),
|
|
ruta BYTE,
|
|
chactualiza CHAR(3),
|
|
id_kit INT,
|
|
cantidad_reservada DEC(12,5),
|
|
fecha_inicial_reserva DATE,
|
|
fecha_vence_reserva DATE
|
|
END RECORD
|
|
DEFINE pagos_transp RECORD
|
|
cod_transp LIKE iptb00006.cod_transp,
|
|
sec_transp LIKE iptb00006.sec_transp,
|
|
factura LIKE vetb00002.factura,
|
|
pagada CHAR(1),
|
|
us_crea LIKE vetb00002.us_crea,
|
|
fech_crea LIKE vetb00002.fech_crea,
|
|
us_mod LIKE vetb00002.us_mod,
|
|
fech_mod LIKE vetb00002.fech_mod
|
|
END RECORD
|
|
|
|
DEFINE pend ARRAY [30] OF RECORD
|
|
cantidad DECIMAL(12,5),
|
|
fecha_entrega DATE
|
|
END RECORD
|
|
|
|
DEFINE ant_art RECORD
|
|
area SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad LIKE vetb00003.cantidad,
|
|
precio LIKE vetb00003.precio
|
|
END RECORD
|
|
|
|
DEFINE zona1_wd ARRAY [200] OF RECORD
|
|
cod_zona LIKE vetb00008.cod_zona,
|
|
descrip LIKE vetb00008.descrip
|
|
END RECORD
|
|
|
|
DEFINE pais_wd ARRAY [200] OF RECORD
|
|
cod_pais LIKE cotb00018.cod_pais,
|
|
nom_pais LIKE cotb00018.nom_pais
|
|
END RECORD
|
|
|
|
DEFINE arr_transp ARRAY[200] OF RECORD
|
|
cod_transp SMALLINT,
|
|
sec_transp SMALLINT,
|
|
nombre CHAR(30)
|
|
END RECORD
|
|
|
|
DEFINE arr_tarifa ARRAY[200] OF RECORD
|
|
cod_tarifa SMALLINT,
|
|
descrip CHAR(30),
|
|
tarifa_pago DECIMAL(7,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_condicion ARRAY[200] OF RECORD
|
|
cond_pago SMALLINT,
|
|
descrip CHAR(30)
|
|
END RECORD
|
|
|
|
DEFINE arr_fact ARRAY[1500] OF RECORD
|
|
tipo_cliente SMALLINT,
|
|
sec_cliente SMALLINT,
|
|
factura INTEGER,
|
|
pendiente DECIMAL(11,5),
|
|
fecha DATE
|
|
END RECORD
|
|
|
|
DEFINE recibo RECORD
|
|
num_doc LIKE cctb00001.num_doc,
|
|
tipo_cliente LIKE cctb00001.tipo_cliente,
|
|
sec_cliente LIKE cctb00001.sec_cliente,
|
|
cod_emp_sec LIKE cctb00001.cod_emp_sec,
|
|
fecha_orig LIKE cctb00001.fecha_orig,
|
|
itbi DECIMAL(8,2),
|
|
concepto CHAR(60)
|
|
END RECORD
|
|
|
|
DEFINE parte ARRAY[20] OF RECORD
|
|
valor DECIMAL(12,2),
|
|
fecha_ven DATE
|
|
END RECORD,
|
|
total_valor DECIMAL(12,2),
|
|
veces SMALLINT
|
|
DEFINE bandera SMALLINT
|
|
DEFINE otrab SMALLINT
|
|
DEFINE p_fechas DATE
|
|
DEFINE comp_fech,comp_fech1 DATE
|
|
DEFINE mes_control CHAR(2)
|
|
DEFINE mes_calc,dia SMALLINT
|
|
DEFINE fecha_c DATE
|
|
DEFINE c_ano,a_ano CHAR(4)
|
|
|
|
END GLOBALS
|