Citación del post de
Fito
|
❞
Hola Amigos:
Necesito armar un sistema de auditoria, les comento el escenario.
Tengo un servidor con Windows Server 2016, salvo una máquina que trabaja en red (esa ingresa así, porque tiene conectada un escaner de cheques, y los tecnicos no lograron comunicarla por escritorio remoto), todas las demás trabajan con escritorio remoto.
Lo que necesito hacer es grabar un archivo de auditoria con toda la mayor información posible (usuario de windows que accedió, ip desde donde accedió, etc, etc) para agregarle a la ya auditoria que realizo cada vez que dan de baja o modifican algun dato desde el sistema (clientes, remitos, facturas, etc).
El desarrollo está hecho en PowerCobol 8, si alguien tiene alguna "soga" que me tire, lo agradeceré.
Saludos.
Fito...
|
Hola Fito
En un sistema de facturación estoy intentando implementar algo similar. En mi caso particular, cree un archivo llamado Eventos, donde guardo Usuario, Host, Fecha, Hora, tipo de evento, descripción. De momento tengo una rutina donde que copio y pego en cada situación que deseo que quede registrada (registro de pagos, emisión de factura, anulación de un recibo, etc).
Por ejemplo, al final del algoritmo donde guardo la generación de una orden de pago, pego esto
Código COBOL:
REGISTRA-EVENTO.
OPEN I-O EVENTOS.
INITIALIZE REG-EVENTOS.
MOVE WX-ID-USR TO EV-USUARIO.
MOVE WX-HOST-USR TO EV-HOST.
MOVE FUNCTION CURRENT-DATE TO WK-FECHA-ENTRADA.
MOVE WK-FECHA TO EV-FECHA.
ACCEPT EV-HORA FROM TIME.
IF REGISTRO-NUEVO THEN
MOVE "ALTA" TO EV-EVENTO
STRING "Nueva orden de pago N° " ID-OPAGO DELIMITED BY SIZE
INTO EV-DESCRIBE
END-STRING
ELSE
MOVE "EDIT" TO EV-EVENTO
STRING "Edita orden de pago N° " ID-OPAGO DELIMITED BY SIZE
INTO EV-DESCRIBE
END-STRING
END-IF.
WRITE REG-EVENTOS INVALID KEY
CONTINUE
END-WRITE.
CLOSE EVENTOS.
En algún momento quiero desarrollarlo en una DLL, por el momento no me resulta tan incómodo copiar, pegar y editar la descripción.
De esa manera puedo ver que acciones llevaron a cabo los usuarios.
Saludos
Lascu