AMIGOS FORENSES,
existe alguma funcao q me retorna o nome do get q estou no momento...
exemplo:
@ ll,cc say [medicamento 1:] get mcodmed1 pict [@k 9999];
valid vCodMed([mcodmed1],[mnommed1])
@ Ll,cc Say mNomMed1
.
.
.
.
@ ll,cc say [medicamento 5:] get mcodmed5 pict [@k 9999];
valid vCodMed([mcodmed5],[mnommed5])
@ Ll,cc Say mNomMed5
Read
queria saber qual o get q estou no momento, para saber saber qual o codido do medicamento....
Funcao para retornar o GET atual
Moderador: Moderadores
Prezado Colega
Ou use a função READVAR()
Exemplo :
GETATUAL=READVAR()
IF GETATUAL=="mcodmed1"
@ 00,00 say "Você está na variavel/get => "+GETATUAL
ELSEIF GETATUAL=="mcodmed5"
@ 00,00 say "Você está na variavel/get => "+GETATUAL
ENDIF
Até logo.
Marcelo
Ou use a função READVAR()
Exemplo :
GETATUAL=READVAR()
IF GETATUAL=="mcodmed1"
@ 00,00 say "Você está na variavel/get => "+GETATUAL
ELSEIF GETATUAL=="mcodmed5"
@ 00,00 say "Você está na variavel/get => "+GETATUAL
ENDIF
Até logo.
Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)