550 lines
16 KiB
Plaintext
550 lines
16 KiB
Plaintext
SCHEMA smarmotech
|
|
|
|
GLOBALS
|
|
|
|
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, estado_rnc CHAR(80),
|
|
kncf, codigo_Err INTEGER,
|
|
r_output CHAR(3),
|
|
r_filename STRING,
|
|
HANDLER om.SaxDocumentHandler,
|
|
preview BOOLEAN,
|
|
fecha_vencimiento DATE,
|
|
url_verification, estado VARCHAR(255)
|
|
|
|
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, selec2 STRING,
|
|
|
|
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 VARCHAR(20),
|
|
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 DYNAMIC ARRAY 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 DYNAMIC ARRAY 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,
|
|
direccion, ciudad, vendedor VARCHAR(100),
|
|
sec_vend INT
|
|
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
|