SCHEMA decomarmol GLOBALS DEFINE l,tipo_papel SMALLINT, p_companias RECORD LIKE companias.*, imp_form CHAR(1), opt1 CHAR(3), localidad SMALLINT, plocalidad ui.combobox, kpais ui.combobox, kpuesto ui.ComboBox, knivel ui.ComboBox, kdepartamento ui.ComboBox, knac ui.ComboBox, kpar ui.ComboBox, localidad SMALLINT, pais smallint, kciudad ui.combobox, ciudad SMALLINT, cod_par SMALLINT , xapp_movil CHAR(2) 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 historico CHAR(2) DEFINE bandera,progreso SMALLINT DEFINE selec21,selec20,selec10,selec3,selec2,selec1,selec STRING DEFINE decide,modifica,verdad,p_status,control CHAR(1) DEFINE p_param,opc,opt2,existe,ya,opera1,cambio CHAR(3) DEFINE opt CHAR(3) DEFINE descrip CHAR(21) , p_formulario,formulario CHAR(70), usuarios,clave CHAR(80) DEFINE nombre1,nombre2,nombre3,nombre4,nombre5,nombre6 CHAR(15) DEFINE nombre7,nombre8,apellido1,apellido2,apellido3 CHAR(15) DEFINE apellido4,apellido5,apellido6,apellido7,apellido8 CHAR(15) DEFINE indice,fila SMALLINT DEFINE numero_msg LIKE msgtable.cod_msg DEFINE descrip1,descrip2,descrip3,descrip4,descrip5 CHAR(60) DEFINE descr CHAR(10) DEFINE nombre_mes,desc_idioma CHAR(10) DEFINE nombre,empleado,empleado1,empleado2 CHAR(60) DEFINE criterio STRING DEFINE regi INTEGER DEFINE e,i,curr1,p_act,idx_,idx,curr,scr_l INT DEFINE opcion,siguie CHAR(1) DEFINE anoc,mesc,diasc CHAR(3), anos,lmeses,dias,preaviso,cesantia_h92,anos_cesantia_92, anos_cesantia,meses_cesantia,cesantia_d92,dias_cesantia, dias_vacaciones,meses_vacaciones,anos_vacaciones,tiempo_h92 INTEGER, tiempo92,p_valor DECIMAL(12,2), fecha_inicial DATE, cmd,imprime,copia CHAR(150),archivo, file CHAR(80),impresor,progreso SMALLINT DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off CHAR(3) DEFINE cuenta_emp SMALLINT DEFINE ptipo_nomina CHAR(1), tiempoc,td92c CHAR(8), tiempo,mesdia,tiempo_d92,tiempo_vacaciones DECIMAL(8,2) DEFINE letras RECORD negrillas_on , negrillas_off , doble_on , doble_off , comp_on , comp_off , doce , normal CHAR(6) END RECORD DEFINE rango RECORD fech_in DATE, fech_fi DATE END RECORD DEFINE datos_peri RECORD tipo_emp CHAR(1), fecha_d CHAR(10), fecha_a CHAR(10) END RECORD DEFINE datos RECORD fech_ini DATE, fech_fin DATE END RECORD DEFINE c_entra RECORD fecha DATE, num_nomi INTEGER, tipo_emp CHAR(1), nombre_tipo CHAR(20) END RECORD DEFINE datos_cheque RECORD num_emp LIKE adtb00003.num_emp, departamento LIKE adtb00003.departamento, nivel_emp LIKE adtb00003.nivel_emp, cod_puesto LIKE adtb00003.cod_puesto, nom1_emp CHAR(35), apell1_emp LIKE adtb00003.nom1_emp, nom2_emp LIKE adtb00003.nom1_emp, apell2_emp LIKE adtb00003.nom1_emp, cod_mov LIKE notb00008.cod_mov, descrip_mov LIKE notb00002.segundo_enc, tipo_d CHAR(1), cantidad LIKE notb00008.cantidad, valor LIKE notb00008.valor, cuenta_no CHAR(20), tipocuenta VARCHAR(1), codbancodestino VARCHAR(8), digiverbancodestino VARCHAR(1), cedula VARCHAR(11), nombre CHAR(80), numero INTEGER, fecha DATE, acumulado DECIMAL(12,2), neto DECIMAL(12,2) END RECORD DEFINE comisiones DYNAMIC ARRAY OF RECORD sec_vend_a INT, nombre_vend CHAR(50), porc_cobros DEC(12,2), porc_cobros_a DEC(12,2) END RECORD DEFINE comisiones_adicionales DYNAMIC ARRAY OF RECORD sec_vend1 INT, nombre_vend1 CHAR(50), cod_n SMALLINT, descripcion CHAR(80), porc_vendedor DEC(12,2), porc_supervisor DEC(12,2), porc_directo DEC(12,2) END RECORD DEFINE buscar_emp DYNAMIC ARRAY OF RECORD num_emp LIKE adtb00003.num_emp, departamento LIKE adtb00003.departamento, nivel_emp LIKE adtb00003.nivel_emp, cod_puesto LIKE adtb00003.cod_puesto, nom1_emp LIKE adtb00003.nom1_emp, nom2_emp LIKE adtb00003.nom2_emp, apell1_emp LIKE adtb00003.apell1_emp, apell2_emp LIKE adtb00003.apell2_emp END RECORD DEFINE despl_emp DYNAMIC ARRAY OF RECORD num_emp LIKE adtb00003.num_emp, departamento LIKE adtb00003.departamento, nivel_emp LIKE adtb00003.nivel_emp, cod_puesto LIKE adtb00003.cod_puesto, nom1_emp LIKE adtb00003.nom1_emp, nom2_emp LIKE adtb00003.nom2_emp, apell1_emp LIKE adtb00003.apell1_emp, apell2_emp LIKE adtb00003.apell2_emp END RECORD DEFINE arr_novedad DYNAMIC ARRAY OF RECORD num_emp LIKE notb00007.num_emp, departamento LIKE notb00007.departamento, nivel_emp LIKE notb00007.nivel_emp, cod_puesto LIKE notb00007.cod_puesto, descrip1 CHAR(60), cantidad LIKE notb00007.cantidad, valor LIKE notb00007.valor, num_trx INT, sueldo_act DEC(12,2) END RECORD DEFINE arr_fijo ARRAY[200] OF RECORD cod_mov LIKE notb00003.cod_mov, descrip_mov LIKE notb00002.descrip_mov, cantidad LIKE notb00003.cantidad, valor LIKE notb00003.valor END RECORD DEFINE buscar_movi ARRAY[200] OF RECORD cod_mov LIKE notb00002.cod_mov, descrip_mov LIKE notb00002.descrip_mov, cantidad_cia LIKE notb00002.cantidad_cia, cantidad_emp LIKE notb00002.cantidad_emp END RECORD DEFINE despl_movi ARRAY[200] OF RECORD cod_mov LIKE notb00002.cod_mov, descrip_mov LIKE notb00002.descrip_mov, cantidad_cia LIKE notb00002.cantidad_cia, cantidad_emp LIKE notb00002.cantidad_emp END RECORD DEFINE novedad RECORD num_nomi SMALLINT, tipo_emp CHAR(1), fecha_del CHAR(10), fecha_al CHAR(10), cod_mov LIKE notb00007.cod_mov, descrip_mov LIKE notb00002.descrip_mov, cod1 SMALLINT, cantidad_cia DECIMAL(8,2), veces SMALLINT, num_nomi1 INTEGER, modifica VARCHAR(2) END RECORD DEFINE emplea RECORD num_emp smallint , departamento smallint , nivel_emp smallint , cod_puesto smallint , nom1_emp char(15) , nom2_emp char(15) , apell1_emp char(15) , apell2_emp char(15) , tipo_empleado char(20) , fecha_termino_c date , calle char(50) , casa_num char(10) , barrio char(50) , urbanizacion char(50) , credito char(10) , telefono char(15) , fech_nac date , cod_nac smallint , estado_civil char(1) , tipo_sangre char(3) , cedula char(11) , serie smallint , licencia char(9) , sueldo_ac decimal(10, 2) , nomina char(1) , fech_efec date , fecha_salida date , paga_seg char(1) , cod_seg1 char(11) , cod_seg2 smallint , cod_seg3 smallint , tipocuenta char(1) , cuenta_no varchar(25) , status_t char(1) , us_crea char(50) , fech_crea date , us_mod char(50) , fech_mod date , foto_empleado byte , sucid smallint , monto_seg_med decimal(18, 0) , monto_seg_int decimal(18, 0) , monto_care decimal(18, 0) , fecha_ultimo_aumento date , moneda char(3) , codbancodestino char(8) , digiverbancodestino char(1) , tipo_sueldo char(20) , email varchar(100) , instalador char(10) , cuenta_aux varchar(100) , cuenta_out int , departamento_out int , num_emp_supervisor int , fecha_suspension date , codigo_retiro_bco int , genera_file_bco char(2) , fecha_valido_retiro date , monto_retiro decimal(18, 2) , retiro_comercial char(10) , estado_legal char(20) , observacion varchar(255) , tipo_documento char(50) , gerentemarcas char(10) , alias varchar(100) , url_foto varchar(255) END RECORD DEFINE depto RECORD departamento smallint , nom_dpto char(30) , status_t char(1) , us_crea char(50) , fech_crea date , us_mod char(50) , fech_mod date , tipo_departamento char(20) , departamento_out int , app_movil char(10) , num_emp_supervisa smallint , grupo varchar(50) , coordinadora varchar(100) END RECORD DEFINE mov_nomi RECORD LIKE notb00002.* DEFINE fijo RECORD LIKE notb00003.* DEFINE per_nomi RECORD tipo_emp char(1) , h_normal decimal(8, 2) , num_nomi int , mes smallint , ano smallint , num_sem smallint , fecha_del date , fecha_al date , status_t char(1) , us_crea char(9) , fech_crea date , us_mod char(9) , fech_mod date , fecha_cierre_nomina date , estado_legal char(50) , monto decimal(12, 2) END RECORD DEFINE presta RECORD num_emp SMALLINT, departamento SMALLINT, nivel_emp SMALLINT , cod_puesto SMALLINT , num_doc INT , cod_mov SMALLINT, fecha DATE , monto decimal(10, 2), porciento decimal(5, 2), status_t char(1) , us_crea char(9) , fech_crea date, us_mod char(9) , fech_mod DATE, valor_cuota decimal(12, 2) END RECORD DEFINE dias_mes RECORD LIKE notb00012.* DEFINE puesto RECORD cod_puesto smallint , nom_puesto char(180) , otra_descripcion char(180) , funciones char(60) , funcion1 char(60) , nivel_sal smallint , salario_min decimal(10, 2) , salario_max decimal(10, 2) , status_t char(1) , us_crea char(9) , fech_crea date , us_mod char(9) , fech_mod date , tipo_puesto varchar(50) , supervisor char(10) END RECORD DEFINE nacion RECORD LIKE adtb00007.* END GLOBALS