algoritmos

Modulo Fecha

Declaraciones
Tipo
Dia Entero
Mes Entero
Año Entero
Variables
DiaUsuario Dia ingresado por Usuario
MesUsuario Mes ingresado por Usuario
AñoUsuario Año ingresadopor Usuario

Imprimir mensaje
Mensaje: "Ingrese el Dia, el Mes y el Año"
El usuario ingresa (DiaUsuario, MesUsuario, AñoUsuario)
If (Dia == DiaUsuario y Mes == MesUsuario y Año = AñoUsuario)Imprimir (DatosFecha)
Mes = Mes +1
If (Mes == 12)
Mes = 1
Año = Año + 1
END IF
ELSE
Imprimir Mensaje
Mensaje: "Lo siento aun no se puede mostrar el archivo"
Cerrar (Fecha)
Fin delModulo Fechas


Formato (Fechas)

Titulo1 Nomina Empresa Patito S. A.
Titulo2 CATALOGO DE FECHAS
Titulo3 ------------------------------------------------
TitDet1
TitDet2 Numero NombreDetalle 99999 xxxxxxxxxxxxxxxx
99999 xxxxxxxxxxxxxxxx
Total de Fechas 99999999999


Modulo Transacciones
Declaraciones
Tipo
Constantes
Transacción
Numero EnteroDescripcion Cadena [30]
Variables
RegTran : Transaccion
Transacciones : Archivo de Transaccion

Rutina de Ejecucion

Crear (Transacciones, Secuencial)
DO
Imprimir Pantalla CapturaEl usuario Transmite los DatosRegTrans.Nombre = Nombre
Imprimir (Transacciones, RegTransacciones)
Deseas = “ “
Solicitar: “Deseas realizar otra Transaccion (S/N)”
Leer:Deseas
UNTIL (Deseas = “N”)
RegTrans.Numero = 0
RegTrans.Nombre = “FIN”
Imprimir (Transacciones, RegTransacciones)
Cerrar (Transacciones)
Fin Modulo Transacciones

Formato (Transacciones)Titulo1 Nomina Empresa Patito S. A.
Titulo2 Catalogo de transacciones
Titulo 3 ----------------------------------------------
TitDet1
TitDet2 Numero Nombre
Detalle 99 xxxxxxxxxxxx
99xxxxxxxxxxxxx
Total de Transacciones 999




Modulo Departamento

Declaraciones
Tipo
Numero Entero
Nombre Cadena [30]
Variables
Numero de Departamento NumeroDepartamento...