SET STAT OFF
SET STAT OFF
SET SCORE ON

* - BASE DE DATOS

USE REC30695


* - PRESENTACION

APPEND BLANK

DO WHILE .T.

CLEAR 

@ 1,0 SAY "MAQUINA  CLAVE  91  LADA     TELEFONO  ESTADO     SOT      VER"   
*          01234567890   5    20   25   30   35   40   45   50   55   60   65  70    75
@ 3,0 SAY "³   ³    ³    ³    ³    ³    ³PACU³1.  ³2.1 ³2.2 ³2.3 ³2.4 ³2.5 ³3.  ³4.1 ³4.2 ³"   
@ 5,0 SAY "³4.3³5.  ³5.1 ³6.  ³7.1 ³7.2 ³7.3 ³8.  ³9.  ³10. ³10.1³11.1³11.2³11.3³11.4³11.5³"   
@ 7,0 SAY "³12.³13. ³14. ³15. ³16. ³16.1³16.2³17. ³PSIM³A.  ³B.  ³C.  ³D.  ³G.  ³H.  ³    ³"   




@02,01 GET MAQ PICT "99" 
@02,10 GET CLAVE PICT "99999"
@02,20 GET LADA  PICT "999"
@02,30 GET TEL PICT "9999999"
@02,40 GET EDO PICT "99" 
@02,50 GET SOT PICT "99" 
@02,60 GET PVER PICT "9" RANGE 1,2
READ

IF PVER=1
@04,30 GET PACU PICT "9" RANGE 1,5
READ
ENDIF

@04,35 GET P1   PICT "9" RANGE 1,5
@04,40 GET P2_1 PICT "9" RANGE 1,4
@04,45 GET P2_2 PICT "9" RANGE 1,4
@04,50 GET P2_3 PICT "9" RANGE 1,4
@04,55 GET P2_4 PICT "9" RANGE 1,4
@04,60 GET P2_5 PICT "9" RANGE 1,4
READ

@04,65 GET P3   PICT "9" RANGE 1,5
@04,70 GET P4_1 PICT "9" RANGE 1,5
@04,75 GET P4_2 PICT "9" RANGE 1,5
@06, 1 GET P4_3 PICT "9" RANGE 1,5
@06, 5 GET P5   PICT "9" RANGE 1,3
READ

IF P5=1
  @06,10 GET P5_1 PICT "9" RANGE 1,3
  READ
ELSE 
 REPL P5_1 WITH 0
ENDIF

@06,15 GET P6  PICT "9" RANGE 1,3
@06,20 GET P7_1 PICT "9" RANGE 1,5
@06,25 GET P7_2 PICT "9" RANGE 1,5
@06,30 GET P7_3 PICT "9" RANGE 1,5
@06,35 GET P8 PICT "9" RANGE 1,5
@06,40 GET P9 PICT "9" RANGE 1,5
@06,45 GET P10 PICT "9" RANGE 1,5
READ

IF P10=3
@06,50 GET P10_1 PICT "99" RANGE 10,99
READ

ELSE
  REPL P10_1 WITH 0
ENDIF

IF PVER=1
@06,55 GET P11_1 PICT "9" RANGE 1,4
@06,60 GET P11_2 PICT "9" RANGE 1,4
@06,65 GET P11_3 PICT "9" RANGE 1,4
@06,70 GET P11_4 PICT "9" RANGE 1,4
@06,75 GET P11_5 PICT "9" RANGE 1,4
ENDIF
IF PVER=2
@06,55 GET P11_5 PICT "9" RANGE 1,4
@06,60 GET P11_1 PICT "9" RANGE 1,4
@06,65 GET P11_2 PICT "9" RANGE 1,4
@06,70 GET P11_4 PICT "9" RANGE 1,4
@06,75 GET P11_3 PICT "9" RANGE 1,4
ENDIF

@08, 1 GET P12 PICT "9" RANGE 1,5
@08, 5 GET P13 PICT "9" RANGE 1,4
@08,10 GET P14 PICT "9" RANGE 1,4
@08,15 GET P15 PICT "9" RANGE 1,4
@08,20 GET P16 PICT "9" RANGE 1,3
READ

IF P16=1
  @08,25 GET P16_1 PICT "99" RANGE 10,99
  Read
ELSE
  REPL P16_1 WITH 0
ENDIF

IF P16=2
  @08,30 GET P16_2 PICT "99" RANGE 10,99
  READ
ELSE
  REPL P16_2 WITH 0
ENDIF


@08,35 GET P17 PICT "9" RANGE 1,6
READ

IF PVER=2
  @04,30 GET PACU PICT "9" RANGE 1,5
  READ
ENDIF

@08,40 GET PSIM PICT "9" RANGE 1,6
READ

@08,45 GET PA PICT "9" RANGE 1,2
@08,50 GET PB PICT "9" RANGE 1,4
@08,55 GET PC PICT "9" RANGE 1,6
READ

IF PC=1
 @08,60 GET PD PICT "9" RANGE 1,5
 READ
ELSE
  REPL PC WITH 0
ENDIF

@08,65 GET PG PICT "9" RANGE 1,9
@08,70 GET PH PICT "9" RANGE 1,6
READ

STORE 0 TO OP, OP1
@ 22,10 SAY "ESTA BIEN CAPTURADO: " GET OP VALID(OP=5.OR.OP=0)
READ
IF OP=5
  @ 23,10 SAY "DESEA CONTINUAR: " GET OP1 VALID(OP1=5.OR.OP1=0)
  READ
  IF OP1=5
    APPEND BLANK
  ELSE
    EXIT
  ENDIF
ENDIF

ENDDO


CLOSE ALL
RETURN