{ ---------------------------------------------------------------------- PROGRAMA : INPRMT036 OBJETIVO : Programa Captura Documento Movimiento: REQUISICION DE MATERIALES de Inventario de Materia Prima. PROGRAMADOR : Ing. Juan Fco. Soto (Copiado del INPRMT016) FECHA REALIZACION : Agosto 10, 1992. MODIFICADO POR : Ing. Juan Fco. Soto. FECHA : Noviembre 5, 1992. DESCRIPCION : Graba la cantidad en negativo para calculoa mvtos. ---------------------------------------------------------------------- } GLOBALS "inprgb000.4gl" DEFINE impresion VARCHAR(20) MAIN DEFER INTERRUPT CALL ARG_VAL(1) RETURNING usuarios CALL ARG_VAL(2) RETURNING clave CALL ARG_VAL(3) RETURNING impresor CONNECT to "smarmotech" USER usuarios USING clave SELECT * INTO p_companias.* FROM companias CALL inprmt036() END MAIN FUNCTION busca_material() LET int_flag = FALSE OPEN WINDOW material1 AT 10,9 WITH FORM "infmwd004" ATTRIBUTE(BORDER,FORM LINE FIRST + 2) CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, a.unidad_med FROM cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp, unidad_med LET selec = "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ", "a.unidad_med FROM intb00001 a ", "WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1,2,3,4" PREPARE comando4 FROM selec DECLARE comp4 CURSOR FOR comando4 LET idx = 1 FOREACH comp4 INTO datos_mt[idx].* LET idx = idx + 1 END FOREACH CALL SET_COUNT(idx - 1) IF idx = 1 THEN LET numero_msg = 3 CALL msg(numero_msg) GOTO salir END IF DISPLAY ARRAY datos_mt TO datos_mt1.* LET idx = ARR_CURR() LABEL salir: CLOSE WINDOW material1 END FUNCTION FUNCTION inprmt036() DEFINE fecha CHAR(8) DEFINE hora CHAR(5) CLEAR SCREEN OPTIONS ERROR LINE 24, FORM LINE 4, COMMENT LINE 22, PROMPT LINE 23 LET fecha = today USING "dd/mm/yyyy" LET hora = TIME OPEN FORM infmmt036 FROM "infmmt036" DISPLAY FORM infmmt036 MENU ON ACTION nuevo CALL inprad036() ON ACTION buscar LET pprograma='inprmt036' CALL reimprime(pprograma) ON ACTION salir EXIT MENU END MENU END FUNCTION FUNCTION inprad036() DEFINE fecha_c DATE DEFINE dia SMALLINT # WHENEVER ERROR CONTINUE LET opc = null LET int_flag = FALSE INITIALIZE datos1.* TO NULL LABEL otra_vez: LABEL vuelve: IF (OPC = "S" OR OPC = "s") OR opc is null THEN INITIALIZE datos1.* TO NULL END IF INPUT BY NAME datos1.num_doc, datos1.fecha,datos1.bodega,datos1.depto_a,impresion WITHOUT DEFAULTS BEFORE FIELD bodega LET impresion = 'MATRICIAL' LET datos1.bodega = 1 DISPLAY BY NAME datos1.bodega AFTER FIELD bodega SELECT *FROM intb00009 WHERE cod_bodega = datos1.bodega IF status >= 0 THEN IF status = NOTFOUND THEN LET numero_msg = 3 CALL msg(numero_msg) NEXT FIELD bodega END IF ELSE CALL integridad() IF bandera = 1 THEN LET bandera = 0 RETURN END IF END IF BEFORE FIELD num_doc LET datos1.fecha = today using "dd/mm/yyyy" DISPLAY BY NAME datos1.fecha AFTER FIELD fecha IF datos1.fecha IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD fecha END IF IF datos1.fecha > TODAY THEN LET numero_msg = 189 CALL msg(numero_msg) NEXT FIELD fecha END IF LET p_fechas = datos1.fecha CALL prd(p_fechas,usuarios) RETURNING bandera IF bandera = 1 THEN LET bandera = 0 NEXT FIELD fecha END IF AFTER FIELD depto_a IF datos1.depto_a IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD depto_a ELSE DISPLAY "departamento ",datos1.depto_a SELECT a.nom_dpto INTO datos1.nom_dpto FROM adtb00001 a WHERE a.departamento = datos1.depto_a and a.status_t is null IF status >= 0 THEN IF STATUS = NOTFOUND THEN LET numero_msg = 3 CALL msg(numero_msg) NEXT FIELD depto_a END IF else CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if END IF END IF DISPLAY datos1.nom_dpto TO nombre_d AFTER INPUT IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = FALSE CALL movi.clear() EXIT PROGRAM END IF IF datos1.depto_a IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD depto_a ELSE SELECT UNIQUE a.nom_dpto INTO datos1.nom_dpto FROM adtb00001 a WHERE a.departamento = datos1.depto_a and a.status_t is null IF status >= 0 THEN IF STATUS = NOTFOUND THEN LET numero_msg = 3 CALL msg(numero_msg) NEXT FIELD depto_a END IF ELSE CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if END IF END IF EXIT INPUT END INPUT INITIALIZE ant_art.* TO NULL IF opc = "S" or opc = "s" OR opc IS NULL THEN CALL movi.clear() END IF CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if INPUT ARRAY movi WITHOUT DEFAULTS FROM s_movi1.* ON KEY(CONTROL-W) CALL busca_material() LET movi[p_act].cod_n = datos_mt[idx].cod_n LET movi[p_act].cod_grupo = datos_mt[idx].cod_grupo LET movi[p_act].cod_tipo = datos_mt[idx].cod_tipo LET movi[p_act].cod_sec = datos_mt[idx].cod_sec LET movi[p_act].descrip_esp = datos_mt[idx].descrip_esp LET movi[p_act].unidad_med = datos_mt[idx].unidad_med DISPLAY movi[p_act].cod_n TO s_movi1.cod_n DISPLAY movi[p_act].cod_grupo TO s_movi1.cod_grupo DISPLAY movi[p_act].cod_tipo TO s_movi1.cod_tipo DISPLAY movi[p_act].cod_sec TO s_movi1.cod_sec DISPLAY movi[p_act].descrip_esp TO s_movi1.descrip_esp BEFORE ROW LET p_act = arr_curr() LET scr_l = scr_line() AFTER ROW IF movi[p_act].cod_n is not null and movi[p_act].cod_grupo is not null and movi[p_act].cod_tipo is not null and movi[p_act].cod_sec is not null then LET p_act = arr_curr() LET ant_art.cod_n = movi[p_act].cod_n LET ant_art.cod_grupo = movi[p_act].cod_grupo LET ant_art.cod_tipo = movi[p_act].cod_tipo LET ant_art.cod_sec = movi[p_act].cod_sec FOR idx = 1 TO arr_count() IF idx != p_act THEN IF movi[idx].cod_n = ant_art.cod_n AND movi[idx].cod_grupo = ant_art.cod_grupo AND movi[idx].cod_tipo = ant_art.cod_tipo AND movi[idx].cod_sec = ant_art.cod_sec THEN LET numero_msg = 21 CALL msg(numero_msg) LET p_act = p_act - 1 NEXT FIELD cod_n END IF END IF END FOR IF movi[p_act].cantidad_1 IS NULL and movi[p_act].cantidad_2 IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cod_n END IF END IF LET ant_art.cod_n = movi[p_act].cod_n LET ant_art.cod_grupo = movi[p_act].cod_grupo LET ant_art.cod_tipo = movi[p_act].cod_tipo LET ant_art.cod_sec = movi[p_act].cod_sec AFTER FIELD cod_n LET p_act = arr_curr() IF movi[p_act].cod_n is not null then LET ant_art.cod_n = movi[p_act].cod_n LET ant_art.cod_grupo = movi[p_act].cod_grupo LET ant_art.cod_tipo = movi[p_act].cod_tipo LET ant_art.cod_sec = movi[p_act].cod_sec FOR idx = 1 TO arr_count() IF idx != p_act THEN IF movi[idx].cod_n = ant_art.cod_n AND movi[idx].cod_grupo = ant_art.cod_grupo AND movi[idx].cod_tipo = ant_art.cod_tipo AND movi[idx].cod_sec = ant_art.cod_sec THEN LET p_act = p_act - 1 NEXT FIELD cod_grupo END IF END IF END FOR END IF AFTER FIELD cod_grupo IF movi[p_act].cod_grupo is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cod_n END IF LET p_act = arr_curr() LET ant_art.cod_n = movi[p_act].cod_n LET ant_art.cod_grupo = movi[p_act].cod_grupo LET ant_art.cod_tipo = movi[p_act].cod_tipo LET ant_art.cod_sec = movi[p_act].cod_sec FOR idx = 1 TO arr_count() IF idx != p_act THEN IF movi[idx].cod_n = ant_art.cod_n AND movi[idx].cod_grupo = ant_art.cod_grupo AND movi[idx].cod_tipo = ant_art.cod_tipo AND movi[idx].cod_sec = ant_art.cod_sec THEN LET p_act = p_act - 1 NEXT FIELD cod_tipo END IF END IF END FOR AFTER FIELD cod_tipo IF movi[p_act].cod_tipo is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cod_n END IF LET p_act = arr_curr() LET ant_art.cod_n = movi[p_act].cod_n LET ant_art.cod_grupo = movi[p_act].cod_grupo LET ant_art.cod_tipo = movi[p_act].cod_tipo LET ant_art.cod_sec = movi[p_act].cod_sec FOR idx = 1 TO arr_count() IF idx != p_act THEN IF movi[idx].cod_n = ant_art.cod_n AND movi[idx].cod_grupo = ant_art.cod_grupo AND movi[idx].cod_tipo = ant_art.cod_tipo AND movi[idx].cod_sec = ant_art.cod_sec THEN LET p_act = p_act - 1 NEXT FIELD cod_sec END IF END IF END FOR AFTER FIELD cod_sec LET p_act = arr_curr() IF movi[p_act].cod_sec is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cod_n END IF IF movi[p_act].cod_n is null AND movi[p_act].cod_sec is not null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cod_n END IF IF movi[p_act].cod_n is not null and movi[p_act].cod_grupo is not null and movi[p_act].cod_tipo is not null and movi[p_act].cod_sec is not null then SELECT descrip_esp,unidad_med INTO descrip1,descrip2 FROM intb00001 WHERE cod_n = movi[p_act].cod_n and cod_grupo = movi[p_act].cod_grupo and cod_tipo = movi[p_act].cod_tipo and cod_sec = movi[p_act].cod_sec and status_t is null IF status >= 0 THEN IF STATUS = NOTFOUND THEN LET numero_msg = 3 CALL msg(numero_msg) NEXT FIELD cod_n END IF else CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if END IF SELECT * FROM intb00002 WHERE cod_n = movi[p_act].cod_n and cod_grupo = movi[p_Act].cod_grupo and cod_tipo = movi[p_act].cod_tipo and cod_sec = movi[p_act].cod_sec and status_t is null IF status >= 0 THEN IF STATUS = NOTFOUND THEN LET numero_msg = 35 CALL msg(numero_msg) NEXT FIELD cod_n END IF ELSE CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if END IF # EXISTENCIA SELECT sum(cantidad_2) INTO chequea.existe FROM intb00006 WHERE cod_n = movi[p_act].cod_n and cod_grupo = movi[p_act].cod_grupo and cod_tipo = movi[p_act].cod_tipo and cod_sec = movi[p_act].cod_sec and status_t is NULL LET movi[p_act].existencia = chequea.existe LET movi[p_act].descrip_esp = descrip1 LET movi[p_act].unidad_med = descrip2 clipped DISPLAY movi[p_act].descrip_esp TO s_movi1[scr_l].descrip_esp DISPLAY movi[p_act].unidad_med TO s_movi1[scr_l].unidad_med DISPLAY movi[p_act].existencia TO s_movi1[scr_l].existencia LET ant_art.cod_n = movi[p_act].cod_n LET ant_art.cod_grupo = movi[p_act].cod_grupo LET ant_art.cod_tipo = movi[p_act].cod_tipo LET ant_art.cod_sec = movi[p_act].cod_sec FOR idx = 1 TO arr_count() IF idx != p_act THEN IF movi[idx].cod_n = ant_art.cod_n AND movi[idx].cod_grupo = ant_art.cod_grupo AND movi[idx].cod_tipo = ant_art.cod_tipo AND movi[idx].cod_sec = ant_art.cod_sec THEN LET numero_msg = 21 CALL msg(numero_msg) NEXT FIELD cod_n END IF END IF END FOR END IF AFTER FIELD cantidad_1 IF movi[p_act].cantidad_1 IS NULL then LET numero_msg = 16 CALL msg(numero_msg) END IF AFTER FIELD cantidad_2 IF movi[p_act].cod_n is not null and movi[p_act].cod_grupo is not null and movi[p_act].cod_tipo is not null and movi[p_act].cod_sec is not null THEN IF movi[p_act].cantidad_2 IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cantidad_2 END IF #Verifica que la cantidad digitada no exceda a la existencia IF movi[p_act].cantidad_2 > chequea.existe THEN LET numero_msg = 30 CALL msg(numero_msg) NEXT FIELD cod_n END IF END IF #Verifica el punto de reorden y da mensaje LET cant = chequea.existe - movi[p_act].cantidad_2 IF cant < chequea.pto THEN LET numero_msg = 31 CALL msg(numero_msg) END IF IF movi[p_act].cantidad_2 > movi[p_act].cantidad_1 THEN LET numero_msg = 28 CALL msg(numero_msg) END IF IF movi[p_act].cantidad_2 IS NULL then LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cod_n END IF AFTER INPUT IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false EXIT PROGRAM END IF IF movi[p_act].cod_n is not null and movi[p_act].cod_grupo is not null and movi[p_act].cod_tipo is not null and movi[p_act].cod_sec is not null then SELECT descrip_esp,unidad_med INTO descrip1,descrip2 FROM intb00001 WHERE cod_n = movi[p_act].cod_n and cod_grupo = movi[p_act].cod_grupo and cod_tipo = movi[p_act].cod_tipo and cod_sec = movi[p_act].cod_sec and status_t is null IF STATUS = NOTFOUND THEN LET numero_msg = 3 CALL msg(numero_msg) NEXT FIELD cod_n END IF CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if SELECT * FROM intb00002 WHERE cod_n = movi[p_act].cod_n and cod_grupo = movi[p_Act].cod_grupo and cod_tipo = movi[p_act].cod_tipo and cod_sec = movi[p_act].cod_sec and status_t is null IF STATUS = NOTFOUND THEN LET numero_msg = 35 CALL msg(numero_msg) NEXT FIELD cod_n END IF CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if LET movi[p_act].descrip_esp = descrip1 LET movi[p_act].unidad_med = descrip2 clipped DISPLAY movi[p_act].descrip_esp TO s_movi1[scr_l].descrip_esp DISPLAY movi[p_act].unidad_med TO s_movi1[scr_l].unidad_med LET ant_art.cod_n = movi[p_act].cod_n LET ant_art.cod_grupo = movi[p_act].cod_grupo LET ant_art.cod_tipo = movi[p_act].cod_tipo LET ant_art.cod_sec = movi[p_act].cod_sec FOR idx = 1 TO arr_count() IF idx != p_act THEN IF movi[idx].cod_n = ant_art.cod_n AND movi[idx].cod_grupo = ant_art.cod_grupo AND movi[idx].cod_tipo = ant_art.cod_tipo AND movi[idx].cod_sec = ant_art.cod_sec THEN LET numero_msg = 21 CALL msg(numero_msg) NEXT FIELD cod_n END IF END IF END FOR END IF # Chequea la Existencia del ITEM FOR idx = 1 TO movi.getLength() IF movi[idx].cod_n is not null and movi[idx].cod_grupo is not null and movi[idx].cod_tipo is not null and movi[idx].cod_sec is not null THEN SELECT sum(cantidad_2) INTO chequea.existe FROM intb00006 WHERE cod_n = movi[idx].cod_n and cod_grupo = movi[idx].cod_grupo and cod_tipo = movi[idx].cod_tipo and cod_sec = movi[idx].cod_sec and status_t is null #Verifica que la cantidad digitada no exceda a la existencia IF movi[idx].cantidad_2 > chequea.existe THEN LET numero_msg = 225 CALL msg(numero_msg) NEXT FIELD cod_n END IF LET cant = chequea.existe - movi[idx].cantidad_2 IF cant < chequea.pto THEN LET numero_msg = 31 CALL msg(numero_msg) END IF IF movi[idx].cantidad_1 IS NULL and movi[idx].cantidad_2 IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD cod_n END IF END IF END FOR EXIT INPUT END INPUT PROMPT "Toda la Informacion Esta Correcta? (S/N)" FOR CHAR opc IF OPC = "S" or OPC = "s" THEN SELECT a.num_doc INTO datos1.num_doc FROM intb00023 a WHERE a.cod_mov = 36 IF STATUS = NOTFOUND THEN INSERT INTO intb00023 (num_doc) values (datos1.num_doc) LET datos1.num_doc = 0 END IF LET datos1.num_doc = datos1.num_doc + 1 UPDATE intb00023 set num_doc = datos1.num_doc,us_mod = SUSER_SNAME(),fech_mod = GETDATE() WHERE cod_mov = 36 DISPLAY BY NAME datos1.num_doc ATTRIBUTE(REVERSE,YELLOW) CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of, doble_on,doble_off,comp_on,comp_off, doce,normal,archivo,copia IF impresion = 'PDF' THEN CALL configureoutput('PDF') RETURNING handler START REPORT formu36 TO XML HANDLER HANDLER ELSE START REPORT formu36 TO archivo END IF FOR idx = 1 TO movi.getLength() IF movi[idx].cod_n is not null and movi[idx].cod_grupo is not null and movi[idx].cod_tipo is not null and movi[idx].cod_sec is not null THEN LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1 INSERT INTO intb00006 (num_doc,fecha,cod_mov,cod_n,cod_grupo,cod_tipo, cod_Sec,cantidad_1,cantidad_2,depto_a,bodega, us_crea,fech_crea) VALUES (datos1.num_doc,datos1.fecha, 36,movi[idx].cod_n, movi[idx].cod_grupo,movi[idx].cod_tipo, movi[idx].cod_sec,movi[idx].cantidad_1, movi[idx].cantidad_2,datos1.depto_a, datos1.bodega,SUSER_SNAME(),GETDATE()) OUTPUT TO REPORT formu36(datos1.num_doc,datos1.fecha, datos1.depto_a,datos1.nom_dpto, movi[idx].*) CALL integridad() IF bandera = 1 THEN LET bandera = 0 RETURN END IF LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1 CALL integridad() if bandera = 1 THEN LET bandera = 0 RETURN end if END IF END FOR SELECT a.* FROM intb00023 a WHERE a.cod_mov = 36 IF STATUS = NOTFOUND THEN INSERT INTO intb00023(cod_mov,num_doc) VALUES (36,datos1.num_doc) ELSE UPDATE intb00023 SET num_doc = datos1.num_doc WHERE cod_mov = 36 END IF LET numero_msg = 1 CALL msg(numero_msg) CLEAR FORM CALL movi.clear() FINISH REPORT formu36 IF impresion = "MATRICIAL" THEN RUN imprime END IF ELSE GOTO otra_vez END IF GOTO vuelve END FUNCTION FUNCTION limpia() CALL movi.clear() END FUNCTION REPORT formu36(x,z) DEFINE x RECORD num_doc LIKE iptb00006.num_doc, fecha LIKE iptb00006.fecha, depto_a SMALLINT, nom_dpto LIKE adtb00001.nom_dpto END RECORD DEFINE z 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_1 LIKE iptb00006.cantidad_1, cantidad_2 LIKE intb00006.cantidad_2, unidad_med LIKE intb00001.unidad_med, descrip_esp LIKE intb00001.descrip_esp, existencia FLOAT END RECORD DEFINE usuario_c CHAR(9) DEFINE signo CHAR(1) DEFINE doce,normal,doble,doble_of,negras,negras_off CHAR(2) DEFINE l,cuenta SMALLINT OUTPUT LEFT MARGIN 5 ORDER BY x.num_doc,z.cod_sec FORMAT BEFORE GROUP OF x.num_doc PRINT doce PRINT COLUMN 1, negras,doble,p_companias.nombre CLIPPED PRINT COLUMN 71,"No. ",doble,x.num_doc using "<<<<<<" PRINT COLUMN 2, x.depto_a using "&&&&"," ",x.nom_dpto, COLUMN 30, "(36)", " REQUISICION MATERIALES", COLUMN 71, x.fecha using "dd/mm/yyyy" SKIP 1 LINES PRINT COLUMN 1, "------------------------------------------------------------------------------", "-------------" PRINT COLUMN 75, "CANTIDAD" PRINT COLUMN 2,doble, "PRODUCTO",doble_of clipped, COLUMN 61, "ORDENADA", COLUMN 76, "ENTREGADA", 2 SPACES, "EXISTENCIA" PRINT COLUMN 1, "------------------------------------------------------------------------------", "-------------" SKIP 1 LINES ON EVERY ROW PRINT COLUMN 2, z.cod_n using "&","-", COLUMN 4, z.cod_grupo using "&","-", COLUMN 6, z.cod_tipo using "&&","-", COLUMN 9, z.cod_sec using "&&&", COLUMN 17, z.descrip_esp clipped," ", z.unidad_med, COLUMN 63, z.cantidad_1 using "###,###,###.##", COLUMN 78, z.cantidad_2 using "###,###,###.##", 2 SPACES, z.existencia USING "<<,<<<.##" PAGE TRAILER PRINT COLUMN 1, "------------------", COLUMN 22, "------------------", COLUMN 45, "------------------", COLUMN 65, "------------------" PRINT COLUMN 5, "Entregado Por", COLUMN 24, "Recibido Por", COLUMN 48, "Aprobado Por", COLUMN 68, "Aprobado Por" PRINT normal END REPORT { FUNCTION reimprime() CONSTRUCT CRITERIO on a.num_doc,a.cod_mov,a.fecha FROM num_doc,cod_mov,fecha LET selec = "SELECT a.num_doc,a.fecha,a.depto_a,b.nom_dpto,a.bodega FROM intb00006 a, ", "outer adtb00001 b ", " WHERE a.depto_a = num_doc LIKE intb00006.num_doc, fecha LIKE intb00006.fecha, #cod_seccion LIKE adtb00002.cod_seccion, depto_a LIKE intb00006.depto_a, nom_dpto LIKE adtb00001.nom_dpto, bodega LIKE intb00006.bodega }