Ejemplo de uso de variables

Esta regla debe utilizarse como regla de verificación. Escribirá en el disco c:\ un archivo llamado "Apuração.txt", que contiene la información detallada de cada parte del cálculo del día. Este procedimiento es muy útil cuando se necesita conocer en detalle cómo el Control de Horarios y Refectorio está realizando el cómputo de una fecha determinada.

/******** Inicio de la regla ********/
Establecer Alpha vData;
Establezca Alpha vAux;

yo = 1;
vDatos = "";

ArqSaida = Open("c:\\Apuração.txt", Gravarnl);
mientras (CDatIn[i] <> 0)
inicio
/* Escribe la secuencia de la situación del día en el archivo */
IntToAlpha(i, vAux);
vAux = "============ " + vAux + "Parte 1 ==========";
Writenl(Archivo de salida, vAux);

/* La fecha de inicio */
ConvertMascara(3, CDatIn[i], vAux, "DD/MM/YYYY");
vData = "Fecha de inicio......: " + vAux;
Writenl(Archivo de salida, vData);

/* Fecha final */
ConvertMascara(3, CDatFi[i], vAux, "DD/MM/YYYY");
vData = "Fecha de finalización......: " + vAux;
Writenl(Archivo de salida, vData);

/* Hora de inicio */
ConvertMascara(4, CHorIn[i], vAux, "hh:mm");
vData = "Hora de inicio......: " + vAux;
Writenl(Archivo de salida, vData);

/* Hora de finalización */
ConvertMascara(4, CHorFi[i], vAux, "hh:mm");
vData = "Hora de finalización......: " + vAux;
Writenl(Archivo de salida, vData);

/* Total de horas */
CalculateQtdMinutes(CDatIn[i], CHorIn[i], CDatFi[i], CHorfi[i], vTot);
ConvertMascara(4, vTot, vAux, "hh:mm");
vData = "Total de Horas....: " + vAux;
Writenl(Archivo de salida, vData);

/* Situación original */
IntParaAlpha(CSitOr[i], vAux);
vData = "Estado original: " + vAux;
Writenl(Archivo de salida, vData);

/* Situación final */
IntParaAlpha(CSitFi[i], vAux);
vData = "Situación final...: " + vAux;
Writenl(Archivo de salida, vData);

/* Compensación/Programación en la fecha */
si (CAfaPr[i] = 0)
vAux = "Sin horarios ni salidas";
senao
si (CAfaPr[i] = 1)
vAux = "Ausente";
senao
si (CAfaPr[i] = 2)
vAux = "Programa de compensación";
senao
si (CAfaPr[i] = 3)
vAux = "Horario de autorización de salida";
senao
si (CAfaPr[i] = 4)
vAux = "Hora de baja";
senao
si (CAfaPr[i] = 5)
vAux = "Horario de Autorización de Horas Extras";
vData = "Afsto/Programación.: " + vAux;
Writenl(Archivo de salida, vData);

/* Estado del retiro en la fecha */
si (CSAfPr[i] <> 0)
inicio
IntParaAlpha(CSAfPr[i], vAux);
vData = "Situación Afsto....: " + vAux;
fim;
senao
vData = "Estado Afsto....: Ninguno";
Writenl(Archivo de salida, vData);

/* Autorización de extras en la fecha */
si (CAutEx[i] = 0)
vAux = "No";
senao
vAux = "Sí";
vData = "Extras de Autorización: " + vAux;
Writenl(Archivo de salida, vData);

/* Compensación en la fecha */
si (CHorCm[i] = 0)
vAux = "No";
senao
vAux = "Sí";
vData = "Desplazamiento de día: " + vAux;
Writenl(Archivo de salida, vData);

/* Tipo de calculo */
IntParaAlpha(CTipCa[i], vAux);
/* Establecer descripción de acuerdo al valor de la variable CTipCa[] */
si (CTipCa[i] = 0)
vAux = vAux + " - Sin tipo";
senao
si (CTipCa[i] = 1)
vAux = vAux + " - Trabajo";
senao
si (CTipCa[i] = 2)
vAux = vAux + " - Extras";
senao
si (CTipCa[i] = 3)
vAux = vAux + " - Fallos";
senao
si (CTipCa[i] = 4)
vAux = vAux + " - Comida";
senao
si (CTipCa[i] = 5)
vAux = vAux + " - Merienda";
senao
si (CTipCa[i] = 6)
vAux = vAux + " - Entrada justificada (marca con uso 6)";
senao
si (CTipCa[i] = 7)
vAux = vAux + " - Salida justificada (marca con uso 5)";
senao
si (CTipCa[i] = 8)
vAux = vAux + "- Entrada Indicada (marca con uso 12)";
senao
vAux = vAux + " - Salida justificada (marca con uso 13)";
vData = "Tipo de cálculo......: " + vAux;
Writenl(Archivo de salida, vData);

Writenl(Archivo de salida, "");
yo = yo + 1;
El fin; /* Fin de "Mientras" */

Cerrar (archivo de salida);
/******** Fin de la regla ********/