jpeguero
efdf8953dd
- Mueve todo el contenido de PROYECTOS/indir y varias funciones compartidas de PROYECTOS/otrodir hacia PROYECTO, siguiendo instruccion de Johnny (PROYECTOS se va a eliminar). - inprmt002: agrega campo Desglose faltante, corrige typo "eLiminar". - inprmt005: agrega formulario y 3 campos faltantes (Consumo, Requiere Autorizacion, Requisiciones), corrige typo "eLiminar". - inprmt013: agrega formulario, titulo, corrige typo "eLiminar". - inprmt046: agrega formulario y varias funciones/dependencias faltantes (cincodmov, clasf_bloque, medidas, defecto, buscaEmp, consultaTransportista, busca_departamento); corrige nombres de campo desalineados con el codigo (depto_a, bodega) y los convierte a ComboBox donde el codigo lo requiere. - Corrige dependencia faltante de FORMULARIOS_IN a la libreria Database (bloqueaba todo el modulo de MATERIA PRIMA).
332 lines
13 KiB
Plaintext
332 lines
13 KiB
Plaintext
GLOBALS
|
|
"inprgb000.4gl"
|
|
DEFINE nombre,apellido CHAR(30),
|
|
xinserta CHAR(1),
|
|
kprograma varchar(20),
|
|
xdescrip_mov VARCHAR(50)
|
|
|
|
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,depto_a,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
|
|
|
|
PREPARE breimprime FROM selec
|
|
DECLARE bdocumento SCROLL CURSOR FOR breimprime
|
|
OPEN bdocumento
|
|
|
|
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
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
CALL msg(3)
|
|
RETURN
|
|
END IF
|
|
LET kprograma = xprograma
|
|
CALL busca_info()
|
|
|
|
MENU "NAVEGACION:"
|
|
COMMAND "Siguiente" "Busca el siguiente documento"
|
|
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
|
|
CALL busca_info()
|
|
|
|
COMMAND "Primero" "Busca el siguiente documento"
|
|
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
|
|
CALL busca_info()
|
|
COMMAND "Anterior" "Busca el Registrosiguiente documento"
|
|
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
|
|
CALL busca_info()
|
|
COMMAND "Ultimo" "Busca el Ultimo Documento"
|
|
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
|
|
CALL busca_info()
|
|
COMMAND KEY("T") "reTornar" "Salir de busqueda"
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
FUNCTION busca_info()
|
|
|
|
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
|
|
IF kprograma = 'inprmt046' THEN
|
|
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
|
|
|
|
# CALL configureoutput('PDF') RETURNING handler
|
|
# START REPORT formu46 TO XML HANDLER handler
|
|
|
|
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
|
|
FOREACH busca INTO movi[idx].cod_n,movi[idx].cod_grupo,
|
|
movi[idx].cod_tipo,movi[idx].cod_sec,
|
|
movi[idx].descrip_esp,movi[idx].cantidad_2
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
|
|
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
|
|
|
|
# CALL configureoutput('PDF') RETURNING HANDLER
|
|
# START REPORT formu36 TO XML HANDLER HANDLER
|
|
|
|
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
|
|
|