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....
Navegacao no Gets
Moderador: Moderadores
Não entendi. Qual é sua dúvida?
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.
---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.
---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
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
C:\Xharbour\Xdev\Fw\VSX