Como termino un READ

por **Ruben Dario** » 21 Jun 2020 22:54

Saudos al forum

Como termino un READ

@ 1,2 say "...." GET A1
@ 2,2 say "...." GET A2
@ 3,2 say "...." GET A3
@ 4,2 say "...." GET A4
READ

por **Vlademiro** » 23 Jun 2020 05:37

Não ficou bem claro a sua pergunta.
Você quer um exemplo de como o comando READ funciona ?

Se for segue abaixo :

/*
@ ... SAY ... GET simples
*/
PROCEDURE Main
LOCAL cNome := SPACE(20)
LOCAL cTipo := SPACE(1)
LOCAL cCPF := SPACE(11)
LOCAL cCNPJ := SPACE(15)
LOCAL GetList := {}

   SET DELIMITERS ON // Exibe os delimitadores 
   SET DELIMITERS TO "[]" // Cria delimitadores para os GETs
   CLS        
   @ 5,5 SAY "Informe o nome : " GET cNome
   @ 7,5 SAY "Informe o tipo (F ou J): " GET cTipo VALID UPPER( cTipo ) $ "FJ"
   @ 9,5 SAY "Informe o CPF : " GET cCPF WHEN UPPER(cTipo) == "F"
   @ 11,5 SAY "Informe o CNPJ : " GET cCnpj WHEN UPPER(cTipo) == "J"
   READ
   
   ? cNome
   IF UPPER(cTipo) == "F"
      ? "CPF : " , cCPF
   ELSE
      ? "CNPJ: " , cCNPJ
   ENDIF       
   
RETURN

Como termino un READ

Como termino un READ

Como termino un READ

Quem está online