DATABASE rayovac GLOBALS DEFINE movimientos RECORD cod_mov LIKE intb00006.cod_mov, num_doc LIKE intb00006.num_doc, fecha LIKE intb00006.fecha, conduce_no LIKE intb00006.conduce_no, fact_no LIKE intb00006.fact_no, orden_compra LIKE intb00006.orden_compra, cod_sp LIKE intb00006.cod_sp, cod_sp_sec LIKE intb00006.cod_sp_sec, depto_de LIKE intb00006.depto_de, depto_a LIKE intb00006.depto_a, cod_seccion LIKE intb00006.cod_seccion, bodega LIKE intb00006.bodega END RECORD DEFINE ultimo RECORD cond_recep LIKE intb00006.cond_recep, uso_tiempo LIKE intb00006.uso_tiempo END RECORD DEFINE datos1 RECORD num_doc LIKE intb00006.num_doc, fecha LIKE intb00006.fecha, cod_seccion LIKE adtb00002.cod_seccion, depto_a LIKE intb00006.depto_a, nom_seccion LIKE adtb00002.nom_seccion, bodega LIKE intb00006.bodega END RECORD DEFINE p_conteo RECORD fecha LIKE intb00006.fecha, bodega LIKE intb00006.bodega, cod_n LIKE intb00006.cod_n, cod_grupo LIKE intb00006.cod_grupo, cod_tipo LIKE intb00006.cod_tipo, cod_sec LIKE intb00006.cod_sec, cantidad LIKE intb00006.cantidad_2 END RECORD DEFINE costos RECORD mes_ini LIKE intb00013.mes_ini, mes_fin LIKE intb00013.mes_fin, ano LIKE intb00013.ano, cod_n LIKE intb00001.cod_N, cod_grupo LIKE intb00001.cod_grupo, cod_tipo LIKE intb00001.cod_tipo, cod_sec LIKE intb00001.cod_sec, costo_st LIKE intb00013.costo_st, us_crea LIKE intb00013.us_crea, fech_crea LIKE intb00013.fech_crea, us_mod LIKE intb00013.us_mod, fech_mod LIKE intb00013.fech_mod END RECORD DEFINE datos RECORD num_doc LIKE intb00006.num_doc, fecha LIKE intb00006.fecha, depto_de LIKE intb00006.depto_de, depto_a LIKE intb00006.depto_a, nom_dpto LIKE adtb00001.nom_dpto, nom_dpto1 LIKE adtb00001.nom_dpto, bodega LIKE intb00006.bodega END RECORD DEFINE datos_gen RECORD cod_mov LIKE intb00006.cod_mov, num_doc LIKE intb00006.num_doc, cod_sp LIKE intb00006.cod_sp, cod_sp_sec LIKE intb00006.cod_sp_sec, orden_compra LIKE intb00006.orden_compra, conduce_no LIKE intb00006.conduce_no, fact_no LIKE intb00006.fact_no, fecha LIKE intb00006.fecha, bodega LIKE intb00006.bodega, nom_sp LIKE cotb00001.nom_sp, descrip_mov LIKE intb00005.descrip_mov, depto_de LIKE intb00006.depto_de, depto_a LIKE intb00006.depto_a END RECORD DEFINE otros_mov RECORD num_doc LIKE intb00006.num_doc, cod_mov LIKE intb00006.cod_mov, fecha LIKE intb00006.fecha, descrip_mov LIKE intb00005.descrip_mov, bodega LIKE intb00006.bodega END RECORD DEFINE chequea RECORD pto LIKE intb00002.pto_reorden, existe LIKE intb00002.existencia END RECORD DEFINE bandera smallint DEFINE p_fechas DATE DEFINE nombre_dia ARRAY[7] OF char(10) DEFINE nombre_mes ARRAY[12] OF char(10) DEFINE general decimal(12,2) DEFINE p_bodega SMALLINT DEFINE arancel RECORD LIKE cotb00005.* DEFINE status_m char(1) DEFINE decide char(1) DEFINE cant DECIMAL(10,2) DEFINE tipo_papel smallint DEFINE balance DECIMAL(12,2) DEFINE cod_mov_ant LIKE intb00006.cod_mov DEFINE existe_comp,suplidor1,doc_existe,actual,mat_prima CHAR (1000) DEFINE opc ,opt2,existe,ya ,opera1,cambio CHAR(1) DEFINE medida CHAR (3) DEFINE fila smallint DEFINE m_articulos RECORD LIKE intb00002.* DEFINE numero_msg LIKE msgtable.cod_msg DEFINE articulos RECORD LIKE intb00001.* DEFINE suplidor RECORD LIKE intb00008.* DEFINE mensajes RECORD {LIKE msgtable.* } cod_msg smallint, desc_msg char(60), us_crea char(9), fech_crea char(16), us_mod char(9), fech_mod char(16) END RECORD DEFINE transacc RECORD LIKE intb00005.* { cod_mov smallint, descrip_mov char (40), status_mov char (1), cuenta_1 char (4), cuenta_2 char (4), cuenta_3 char (4), us_crea char(9), fech_crea char(16), us_mod char(9), fech_mod char(16) END RECORD } DEFINE medidas RECORD LIKE intb00007.* DEFINE descrip1,descrip2,descrip3,descrip4 CHAR(30) DEFINE c_sustituto RECORD LIKE intb00003.* DEFINE c_equivalente RECORD LIKE intb00004.* DEFINE criterio CHAR(1000) DEFINE selec CHAR(1000) DEFINE cod_n_a,cod_grupo_a,cod_tipo_a,cod_sec_a SMALLINT DEFINE p_act,idx,scr_l SMALLINT DEFINE opcion CHAR(1) DEFINE movi2 ARRAY[100] OF RECORD cod_n LIKE intb00003.cod_n, cod_grupo LIKE intb00003.cod_grupo, cod_tipo LIKE intb00003.cod_tipo, cod_sec LIKE intb00003.cod_sec, cantidad_2 LIKE intb00006.cantidad_2, unidad_med LIKE intb00001.unidad_med, descrip_esp LIKE intb00001.descrip_esp END RECORD DEFINE art ARRAY[200] OF RECORD cod_n1 SMALLINT, cod_grupo1 SMALLINT, cod_tipo1 SMALLINT, cod_sec1 SMALLINT, descrip_esp1 CHAR(30), unidad_med LIKE intb00001.unidad_med, bodega LIKE intb00002.bodega, existencia like intb00002.existencia, pto_reorden LIKE intb00002.pto_reorden, dia_llegada LIKE intb00002.dia_llegada, precio LIKE cotb00015.precio, valor decimal(10,2) END RECORD DEFINE csmov1 ARRAY[300] OF RECORD num_doc CHAR(11), fecha_2 LIKE intb00006.fecha, entrada char(14), salida char(14), balance char(14) END RECORD DEFINE csmov RECORD num_doc LIKE intb00006.num_doc, fecha_1 LIKE intb00006.fecha, cantidad_2 LIKE intb00006.cantidad_2 , cod_mov LIKE intb00006.cod_mov 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 intb00006.bodega, fech_in LIKE intb00006.fecha, fech_fi LIKE intb00006.fecha END RECORD DEFINE movi3 ARRAY[100] OF RECORD codigo CHAR(10), cantidad_1 LIKE intb00006.cantidad_1, cantidad_2 LIKE intb00006.cantidad_2, diferencia DECIMAL(10,2), descrip_esp LIKE intb00001.descrip_esp, unidad_med LIKE intb00001.unidad_med END RECORD DEFINE movi_ant ARRAY[100] OF RECORD cod_n LIKE intb00006.cod_n, cod_grupo LIKE intb00006.cod_grupo, cod_tipo LIKE intb00006.cod_tipo, cod_sec LIKE intb00006.cod_sec, cant_ant LIKE intb00006.cantidad_2 END RECORD DEFINE movi ARRAY[100] OF RECORD cod_n LIKE intb00006.cod_n, cod_grupo LIKE intb00006.cod_grupo, cod_tipo LIKE intb00006.cod_tipo, cod_sec LIKE intb00006.cod_sec, cantidad_1 LIKE intb00006.cantidad_1, cantidad_2 LIKE intb00006.cantidad_2, unidad_med LIKE intb00001.unidad_med, descrip_esp LIKE intb00001.descrip_esp END RECORD DEFINE ant_art 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 END RECORD DEFINE consulta_mv ARRAY[200] OF RECORD num_doc LIKE intb00006.num_doc, fecha LIKE intb00006.fecha, nombre char(7), cantidad_1 LIKE intb00006.cantidad_1, cantidad_2 LIKE intb00006.cantidad_1, balance decimal(12,2) END RECORD DEFINE c_det_inv ARRAY[200] 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, existencia LIKE intb00002.existencia, costo LIKE intb00013.costo_st, valor DECIMAL(12,2) END RECORD DEFINE datos_cs RECORD cod_n LIKE intb00006.cod_n, cod_grupo LIKE intb00006.cod_grupo, cod_tipo LIKE intb00006.cod_tipo, cod_sec LIKE intb00006.cod_sec, descrip_esp LIKE intb00001.descrip_esp, fecha_in LIKE intb00006.fecha, fecha_fi LIKE intb00006.fecha END RECORD DEFINE furgon RECORD LIKE cotb00003.* DEFINE furgonart RECORD LIKE cotb00004.* DEFINE arancelart RECORD LIKE cotb00006.* END GLOBALS