*  Programa    : AUT201A5.PRG (VERSION A)
*  Versi¢n 1.0 : 26 de enero de 1995
*  Descripci¢n : Programa para captura de datos cuestionario telefonico
*              : levantado a papel
*  Autor       : Ing. Gustavo Duay A.

SET STAT OFF
SET TALK OFF
SET SAFE OFF

CLOSE ALL


********************************
* DATOS A MODIFICAR DEL PROYECTO
********************************

TITULO  = 'AUTORITARISMO (2) 26/ENE/95 TELEFONICA'
BASE    = 'AUT20195'           && NOMBRE DE LA BASE DE DATOS
MESTADO = 'REPUBLICA MEXICANA' && ESTADO
NVAR    = 42                   && NUMERO DE VARIABLES DE MEMORIA


************************************
* GENERACION DE VARIABLES DE MEMORIA
************************************
USE &BASE
CL=0
DO WHILE CL<NVAR
CL=CL+1
   PASO="VAR"+LTRIM(RTRIM(STR(CL,3)))
   STORE 0 TO &PASO
ENDDO

STORE SPACE(20) TO MA1_1,MA1_2,MA2_1,MA2_2

MFECHA=DATE()


*********************
* PANTALLA DE CAPTURA
*********************
DO WHILE .T.
  CLEAR
  SET COLOR TO w+
  @  0,0 SAY TITULO
	    *"          1         2         3         4         5         6         7         "
	    *"01234567890123456789012345678901234567890123456789012345678901234567890123456789"
	    *"³   ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³    ³"
  @ 1, 0 SAY " FOLIO    CLAVE     LADA NUMERO    ESTADO                        FECHA"
  @ 3, 0 SAY "³1.1³1.2 ³2.1 ³2.2 ³3.1 ³3.2 ³4.1 ³4.2 ³4.3 ³4.4 ³4.5 ³4.6 ³4.7 ³4.8 ³4.9 ³5.1 ³"
  @ 5, 0 SAY "³5.2³5.3 ³5.4 ³5.5 ³5.6 ³6.1 ³6.2 ³6.3 ³6.4 ³6.5 ³7.  ³8.  ³A.  ³B.  ³C.  ³D.  ³"
  @ 7, 0 SAY "³E. ³F.  ³G.  ³H.  ³CAP.³"
  @ 1,72 say MFECHA
  @ 2,35 say MESTADO
  
 DO CASE
  CASE VER=1
  @ 0,70 say "Version A"
  @10, 0 SAY "Autoritario 1"
  @11, 0 SAY "Autoritario 2"
  @13, 0 SAY "Honesto     1"
  @14, 0 SAY "Honesto     2"
  CASE VER=2
  @ 0,70 say "Version B"
  @10, 0 SAY "Ratero      1"
  @11, 0 SAY "Ratero      2"
  @13, 0 SAY "Justo       1"
  @14, 0 SAY "Justo       2"
  CASE VER=3
  @ 0,70 say "Version C"
  @10, 0 SAY "Corrupto    1"
  @11, 0 SAY "Corrupto    2"
  @13, 0 SAY "Firme       1"
  @14, 0 SAY "Firme       2"
  CASE VER=4
  @ 0,70 say "Version D"
  @10, 0 SAY "Autoridad   1"
  @11, 0 SAY "Autoridad   2"
  @13, 0 SAY "Autoritario 1"
  @14, 0 SAY "Autoritario 2"
 ENDCASE


**********************
* CAPTURA CUESTIONARIO
**********************
   VAR1=VER
   @ 2, 1 GET VAR2 PICT "999"
   @ 2,10 GET VAR3 PICT "99999"
   @ 2,20 GET VAR4 PICT "999"
   @ 2,25 GET VAR5 PICT "9999999"
   read

   @10,15 GET MA1_1 PICT "@!"
   @11,15 GET MA1_2 PICT "@!"
   @13,15 GET MA2_1 PICT "@!"
   @14,15 GET MA2_2 PICT "@!"
   read

*   @ 4, 1 GET VAR6  PICT "99"    RANGE  1,99
*   @ 4, 5 GET VAR7  PICT "99"    RANGE  0,96
*   @ 4,10 GET VAR8  PICT "99"    RANGE  1,99
*   @ 4,15 GET VAR9  PICT "99"    RANGE  0,96
   @ 4,20 GET VAR10 PICT "99"    RANGE  1,99
   @ 4,25 GET VAR11 PICT "99"    RANGE  0,96
   @ 4,30 GET VAR12 PICT "9"    RANGE  1, 4
   @ 4,35 GET VAR13 PICT "9"    RANGE  1, 4
   @ 4,40 GET VAR14 PICT "9"    RANGE  1, 4
   @ 4,45 GET VAR15 PICT "9"    RANGE  1, 4
   @ 4,50 GET VAR16 PICT "9"    RANGE  1, 4
   @ 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, 4
   @ 6, 1 GET VAR22 PICT "9"    RANGE  1, 4
   @ 6, 5 GET VAR23 PICT "9"    RANGE  1, 4
   @ 6,10 GET VAR24 PICT "9"    RANGE  1, 4
   @ 6,15 GET VAR25 PICT "9"    RANGE  1, 4
   @ 6,20 GET VAR26 PICT "9"    RANGE  1, 4
   @ 6,25 GET VAR27 PICT "9"    RANGE  1, 4
   @ 6,30 GET VAR28 PICT "9"    RANGE  1, 4
   @ 6,35 GET VAR29 PICT "9"    RANGE  1, 4
   @ 6,40 GET VAR30 PICT "9"    RANGE  1, 4
   @ 6,45 GET VAR31 PICT "9"    RANGE  1, 4
   @ 6,50 GET VAR32 PICT "9"    RANGE  1, 6
   READ
   
   IF VER=4
   @ 6,55 GET VAR33 PICT "9"    RANGE  1, 6
   ELSE
   STORE 0 TO VAR33
   ENDIF           
   
   @ 6,60 GET VAR34 PICT "9"    RANGE  1, 2
   @ 6,65 GET VAR35 PICT "9"    RANGE  1, 4
   @ 6,70 GET VAR36 PICT "9"    RANGE  1, 7
   READ

   IF VAR36=1
   @ 6,75 GET VAR37 PICT "9"    RANGE  1, 6
   READ
   ELSE
   STORE 0 TO VAR37
   ENDIF
   IF VAR36>1
   @ 8, 1 GET VAR38 PICT "9"    RANGE  1, 7
   @ 8, 5 GET VAR39 PICT "9"    RANGE  1, 8
   READ
   ELSE
   STORE 0 TO VAR38,VAR39
   ENDIF

   @ 8,10 GET VAR40 PICT "9"    RANGE  0, 9
   @ 8,15 GET VAR41 PICT "9"    RANGE  1, 7
   @ 8,20 GET VAR42 PICT "99"    RANGE  1,14
READ                                       


******************
* CAPTURA CORRECTA
******************
 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"
     READ
     @ 19,44 CLEAR TO 22,76
     IF (OPC=0 .OR. OPC=5)
       EXIT
     ENDIF  
 ENDDO

IF OPC=0
   LOOP
ENDIF


*****************
* DESEA CONTINUAR
*****************
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"
     READ
     @ 19,44 CLEAR TO 22,76
     IF (OPC=0 .OR. OPC=5)
       EXIT
     ENDIF
  ENDDO


********************************
* GRABA Y REINICIALIZA 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<NVAR
	 CL=CL+1
	 CAMPO=FIELD(CL)
	 PASO="VAR"+LTRIM(RTRIM(STR(CL,3)))
	 REPLACE &CAMPO WITH &PASO
	 STORE 0 TO &PASO
      ENDDO

      REPLACE FECHA   WITH MFECHA
      REPLACE ESTATUS WITH 10
      REPLACE ESTADO  WITH MESTADO

      REPLACE PA1_1 WITH MA1_1
      REPLACE PA1_2 WITH MA1_2
      REPLACE PA2_1 WITH MA2_1
      REPLACE PA2_2 WITH MA2_2
      
      STORE SPACE(20) TO MA1_1,MA1_2,MA2_1,MA2_2

    IF OPC=0
	EXIT
    ENDIF

    LOOP
ENDDO


*************************
* RESPALDO DE INFORMACION
*************************
CLEAR
SET COLOR TO *W+
@ 10,25 SAY "UN MOMENTO RESPALDANDO EL ARCHIVO"
SET COLOR TO

COPY TO RESPALDO


*****
* FIN
*****
SET COLOR TO
CLEAR
@ 22,64 SAY "Fin del Programa"

CLOSE ALL

SET STAT ON
SET TALK ON
SET SAFE ON


*************************
* PROCEDIMIENTOS DE ERROR
*************************
PROCEDURE ERROR
SET COLOR TO *W+
@ 22,10 SAY "CAPTURA INCORRECTA"
INKEY(0)
@ 21,10 CLEAR TO 22,75
SET COLOR TO
RETURN