108 lines
3.3 KiB
Plaintext
108 lines
3.3 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 opt,impresion,verdad,identifica,existe CHAR(1),
|
|
status_reg CHAR(1),
|
|
criterio CHAR(1000),
|
|
selec CHAR(1000),
|
|
selec2 CHAR(500),
|
|
selec3 CHAR(1000),
|
|
selec4 CHAR(1000),
|
|
opcion CHAR(2),
|
|
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,
|
|
tipo_ncf,conteo SMALLINT,
|
|
ncf CHAR(19),
|
|
descripcion_ncf char(50)
|
|
|
|
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(13),
|
|
fecha_orig DATE,
|
|
fecha_proc DATE,
|
|
valor_fac DECIMAL(12,2),
|
|
tipo_oc CHAR(2),
|
|
orden_no INTEGER,
|
|
detalle CHAR(30)
|
|
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 VARCHAR(15),
|
|
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 VARCHAR(11),
|
|
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)
|
|
|
|
DEFINE cuentas1 ARRAY[300] OF RECORD
|
|
cuenta_no LIKE cgtb00001.cuenta_no,
|
|
descripcion LIKE cgtb00001.descripcion,
|
|
nivel LIKE cgtb00001.nivel
|
|
END RECORD
|
|
END GLOBALS |