SCHEMA smarmotech

GLOBALS

    DEFINE
        opt, impresion, verdad, identifica, existe CHAR(1),
        status_reg CHAR(1),
        criterio CHAR(1000),
        selec CHAR(500),
        selec2 CHAR(500),
        selec3 CHAR(1000),
        selec4 CHAR(1000),
        opcion CHAR(3),
        descrip1 CHAR(30),
        descrip2 CHAR(30),
        descrip3 CHAR(30),
        descrip4 CHAR(30),
        nom_sp_tipo, nombre_emp, nom_sup CHAR(60),
        descrip5 CHAR(65),
        descrip6 CHAR(45),
        nom_cuenta CHAR(15),
        desc_p, valor_fac, pagada, monto, pendiente, valor1 DECIMAL(12, 2),
        lj, k, tipo_papel, idx, curr, curr1, fila, scr_l INTEGER,
        usuarios, clave CHAR(80),
        impresor SMALLINT,
        HANDLER om.SaxDocumentHandler,
        r_output CHAR(3)

    DEFINE
        normal,
                negrilla_on,
                negrillas_of,
                comp_on,
                comp_off,
                doce,
                doble_on,
                doble_off
            CHAR(3),
        cmd, imprime, copia CHAR(150),
        archivo CHAR(80)

    DEFINE rango RECORD
        fecha_ini DATE,
        fecha_fin DATE
    END RECORD

    DEFINE numero_msg LIKE msgtable.cod_msg

    DEFINE factura RECORD
        cod_sp SMALLINT,
        cod_sp_sec SMALLINT,
        num_doc CHAR(10),
        fecha_orig DATE,
        fecha_proc DATE,
        valor_fac DECIMAL(12, 2),
        tipo CHAR(2),
        bodega SMALLINT,
        reporteEntrada INT,
        orden_no INTEGER,
        detalle CHAR(60)
    END RECORD
    DEFINE recibo RECORD
        tipo_doc LIKE cptb00001.tipo_doc,
        num_doc LIKE cptb00001.num_doc,
        cta_ctble LIKE cptb00001.cta_ctble,
        cod_sp LIKE cptb00001.cod_sp,
        cod_sp_sec LIKE cptb00001.cod_sp_sec,
        fecha_orig DATE,
        detalle LIKE cptb00001.detalle,
        monto DECIMAL(12, 2)
    END RECORD

    DEFINE arr_recibo DYNAMIC ARRAY OF RECORD
        aplica_a LIKE cptb00001.aplica_a,
        valor_pen DECIMAL(12, 2),
        valor_pag DECIMAL(12, 2)
    END RECORD

    DEFINE pagar ARRAY[200] OF RECORD
        aplica_a LIKE cptb00001.aplica_a,
        valor LIKE cptb00001.valor
    END RECORD

    DEFINE aplica_wd ARRAY[100] OF RECORD
        aplica_a LIKE cptb00001.aplica_a,
        pendiente DECIMAL(12, 2)
    END RECORD

    DEFINE arr_suplid ARRAY[200] OF RECORD
        cod_sp LIKE cotb00001.cod_sp,
        cod_sp_sec LIKE cotb00001.cod_sp_sec,
        nom_sp LIKE cotb00001.nom_sp
    END RECORD

    DEFINE relacion RECORD LIKE cptb00002.*
    DEFINE rec_pago RECORD LIKE cptb00001.*
    DEFINE suplid_bas RECORD LIKE cotb00001.*
    DEFINE suplid_dir RECORD LIKE cotb00001.*
    DEFINE p_companias RECORD LIKE companias.*

    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