Como usar Inlist en Visual Foxpro

Inlist

Sintaxis :

INLIST(eExpression1, eExpression2 [, eExpression3 ...])

Mediante la utilización del Inlist podremos determinar si una expresión coincide con otra expresión en un conjunto de expresiones.

INLIST () nos devuelve verdadero (.T.) si encuentra la expresión en el conjunto de expresiones de lo contrario nos devolverá Falso(.F.).

La creación de este programa nos permite saber en qué trimestre del año nos encontramos.

La instrucción Inlist  nos permite clasificar los trimestres en cuatro (4) diferentes grupos. En el primer trimestre tenemos los meses “Enero, Febrero, Marzo” , en el segundo trimestre colocamos los meses de “Abril, Mayo, junio”, el tercer trimestre corresponde a los meses de “Julio, Agosto, Septiembre”, y finalmente para el cuarto trimestre agregamos los meses de “Octubre, noviembre y Diciembre”.

Primeramente mediante la instrucción Month logramos saber el número del mes en el cual nos encontramos asignándole a la variable nMonth el número del mes correspondiente. De esta manera le asignamos el nombre del mes actual a la variable gcMonth .

Cada declaración CASE usa INLIST () para determinar si el contenido de gcMonth se puede encontrar en una lista de nombres de meses. El nombre del trimestre devuelto se lmacena en la variable gcReporTitle.

El valor obtenido mediante esta variable nos permite buscar con Inlist el trimestre en el cual nos encontramos.

SET TALK ON

STORE MONTH(DATE( )) TO nMonth

DO case

   CASE nMonth=1

   gcMonth="Enero"

   CASE nMonth=2

   gcMonth="Febrero"

   CASE nMonth=3

   gcMonth="Marzo"

   CASE nMonth=4

   gcMonth="Abril"

   CASE nMonth=5

   gcMonth="Mayo"

   CASE nMonth=6

   gcMonth="Junio"

   CASE nMonth=7

   gcMonth="Julio"

   CASE nMonth=8

   gcMonth="Agosto"

   CASE nMonth=9

   gcMonth="Septiembre"

   CASE nMonth=10

   gcMonth="Octubre"

   CASE nMonth=11

   gcMonth="Noviembre"

   CASE nMonth=12

   gcMonth="Diciembre"

endcase   

DO CASE

   CASE INLIST(gcMonth,'Enero','Febrero','Marzo')

      STORE 'Primer Trimestre' TO gcReporTitle

   CASE INLIST(gcMonth,'Abril','Mayo','Junio')

      STORE 'Segundo Trimestre' TO gcReporTitle

   CASE INLIST(gcMonth,'Julio','Agosto','Septiembre')

      STORE 'Tercer Trimestre' TO gcReporTitle

   OTHERWISE

      STORE 'Cuarto Trimestre' TO gcReporTitle

ENDCASE

Messagebox(gcReporTitle,0,"Período del Año")