*  Programa    : EJEMPLO.PRG
*  Versi¢n 1.0 : 25 de enero de 1993
*  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
CLEAR ALL


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

TITULO  = 'AUTORITARISMO 25/ENE/95 TELEFONICA'
BASE    = 'AUT10195'           && NOMBRE DE LA BASE DE DATOS
MESTADO = 'REPUBLICA MEXICANA' && ESTADO
NVAR    = 47                   && 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(40) TO MA1_1,MA1_2,MA1_3,MA2_1,MA2_2,MA2_3,MA3_1,MA3_2,MA3_3

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 " CLAVE    LADA NUMERO                                            FECHA"
  @ 3, 0 SAY "³1.1³1.2 ³1.3 ³2.1 ³2.2 ³2.3 ³3.1 ³3.2 ³3.3 ³4.1 ³4.2 ³4.3 ³5.1 ³5.2 ³5.3 ³6.1 ³"
  @ 5, 0 SAY "³6.2³6.3 ³6.4 ³6.5 ³6.6 ³6.7 ³6.8 ³6.9 ³7.1 ³7.2 ³7.3 ³7.4 ³7.5 ³7.6 ³8.1 ³8.2 ³"
  @ 7, 0 SAY "³8.3³8.4 ³8.5 ³A.  ³B.  ³C.  ³D.  ³E.  ³F.  ³G.  ³H.  ³CAP.³"
  @10, 0 SAY "Autoritario 1"
  @11, 0 SAY "Autoritario 2"
  @12, 0 SAY "Autoritario 3"
  @14, 0 SAY "Empresario  1"
  @15, 0 SAY "Empresario  2"
  @16, 0 SAY "Empresario  3"
  @18, 0 SAY "Presidente  1"
  @19, 0 SAY "Presidente  2"
  @20, 0 SAY "Presidente  3"


**********************
* CAPTURA CUESTIONARIO
**********************
   @ 1,30 say MESTADO
   @ 1,72 say MFECHA
   @ 2,1  GET VAR1 PICT "99999"
   @ 2,10 GET VAR2 PICT "999"
   @ 2,15 GET VAR3 PICT "9999999"
   read

   @10,15 GET MA1_1 PICT "@!"
   @11,15 GET MA1_2 PICT "@!"
   @12,15 GET MA1_3 PICT "@!"
   @14,15 GET MA2_1 PICT "@!"
   @15,15 GET MA2_2 PICT "@!"
   @16,15 GET MA2_3 PICT "@!"
   @18,15 GET MA3_1 PICT "@!"
   @19,15 GET MA3_2 PICT "@!"
   @20,15 GET MA3_3 PICT "@!"
   read

*   @ 4, 1 GET VAR4  PICT "99"    RANGE  1,99
*   @ 4, 5 GET VAR5  PICT "99"    RANGE  0,96
*   @ 4,10 GET VAR6  PICT "99"    RANGE  0,96
*   @ 4,15 GET VAR7  PICT "99"    RANGE  1,99
*   @ 4,20 GET VAR8  PICT "99"    RANGE  0,96
*   @ 4,25 GET VAR9  PICT "99"    RANGE  0,96
*   @ 4,30 GET VAR10 PICT "99"    RANGE  1,99
*   @ 4,35 GET VAR11 PICT "99"    RANGE  0,96
*   @ 4,40 GET VAR12 PICT "99"    RANGE  0,96
   @ 4,45 GET VAR13 PICT "99"    RANGE  1,99
   @ 4,50 GET VAR14 PICT "99"    RANGE  0,96
   @ 4,55 GET VAR15 PICT "99"    RANGE  0,96
   @ 4,60 GET VAR16 PICT "99"    RANGE  1,99
   @ 4,65 GET VAR17 PICT "99"    RANGE  0,96
   @ 4,70 GET VAR18 PICT "99"    RANGE  0,96
   @ 4,75 GET VAR19 PICT "9"    RANGE  1, 4
   @ 6, 1 GET VAR20 PICT "9"    RANGE  1, 4
   @ 6, 5 GET VAR21 PICT "9"    RANGE  1, 4
   @ 6,10 GET VAR22 PICT "9"    RANGE  1, 4
   @ 6,15 GET VAR23 PICT "9"    RANGE  1, 4
   @ 6,20 GET VAR24 PICT "9"    RANGE  1, 4
   @ 6,25 GET VAR25 PICT "9"    RANGE  1, 4
   @ 6,30 GET VAR26 PICT "9"    RANGE  1, 4
   @ 6,35 GET VAR27 PICT "9"    RANGE  1, 4
   @ 6,40 GET VAR28 PICT "9"    RANGE  1, 4
   @ 6,45 GET VAR29 PICT "9"    RANGE  1, 4
   @ 6,50 GET VAR30 PICT "9"    RANGE  1, 4
   @ 6,55 GET VAR31 PICT "9"    RANGE  1, 4
   @ 6,60 GET VAR32 PICT "9"    RANGE  1, 4
   @ 6,65 GET VAR33 PICT "9"    RANGE  1, 4
   @ 6,70 GET VAR34 PICT "9"    RANGE  1, 4
   @ 6,75 GET VAR35 PICT "9"    RANGE  1, 4
   @ 8, 1 GET VAR36 PICT "9"    RANGE  1, 4
   @ 8, 5 GET VAR37 PICT "9"    RANGE  1, 4
   @ 8,10 GET VAR38 PICT "9"    RANGE  1, 4

   @ 8,15 GET VAR39 PICT "9"    RANGE  1, 2
   @ 8,20 GET VAR40 PICT "9"    RANGE  1, 5
   @ 8,25 GET VAR41 PICT "9"    RANGE  1, 7
   READ

   IF VAR41=1
   @ 8,30 GET VAR42 PICT "9"    RANGE  1, 6
   READ
   ELSE
   STORE 0 TO VAR42
   ENDIF
   IF VAR41>1
   @ 8,35 GET VAR43 PICT "9"    RANGE  1, 7
   @ 8,40 GET VAR44 PICT "9"    RANGE  1, 8
   READ
   ELSE
   STORE 0 TO VAR43,VAR44
   ENDIF

   @ 8,45 GET VAR45 PICT "99"    RANGE  1,10
   @ 8,50 GET VAR46 PICT "9"    RANGE  1, 7
   @ 8,55 GET VAR47 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 PA1_1 WITH MA1_1
      REPLACE PA1_2 WITH MA1_2
      REPLACE PA1_3 WITH MA1_3
      REPLACE PA2_1 WITH MA2_1
      REPLACE PA2_2 WITH MA2_2
      REPLACE PA2_3 WITH MA2_3
      REPLACE PA3_1 WITH MA3_1
      REPLACE PA3_2 WITH MA3_2
      REPLACE PA3_3 WITH MA3_3
      
      STORE SPACE(40) TO MA1_1,MA1_2,MA1_3,MA2_1,MA2_2,MA2_3,MA3_1,MA3_2,MA3_3

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

    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


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

CLOSE ALL
CLEAR 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