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).
806 lines
27 KiB
Plaintext
806 lines
27 KiB
Plaintext
{
|
|
----------------------------------------------------------------------
|
|
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
|
|
} |