Algoritmos de auditoria

Diseño de pantallas y
Código Fuente del sistema de Registro estadístico de Auditoría
Base de datos del sistema:

El sistema cuenta con dos tablas para manejar la información:
tbPreguntas: es unarchivo tipo tabla perteneciente a la base de datos auditoría el cual, contiene las preguntas que serán aplicadas para la ejecución de la auditoría.
tbRespuestas: en este archivo se almacenan todaslas respuestas, especificando el nombre de la empresa, el departamento y nivel del estudio. Al almacenar las respuestas en una tabla se cuenta con múltiples bondades, entre las cuales destaca laposibilidad de realizar análisis estadísticos.
Formulario de Auditoria:
Se organizó la información requerida para la auditoría por medio de un formulario computarizado codificado en Visual FoxPro. 9.0Algoritmo en pseudocódigo:
00 | Inicio |
10 | xFecha=Fecha() |
20 | xEmpresa=”” |
30 | xDpto=”” |
40 | xJefe=”” |
50 | xRepetir=”S” |
60 | Hacer Mientras xRepetir =”S” |
70 | IMPRIMIR“Fecha de la lectura” |
80 | LEER xFecha |
90 | IMPRIMIR “Nombre de Empresa” |
100 | LEER xEmpresa |
110 | IMPRIMIR “Nombre del departamento” |
120 | LEER xDpto |
130 | IMPRIMIR “Nombre deJefe del dpto” |
140 | LEER xJefe |
150 | SI xEmpresa=”” O xDtp=”” O xJefe=”” |
160 | Imprimir “Error debe ingresar datos completos” |
170 | xRepetir=”S” |
180 | SINO |
190 |xRepetir=”N” |
200 | FINSI |
210 | FIN HACER PARA xRepertir |
220 | IMPRIMIR “PREGUNTAS DEL NIVEL DE SEGURIDAD” |
230 | IMPRIMIR “PREGUNTAS DEL NIVEL DE REGISTRO” |
240 | IMPRIMIR“PREGUNTAS DEL NIVEL DE SALIDA” |
250 | xRepetir=”S” |
260 | ABRIR tbPregutas.dbf |
270 | ABRIR tbRepuestas.dbf |
280 | nTotalSi=0 |
290 | nTotalNo=0 |
300 | nTotalSi_N1 =0 |
310 | nTotalSi_N2 =0|
320 | nTotalSi_N3 =0 |
330 | nTotalNo_N1 =0 |
340 | nTotalNo_N2 =0 |
350 | nTotalNo_N3 =0 |
360 | HACER MIENTAS xRepetir=”S” |
370 | REM “SE CARGAN LAS PREGUNTAS DESDE EL ARCHIVO”...