154 lines
4.0 KiB
Plaintext
154 lines
4.0 KiB
Plaintext
{
|
|
==========================================================================
|
|
PROGRAMA : INPRMT098
|
|
OBJETIVO : Des - Cierre Anual del Inventario de Materias Primas
|
|
REALIZADO POR : Abner Montalvo
|
|
FECHA : Octubre 8, 1997.
|
|
==========================================================================
|
|
}
|
|
GLOBALS "inprgb000.4gl"
|
|
|
|
DEFINE trn RECORD
|
|
cod_n LIKE intb00006.cod_n,
|
|
cod_grupo LIKE intb00006.cod_grupo,
|
|
cod_tipo LIKE intb00006.cod_tipo,
|
|
cod_sec LIKE intb00006.cod_sec,
|
|
cantidad_2 LIKE intb00006.cantidad_2
|
|
END RECORD
|
|
|
|
DEFINE productos RECORD LIKE intb00002.*
|
|
DEFINE status_orden CHAR(1)
|
|
DEFINE secuencia INTEGER
|
|
DEFINE fecha_cierre DATE
|
|
DEFINE intb6_ascii CHAR(100)
|
|
DEFINE intb2_ascii CHAR(100)
|
|
DEFINE intb6_dbsch CHAR(100)
|
|
DEFINE intb2_dbsch CHAR(100)
|
|
DEFINE intb24 CHAR(100)
|
|
DEFINE intb24_dat CHAR(100)
|
|
DEFINE intb24_idx CHAR(100)
|
|
DEFINE forma_ld CHAR(100)
|
|
|
|
DEFINE err_val INTEGER
|
|
|
|
FUNCTION inprmt098()
|
|
|
|
OPTIONS
|
|
PROMPT LINE 20,
|
|
FORM LINE 8,
|
|
ERROR LINE 24
|
|
|
|
OPEN FORM infmmt098 FROM "infmmt098"
|
|
DISPLAY FORM infmmt098
|
|
|
|
CALL pantalla()
|
|
|
|
DISPLAY "inprmt098" AT 4,3
|
|
DISPLAY " Des - Cierre Anual " AT 6,30
|
|
|
|
LET fecha_cierre = NULL
|
|
SELECT UNIQUE MAX(fecha) INTO fecha_cierre
|
|
FROM intb00006
|
|
WHERE cod_mov = 1 AND status_t IS NULL
|
|
|
|
IF fecha_cierre IS NULL THEN
|
|
LET numero_msg = 379
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
SLEEP 2
|
|
RETURN
|
|
END IF
|
|
|
|
#LET fecha_cierre = "31/12/95"
|
|
DISPLAY BY NAME fecha_cierre
|
|
|
|
LET secuencia = fecha_cierre USING "DDMMYY"
|
|
|
|
LET intb6_ascii = fgl_getenv("DBPATH") CLIPPED,"/rayovac.dbs/",
|
|
"intb00006_ascii.", fecha_cierre USING "DDMMYY"
|
|
|
|
LET intb2_ascii = fgl_getenv("DBPATH") CLIPPED,"/rayovac.dbs/",
|
|
"intb00002_ascii.", fecha_cierre USING "DDMMYY"
|
|
|
|
LET intb6_dbsch = "dbschema -d rayovac -t intb00006 ",
|
|
fgl_getenv("DBPATH") CLIPPED,"/rayovac.dbs/",
|
|
"intb00006_dbsch.", fecha_cierre USING "DDMMYY"
|
|
|
|
LET intb2_dbsch = "dbschema -d rayovac -t intb00002 ",
|
|
fgl_getenv("DBPATH") CLIPPED,"/rayovac.dbs/",
|
|
"intb00002_dbsch.", fecha_cierre USING "DDMMYY"
|
|
|
|
SELECT dirpath INTO intb24 FROM systables
|
|
WHERE tabname = "intb00024"
|
|
|
|
LET intb24 = fgl_getenv("DBPATH") CLIPPED,"/rayovac.dbs/",intb24
|
|
|
|
LET intb24_dat = "cp ", intb24 CLIPPED, ".dat.", fecha_cierre USING "DDMMYY",
|
|
" ", intb24 CLIPPED, ".dat"
|
|
|
|
LET intb24_idx = "cp ", intb24 CLIPPED, ".idx.", fecha_cierre USING "DDMMYY",
|
|
" ", intb24 CLIPPED, ".idx"
|
|
|
|
#DISPLAY intb6_ascii AT 6,2
|
|
#DISPLAY intb2_ascii AT 7,2
|
|
#DISPLAY intb6_dbsch AT 8,2
|
|
#DISPLAY intb2_dbsch AT 9,2
|
|
#DISPLAY intb24 AT 10,2
|
|
#DISPLAY intb24_dat AT 11,2
|
|
#DISPLAY intb24_idx AT 12,2
|
|
|
|
LABEL volver:
|
|
PROMPT " Estas Seguro de Proceder (S/N)? "
|
|
FOR decide
|
|
|
|
LET decide = UPSHIFT(decide)
|
|
|
|
IF decide != "S" AND decide != "N" THEN
|
|
GOTO volver
|
|
END IF
|
|
|
|
IF decide != "S" THEN
|
|
RETURN
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
DISPLAY " "
|
|
AT 20,10
|
|
|
|
DISPLAY " Cargando los Registros en la tabla de Transacciones "
|
|
AT 20,10
|
|
|
|
LOAD FROM intb6_ascii INSERT INTO intb00006
|
|
|
|
DISPLAY " Eliminando Balances Finales del Cierre "
|
|
AT 20,10
|
|
|
|
DELETE FROM intb00006 WHERE cod_mov = 1 AND fecha = fecha_cierre
|
|
|
|
{
|
|
DISPLAY " Eliminando del Historico de Materias Primas "
|
|
AT 20,10
|
|
|
|
DELETE FROM intb00025 WHERE fecha = fecha_cierre
|
|
|
|
DISPLAY " Restaurando el Historico de Transacciones "
|
|
AT 20,10
|
|
}
|
|
|
|
RUN intb24_dat
|
|
RUN intb24_idx
|
|
|
|
LET forma_ld = "rm ", fgl_getenv("DBPATH") CLIPPED, "/rayovac.dbs/*.",
|
|
fecha_cierre USING "DDMMYY"
|
|
|
|
RUN forma_ld
|
|
|
|
END FUNCTION
|
|
|