SCHEMA smarmotech GLOBALS DEFINE desc1,desc2,desc3,desc4,desc5 CHAR(20) DEFINE unidad CHAR(3) DEFINE clasifica CHAR(1) DEFINE p_fechas DATE DEFINE lj,l,numero_orden,programa,regi,requi, dia_aduana INTEGER DEFINE valor_total DECIMAL(12,2), p_programa CHAR(2), nombre_m CHAR(20), Toemail,vendedorEmail,cuerpo_correo, subject, procedimiento STRING DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off CHAR(3),opt,cero,tipo_venta CHAR(10), usuarios,clave CHAR(80), HANDLER om.SaxDocumentHandler, salida VARCHAR(4), m_articulos RECORD LIKE iptb00002.* DEFINE p_companias RECORD LIKE companias.*, r_output STRING DEFINE rango RECORD fech_in date, fech_fi date END RECORD DEFINE cs_ordena ARRAY [20] OF RECORD num_req INTEGER, codigo CHAR(20), cantidad CHAR(14), precio CHAR(13), valor CHAR(14) END RECORD DEFINE detalle1 RECORD num_req INTEGER, cod_n SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT, cantidad DECIMAL(10,3), precio DECIMAL(10,2), base DECIMAL(10,2) END RECORD DEFINE fecha_inicial_py,fecha_final_py DATE DEFINE embarques RECORD LIKE cotb00027.* DEFINE arr_plan_prod ARRAY[100] OF RECORD fecha_ini CHAR(10), fecha_fin CHAR(10), mes CHAR(10), cantidad DECIMAL(12,3) END RECORD DEFINE arr1_plan_prod ARRAY[100] OF RECORD fecha_ini CHAR(10), fecha_fin CHAR(10), mes CHAR(10), cantidad DECIMAL(12,3) END RECORD DEFINE datos_cons RECORD cod_n LIKE intb00001.cod_n, cod_grupo LIKE intb00001.cod_grupo, cod_tipo LIKE intb00001.cod_tipo, cod_sec LIKE intb00001.cod_sec, descrip_esp LIKE intb00001.descrip_esp, unidad_med LIKE intb00001.unidad_med, bodega LIKE intb00002.bodega, fech_in LIKE iptb00006.fecha, fech_fi LIKE iptb00006.fecha END RECORD DEFINE dbnombre CHAR(18), bandera, existe, verdad CHAR(1), opc CHAR(3), cantidad_total DECIMAL(10,3), criterio CHAR(1000), selec1 STRING, selec4,selec,selec2,selec3 CHAR(1500), opcion, manual, p_status,decide,p_param,identifica,modifica CHAR(1), descrip1,descrip2 CHAR(60), descrip3,descrip4,descrip_esp1 CHAR(30), descrip5 CHAR(43), tipo_papel,cuenta,p_act,idx,curr1,curr,fila,linea,scr_l SMALLINT, dcmd,cmd,imprime,copia CHAR(150),archivo CHAR(80),impresor,progreso SMALLINT DEFINE numero_msg LIKE msgtable.cod_msg DEFINE anterior ARRAY[20] OF RECORD cod_n SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT, fech_emb DATE END RECORD DEFINE puerto_wd ARRAY[200] OF RECORD cod_pt LIKE cotb00019.cod_pt, nom_pt LIKE cotb00019.nom_pt END RECORD DEFINE monedas_wd ARRAY[200] OF RECORD cod_mon LIKE cotb00031.cod_mon, nombre_mon CHAR(30) END RECORD DEFINE puertos_wd ARRAY[200] OF RECORD cod_pt LIKE cotb00019.cod_pt, nom_pt LIKE cotb00019.nom_pt END RECORD DEFINE nombre_p, nom_p CHAR(45) DEFINE flete RECORD valor LIKE cotb00014.c_flete, ot_valor LIKE cotb00014.otros_g, descripcion LIke cotb00014.detalle END RECORD DEFINE flete1 RECORD total_b DECIMAL(12,2), valor DECIMAL(12,2), ot_valor DECIMAL(12,2), total_1 DECIMAL(12,2), descu_valor DECIMAL(12,2) END RECORD DEFINE fob DECIMAL(12,2) DEFINE requisi RECORD num_req LIKE cotb00006.num_req, fech_req LIKE cotb00006.fech_req, departamento LIKE adtb00001.departamento, cod_emp_sec LIKE cotb00006.cod_emp_sec, uso LIKE cotb00006.uso, prioridad LIKE cotb00006.prioridad END RECORD DEFINE arr_requisi DYNAMIC ARRAY OF RECORD tipo_inv VARCHAR(20), cod_n LIKE cotb00008.cod_n, cod_grupo LIKE cotb00008.cod_grupo, cod_tipo LIKE cotb00008.cod_tipo, cod_sec LIKE cotb00008.cod_sec, cantidad DECIMAL(12,3), cod_sp LIKE cotb00001.cod_sp, cod_sp_sec LIKE cotb00001.cod_sp_sec, precio LIKE cotb00008.precio, total_p DECIMAL(12,2), procesada LIKE cotb00008.procesada END RECORD DEFINE requisi2 RECORD num_req LIKE cotb00006.num_req, fech_req LIKE cotb00006.fech_req, departamento LIKE adtb00001.departamento, cod_emp_sec LIKE cotb00006.cod_emp_sec, estado VARCHAR(60), uso LIKE cotb00006.uso, prioridad LIKE cotb00006.prioridad, num_oc INT, observacion VARCHAR(100) END RECORD DEFINE arr_requisi2 DYNAMIC ARRAY OF RECORD tipo_inv VARCHAR(20), cod_n LIKE cotb00008.cod_n, cod_grupo LIKE cotb00008.cod_grupo, cod_tipo LIKE cotb00008.cod_tipo, cod_sec SMALLINT, descrip_esp CHAR(180), unidad_med CHAR(3), cantidad DECIMAL(12,3), ruta_file VARCHAR(100), foto BYTE END RECORD DEFINE ant_req RECORD num_req LIKE cotb00006.num_req END RECORD DEFINE busca_su2 DYNAMIC ARRAY 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 busca_su ARRAY [400] 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 busca_priori ARRAY [400] OF RECORD priori_req LIKE cotb00036.priori_req, desc_priori LIKE cotb00036.desc_priori END RECORD DEFINE busca_su1 DYNAMIC ARRAY OF RECORD codigo_1 CHAR(7), nom_sp LIKE cotb00001.nom_sp END RECORD DEFINE busca_ma DYNAMIC ARRAY OF RECORD cod_n LIKE intb00001.cod_n, cod_grupo LIKE intb00001.cod_grupo, cod_tipo LIKE intb00001.cod_tipo, cod_sec LIKE intb00001.cod_sec, descrip_esp LIKE intb00001.descrip_esp, unidad_med LIKE intb00001.unidad_med END RECORD DEFINE busca_pt1 DYNAMIC ARRAY OF RECORD codigo CHAR(20), descrip_esp LIKE intb00001.descrip_esp END RECORD DEFINE busca_mt1 DYNAMIC ARRAY OF RECORD codigo CHAR(40), descrip_esp LIKE intb00001.descrip_esp, unidad_med LIKE intb00001.unidad_med END RECORD DEFINE desp_wd DYNAMIC ARRAY OF RECORD codigo CHAR(7), nom_emp CHAR(60) END RECORD DEFINE busca_wd DYNAMIC ARRAY OF RECORD cod_emp_sec LIKE adtb00003.num_emp, nom1_emp LIKE adtb00003.nom1_emp, apell1_emp LIKE adtb00003.apell1_emp END RECORD DEFINE busca_wd1 DYNAMIC ARRAY OF RECORD codigo LIKE adtb00001.departamento, nom_dpto LIKE adtb00001.nom_dpto END RECORD DEFINE ant_art RECORD cod_n SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT , cod_sec SMALLINT END RECORD DEFINE num_req_a SMALLINT DEFINE codigo1,codigo CHAR(10) DEFINE busca_parte ARRAY[100] OF RECORD num_req LIKE cotb00006.num_req, cod_n LIKE cotb00008.cod_n, cod_grupo LIKE cotb00008.cod_grupo, cod_tipo LIKE cotb00008.cod_tipo, cod_sec LIKE cotb00008.cod_sec, cantidad DECIMAL(12,3), precio LIKE cotb00008.precio END RECORD DEFINE despl_wd ARRAY[200] OF RECORD codigo CHAR(7), nom_sp LIKE cotb00001.nom_sp END RECORD DEFINE buscar_wd 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 mostrar_wd ARRAY[200] OF RECORD cod_n SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT, descrip_esp LIKE intb00001.descrip_esp, unidad_med LIKE intb00001.unidad_med, cantidad DECIMAL(12,3), precio LIKE cotb00008.precio END RECORD DEFINE localiza_wd DYNAMIC ARRAY OF RECORD num_orden INT, cod_n LIKE cotb00008.cod_n, cod_grupo LIKE cotb00008.cod_grupo, cod_tipo LIKE cotb00008.cod_tipo, cod_sec LIKE cotb00008.cod_sec, descrip_esp LIKE intb00001.descrip_esp, unidad_med LIKE intb00001.unidad_med, cantidad DECIMAL(12,3), precio LIKE cotb00008.precio, dia_llegada SMALLINT END RECORD DEFINE term_pago_wd ARRAY[200] OF RECORD term_sp LIKE cotb00024.term_sp, descrip_term LIKE cotb00024.descrip_term END RECORD DEFINE termino_wd ARRAY[200] OF RECORD term_sp LIKE cotb00024.term_sp, descrip_term LIKE cotb00024.descrip_term END RECORD DEFINE c_articulos ARRAY[100] OF RECORD cod_n LIKE cotb00002.cod_n, cod_grupo LIKE cotb00002.cod_grupo, cod_tipo LIKE cotb00002.cod_tipo, cod_sec LIKE cotb00002.cod_sec, descripcion CHAR(50) # costo_mp LIKE cotb00002.costo_mp, # fecha_act LIKE cotb00002.fecha_act END RECORD DEFINE mps ARRAY[300] OF RECORD cod_sp LIKE cotb00001.cod_sp, cod_sp_sec LIKE cotb00001.cod_sp_sec, descrip_term LIKE cotb00024.descrip_term, precio LIKE cotb00015.precio, nom_sp LIKE cotb00001.nom_sp END RECORD DEFINE nab ARRAY[200] OF RECORD cod_nab LIKE cotb00005.cod_nab, descrip_esp LIKE cotb00005.descrip_esp, descrip_ing LIKE cotb00005.descrip_ing END RECORD DEFINE furgon ARRAY[200] OF RECORD cod_furg LIKE cotb00003.cod_furg, descrip_esp LIKE cotb00003.descrip_furg END RECORD DEFINE fmp ARRAY[200] OF RECORD cod_n LIKE cotb00004.cod_n, cod_grupo LIKE cotb00004.cod_grupo, cod_tipo LIKE cotb00004.cod_tipo, cod_sec LIKE cotb00004.cod_sec, descrip_esp LIKE intb00001.descrip_esp, unidad_med LIKE intb00001.unidad_med, cantidad DECIMAL(12,3), cod_furg LIKE cotb00004.cod_furg, descrip6 CHAR(50) END RECORD DEFINE smp DYNAMIC ARRAY OF RECORD cod_n LIKE intb00001.cod_n, cod_grupo LIKE intb00001.cod_grupo, cod_tipo LIKE intb00001.cod_tipo, cod_sec LIKE intb00001.cod_sec, descrip_esp CHAR(43), precio LIKE cotb00015.precio END RECORD DEFINE embarque CHAR(24) DEFINE notificar CHAR(24) DEFINE ordenes RECORD num_oc INTEGER, tipo LIKE cotb00014.tipo, fech_oc LIKE cotb00014.fech_oc, num_pr LIKE cotb00014.num_pr, cod_sp LIKE cotb00014.cod_sp, cod_sp_sec LIKE cotb00014.cod_sp_sec, term_sp LIKE cotb00014.term_sp, via LIKE cotb00014.via, enviada LIKE cotb00014.enviada, fech_enviada LIKE cotb00014.fech_enviada, pago LIKE cotb00014.pago, fech_pago LIKE cotb00014.fech_pago, cierre LIKE cotb00014.cierre, cod_pt CHAR(4), bodega INTEGER END RECORD DEFINE arr_ordenes DYNAMIC ARRAY OF RECORD num_orden INT, num_req LIKE cotb00006.num_req, cod_n SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT, descripcion CHAR(180), unidad CHAR(4), cantidad DECIMAL(12,3), tipo_costo CHAR(10), precio DECIMAL(18,5), porc_desc DEC(12,2), monto_desc DEC(12,2), valor DECIMAL(12,2) END RECORD DEFINE arr_ordenes2 DYNAMIC ARRAY OF RECORD num_req LIKE cotb00006.num_req, cod_n SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT, cantidad DECIMAL(12,3), precio LIKE cotb00008.precio, valor DECIMAL(12,2), recibido DECIMAL(12,2) END RECORD DEFINE arr_ordenes21 DYNAMIC ARRAY OF RECORD num_req LIKE cotb00006.num_req, cod_n SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT, cantidad DECIMAL(12,3), precio LIKE cotb00008.precio, valor DECIMAL(11,2) END RECORD DEFINE arr_orden20 DYNAMIC ARRAY OF RECORD cantidad DECIMAL(12,3), unidad CHAR(10), descripcion CHAR(30), valor1 DECIMAL(11,2) END RECORD DEFINE ordenes1 RECORD num_req LIKE cotb00006.num_req, codigo CHAR(10), cantidad DECIMAL(12,3), precio LIKE cotb00008.precio, valor DECIMAL(11,2) END RECORD DEFINE pais_wd ARRAY [200] OF RECORD cod_pais LIKE cotb00018.cod_pais, nom_pais LIKE cotb00018.nom_pais END RECORD DEFINE suplidor RECORD LIKE cotb00001.* DEFINE supliart RECORD LIKE cotb00002.* DEFINE furgones RECORD LIKE cotb00003.* DEFINE furgonart RECORD LIKE cotb00004.* DEFINE arancel RECORD LIKE cotb00005.* DEFINE articulos RECORD LIKE intb00001.* DEFINE det_requi RECORD LIKE cotb00008.* DEFINE polizas RECORD LIKE cotb00017.* DEFINE paises RECORD LIKE cotb00018.* DEFINE puertos RECORD LIKE cotb00019.* DEFINE seguros RECORD LIKE cotb00022.* DEFINE pagos RECORD LIKE cotb00024.* DEFINE departamento RECORD LIKE adtb00001.* DEFINE notas RECORD LIKE cotb00029.* DEFINE monedas RECORD LIKE cotb00031.* END GLOBALS