jsoto/MBS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
888a36553e01ca7def1285a69ef411aaf53ff2d7
MBS/PROYECTO/indir/inprfu000.4gl
T
jpeguero 6f50812bb1 Completa Buscar Documentos en inprmt036 y agrega inprmt066 
- inprfu000.4gl: corrige reimprime()/busca_info() para que branchen
  correctamente segun el programa llamante (inprmt046 vs otros).
  Antes usaban siempre las variables de inprmt046 (otros_mov),
  causando errores en inprmt036. Se activa y corrige la logica que
  estaba comentada para el caso generico (Johnny autorizo completarla,
  confirmado que tampoco funcionaba en produccion).
- inprmt066 (Anular Documentos): agrega formulario faltante y el
  campo Bodega (combo) que no existia. Ensancha el combo para
  legibilidad. Probado: anulacion de documento real, funciona.
2026-08-28 19:21:13 -04:00

377 lines
15 KiB
Plaintext
Raw Blame History

GLOBALS
"inprgb000.4gl"
DEFINE nombre,apellido CHAR(30),
xinserta CHAR(1),
kprograma varchar(20),
xdescrip_mov VARCHAR(50),
xcod_mov_tmp LIKE intb00005.cod_mov
FUNCTION reimprime(xprograma)
DEFINE xprograma CHAR(20),
insertamedida CHAR(1)
IF xprograma = 'inprmt046' THEN
CONSTRUCT criterio ON a.cod_mov,a.num_doc,a.fecha,a.depto_a,a.bodega FROM
cod_mov,num_doc,fecha,departamento,bodega
BEFORE CONSTRUCT
CALL cincodmov()
CALL busca_departamento()
CALL bodegas('1')
AFTER CONSTRUCT
IF INT_FLAG THEN
LET INT_FLAG = FALSE
CALL msg(2)
EXIT PROGRAM
END IF
END CONSTRUCT
LET selec = "SELECT distinct b.cod_mov,b.descrip_mov,a.num_doc,",
" CONVERT(CHAR(10),a.fecha,103),a.depto_a,a.num_emp,a.bodega FROM intb00006 a,intb00005 b ",
" WHERE ",criterio CLIPPED," AND ",
" a.cod_mov = b.cod_mov AND a.status_t IS NULL "
LET xinserta = insertamedida
ELSE
CONSTRUCT criterio ON a.num_doc,a.fecha,a.depto_a FROM
num_doc,fecha,depto_a
LET selec = "SELECT distinct b.cod_mov,b.descrip_mov,a.num_doc,",
" CONVERT(CHAR(10),a.fecha,103),a.depto_a,a.num_emp,a.bodega FROM intb00006 a,intb00005 b ",
" WHERE ",criterio CLIPPED," AND a.cod_mov =36 and ",
" a.cod_mov = b.cod_mov AND a.status_t IS NULL "
LET xinserta = 'N'
END IF
LET kprograma = xprograma
PREPARE breimprime FROM selec
DECLARE bdocumento SCROLL CURSOR FOR breimprime
OPEN bdocumento
IF kprograma = 'inprmt046' THEN
FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH FIRST bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
IF STATUS = NOTFOUND THEN
CALL msg(3)
RETURN
END IF
CALL busca_info()
MENU "NAVEGACION:"
COMMAND "Siguiente" "Busca el siguiente documento"
IF kprograma = 'inprmt046' THEN
FETCH NEXT bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH NEXT bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
CALL busca_info()
COMMAND "Primero" "Busca el siguiente documento"
IF kprograma = 'inprmt046' THEN
FETCH FIRST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH FIRST bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
CALL busca_info()
COMMAND "Anterior" "Busca el Registrosiguiente documento"
IF kprograma = 'inprmt046' THEN
FETCH PREVIOUS bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH PREVIOUS bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
CALL busca_info()
COMMAND "Ultimo" "Busca el Ultimo Documento"
IF kprograma = 'inprmt046' THEN
FETCH LAST bdocumento INTO otros_mov.cod_mov,xdescrip_mov,
otros_mov.num_doc,otros_mov.fecha,
datos1.depto_a,pnum_emp,otros_mov.bodega
ELSE
FETCH LAST bdocumento INTO xcod_mov_tmp,xdescrip_mov,
datos1.num_doc,datos1.fecha,
datos1.depto_a,pnum_emp,datos1.bodega
END IF
CALL busca_info()
COMMAND KEY("T") "reTornar" "Salir de busqueda"
EXIT MENU
END MENU
END FUNCTION
FUNCTION busca_info()
IF kprograma = 'inprmt046' THEN
SELECT UNIQUE nom_dpto INTO nombre_d FROM adtb00001 a
WHERE a.departamento = datos1.depto_a and
a.status_t is NULL
LET nombre =NULL
LET apellido = NULL
SELECT a.nom1_emp,a.apell1_emp INTO nombre,apellido FROM adtb00003 a
WHERE a.num_Emp = pnum_emp
DISPLAY BY NAME otros_mov.cod_mov,otros_mov.num_doc,
otros_mov.fecha,nombre,apellido
DISPLAY datos1.depto_a TO departamento
DECLARE busca CURSOR FOR
SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cantidad_2, b.unidad_med, b.descrip_Esp,NULL,
a.maquina, a.clasf_bloque
FROM intb00006 a,intb00001 b
WHERE a.num_Doc = otros_mov.num_doc AND
a.cod_mov = otros_mov.cod_mov AND
a.cod_n = b.cod_n AND
a.cod_grupo = b.cod_grupo AND
a.cod_tipo = b.cod_tipo AND
a.cod_Sec = b.cod_Sec AND
a.bodega = otros_mov.bodega
LET idx = 1
FOREACH busca INTO movi2[idx].cod_n,movi2[idx].cod_grupo,
movi2[idx].cod_tipo,movi2[idx].cod_sec,
movi2[idx].cantidad_2, movi2[idx].unidad_med,
movi2[idx].descrip_esp, movi2[idx].existencia,
movi2[idx].maquina, movi2[idx].clasf_bloque
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY movi2 TO s_movi1.*
BEFORE DISPLAY
CALL maquinaria()
CALL clasf_bloque()
ON ACTION rimprimir
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
START REPORT formu46 TO archivo
FOR idx = 1 TO movi2.getLength()
OUTPUT TO REPORT formu46(otros_mov.num_doc,otros_mov.fecha,
otros_mov.cod_mov,otros_mov.bodega,xdescrip_mov,
nombre_d,
movi2[idx].*)
END FOR
FINISH REPORT formu46
RUN imprime
END DISPLAY
ELSE
SELECT UNIQUE nom_dpto INTO datos1.nom_dpto FROM adtb00001 a
WHERE a.departamento = datos1.depto_a and
a.status_t is NULL
DISPLAY BY NAME datos1.num_doc,datos1.fecha,datos1.depto_a,datos1.bodega
DISPLAY datos1.nom_dpto TO nombre_d
DECLARE busca36 CURSOR FOR
SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cantidad_1,a.cantidad_2,
b.unidad_med, b.descrip_Esp
FROM intb00006 a,intb00001 b
WHERE a.num_Doc = datos1.num_doc AND
a.cod_mov = 36 AND
a.cod_n = b.cod_n AND
a.cod_grupo = b.cod_grupo AND
a.cod_tipo = b.cod_tipo AND
a.cod_Sec = b.cod_Sec AND
a.bodega = datos1.bodega
LET idx = 1
FOREACH busca36 INTO movi[idx].cod_n,movi[idx].cod_grupo,
movi[idx].cod_tipo,movi[idx].cod_sec,
movi[idx].cantidad_1,movi[idx].cantidad_2,
movi[idx].unidad_med,movi[idx].descrip_esp
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY movi TO s_movi1.*
ON ACTION rimprimir
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
doble_on,doble_off,comp_on,comp_off,
doce,normal,archivo,copia
START REPORT formu36 TO archivo
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
OUTPUT TO REPORT formu36(datos1.num_doc,datos1.fecha,
datos1.depto_a,datos1.nom_dpto,
movi[idx].*)
END IF
END FOR
FINISH REPORT formu36
RUN imprime
END DISPLAY
END IF
END FUNCTION
REPORT formu46(x,xnombre_d,z)
DEFINE x RECORD
num_doc LIKE iptb00006.num_doc,
fecha LIKE iptb00006.fecha,
cod_mov LIKE intb00005.cod_mov,
bodega SMALLINT,
descrip_mov CHAR(30)
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 intb00006.cantidad_1,
cantidad_2 LIKE intb00006.cantidad_2,
unidad_med LIKE intb00001.unidad_med,
descrip_esp LIKE intb00001.descrip_esp,
existencia FLOAT,
maquina INT,
clasf_bloque INT
END RECORD,
xancho1,xlargo1,xespesor1,xancho2,xlargo2,xespesor2,xmedida1,xmedida2,
total_medida1,total_medida2 DEC(12,4),
xcodigo_bloque CHAR(12),xnombre_d CHAR(30),
titulo_bodega VARCHAR(60)
DEFINE doce,normal,doble,doble_of,negras,negras_off CHAR(2)
OUTPUT
LEFT MARGIN 0
ORDER BY x.num_doc,z.cod_sec
FORMAT
BEFORE GROUP OF x.num_doc
LET doble = ASCII 14
LET doble_of = ASCII 20
LET negras = ASCII 27, ASCII 69
LET negras_off = ASCII 27, ASCII 70
LET comp_on= ASCII 15
LET doce = ASCII 27, ASCII 77
LET normal = ASCII 27, ASCII 80
PRINT comp_on
PRINT COLUMN 1, negras,doble,p_companias.nombre CLIPPED
PRINT COLUMN 71,"No. ",doble,x.num_doc using "<<<<<<"
PRINT COLUMN 30, x.cod_mov using "&&"," ",x.descrip_mov CLIPPED,
COLUMN 71, x.fecha using "dd/mm/yy"
PRINT COLUMN 1, "DEPARTAMENTO: ",datos1.depto_a," ",xnombre_d
PRINT COLUMN 1, "OPERADOR : ",pnum_emp,"-",nombre," ",apellido
# BUSCA BODEGA
SELECT ISNULL(a.descripcion,'NO TIENE') INTO titulo_bodega FROM intb00009 a WHERE a.cod_bodega = x.bodega
PRINT COLUMN 1,"BODEGA: ",titulo_bodega CLIPPED
PRINT COLUMN 1,
"------------------------------------------------------------------------------",
"---------------------------"
PRINT COLUMN 68, "CANTIDAD"
PRINT COLUMN 2,doble, "PRODUCTO",doble_of clipped,
COLUMN 61, "ENTREGADA",
COLUMN 76, "MAQUINA",
COLUMN 86, "CLASF.BLQ"
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 63, z.cantidad_2 using "###,###.####",
COLUMN 76, z.maquina using "&&&&&&",
COLUMN 86, z.clasf_bloque using "&&&&&&&"
SELECT DISTINCT a.documento FROM intb00018 a WHERE a.documento = x.num_doc AND a.cod_mov = x.cod_mov AND a.bodega = x.bodega AND
a.cod_n = z.cod_n AND a.cod_grupo = z.cod_grupo AND a.cod_tipo = z.cod_tipo AND
a.cod_Sec = z.cod_sec
IF STATUS <> NOTFOUND THEN
PRINT COLUMN 2, "=========","========================================","==========================================="
PRINT COLUMN 2, " CODIGO "," MEDIDAS RECIBIDAS |"," MEDIDAS ENVIADAS |"
PRINT COLUMN 2, "=========","========================================","==========================================="
PRINT COLUMN 2, " ANCHO LARGO ESPES ",z.unidad_med," |"," ANCHO LARGO ESPES MEDIDA"
DECLARE busca_medida CURSOR FOR
SELECT a.codigo_bloque,a.ancho1,a.largo1,a.espesor1,a.medida1,
a.ancho2,a.largo2,a.espesor2,a.medida2
INTO xcodigo_bloque,xancho1,xlargo1,xespesor1,xmedida1,
xancho2,xlargo2,xespesor2,xmedida2
FROM intb00018 a
WHERE a.cod_n = z.cod_n and
a.cod_grupo = z.cod_grupo and
a.cod_tipo = z.cod_tipo and
a.cod_Sec = z.cod_Sec and
a.documento =x.num_doc and
a.cod_mov = x.cod_mov AND
a.bodega = x.bodega
LET total_medida1 = 0
LET total_medida2 = 0
FOREACH busca_medida
PRINT COLUMN 2,xcodigo_bloque," ",xancho1 USING "###.####", 2 spaces,
xlargo1 USING "###.####", 2 spaces,
xespesor1 USING "###.####", 2 spaces,
xmedida1 USING "#,###.####", 3 spaces,
xancho2 USING "###.####",2 spaces,
xlargo2 USING "###.####", 2 spaces,
xespesor2 USING "###.####", 2 spaces,
xmedida2 USING "#,###.####"
LET total_medida1 = xmedida1 + total_medida1
LET total_medida2 = xmedida2 + total_medida2
END FOREACH
PRINT COLUMN 45,"==========",
COLUMN 90,"=========="
PRINT COLUMN 45, total_medida1 USING "#,###.####",
COLUMN 90, total_medida2 USING "#,###.####"
END IF
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
Reference in New Issue View Git Blame Copy Permalink