Un text que acepte num y letras
Aca esta Marco:
vletra = ''
DO pregunta WITH '00P569Z691Y7 '
wait wind vletra time 3
*
PROCE pregunta
LPARA buscar
FOR I = 1 TO 12
IF ISDIG(SUBS(buscar,I,1))
DO es_numero WITH SUBS(buscar,I,1)
ELSE
DO es_letra WITH SUBS(buscar,I,1)
ENDIF
ENDFOR
ENDPRO
*
PROCEDURE es_numero
LPARAMETERS vcodigo
IF vcodigo = '0'
vletra = vletra + 'Cero '
ENDIF
IF vcodigo = '1'
vletra = vletra + 'Uno '
ENDIF
IF vcodigo = '2'
vletra = vletra + 'Dos '
ENDIF
IF vcodigo = '3'
vletra = vletra + 'Tres '
ENDIF
IF vcodigo = '4'
vletra = vletra + 'Cuatro '
ENDIF
IF vcodigo = '5'
vletra = vletra + 'Cinco '
ENDIF
IF vcodigo = '6'
vletra = vletra + 'Seis '
ENDIF
IF vcodigo = '7'
vletra = vletra + 'Siete '
ENDIF
IF vcodigo = '8'
vletra = vletra + 'Ocho '
ENDIF
IF vcodigo = '9'
vletra = vletra + 'Nueve '
ENDIF
*
PROCEDURE es_letra
LPARAMETERS vcodigo
IF vcodigo = 'A'
vletra = vletra + 'A '
ENDIF
IF vcodigo = 'B'
vletra = vletra + 'B '
ENDIF
IF vcodigo = 'C'
vletra = vletra + 'C '
ENDIF
IF vcodigo = 'D'
vletra = vletra + 'D '
ENDIF
IF vcodigo = 'F'
vletra = vletra + 'F '
ENDIF
IF vcodigo = 'G'
vletra = vletra + 'G '
ENDIF
IF vcodigo = 'H'
vletra = vletra + 'H '
ENDIF
IF vcodigo = 'I'
vletra = vletra + 'I '
ENDIF
IF vcodigo = 'J'
vletra = vletra + 'J '
ENDIF
IF vcodigo = 'K'
vletra = vletra + 'K '
ENDIF
IF vcodigo = 'M'
vletra = vletra + 'M '
ENDIF
IF vcodigo = 'N'
vletra = vletra + 'N '
ENDIF
IF vcodigo = 'O'
vletra = vletra + 'O '
ENDIF
IF vcodigo = 'P'
vletra = vletra + 'P '
ENDIF
IF vcodigo = 'Q'
vletra = vletra + 'Q '
ENDIF
IF vcodigo = 'R'
vletra = vletra + 'R '
ENDIF
IF vcodigo = 'S'
vletra = vletra + 'S '
ENDIF
IF vcodigo = 'T'
vletra = vletra + 'T '
ENDIF
IF vcodigo = 'U'
vletra = vletra + 'U '
ENDIF
IF vcodigo = 'V'
vletra = vletra + 'V '
ENDIF
IF vcodigo = 'W'
vletra = vletra + 'W '
ENDIF
IF vcodigo = 'X'
vletra = vletra + 'X '
ENDIF
IF vcodigo = 'Y'
vletra = vletra + 'Y '
ENDIF
IF vcodigo = 'Z'
vletra = vletra + 'Z '
ENDIF