jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
6f50812bb120e4664e6aea528d8211eab8302f32
MBS/PROYECTO/indir/inprmt036.4gl
T
jpeguero efdf8953dd Reorganiza MATERIA PRIMA a PROYECTO y avanza inprmt002/005/013/046 
- 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).
2026-08-26 13:31:09 -04:00

806 lines
27 KiB
Plaintext
Raw Blame History

{
----------------------------------------------------------------------
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
}
Reference in New Issue View Git Blame Copy Permalink