309 lines
8.3 KiB
Plaintext
309 lines
8.3 KiB
Plaintext
{
|
|
===========================================================================
|
|
Programa : CTPRMT014
|
|
Sistema : Inventario Producto en Proceso
|
|
Proceso : Factor Costo (Labor)
|
|
Autor : Tadeo A. Ferreras
|
|
Fecha : Junio 29, 1993
|
|
===========================================================================
|
|
}
|
|
GLOBALS
|
|
"ctprgb000.4gl"
|
|
DEFINE mes_ant SMALLINT
|
|
|
|
DEFINE datos_m RECORD
|
|
cod_n INTEGER,
|
|
cod_grupo INTEGER,
|
|
cod_tipo INTEGER,
|
|
cod_sec INTEGER,
|
|
mes SMALLINT,
|
|
ano CHAR(4),
|
|
cantidad DECIMAL(14,5)
|
|
END RECORD,
|
|
descrip CHAR(30),
|
|
unidad CHAR(15),
|
|
puntero INTEGER
|
|
|
|
FUNCTION ctprmt014()
|
|
|
|
LET int_flag = FALSE
|
|
|
|
CLEAR SCREEN
|
|
OPTIONS
|
|
FORM LINE 9,
|
|
ERROR LINE 23,
|
|
COMMENT LINE 21
|
|
|
|
CALL pantalla()
|
|
DISPLAY "ctprmt014" AT 4,3
|
|
DISPLAY "Inventario Producto en Proceso" AT 6,25
|
|
OPEN FORM ctfmmt014 FROM "ctfmmt014"
|
|
DISPLAY FORM ctfmmt014
|
|
|
|
MENU "OPCIONES"
|
|
COMMAND "Adicionar"
|
|
"<Esc> Adiciona Registro <Supr> Cancela Operacion"
|
|
CLEAR FORM
|
|
CALL ctadmt014()
|
|
COMMAND "Consultar-modificar"
|
|
"<Esc> Realiza Busqueda <Supr> Cancela Operacion"
|
|
CLEAR FORM
|
|
CALL ctmdmt014()
|
|
COMMAND "Salir"
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
|
|
FUNCTION ctadmt014()
|
|
|
|
LABEL nuevo:
|
|
INPUT BY NAME datos_m.*
|
|
|
|
AFTER FIELD cod_sec
|
|
IF datos_m.cod_sec IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_sec
|
|
END IF
|
|
|
|
SELECT UNIQUE descrip_esp,unidad_med INTO descrip,unidad
|
|
FROM intb00001 WHERE status_t IS NULL AND
|
|
cod_n = datos_m.cod_n and
|
|
cod_grupo = datos_m.cod_grupo and
|
|
cod_tipo = datos_m.cod_tipo and
|
|
cod_sec = datos_m.cod_sec
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
LET mes_ant = month(today) using "&&"
|
|
DISPLAY BY NAME descrip,unidad
|
|
|
|
BEFORE FIELD ano
|
|
LET datos_m.ano = YEAR(today) USING "&&&&"
|
|
DISPLAY BY NAME datos_m.ano
|
|
|
|
BEFORE FIELD mes
|
|
LET datos_m.mes = mes_ant
|
|
DISPLAY BY NAME datos_m.mes
|
|
|
|
AFTER FIELD mes
|
|
|
|
LET mes_ant = datos_m.mes
|
|
IF datos_m.ano = YEAR(today) AND datos_m.mes > MONTH(today) THEN
|
|
LET numero_msg = 173
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD mes
|
|
END IF
|
|
|
|
AFTER FIELD ano
|
|
|
|
IF datos_m.ano IS NULL THEN
|
|
LET datos_m.ano = YEAR(today) USING "&&&&"
|
|
END IF
|
|
|
|
IF datos_m.ano > YEAR(today) THEN
|
|
LET numero_msg = 173
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD ano
|
|
END IF
|
|
|
|
SELECT UNIQUE a.cod_n FROM cttb00015 a WHERE a.cod_n = datos_m.cod_n AND
|
|
a.cod_grupo = datos_m.cod_grupo AND a.cod_tipo = datos_m.cod_tipo AND
|
|
a.cod_sec = datos_m.cod_sec AND a.ano = datos_m.ano AND
|
|
a.mes = datos_m.mes AND a.status_t IS NULL
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
LET numero_msg = 12
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD
|
|
cod_n
|
|
END IF
|
|
|
|
AFTER FIELD cantidad
|
|
IF datos_m.cantidad IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cantidad
|
|
END IF
|
|
END INPUT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
IF datos_m.cod_n IS NOT NULL AND datos_m.cod_grupo IS NOT NULL
|
|
AND datos_m.cod_tipo IS NOT NULL AND datos_m.cod_sec IS NOT NULL
|
|
AND datos_m.ano IS NOT NULL AND datos_m.cantidad IS NOT NULL
|
|
AND datos_m.mes IS NOT NULL AND datos_m.cantidad > 0 THEN
|
|
|
|
INSERT INTO cttb00015 VALUES(datos_m.*,NULL,USER,CURRENT,NULL,NULL)
|
|
|
|
LET numero_msg = 1
|
|
CALL msg(numero_msg)
|
|
CLEAR FORM
|
|
GOTO nuevo
|
|
END IF
|
|
|
|
END FUNCTION
|
|
|
|
|
|
FUNCTION ctmdmt014()
|
|
LET int_flag = FALSE
|
|
CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.mes,a.ano
|
|
FROM cod_n,cod_grupo,cod_tipo,cod_sec,mes,ano
|
|
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
LET selec =
|
|
"SELECT a.rowid,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
|
|
"a.mes,a.ano,a.cantidad,b.descrip_esp,b.unidad_med, ",
|
|
"a.us_crea,a.fech_crea,a.us_mod,a.fech_mod ",
|
|
"FROM cttb00015 a, intb00001 b WHERE a.status_t IS NULL 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 ",
|
|
criterio CLIPPED,"ORDER BY 2,3,4,5"
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE pro SCROLL CURSOR FOR comando
|
|
|
|
OPEN pro
|
|
FETCH FIRST pro INTO puntero,datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
RETURN
|
|
END IF
|
|
|
|
DISPLAY BY NAME datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
MENU "Opcion"
|
|
COMMAND "Siguiente"
|
|
"Presenta en pantalla el proximo registro encontrado"
|
|
FETCH NEXT pro INTO puntero,datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 4
|
|
CALL msg(numero_msg)
|
|
FETCH LAST pro INTO puntero,datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
END IF
|
|
|
|
DISPLAY BY NAME datos_m.*,descrip,unidad ,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
COMMAND "Anterior"
|
|
"Presenta en pantalla el registro anterior encontrado"
|
|
|
|
FETCH PREVIOUS pro INTO puntero,datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 5
|
|
CALL msg(numero_msg)
|
|
FETCH LAST pro INTO puntero,datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
END IF
|
|
|
|
DISPLAY BY NAME datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
COMMAND "Primero"
|
|
"Presenta en pantalla el primer registro encontrado"
|
|
FETCH FIRST pro INTO puntero,datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
LET numero_msg = 5
|
|
CALL msg(numero_msg)
|
|
|
|
DISPLAY BY NAME datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
COMMAND "Ultimo"
|
|
"Presenta en pantalla el ultimo registro encontrado"
|
|
FETCH LAST pro INTO puntero,datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
DISPLAY BY NAME datos_m.*,descrip,unidad,
|
|
usuario_c,fecha_c,usuario_m,fecha_m
|
|
|
|
COMMAND "Escoger"
|
|
|
|
INPUT BY NAME datos_m.* WITHOUT DEFAULTS
|
|
AFTER FIELD cod_sec
|
|
IF datos_m.cod_sec IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_sec
|
|
END IF
|
|
|
|
SELECT UNIQUE descrip_esp,unidad_med INTO descrip,unidad
|
|
FROM intb00001 WHERE status_t IS NULL AND
|
|
cod_n = datos_m.cod_n and
|
|
cod_grupo = datos_m.cod_grupo and
|
|
cod_tipo = datos_m.cod_tipo and
|
|
cod_sec = datos_m.cod_sec
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cod_n
|
|
END IF
|
|
LET mes_ant = month(today) using "&&"
|
|
DISPLAY BY NAME descrip,unidad
|
|
AFTER FIELD mes
|
|
IF datos_m.mes is null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cantidad
|
|
END IF
|
|
|
|
AFTER FIELD cantidad
|
|
IF datos_m.cantidad IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD cantidad
|
|
END IF
|
|
END INPUT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
UPDATE cttb00015 SET (ano,mes,cantidad,cod_n,cod_grupo,cod_tipo,cod_sec,
|
|
us_mod,fech_mod) =
|
|
(datos_m.ano,datos_m.mes,datos_m.cantidad,datos_m.cod_n,datos_m.cod_grupo,
|
|
datos_m.cod_tipo,datos_m.cod_sec,USER,CURRENT)
|
|
WHERE rowid = puntero
|
|
|
|
LET numero_msg = 13
|
|
CALL msg(numero_msg)
|
|
|
|
COMMAND KEY ("L") "eLiminar"
|
|
UPDATE cttb00015 SET (status_t,us_mod,fech_mod) =
|
|
("E",USER,CURRENT)
|
|
WHERE rowid = puntero
|
|
|
|
COMMAND "Retornar"
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|