primer commit subida
This commit is contained in:
Luis
@@ -0,0 +1,237 @@
|
||||
{
|
||||
========================================================================
|
||||
SISTEMA : DOCUMENTACION DE SISTEMA
|
||||
PROGRAMA : DSPRRP007
|
||||
DESCRIPCION: MODIFICACION DESDE UNA FECHA
|
||||
OBJETIVO : Buscar las tablas y programas actualizadas apartir de una
|
||||
fecha
|
||||
AUTOR : Juan F. Soto
|
||||
FECHA : Enero 8, 1996
|
||||
=========================================================================
|
||||
}
|
||||
|
||||
DATABASE rayovac
|
||||
GLOBALS
|
||||
"dsprgb000.4gl"
|
||||
|
||||
DEFINE opt1 CHAR(1),
|
||||
fecha_actualiza DATE,
|
||||
p_dstb1 RECORD LIKE dstb00001.*,
|
||||
p_dstb5 RECORD LIKE dstb00005.*,
|
||||
criterio1 CHAR(200),
|
||||
p_programa LIKE dstb00002.programa
|
||||
|
||||
FUNCTION dsprrp007()
|
||||
DEFINE prt RECORD
|
||||
nombre LIKE dstb00001.programa,
|
||||
descripcion LIKE dstb00001.descripcion,
|
||||
fecha LIKE dstb00001.fecha_creacion
|
||||
END RECORD,
|
||||
cod CHAR(2)
|
||||
OPTIONS
|
||||
FORM LINE 8,
|
||||
ERROR LINE 23,
|
||||
PROMPT LINE 23
|
||||
|
||||
OPEN FORM dsfmrp007 FROM "dsfmrp007"
|
||||
DISPLAY FORM dsfmrp007
|
||||
|
||||
CALL pantalla()
|
||||
DISPLAY "dsprrp007" AT 4,3 ATTRIBUTE(RED)
|
||||
DISPLAY "Modificacion Desde Una Fecha" AT 6,20 ATTRIBUTE(BLACK)
|
||||
|
||||
LET tipo_papel = 1
|
||||
CALL msgrp000(tipo_papel)
|
||||
|
||||
CONSTRUCT BY NAME criterio ON a.programa
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
CONSTRUCT BY NAME criterio1 ON a.tabla
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
INPUT BY NAME fecha_actualiza
|
||||
AFTER FIELD fecha_actualiza
|
||||
IF fecha_actualiza is null THEN
|
||||
LET numero_msg = 16
|
||||
CALL msg(numero_msg)
|
||||
NEXT FIELD fecha_actualiza
|
||||
END IF
|
||||
END INPUT
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
LET selec =
|
||||
"SELECT UNIQUE a.* FROM dstb00001 a ",
|
||||
"WHERE (a.fecha_creacion >= ? OR a.fecha_modificacion >= ?) AND ",
|
||||
" a.status_t IS NULL AND ",criterio CLIPPED
|
||||
|
||||
DISPLAY "<< Buscando Informacion... Espere Por Favor >>" AT 19,14
|
||||
|
||||
PREPARE comando FROM selec
|
||||
DECLARE busca CURSOR FOR comando
|
||||
OPEN busca USING fecha_actualiza,fecha_actualiza
|
||||
|
||||
LET selec1 =
|
||||
"SELECT unique a.tabla,a.descripcion,a.num_emp1,a.fecha_creacion ",
|
||||
"FROM dstb00005 a ",
|
||||
"WHERE a.fecha_creacion >= ? AND a.status_t IS NULL AND ",criterio1 CLIPPED,
|
||||
" ORDER BY 1"
|
||||
|
||||
DISPLAY "<< Buscando Informacion... Espere Por Favor >>" AT 19,14
|
||||
|
||||
PREPARE comando1 FROM selec1
|
||||
DECLARE busca1 CURSOR FOR comando1
|
||||
OPEN busca1 USING fecha_actualiza
|
||||
|
||||
START REPORT reporte7 TO "c:\dsrp7"
|
||||
|
||||
DISPLAY "<< Reporte Generandose... Espere Por Favor >>" AT 19,14
|
||||
|
||||
WHILE status != notfound
|
||||
FETCH busca INTO p_dstb1.*
|
||||
IF status = notfound THEN
|
||||
EXIT WHILE
|
||||
END IF
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
LET idx = 1
|
||||
LET prt.nombre = p_dstb1.programa
|
||||
LET prt.descripcion = p_dstb1.descripcion
|
||||
|
||||
IF p_dstb1.fecha_creacion = "311299" THEN
|
||||
LET p_dstb1.fecha_creacion = null
|
||||
END IF
|
||||
IF p_dstb1.fecha_modificacion = "311299" THEN
|
||||
LET p_dstb1.fecha_modificacion = null
|
||||
END IF
|
||||
|
||||
IF p_dstb1.fecha_creacion is not null THEN
|
||||
LET prt.fecha = p_dstb1.fecha_creacion
|
||||
END IF
|
||||
IF p_dstb1.fecha_modificacion is not null THEN
|
||||
LET prt.fecha = p_dstb1.fecha_modificacion
|
||||
END IF
|
||||
LET cod = prt.nombre[1,2]
|
||||
OUTPUT TO REPORT reporte7(idx,prt.*,cod)
|
||||
END WHILE
|
||||
|
||||
LET status = 0
|
||||
WHILE status != notfound
|
||||
FETCH busca1 INTO p_dstb5.*
|
||||
IF status = notfound THEN
|
||||
EXIT WHILE
|
||||
END IF
|
||||
|
||||
IF int_flag THEN
|
||||
LET numero_msg = 2
|
||||
CALL msg(numero_msg)
|
||||
LET int_flag = FALSE
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
LET idx = 2
|
||||
LET prt.nombre = p_dstb5.tabla
|
||||
LET prt.descripcion = p_dstb5.descripcion
|
||||
LET prt.fecha = p_dstb5.fecha_creacion
|
||||
LET cod = upshift(prt.nombre[1,2])
|
||||
OUTPUT TO REPORT reporte7(idx,prt.*,cod)
|
||||
END WHILE
|
||||
FINISH REPORT reporte7
|
||||
RUN "TYPE c:\\dsrp7 > \\rovdom2\contabi"
|
||||
END FUNCTION
|
||||
|
||||
REPORT reporte7(p_idx,x,x_cod)
|
||||
DEFINE x RECORD
|
||||
nombre LIKE dstb00001.programa,
|
||||
descripcion LIKE dstb00001.descripcion,
|
||||
fecha LIKE dstb00001.fecha_creacion
|
||||
END RECORD,
|
||||
x_cod CHAR(2)
|
||||
|
||||
DEFINE p_idx INTEGER
|
||||
DEFINE negrillas_on,negrillas_off,comp_on,comp_off,normal CHAR(2)
|
||||
DEFINE tabla1 CHAR(9)
|
||||
DEFINE l INTEGER
|
||||
DEFINE hora char(5),
|
||||
p_describe CHAR(60)
|
||||
|
||||
OUTPUT
|
||||
LEFT MARGIN 0
|
||||
ORDER BY p_idx,x_cod
|
||||
|
||||
FORMAT
|
||||
PAGE HEADER
|
||||
LET negrillas_on = ASCII 27,ASCII 69
|
||||
LET negrillas_off = ASCII 27,ASCII 70
|
||||
LET comp_on = ASCII 15
|
||||
LET comp_off = ASCII 18
|
||||
LET normal = ASCII 27, ASCII 80
|
||||
LET hora = TIME
|
||||
|
||||
PRINT COLUMN 1, negrillas_on
|
||||
PRINT COLUMN 1, "dsprrp007",
|
||||
COLUMN 17, "R A Y . O . V A C D O M I N I C A N A, S. A.",
|
||||
COLUMN 73, "Pag. ", PAGENO USING "###"
|
||||
PRINT COLUMN 17, " GERENCIA DE INFORMATICA",
|
||||
COLUMN 73, TODAY USING "dd/mm/yyyy"
|
||||
PRINT COLUMN 17, " MODIFICACION DESDE UNA FECHA ",
|
||||
COLUMN 76, hora
|
||||
PRINT COLUMN 17, " MAYOR O IGUAL A : ",
|
||||
fecha_actualiza using "dd/mm/yyyy"
|
||||
PRINT COLUMN 1,
|
||||
"==============================================================================","======"
|
||||
PRINT COLUMN 1, " N O M B R E S",
|
||||
COLUMN 65, " F E C H A"
|
||||
PRINT COLUMN 1, "PROGRAMA Y/O TABLAS",
|
||||
COLUMN 59, "CREACION Y/O MODIFICACION"
|
||||
PRINT COLUMN 1,
|
||||
"==============================================================================","======"
|
||||
|
||||
SKIP 1 LINE
|
||||
BEFORE GROUP OF p_idx
|
||||
|
||||
IF p_idx = 1 THEN
|
||||
PRINT COLUMN 1,negrillas_on,"Programas..."
|
||||
ELSE
|
||||
PRINT COLUMN 1,negrillas_on, "Tablas..."
|
||||
END IF
|
||||
|
||||
PRINT negrillas_off
|
||||
BEFORE GROUP OF x_cod
|
||||
SKIP 1 LINE
|
||||
SELECT desc_sistema INTO p_describe FROM dstb00003
|
||||
WHERE cod_sistema = x_cod
|
||||
|
||||
IF STATUS = NOTFOUND THEN
|
||||
LET p_describe = "SISTEMA NO EXISTE"
|
||||
END IF
|
||||
PRINT COLUMN 1, negrillas_on,p_describe
|
||||
PRINT negrillas_off
|
||||
ON EVERY ROW
|
||||
|
||||
PRINT COLUMN 1, x.nombre ," ",x.descripcion,
|
||||
COLUMN 73, x.fecha using "dd/mm/yyyy"
|
||||
|
||||
AFTER GROUP OF p_idx
|
||||
SKIP 1 LINE
|
||||
PRINT COLUMN 1,
|
||||
"==============================================================================","======"
|
||||
END REPORT
|
||||
Reference in New Issue
Block a user