200 lines
6.9 KiB
Plaintext
200 lines
6.9 KiB
Plaintext
SCHEMA decomarmol
|
|
|
|
GLOBALS
|
|
DEFINE cuentas1 DYNAMIC ARRAY OF RECORD
|
|
cuenta_no LIKE cgtb00001.cuenta_no,
|
|
descripcion LIKE cgtb00001.descripcion,
|
|
nivel LIKE cgtb00001.nivel
|
|
END RECORD
|
|
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
|
|
fl_ini_rep STRING
|
|
DEFINE p_compania RECORD LIKE companias.*
|
|
DEFINE lj,idx_ac,ano,idx_a,idx_c,l SMALLINT
|
|
DEFINE unidades1 ARRAY[19] OF CHAR(10)
|
|
DEFINE decenas ARRAY[81] OF CHAR(20)
|
|
DEFINE centenas ARRAY[10] OF CHAR(20)
|
|
DEFINE miles ARRAY[9] OF CHAR(2),
|
|
p_descrip CHAR(30),
|
|
anula_seguro CHAR(1),
|
|
presupa RECORD LIKE cgtb00023.*,
|
|
nombre_m LIKE mestable.descrip,
|
|
usuarios,clave CHAR(80),
|
|
progreso SMALLINT,
|
|
HANDLER om.SaxDocumentHandler,
|
|
r_output,afecta STRING,
|
|
pventas,ptipoNegocio ui.combobox,
|
|
ventas SMALLINT,
|
|
fecha_inicial,fecha_final,p_fecha DATE,
|
|
entrada,entra1 VARCHAR(14),
|
|
nom_cli,detalle1 VARCHAR(30),
|
|
fecha1,fecha2 DATE,
|
|
entra VARCHAR(14),
|
|
tasa DEC(10,2),
|
|
nombre_cta char(100)
|
|
DEFINE debito,debito1,credito,credito1 DECIMAL(12,2)
|
|
DEFINE p_vetb02 RECORD LIKE vetb00002.*
|
|
DEFINE p_vetb03 RECORD LIKE vetb00003.*
|
|
DEFINE p_iptb02 RECORD
|
|
bodega LIKE iptb00002.bodega,
|
|
cod_cia LIKE iptb00002.cod_cia,
|
|
cod_grupo LIKE iptb00002.cod_grupo,
|
|
cod_n LIKE iptb00002.cod_n,
|
|
cod_sec LIKE iptb00002.cod_sec,
|
|
cod_tipo LIKE iptb00002.cod_tipo,
|
|
codid LIKE iptb00002.codid,
|
|
control_existencia LIKE iptb00002.control_existencia,
|
|
control_itbis LIKE iptb00002.control_itbis,
|
|
descrip_esp LIKE iptb00002.descrip_esp,
|
|
descrip_ing LIKE iptb00002.descrip_ing,
|
|
nomenclatura LIKE iptb00002.nomenclatura,
|
|
porc_desc LIKE iptb00002.porc_desc,
|
|
status_t LIKE iptb00002.status_t,
|
|
unidad_med LIKE iptb00002.unidad_med,
|
|
us_crea LIKE iptb00002.us_crea,
|
|
us_mod LIKE iptb00002.us_mod
|
|
END RECORD ,
|
|
p_clave CHAR(12)
|
|
DEFINE p_vetb04 RECORD LIKE vetb00004.*
|
|
DEFINE p_iptb20 RECORD LIKE iptb00020.*
|
|
DEFINE p_cgtb34 RECORD LIKE cgtb00034.*
|
|
|
|
|
|
|
|
DEFINE opt4,opt3,impresion,verdad,identifica,existe,tiene_facturas,
|
|
p_param,opt,control,detalle,status_reg CHAR(3),
|
|
criterio,selec,selec1,selec2,selec4,selec3 STRING,
|
|
|
|
tipo2,opcion CHAR(3),
|
|
valor_letras CHAR(90),
|
|
compania CHAR(50),
|
|
parametro CHAR(10),
|
|
bandera,scr_l,curr1,curr,idx,numero_msg INTEGER,
|
|
nombre_bco,descrip,p_descripcion,nombre CHAR(30),
|
|
regi,tipo_papel,l SMALLINT,
|
|
impresor SMALLINT
|
|
|
|
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 arr_bancos ARRAY[50] OF RECORD
|
|
cuenta_no LIKE cgtb00012.cuenta_no,
|
|
nombre_bco LIKE cgtb00012.nombre_bco
|
|
END RECORD
|
|
DEFINE ws ARRAY[100] OF RECORD
|
|
departamento SMALLINT,
|
|
nombre CHAR(30)
|
|
END RECORD
|
|
|
|
DEFINE arr_cuenta ARRAY[200] OF RECORD
|
|
cuenta_no LIKE cgtb00009.cuenta_no,
|
|
descripcion LIKE cgtb00001.descripcion
|
|
END RECORD
|
|
|
|
DEFINE numero1 CHAR(7)
|
|
DEFINE usuario CHAR(9)
|
|
DEFINE fecha_crea LIKE cgtb00004.fech_crea
|
|
DEFINE datos_ck RECORD LIKE cgtb00012.*
|
|
DEFINE cronologico RECORD LIKE cgtb00031.*
|
|
DEFINE entrega RECORD LIKE cgtb00032.*
|
|
DEFINE entrega1 RECORD LIKE cgtb00033.*
|
|
|
|
DEFINE estado_c CHAR(1)
|
|
DEFINE selec_p CHAR(1000)
|
|
DEFINE cuenta_a,cuenta_b CHAR(8)
|
|
DEFINE ins_cp,m,i,p_nivel,codigo INTEGER
|
|
DEFINE meses ARRAY [12] OF CHAR(10)
|
|
DEFINE referencia CHAR(9)
|
|
DEFINE tipo_doc1 CHAR(2)
|
|
DEFINE depto,cxp,numero,aplicar INTEGER
|
|
DEFINE cuenta_cxp,cuenta_cta,cod1_sp,cod1_sp_sec,p_orden SMALLINT
|
|
DEFINE chequea,sale_arr,p_cata,tipo_d,p_ref,acept_dpto,opc,opc1,
|
|
limpia,tiene_cta,ctrl_cxp,p_origen CHAR(3)
|
|
DEFINE p_tipo CHAR(2)
|
|
DEFINE remanente,monto,valor_f,valor_fac,val_pen,valor_fac1,valor_cxp,
|
|
valor2,valor DECIMAL(12,2)
|
|
DEFINE nombre_emp,apellido_emp,nom_tipo CHAR(15)
|
|
DEFINE nombre_dpto,nombre_cata CHAR(30)
|
|
DEFINE facturas,ordenes,nom_cuenta CHAR(70)
|
|
DEFINE orden1 CHAR(6)
|
|
DEFINE factura1 CHAR(10)
|
|
DEFINE refe DYNAMIC ARRAY OF CHAR(12)
|
|
|
|
DEFINE cuentas DYNAMIC ARRAY OF RECORD
|
|
cuenta_no LIKE cgtb00001.cuenta_no,
|
|
descripcion LIKE cgtb00001.descripcion,
|
|
nivel LIKE cgtb00001.nivel
|
|
END RECORD
|
|
|
|
DEFINE aplica_wd DYNAMIC ARRAY OF RECORD
|
|
aplica_a char(20),
|
|
pendiente DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_recibo DYNAMIC ARRAY OF RECORD
|
|
tipo LIKE cptb00001.tipo,
|
|
orden_no LIKE cptb00001.orden_no,
|
|
aplica_a char(20),
|
|
valor_pen DECIMAL(12,2),
|
|
valor_pag DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_cuenta1 DYNAMIC ARRAY OF RECORD
|
|
cuenta_no LIKE cgtb00004.cuenta_no,
|
|
departamento LIKE cgtb00004.departamento,
|
|
cod_aux LIKE cgtb00004.cod_aux,
|
|
cod_sec LIKE cgtb00004.cod_sec,
|
|
num_doc LIKE cgtb00004.num_doc,
|
|
nom_cuenta CHAR(30),
|
|
debito LIKE cgtb00004.debito,
|
|
credito LIKE cgtb00004.credito
|
|
END RECORD
|
|
|
|
DEFINE recibo RECORD
|
|
tipo_doc LIKE cptb00001.tipo_doc,
|
|
cuenta_p LIKE cgtb00004.cuenta_no,
|
|
numero INTEGER,
|
|
cod_sp LIKE cptb00001.cod_sp,
|
|
cod_sp_sec LIKE cptb00001.cod_sp_sec,
|
|
nom_sup CHAR(44),
|
|
fecha DATE,
|
|
tasa LIKE cgtb00005.tasa,
|
|
monto DECIMAL(12,2),
|
|
codigo LIKE tetb00003.codigo
|
|
END RECORD,
|
|
detalle_1 CHAR(40),
|
|
detalle_2 CHAR(40),
|
|
detalle_3 CHAR(40),
|
|
detalle_4 CHAR(40),
|
|
detalle_5 CHAR(40),
|
|
valor_1 DECIMAL(12,2),
|
|
valor_2 DECIMAL(12,2),
|
|
valor_3 DECIMAL(12,2),
|
|
valor_4 DECIMAL(12,2),
|
|
valor_5 DECIMAL(12,2)
|
|
|
|
DEFINE porc_p DECIMAL(10,2)
|
|
DEFINE emp SMALLINT
|
|
DEFINE hoy DATE,descrip1 char(20),ch_fecha CHAR(10)
|
|
DEFINE entradas RECORD LIKE cgtb00011.*
|
|
DEFINE catalogo RECORD LIKE cgtb00001.*
|
|
DEFINE p_departa RECORD LIKE cgtb00002.*
|
|
DEFINE p_tipos RECORD LIKE cgtb00003.*
|
|
DEFINE mov_cuenta RECORD LIKE cgtb00009.*
|
|
DEFINE movi_cuenta RECORD LIKE cgtb00010.*
|
|
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 zona RECORD LIKE vetb00008.*
|
|
DEFINE zonas ARRAY [200] OF RECORD
|
|
cod_zona LIKE vetb00008.cod_zona,
|
|
descrip LIKE vetb00008.descrip
|
|
END RECORD
|
|
DEFINE transportista RECORD LIKE vetb00015.*
|
|
|
|
END GLOBALS |