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