1077 lines
35 KiB
Plaintext
1077 lines
35 KiB
Plaintext
{
|
|
----------------------------------------------------------------------------
|
|
PROGRAMA : IRPRMT036
|
|
OBJETIVO : Programa Captura Documento Movimiento:
|
|
OTROS MOVIMIENTOS DE REPUESTOS
|
|
de Inventario de Repuesto.
|
|
PROGRAMADOR : Ing. Juan Fco. Soto (Copiado del IHPRMT036)
|
|
FECHA REALIZACION : Marzo 1, 1993.
|
|
----------------------------------------------------------------------------
|
|
}
|
|
GLOBALS
|
|
"irprgb000.4gl"
|
|
DEFINE cerrada CHAR(1)
|
|
DEFINE r_cantidad1,r_cantidad,total_cantidad,recibida,ordenada INTEGER
|
|
DEFINE porciento DECIMAL(8,3)
|
|
DEFINE costo_estandar DECIMAL(12,2),
|
|
codigo_mq LIKE irtb00008.cod_maq
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL STARTLOG("irprmt36.log")
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
CALL ARG_VAL(3) RETURNING impresor
|
|
|
|
CONNECT to "decomarmol" USER usuarios USING clave
|
|
SELECT a.* INTO p_companias.* FROM companias a
|
|
|
|
CALL irprmt036()
|
|
END MAIN
|
|
|
|
|
|
FUNCTION irprmt036()
|
|
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
|
|
LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
|
|
DISPLAY p_companias.nombre CLIPPED AT 2,lj ATTRIBUTE (REVERSE,blue)
|
|
|
|
OPEN FORM irfmmt036 FROM "irfmmt036"
|
|
DISPLAY FORM irfmmt036
|
|
|
|
MENU
|
|
ON ACTION nuevo
|
|
CALL irprad036()
|
|
ON ACTION buscar
|
|
LET pprograma = 'inprmt036'
|
|
CALL reimprime(pprograma)
|
|
ON ACTION salir
|
|
EXIT MENU
|
|
|
|
END MENU
|
|
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION irprad036()
|
|
DEFINE tipos1 CHAR(1)
|
|
LET tipos1 = null
|
|
LET opc = null
|
|
LET int_flag = FALSE
|
|
INITIALIZE datos1.* TO NULL
|
|
|
|
WHENEVER ERROR CONTINUE
|
|
|
|
DISPLAY "<Esc> Adiciona Registro" AT 3,2 ATTRIBUTE (blue,REVERSE)
|
|
LABEL otra_vez:
|
|
LABEL vuelve:
|
|
IF (OPC = "S" OR OPC = "s") OR opc is null THEN
|
|
INITIALIZE datos1.* TO NULL
|
|
END IF
|
|
LET datos1.fecha = today using "dd/mm/yyyy"
|
|
DISPLAY BY NAME datos1.fecha
|
|
|
|
#ERROR "CTRL-W PARA ELIMINAR DOCUMENTOS"
|
|
|
|
INPUT BY NAME datos1.* WITHOUT DEFAULTS
|
|
|
|
|
|
|
|
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 bandera = 0
|
|
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 orden_compra
|
|
|
|
IF datos1.orden_compra is not null THEN
|
|
SELECT cod_sp,cod_sp_sec,cierre
|
|
INTO datos1.cod_sp,datos1.cod_sp_sec,cerrada
|
|
FROM cotb00014
|
|
WHERE num_oc = datos1.orden_compra AND tipo = datos1.tipo AND
|
|
status_t is null
|
|
|
|
|
|
IF status >= 0 THEN
|
|
IF cerrada = "S" THEN
|
|
LET numero_msg = 74
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD orden_compra
|
|
END IF
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD orden_compra
|
|
END IF
|
|
END IF
|
|
|
|
|
|
SELECT UNIQUE a.nom_sp INTO datos1.nom_sp FROM cotb00001 a
|
|
WHERE a.cod_sp = datos1.cod_sp and
|
|
a.cod_sp_sec = datos1.cod_sp_sec and
|
|
a.status_t is null
|
|
|
|
IF status >= 0 THEN
|
|
IF STATUS = NOTFOUND THEN
|
|
SELECT a.nombre INTO datos1.nom_sp FROM vetb00004 a
|
|
WHERE a.tipo_cliente = datos1.cod_sp AND
|
|
a.sec_cliente = datos1.cod_sp_Sec AND
|
|
a.status_t IS NULL
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_sp
|
|
END IF
|
|
END IF
|
|
END IF
|
|
DISPLAY BY NAME datos1.nom_sp
|
|
END IF
|
|
AFTER FIELD cod_sp_Sec
|
|
|
|
IF datos1.cod_sp_Sec IS NOT NULL THEN
|
|
SELECT UNIQUE a.nom_sp INTO datos1.nom_sp FROM cotb00001 a
|
|
WHERE a.cod_sp = datos1.cod_sp and
|
|
a.cod_sp_sec = datos1.cod_sp_sec and
|
|
a.status_t is null
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
SELECT a.nombre INTO datos1.nom_sp FROM vetb00004 a
|
|
WHERE a.tipo_cliente = datos1.cod_sp AND
|
|
a.sec_cliente = datos1.cod_sp_Sec AND
|
|
a.status_t IS NULL
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_sp
|
|
END IF
|
|
END IF
|
|
DISPLAY BY NAME datos1.nom_sp
|
|
END IF
|
|
AFTER FIELD cod_mov
|
|
IF datos1.cod_mov IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_mov
|
|
END IF
|
|
|
|
# Controla que el movimiento que se digite pertenezca a este formulario
|
|
|
|
SELECT UNIQUE a.usuario FROM irtb00018 a
|
|
WHERE a.cod_mov = datos1.cod_mov and a.usuario = SUSER_SNAME()
|
|
|
|
IF status = notfound THEN
|
|
LET numero_msg = 139
|
|
CALL msg(numero_msg)
|
|
#NEXT FIELD cod_mov
|
|
END IF
|
|
|
|
IF datos1.cod_mov = 50 THEN
|
|
GOTO alli
|
|
END IF
|
|
|
|
|
|
LABEL alli:
|
|
SELECT descrip_mov,status_mov INTO datos1.descrip_mov,transacc.status_mov
|
|
FROM irtb00005
|
|
WHERE @cod_mov = datos1.cod_mov AND @status_t IS NULL
|
|
|
|
IF status = notfound THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_mov
|
|
END IF
|
|
|
|
DISPLAY BY NAME datos1.descrip_mov
|
|
NEXT FIELD tipo
|
|
|
|
AFTER FIELD secc_a
|
|
IF datos1.secc_a IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD secc_a
|
|
ELSE
|
|
SELECT UNIQUE nom_dpto INTO nombre_d FROM adtb00001 a
|
|
WHERE a.departamento = datos1.secc_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 secc_a
|
|
END IF
|
|
END IF
|
|
END IF
|
|
DISPLAY BY NAME nombre_d
|
|
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
|
|
FOR idx = 1 to arr_count()
|
|
LET movi8[idx].cod_n = null
|
|
LET movi8[idx].cod_grupo = null
|
|
LET movi8[idx].cod_tipo = null
|
|
LET movi8[idx].cod_sec = null
|
|
LET movi8[idx].cantidad_2 = null
|
|
LET movi8[idx].unidad_med = null
|
|
LET movi8[idx].descrip_esp = null
|
|
END FOR
|
|
|
|
SLEEP 3
|
|
RETURN
|
|
END IF
|
|
|
|
EXIT INPUT
|
|
END INPUT
|
|
|
|
INITIALIZE ant_art.* TO NULL
|
|
|
|
IF opc = "S" or opc = "s" OR opc IS NULL THEN
|
|
FOR idx = 1 to arr_count()
|
|
LET movi8[idx].cod_n = null
|
|
LET movi8[idx].cod_grupo = null
|
|
LET movi8[idx].cod_tipo = null
|
|
LET movi8[idx].cod_sec = null
|
|
LET movi8[idx].cantidad_2 = null
|
|
LET movi8[idx].unidad_med = null
|
|
LET movi8[idx].descrip_esp = null
|
|
END FOR
|
|
END IF
|
|
|
|
# Busca los articulos de la orden si el usuario la digita
|
|
IF datos1.orden_compra is not null THEN
|
|
DECLARE busca CURSOR FOR
|
|
SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad
|
|
FROM cotb00015 a,irtb00002 b
|
|
WHERE 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.num_oc = datos1.orden_compra and a.tipo = datos1.tipo and
|
|
a.status_t IS NULL AND b.status_t IS NULL
|
|
|
|
LET idx = 1
|
|
FOREACH busca INTO movi8[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
# CAPTURA ARREGLO DE LOS CODIGOS DE MATERIA PRIMA
|
|
|
|
CALL set_count(idx-1)
|
|
END IF
|
|
INPUT ARRAY movi8 WITHOUT DEFAULTS FROM s_movi1.*
|
|
ON KEY(F2)
|
|
CALL reimprime(pprograma)
|
|
|
|
ON KEY(CONTROL-W)
|
|
LET consulta = "S"
|
|
CALL busca_maquina()
|
|
LET movi8[p_act].codigo = busca_wd2[curr1].codigo
|
|
DISPLAY movi8[p_act].codigo TO s_movi1[scr_l].codigo
|
|
DISPLAY BY NAME maquinaria.nombre
|
|
ON KEY(CONTROL-E)
|
|
CALL busca_prod1()
|
|
LET movi8[p_act].cod_n = arr_prod[idx].cod_n
|
|
LET movi8[p_act].cod_grupo = arr_prod[idx].cod_grupo
|
|
LET movi8[p_act].cod_tipo = arr_prod[idx].cod_tipo
|
|
LET movi8[p_act].cod_sec = arr_prod[idx].cod_sec
|
|
LET movi8[p_act].descrip_esp = arr_prod[idx].descrip_esp
|
|
|
|
DISPLAY movi8[p_act].cod_n TO s_movi1.cod_n
|
|
DISPLAY movi8[p_act].cod_grupo TO s_movi1.cod_grupo
|
|
DISPLAY movi8[p_act].cod_tipo TO s_movi1.cod_tipo
|
|
DISPLAY movi8[p_act].cod_sec TO s_movi1.cod_sec
|
|
DISPLAY movi8[p_act].descrip_esp TO s_movi1.descrip_esp
|
|
|
|
BEFORE ROW
|
|
LET p_act = arr_curr()
|
|
LET scr_l = scr_line()
|
|
|
|
AFTER ROW
|
|
IF movi8[p_act].cod_n is not null and
|
|
movi8[p_act].cod_grupo is not null and
|
|
movi8[p_act].cod_tipo is not null and
|
|
movi8[p_act].cod_sec is not null then
|
|
|
|
LET p_act = arr_curr()
|
|
|
|
LET ant_art.cod_n = movi8[p_act].cod_n
|
|
LET ant_art.cod_grupo = movi8[p_act].cod_grupo
|
|
LET ant_art.cod_tipo = movi8[p_act].cod_tipo
|
|
LET ant_art.cod_sec = movi8[p_act].cod_sec
|
|
LET ant_art.maquina = movi8[p_act].codigo
|
|
|
|
FOR idx = 1 TO arr_count()
|
|
IF idx != p_act THEN
|
|
IF movi8[idx].cod_n = ant_art.cod_n AND
|
|
movi8[idx].cod_grupo = ant_art.cod_grupo AND
|
|
movi8[idx].cod_tipo = ant_art.cod_tipo AND
|
|
movi8[idx].cod_sec = ant_art.cod_sec AND
|
|
movi8[idx].codigo = ant_art.maquina 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 movi8[p_act].cantidad_2 IS NULL AND
|
|
movi8[p_act].cod_n is not null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
END IF
|
|
|
|
LET ant_art.cod_n = movi8[p_act].cod_n
|
|
LET ant_art.cod_grupo = movi8[p_act].cod_grupo
|
|
LET ant_art.cod_tipo = movi8[p_act].cod_tipo
|
|
LET ant_art.cod_sec = movi8[p_act].cod_sec
|
|
LET ant_art.maquina = movi8[p_act].codigo
|
|
|
|
AFTER FIELD cod_n
|
|
LET p_act = arr_curr()
|
|
|
|
IF movi8[p_act].cod_n is not null then
|
|
LET ant_art.cod_n = movi8[p_act].cod_n
|
|
LET ant_art.cod_grupo = movi8[p_act].cod_grupo
|
|
LET ant_art.cod_tipo = movi8[p_act].cod_tipo
|
|
LET ant_art.cod_sec = movi8[p_act].cod_sec
|
|
LET ant_art.maquina = movi8[p_act].codigo
|
|
|
|
FOR idx = 1 TO arr_count()
|
|
IF idx != p_act THEN
|
|
IF movi8[idx].cod_n = ant_art.cod_n AND
|
|
movi8[idx].cod_grupo = ant_art.cod_grupo AND
|
|
movi8[idx].cod_tipo = ant_art.cod_tipo AND
|
|
movi8[idx].cod_sec = ant_art.cod_sec AND
|
|
movi8[idx].codigo = ant_art.maquina THEN
|
|
LET p_act = p_act - 1
|
|
NEXT FIELD cod_grupo
|
|
END IF
|
|
END IF
|
|
END FOR
|
|
END IF
|
|
|
|
|
|
AFTER FIELD cod_grupo
|
|
IF movi8[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 = movi8[p_act].cod_n
|
|
LET ant_art.cod_grupo = movi8[p_act].cod_grupo
|
|
LET ant_art.cod_tipo = movi8[p_act].cod_tipo
|
|
LET ant_art.cod_sec = movi8[p_act].cod_sec
|
|
LET ant_art.maquina = movi8[p_act].codigo
|
|
|
|
FOR idx = 1 TO arr_count()
|
|
IF idx != p_act THEN
|
|
IF movi8[idx].cod_n = ant_art.cod_n AND
|
|
movi8[idx].cod_grupo = ant_art.cod_grupo AND
|
|
movi8[idx].cod_tipo = ant_art.cod_tipo AND
|
|
movi8[idx].cod_sec = ant_art.cod_sec AND
|
|
movi8[idx].codigo = ant_art.maquina THEN
|
|
LET p_act = p_act - 1
|
|
NEXT FIELD cod_tipo
|
|
END IF
|
|
END IF
|
|
END FOR
|
|
|
|
AFTER FIELD cod_tipo
|
|
|
|
IF movi8[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 = movi8[p_act].cod_n
|
|
LET ant_art.cod_grupo = movi8[p_act].cod_grupo
|
|
LET ant_art.cod_tipo = movi8[p_act].cod_tipo
|
|
LET ant_art.cod_sec = movi8[p_act].cod_sec
|
|
LET ant_art.maquina = movi8[p_act].codigo
|
|
|
|
FOR idx = 1 TO arr_count()
|
|
IF idx != p_act THEN
|
|
IF movi8[idx].cod_n = ant_art.cod_n AND
|
|
movi8[idx].cod_grupo = ant_art.cod_grupo AND
|
|
movi8[idx].cod_tipo = ant_art.cod_tipo AND
|
|
movi8[idx].cod_sec = ant_art.cod_sec AND
|
|
movi8[idx].codigo = ant_art.maquina THEN
|
|
LET p_act = p_act - 1
|
|
NEXT FIELD cod_sec
|
|
END IF
|
|
END IF
|
|
END FOR
|
|
|
|
AFTER FIELD codigo
|
|
|
|
IF movi8[p_act].codigo is not null THEN
|
|
LET datos1.nombre = NULL
|
|
SELECT a.nombre INTO datos1.nombre FROM irtb00009 a
|
|
WHERE a.codigo = movi8[p_act].codigo and a.status_t is null
|
|
|
|
IF status = notfound THEN
|
|
LET numero_msg = 115
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD codigo
|
|
END IF
|
|
|
|
DISPLAY BY NAME datos1.nombre
|
|
END IF
|
|
# Verifica que el numero del documento de entrada no este en el archivo de
|
|
# movi8mientos.
|
|
AFTER FIELD cod_sec
|
|
LET p_act = arr_curr()
|
|
IF movi8[p_act].cod_sec is null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
IF movi8[p_act].cod_n is null AND movi8[p_act].cod_sec is not null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
IF movi8[p_act].cod_n is not null and
|
|
movi8[p_act].cod_grupo is not null and
|
|
movi8[p_act].cod_tipo is not null and
|
|
movi8[p_act].cod_sec is not null then
|
|
|
|
SELECT a.descrip_esp,a.unidad_med INTO descrip1,descrip2
|
|
FROM irtb00002 a
|
|
WHERE
|
|
a.cod_n =movi8[p_act].cod_n AND
|
|
a.cod_grupo=movi8[p_act].cod_grupo AND
|
|
a.cod_tipo = movi8[p_act].cod_tipo AND
|
|
a.cod_sec=movi8[p_act].cod_sec AND a.status_t is null AND
|
|
a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
# BUSCA LA MAQUINA PERTENECIENTE AL REPUESTO
|
|
SELECT a.cod_maq INTO codigo_mq
|
|
FROM irtb00008 a
|
|
WHERE a.cod_n = movi8[p_act].cod_n AND
|
|
a.cod_grupo = movi8[p_act].cod_grupo AND
|
|
a.cod_tipo = movi8[p_act].cod_tipo AND
|
|
a.cod_sec = movi8[p_act].cod_sec AND
|
|
a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 384
|
|
CALL msg(numero_msg)
|
|
#NEXT FIELD cod_sec
|
|
END IF
|
|
IF STATUS < 0 THEN
|
|
LET consulta = "N"
|
|
CALL busca_maquina()
|
|
LET movi8[p_act].codigo = busca_wd2[curr1].codigo
|
|
DISPLAY movi8[p_act].codigo TO s_movi1[scr_l].codigo
|
|
DISPLAY BY NAME maquinaria.nombre
|
|
END IF
|
|
#CONTROL COSTO
|
|
# LET bandera = 0
|
|
# CALL busca_costo()
|
|
# IF bandera = 1 THEN
|
|
# NEXT FIELD cod_sec
|
|
# END IF
|
|
END IF
|
|
LET movi8[p_act].descrip_esp = descrip1
|
|
LET movi8[p_act].unidad_med = descrip2 clipped
|
|
|
|
DISPLAY movi8[p_act].descrip_esp TO s_movi1[scr_l].descrip_esp
|
|
DISPLAY movi8[p_act].unidad_med TO s_movi1[scr_l].unidad_med
|
|
|
|
LET ant_art.cod_n = movi8[p_act].cod_n
|
|
LET ant_art.cod_grupo = movi8[p_act].cod_grupo
|
|
LET ant_art.cod_tipo = movi8[p_act].cod_tipo
|
|
LET ant_art.cod_sec = movi8[p_act].cod_sec
|
|
LET ant_art.maquina = movi8[p_act].codigo
|
|
|
|
FOR idx = 1 TO arr_count()
|
|
IF idx != p_act THEN
|
|
IF movi8[idx].cod_n = ant_art.cod_n AND
|
|
movi8[idx].cod_grupo = ant_art.cod_grupo AND
|
|
movi8[idx].cod_tipo = ant_art.cod_tipo AND
|
|
movi8[idx].cod_sec = ant_art.cod_sec AND
|
|
movi8[idx].codigo = ant_art.maquina THEN
|
|
LET numero_msg = 21
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
END IF
|
|
END FOR
|
|
|
|
AFTER FIELD cantidad_2
|
|
IF movi8[p_act].cod_n is not null and
|
|
movi8[p_act].cod_grupo is not null and
|
|
movi8[p_act].cod_tipo is not null and
|
|
movi8[p_act].cod_sec is not null THEN
|
|
|
|
IF movi8[p_act].cantidad_2 IS NULL OR
|
|
movi8[p_act].cantidad_2 <= 0 THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
IF transacc.status_mov = "2" THEN
|
|
|
|
SELECT SUM(a.cantidad_2) INTO existen FROM irtb00006 a
|
|
WHERE a.cod_n = movi8[p_act].cod_n and
|
|
a.cod_grupo = movi8[p_act].cod_grupo and
|
|
a.cod_tipo = movi8[p_act].cod_tipo and
|
|
a.cod_sec = movi8[p_act].cod_sec and
|
|
a.status_t is null
|
|
|
|
IF existen IS NULL THEN
|
|
LET existen = 0
|
|
END IF
|
|
|
|
|
|
IF existen < 0 THEN
|
|
LET numero_msg = 30
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
IF movi8[p_act].cantidad_2 > existen THEN
|
|
LET numero_msg = 30
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
END IF
|
|
END IF
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
FOR idx = 1 to arr_count()
|
|
LET movi8[idx].cod_n = null
|
|
LET movi8[idx].cod_grupo = null
|
|
LET movi8[idx].cod_tipo = null
|
|
LET movi8[idx].cod_sec = null
|
|
LET movi8[idx].cantidad_2 = null
|
|
LET movi8[idx].unidad_med = null
|
|
LET movi8[idx].descrip_esp = null
|
|
END FOR
|
|
SLEEP 3
|
|
RETURN
|
|
END IF
|
|
FOR idx = 1 TO arr_count()
|
|
IF movi8[idx].cod_n is not null and
|
|
movi8[idx].cod_grupo is not null and
|
|
movi8[idx].cod_tipo is not null and
|
|
movi8[idx].cod_sec is not null THEN
|
|
|
|
IF movi8[idx].cantidad_2 IS NULL OR
|
|
movi8[idx].cantidad_2 <= 0 THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
IF transacc.status_mov = "2" THEN
|
|
|
|
SELECT SUM(a.cantidad_2) INTO existen FROM irtb00006 a
|
|
WHERE a.cod_n = movi8[idx].cod_n and
|
|
a.cod_grupo = movi8[idx].cod_grupo and
|
|
a.cod_tipo = movi8[idx].cod_tipo and
|
|
a.cod_sec = movi8[idx].cod_sec and
|
|
a.status_t is null
|
|
|
|
IF existen IS NULL THEN
|
|
LET existen = 0
|
|
END IF
|
|
|
|
|
|
IF existen < 0 THEN
|
|
LET numero_msg = 30
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
|
|
IF movi8[idx].cantidad_2 > existen THEN
|
|
LET numero_msg = 30
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
END IF
|
|
END IF
|
|
END FOR
|
|
FOR idx = 1 TO arr_count()
|
|
IF idx != p_act THEN
|
|
IF movi8[idx].cod_n = ant_art.cod_n AND
|
|
movi8[idx].cod_grupo = ant_art.cod_grupo AND
|
|
movi8[idx].cod_tipo = ant_art.cod_tipo AND
|
|
movi8[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
|
|
|
|
IF movi8[p_act].cod_n is null THEN
|
|
CALL limpia1()
|
|
END IF
|
|
IF movi8[p_act].cod_grupo is null THEN
|
|
CALL limpia1()
|
|
END IF
|
|
IF movi8[p_act].cod_tipo is null THEN
|
|
CALL limpia1()
|
|
END IF
|
|
IF movi8[p_act].cod_sec is null THEN
|
|
CALL limpia1()
|
|
END IF
|
|
EXIT INPUT
|
|
END INPUT
|
|
|
|
PROMPT "Toda la Informacion Esta Correcta? (S/N)" FOR CHAR opc
|
|
IF OPC = "S" or OPC = "s" THEN
|
|
IF datos1.orden_compra is not null THEN
|
|
# Busca la cantidad recibida de la orden especificada
|
|
SELECT sum(cantidad_2) INTO recibida FROM irtb00006
|
|
WHERE orden_compra = datos1.orden_compra and
|
|
tipo = datos1.tipo
|
|
|
|
# Busca la cantidad ordenada de la orden especificada
|
|
SELECT sum(cantidad) INTO ordenada FROM cotb00015
|
|
WHERE num_oc = datos1.orden_compra and
|
|
tipo = datos1.tipo
|
|
|
|
IF recibida is null THEN
|
|
LET recibida = 0
|
|
END IF
|
|
|
|
IF ordenada is null THEN
|
|
LET ordenada = 0
|
|
END IF
|
|
|
|
# Calculo de los porcentaje limites de las ordenes
|
|
LET porciento = ordenada * 0.10
|
|
LET recibida = recibida + total_cantidad
|
|
LET r_cantidad = ordenada - porciento
|
|
LET r_cantidad1 = ordenada + porciento
|
|
|
|
# Si la cantiad recibida producto de la sumatoria y subtracion del 10%
|
|
# es mayor o igual a la cantidad recibida y menor o igual a la cantidad de
|
|
# la orden cierra la orden
|
|
IF recibida >= r_cantidad and recibida <= r_cantidad1 THEN
|
|
LET cerrada = "S"
|
|
END IF
|
|
END IF
|
|
#--------------------------------------------------------------------------
|
|
# Busca el ultimo numero del documento perteneciente al movimiento
|
|
SELECT num_salida INTO datos1.num_doc
|
|
FROM irtb00014
|
|
WHERE cod_mov = datos1.cod_mov
|
|
IF status = notfound THEN
|
|
LET datos1.num_doc = 0
|
|
END IF
|
|
LET datos1.num_doc = datos1.num_doc + 1
|
|
DISPLAY BY NAME datos1.num_doc ATTRIBUTE (BOLD)
|
|
#---------------------------------------------------------------------------
|
|
|
|
|
|
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 formu4 TO archivo
|
|
|
|
BEGIN WORK
|
|
FOR idx = 1 TO arr_count()
|
|
|
|
IF movi8[idx].cod_n is not null and
|
|
movi8[idx].cod_grupo is not null and
|
|
movi8[idx].cod_tipo is not null and
|
|
movi8[idx].cod_sec is not null and
|
|
(movi8[idx].cantidad_2 IS NOT NULL AND
|
|
movi8[idx].cantidad_2 > 0) THEN
|
|
|
|
IF transacc.status_mov = "2" THEN
|
|
LET movi8[idx].cantidad_2 = movi8[idx].cantidad_2 * -1
|
|
END IF
|
|
|
|
|
|
INSERT INTO irtb00006 VALUES
|
|
(datos1.num_doc,datos1.fecha,null,
|
|
null,datos1.tipo,datos1.orden_compra,datos1.cod_sp,datos1.cod_sp_sec,
|
|
datos1.cod_mov,movi8[idx].codigo,movi8[idx].cod_n,
|
|
movi8[idx].cod_grupo,movi8[idx].cod_tipo,
|
|
movi8[idx].cod_sec,null,
|
|
movi8[idx].cantidad_2,0,
|
|
datos1.secc_a,transacc.status_mov,
|
|
null,SUSER_SNAME(),GETDATE(), null,null,'1')
|
|
IF STATUS < 0 THEN
|
|
ROLLBACK WORK
|
|
CALL msg(-1330)
|
|
RETURN
|
|
END IF
|
|
OUTPUT TO REPORT formu4(datos1.*,movi8[idx].*)
|
|
END IF
|
|
END FOR
|
|
COMMIT WORK
|
|
# Selecciona el registro del ultimo numero de documento para chequear si
|
|
# existe para insertarlo en la tabla de secuencia
|
|
SELECT *FROM irtb00014
|
|
WHERE cod_mov = datos1.cod_mov
|
|
IF status = notfound THEN
|
|
INSERT INTO irtb00014 VALUES (datos1.num_doc,datos1.cod_mov,null,
|
|
SUSER_SNAME(),GETDATE(),null,null)
|
|
END IF
|
|
|
|
UPDATE irtb00014 SET num_salida = datos1.num_doc
|
|
WHERE cod_mov = datos1.cod_mov
|
|
#----------------------------------------------------------------------------
|
|
|
|
|
|
FINISH REPORT formu4
|
|
RUN imprime
|
|
|
|
LET numero_msg = 1
|
|
CALL msg(numero_msg)
|
|
CLEAR FORM
|
|
ELSE
|
|
GOTO otra_vez
|
|
END IF
|
|
GOTO vuelve
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION limpia1()
|
|
|
|
LET movi8[p_act].cod_n = null
|
|
LET movi8[p_act].cod_grupo = null
|
|
LET movi8[p_act].cod_tipo = null
|
|
LET movi8[p_act].cod_sec = null
|
|
LET movi8[p_act].cantidad_2 = null
|
|
LET movi8[p_act].unidad_med = null
|
|
LET movi8[p_act].descrip_esp = null
|
|
DISPLAY movi8[p_act].cod_n to s_movi1[scr_l].cod_n
|
|
DISPLAY movi8[p_act].cod_grupo to s_movi1[scr_l].cod_grupo
|
|
DISPLAY movi8[p_act].cod_tipo to s_movi1[scr_l].cod_tipo
|
|
DISPLAY movi8[p_act].cod_sec to s_movi1[scr_l].cod_sec
|
|
DISPLAY movi8[p_act].cantidad_2 to s_movi1[scr_l].cantidad_2
|
|
DISPLAY movi8[p_act].unidad_med to s_movi1[scr_l].unidad_med
|
|
DISPLAY movi8[p_act].descrip_esp to s_movi1[scr_l].descrip_esp
|
|
END FUNCTION
|
|
|
|
REPORT formu4(x,z)
|
|
|
|
DEFINE x RECORD
|
|
cod_mov LIKE irtb00006.cod_mov,
|
|
descrip_mov LIKE irtb00005.descrip_mov,
|
|
num_doc LIKE irtb00006.num_doc,
|
|
tipo LIKE irtb00006.tipo,
|
|
orden_compra LIKE irtb00006.orden_compra,
|
|
cod_sp LIKE irtb00006.cod_sp,
|
|
cod_sp_sec LIKE irtb00006.cod_sp_sec,
|
|
fecha LIKE irtb00006.fecha,
|
|
nombre LIKE irtb00009.nombre,
|
|
secc_a LIKE irtb00006.sec_a,
|
|
nom_sp 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_2 LIKE irtb00006.cantidad_2,
|
|
unidad_med LIKE irtb00002.unidad_med,
|
|
descrip_esp LIKE irtb00002.descrip_esp ,
|
|
codigo LIKE irtb00008.cod_maq
|
|
END RECORD
|
|
|
|
# DEFINE doce,normal,doble,doble_of,negras,negras_off CHAR(2)
|
|
DEFINE l,cuenta SMALLINT
|
|
|
|
OUTPUT
|
|
TOP MARGIN 0
|
|
LEFT MARGIN 0
|
|
BOTTOM MARGIN 1
|
|
PAGE LENGTH 33
|
|
|
|
ORDER BY x.num_doc,z.cod_sec
|
|
FORMAT
|
|
|
|
BEFORE GROUP OF x.num_doc
|
|
LET doce = ASCII 27, ASCII 77
|
|
LET doble = ASCII 14
|
|
LET doble_of = ASCII 20
|
|
LET negras = ASCII 27, ASCII 69
|
|
LET negras_off = ASCII 27, ASCII 70
|
|
|
|
PRINT doce
|
|
PRINT COLUMN 1, negras,doble,p_companias.nombre CLIPPED
|
|
PRINT COLUMN 65,"No. ",doble,x.num_doc using "<<<<<<"
|
|
PRINT COLUMN 30,
|
|
"MOVIMIENTOS DE ALMACEN",
|
|
COLUMN 60, x.fecha #using "dd/mm/yyyy"
|
|
|
|
SKIP 1 LINES
|
|
|
|
LET l = (80 - LENGTH (x.descrip_mov)) / 2
|
|
|
|
PRINT COLUMN l, "(",x.cod_mov using "&&",")",x.descrip_mov,negras_off
|
|
|
|
PRINT COLUMN 1, "Suplidor : ",x.cod_sp using "&&","-",
|
|
x.cod_sp_sec using "&&&&"," ",
|
|
x.nom_sp
|
|
PRINT COLUMN 1, "Departamento: ",x.secc_a USING "<<<<"," ",nombre_d
|
|
SKIP 1 LINES
|
|
PRINT COLUMN 1,
|
|
"---------------------------------------------------------------------"
|
|
PRINT COLUMN 58, "CANTIDAD"
|
|
|
|
PRINT COLUMN 2,doble, "ARTICULOS",doble_of clipped,
|
|
COLUMN 51, "REQUERIDA "
|
|
|
|
PRINT COLUMN 1,
|
|
"-----------------------------------------------------------------------"
|
|
SKIP 1 LINES
|
|
|
|
ON EVERY ROW
|
|
IF z.cod_n is not null and z.cod_grupo is not null and
|
|
z.cod_tipo is not null and z.cod_sec is not null THEN
|
|
LET x.nombre = NULL
|
|
SELECT a.nombre INTO x.nombre FROM irtb00009 a
|
|
WHERE a.codigo = z.codigo and a.status_t is null
|
|
|
|
|
|
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 58, z.cantidad_2 using "##,###.##",
|
|
COLUMN 68, z.codigo USING "<<<"," ",x.nombre
|
|
END IF
|
|
|
|
PAGE TRAILER
|
|
PRINT COLUMN 1, "------------------",
|
|
COLUMN 27, "------------------",
|
|
COLUMN 50, "------------------"
|
|
|
|
PRINT COLUMN 5, "Entregado Por",
|
|
COLUMN 29, "Recibido Por",
|
|
COLUMN 53, "Aprobado Por"
|
|
|
|
SKIP 2 LINE
|
|
PRINT COLUMN 2,
|
|
"Original: Contabilidad Copia: Almacen"
|
|
|
|
SKIP 1 LINE
|
|
|
|
#PRINT normal
|
|
END REPORT
|
|
|
|
FUNCTION anular()
|
|
DISPLAY "ELIMINACION REGISTROS " AT 3,2 ATTRIBUTE (blue,REVERSE)
|
|
INPUT BY NAME datos1.cod_mov,datos1.num_doc
|
|
AFTER FIELD num_doc
|
|
IF datos1.num_doc is null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD num_doc
|
|
END IF
|
|
|
|
SELECT UNIQUE fecha,tipo,orden_compra,sec_de,cod_sp,cod_sp_sec
|
|
INTO datos1.fecha,datos1.tipo,datos1.orden_compra,
|
|
datos1.secc_a FROM irtb00006
|
|
WHERE @num_doc = datos1.num_doc and
|
|
@cod_mov = datos1.cod_mov
|
|
|
|
IF status = notfound THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD num_doc
|
|
END IF
|
|
DISPLAY BY NAME datos1.*
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
EXIT INPUT
|
|
END IF
|
|
END INPUT
|
|
IF int_flag THEN
|
|
GOTO salir
|
|
END IF
|
|
PROMPT "Esta Seguro de Eliminar Este Documento (S/N)? " FOR ya
|
|
LET ya = upshift(ya)
|
|
|
|
IF ya = "S" THEN
|
|
UPDATE irtb00006 SET status_t = "E",
|
|
us_mod = SUSER_SNAME(),
|
|
fech_mod = GETDATE()
|
|
WHERE num_doc = datos1.num_doc and
|
|
cod_mov = datos1.cod_mov
|
|
END IF
|
|
LABEL salir:
|
|
DISPLAY "<Esc> Adiciona Registro" AT 3,2 ATTRIBUTE (blue,REVERSE)
|
|
END FUNCTION
|
|
|
|
FUNCTION busca_prod1()
|
|
|
|
|
|
OPEN WINDOW busca_2 AT 8,4 WITH FORM "irfmwd001" ATTRIBUTE (BORDER,FORM LINE
|
|
FIRST + 1,PROMPT LINE LAST)
|
|
|
|
CONSTRUCT BY NAME criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
|
|
a.descrip_esp
|
|
|
|
LET selec_pt =
|
|
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
|
|
" a.unidad_med FROM irtb00002 a ",
|
|
"WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY 5 "
|
|
|
|
PREPARE comando_p FROM selec_pt
|
|
DECLARE busca_2 CURSOR FOR comando_p
|
|
|
|
LET idx = 1
|
|
FOREACH busca_2 INTO arr_prod[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
CALL SET_COUNT(idx - 1)
|
|
|
|
DISPLAY ARRAY arr_prod TO s_prod.*
|
|
LET idx = ARR_CURR()
|
|
|
|
CLOSE WINDOW busca_2
|
|
END FUNCTION
|
|
FUNCTION busca_costo()
|
|
SELECT a.costo_st FROM irtb00013 a
|
|
WHERE a.cod_n = movi8[p_act].cod_n AND
|
|
a.cod_grupo = movi8[p_act].cod_grupo AND
|
|
a.cod_tipo = movi8[p_act].cod_tipo AND
|
|
a.cod_sec = movi8[p_act].cod_sec AND
|
|
a.ano = YEAR(TODAY) AND a.mes_fin = 12 and a.status_t is null
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg =351
|
|
CALL msg(numero_msg)
|
|
LET bandera = 1
|
|
END IF
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION busca_maquina()
|
|
# LET formulario = fgl_getenv("FORMS") CLIPPED,"/codir/"
|
|
# LET formulario = formulario CLIPPED, "cofmwd002"
|
|
LET formulario = "irfmwd068"
|
|
OPEN WINDOW busqueda AT 8,8 WITH FORM "irfmwd068"
|
|
ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST)
|
|
|
|
LET int_flag = false
|
|
IF consulta = "S" THEN
|
|
CONSTRUCT criterio ON irtb00009.nombre FROM irtb00009.nombre
|
|
|
|
LET selec = "SELECT codigo,nombre FROM irtb00009 ",
|
|
" WHERE ",
|
|
" status_t is null AND ",
|
|
criterio clipped,
|
|
"ORDER BY 1 "
|
|
ELSE
|
|
{
|
|
LET selec = "SELECT a.codigo,a.nombre FROM irtb00009 a,irtb00008 b ",
|
|
" WHERE ",
|
|
" b.cod_n =7 AND ",
|
|
" b.cod_grupo = 0 AND ",
|
|
" b.cod_tipo = 0 AND ",
|
|
" b.cod_sec = 2 AND ",
|
|
" a.codigo = b.cod_maq ",
|
|
"ORDER BY 1 "
|
|
}
|
|
LET selec = "SELECT a.codigo,a.nombre FROM irtb00009 a,irtb00008 b ",
|
|
" WHERE ",
|
|
" b.cod_n = '",movi8[p_act].cod_n,"' AND ",
|
|
" b.cod_grupo = '",movi8[p_act].cod_grupo, "' AND ",
|
|
" b.cod_tipo = '",movi8[p_act].cod_tipo,"' AND ",
|
|
" b.cod_sec = '",movi8[p_act].cod_sec,"' AND ",
|
|
" a.codigo = b.cod_maq ",
|
|
"ORDER BY 1 "
|
|
END IF
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GO TO sale2
|
|
RETURN
|
|
END IF
|
|
|
|
PREPARE busca2 FROM selec
|
|
|
|
IF status >= 0 THEN
|
|
IF status = notfound THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
END IF
|
|
END IF
|
|
|
|
DECLARE johnn2 CURSOR FOR busca2
|
|
LET idx = 1
|
|
|
|
FOREACH johnn2 INTO busca_wd2[idx].*
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
GO TO sale3
|
|
END IF
|
|
|
|
IF status = notfound THEN
|
|
EXIT FOREACH
|
|
END IF
|
|
LET idx = idx + 1
|
|
LABEL sale3:
|
|
END FOREACH
|
|
|
|
CALL set_count(idx-1)
|
|
DISPLAY ARRAY busca_wd2 TO s_desp1.*
|
|
LET curr1 = arr_curr()
|
|
LET dm_rep.maquina = busca_wd2[curr1].codigo
|
|
LET maquinaria.codigo = busca_wd2[curr1].codigo
|
|
LET maquinaria.nombre = busca_wd2[curr1].nombre
|
|
LABEL sale2:
|
|
CLOSE WINDOW busqueda
|
|
END FUNCTION |