SET TALK OFF
SET STAT OFF
SET SCORE ON

* ----- USO DE LA BASE DE DATOS

USE CAS10495


* ----- MODULO DE GENERACION DE VARIABLES DE MEMORIA

CL=0
DO WHILE CL<25
CL=CL+1
   PASO="VAR"+LTRIM(RTRIM(STR(CL,3)))
   STORE 0 TO &PASO
ENDDO


* ----- PRESENTACION

DO WHILE .T.
   @ 0,0 CLEAR TO 22,79
   SET COLOR TO w+
   @ 24,0 SAY "CASINOS / ABRIL 95"


* ----- ACEPTACION DE PREGUNTAS

             *"01234567890123456789012345678901234567890123456789012345678901234567890123456789"
             *"³   ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³"
   @ 3,0 CLEAR TO 22,79

   @ 1, 0 SAY "ENC      TELEFONO  LADA"
   @ 3, 0 SAY "    ³4.  ³5.1 ³5.2 ³6.  ³6.1 ³6.2 ³7.  ³8.  ³9.  ³10. ³11. ³12. ³13. ³14. ³A.  ³"
   @ 5, 0 SAY "³B. ³G.  ³H.  ³CAP.³"

   
* ----- VALIDACION MUNICIPIO

     @ 2,1  GET VAR1 PICT "9999"
     @ 2,10 GET VAR2 PICT "9999999" 
     @ 2,20 GET VAR3 PICT "999" 
     READ
  


* ----- INICIA CUESTIONARIO

      @ 4, 5 GET VAR7  PICT "9"   RANGE  1, 4
      @ 4,10 GET VAR8  PICT "99"  RANGE  0,99
      @ 4,15 GET VAR9  PICT "99"  RANGE  0,99
      @ 4,20 GET VAR10 PICT "9"   RANGE  1, 4
      READ
      IF VAR10=1
        @ 4,25 GET VAR11 PICT "99"  RANGE 10,99
        READ
      ELSE
        STORE 0 TO VAR11
      ENDIF
      IF VAR10=2
        @ 4,30 GET VAR12 PICT "99"  RANGE 10,99
        READ
      ELSE
        STORE 0 TO VAR12
      ENDIF
      @ 4,35 GET VAR13 PICT "9"   RANGE  1, 4
      @ 4,40 GET VAR14 PICT "9"   RANGE  1, 5
      @ 4,45 GET VAR15 PICT "9"   RANGE  1, 5
      @ 4,50 GET VAR16 PICT "9"   RANGE  1, 5
      @ 4,55 GET VAR17 PICT "9"   RANGE  1, 4
      @ 4,60 GET VAR18 PICT "9"   RANGE  1, 4
      @ 4,65 GET VAR19 PICT "9"   RANGE  1, 4
      @ 4,70 GET VAR20 PICT "9"   RANGE  1, 4
      @ 4,75 GET VAR21 PICT "9"   RANGE  1, 3
      @ 6, 5 GET VAR23 PICT "9"   RANGE  0, 9
      @ 6,10 GET VAR24 PICT "9"   RANGE  1, 7
      @ 6, 1 GET VAR22 PICT "9"   RANGE  1, 5
      @ 6,15 GET VAR25 PICT "99"  RANGE  1,14
      READ


* ----- SALIR O CONTINUAR CON PROGRAMA DE CAPTURA

DO WHILE .T.
     OPC=0
     @ 19, 44 CLEAR TO 22,76
     @ 19,44 TO 22,76
     @ 20, 45 SAY "ESTA BIEN CAPTURADO? 5 = Si"
     @ 21, 45 SAY "                     0 = No"
     @ 21, 75 GET OPC PICTURE "9" RANGE 0, 5
     READ
     @ 19,44 CLEAR TO 22,76
     IF (OPC=0 .OR. OPC=5)
       EXIT
     ENDIF  
  ENDDO
   IF OPC=0
      LOOP
   ENDIF
DO WHILE .T.
     OPC=0
     @ 19, 44 CLEAR TO 22,76
     @ 19, 44 TO 22,76
     @ 20, 45 SAY "DESEA CONTINUAR? 5 = Si"
     @ 21, 45 SAY "                 0 = No"
     @ 21, 75 GET OPC PICTURE "9" RANGE 0, 5
     READ
     @ 19,44 CLEAR TO 22,76
     IF (OPC=0 .OR. OPC=5)
       EXIT
     ENDIF
  ENDDO


* ----- GRABACION Y REINICIALIZACION DE VARIABLES.

      @ 0,0 CLEAR TO 22,79
      SET COLOR TO *w+/N+
      @10,25 SAY "Espere un momento.. por favor.."  
      SET COLOR TO
      APPEND BLANK
      CL=0
      DO WHILE CL<25
         CL=CL+1
         CAMPO=FIELD(CL)
         PASO="VAR"+LTRIM(RTRIM(STR(CL,3)))
         REPLACE &CAMPO WITH &PASO
         STORE 0 TO &PASO
      ENDDO
    IF OPC=0
        EXIT
    ENDIF
    LOOP
ENDDO
CLEAR
SET COLOR TO *W+
@ 10,25 SAY "UN MOMENTO RESPALDANDO EL ARCHIVO"
SET COLOR TO


* ----- RESPALDLO DE INFORMACION

COPY TO CAS1RES

CLOSE ALL
CLEAR ALL
SET COLOR TO
CLEAR
@ 22,64 SAY "Fin del Programa"


* ------- PROCEDIMIENTOS DE ERROR

PROCEDURE ERROR
SET COLOR TO *W+
@ 22,10 SAY "ERROR EN MUNICIPIO"
INKEY(0)
@ 22,10 CLEAR TO 22,75
SET COLOR TO
RETURN