SCHEMA smarmotech 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, 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, departamento_afecta INT, 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 mov_nomi RECORD LIKE notb00002.* DEFINE fijo RECORD LIKE notb00003.* DEFINE per_nomi RECORD LIKE notb00010.* DEFINE presta RECORD LIKE notb00011.* DEFINE dias_mes RECORD LIKE notb00012.* DEFINE emplea RECORD LIKE adtb00003.* DEFINE depto RECORD LIKE adtb00001.* DEFINE puesto RECORD LIKE adtb00004.* DEFINE nacion RECORD LIKE adtb00007.* END GLOBALS