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