SCHEMA decomarmol 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 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(12,2), 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