PC Toledo

Bom dia!!!!!!

Eu uso desta forma, nunca tive problema.........



readexit(.t.)
do while (campob <=3)
do case
case campob=1


@01,01 say ´Seu nome´ get xnome
@02,01 ...
@03,01 ...
@04,01 ...
read


if (teclas("campob"))
endif
case campob=2


@01,01 say ´Data Nasc´ get xdata
@02,01 ...
@03,01 ...
@04,01 ...

read

if (teclas("campob"))
endif
case campob=3

@01,01 say ´Endereco´ get xendereco
@02,01 ...
@03,01 ...
@04,01 ...
read

if (teclas("campob"))
endif
endcase
enddo
readexit(.f.)


sn=' '
@23,15 say ' Imprimir Bioquimica (<I>mprimir/<C>ancela)? ' get sn pict '@!' valid sn $ 'IC'
read

flow galera....

Não entendi. Qual é sua dúvida?

Me-desculpe,

nao e duvida nao, e para o pessoal q esta com duvida.

blz.

marbio escreveu:Me-desculpe,

nao e duvida nao, e para o pessoal q esta com duvida.

blz.

Brother , quando for assim posta no tópico relacionado a duvida , para ñ encher o furum com tópicos identicos ,ok ! mesmo assim fico grato pela atenção


https://pctoledo.org/forum/viewto ... c&start=30