PC Toledo

public getlist := {}

Essa matriz poderia ser "alimentada" antes com os CPFs.

E como ficaria a consulta?

if ( getlist[1]:varget() == a )

Dessa forma está dando um erro de EXITSTATE. Onde estou errando?

miracle escreveu:
Código: Selecionar todos
@ 07,43 GET cFORNECEDOR PICTURE "@!" SEND COLORSPEC := "16/15, 14/01"

Que comando é esse com esse tal de SEND? Nunca vi isso.

if ( getlist[1]:varget() == a )

O que é esse tal de a? Uma variável? Ou uma string? Não estaria faltando aspas?

diogenes_varela escreveu:Essa matriz poderia ser "alimentada" antes com os CPFs.

Não poderia, visto que os elementos da matriz são tipo objeto. A matriz, como o prório nome diz, armazena a LISTA DE GETS pendentes. Ela é zerada sempre após um comando READ. Para alimenta-la via código seria necessário criar os objetos com GetNew().

Maligno escreveu:O que é esse tal de a? Uma variável? Ou uma string? Não estaria faltando aspas?

No meu exemplo este a é o nome da variável inicializada lá em cima com space(1), e cujo valor é atribuido pelo usuário no primeiro GET. Pode compilar para testar o exemplo que funciona.

Não poderia, visto que os elementos da matriz são tipo objeto.

Então outra matriz que contenha os dados. De alguma forma o CPF deverá ser comparado para que mude ou não a cor do get.

diogenes_varela escreveu:Então outra matriz que contenha os dados. De alguma forma o CPF deverá ser comparado para que mude ou não a cor do get.

Hehehe... Você está insistindo mesmo nisso. A pesquisa não foi exemplificada pois acreditamos que o problema do colega era APENAS de mudar a COR do GET, e não como montar a pesquisa. Se o CPF existia ou não ele já sabia como fazer, o que não conseguia era mudar a cor...

Mas já que insiste, com matrizes ficaria algo do tipo:

Código: Selecionar todos

if ( aScan( matrizCPF, getlist[1]:varget() ) > 0 )
  achou
else
  nao achou...

Na minha opinião ficaria mais simples um dbSeek sem o uso de matrizes... Mas......

Falou...

Sim, caro Stanis, gostei do esqueminha...

Não, caro Stanis, não era só mudar de cor... Mudar de cor ou não vai depender de o cônjuge estar ou não em débito.

fjokiller escreveu: ... mas caso esse conjuge já seja cliente e esteja com débito em atraso, quero que o get mude pra cor vermelha, tem como fazer isso???

É mais complicado um pouco...

Mas meu caro,

Como pesquisar se o conjuge estava em débito ou não, ELE JÁ SABIA, ele só não sabia como MUDAR A COR DO GET caso o conjuge estivesse em débito.

Tanto é verdade, que eu só mostrei como mudar a cor, e ele resolveu o resto.

Inclusive, o "mais complicado" era mudar a cor mesmo, e não fazer a pesquisa.

Falou...

Maligno escreveu:
miracle escreveu:
Código: Selecionar todos
@ 07,43 GET cFORNECEDOR PICTURE "@!" SEND COLORSPEC := "16/15, 14/01"
Que comando é esse com esse tal de SEND? Nunca vi isso.

Não está documentado mas existe, muda as cores do Get.

Eu sei que tem uma cláusula COLOR pra configurar a cor de um campo, mas esse SEND eu realmente não conhecia. De qualquer forma, fica como curiosidade. Eu não usaria.

ELE JÁ SABIA, ele só não sabia como MUDAR A COR DO GET

Acho que não, Stanis. O objetivo do controle é ALERTAR ao atendente no ato do cadastro que o cônjuge daquela pessoa está com alguma pendência, para que tomasse alguma providência imediata - talvez até evitar um golpe...

Detectar alguma pendência, concordo, é fácil... O que não consegui foi MUDAR A COR QUANDO HOUVESSE PENDÊNCIA, pois o exemplo que você deu referia-se a um S/N e no caso o sistema iria buscar um resultado de pesquisa.

diogenes_varela escreveu:Acho que não, Stanis. O objetivo do controle é ALERTAR ao atendente no ato do cadastro que o cônjuge daquela pessoa está com alguma pendência, para que tomasse alguma providência imediata - talvez até evitar um golpe... Detectar alguma pendência, concordo, é fácil... O que não consegui foi MUDAR A COR QUANDO HOUVESSE PENDÊNCIA, pois o exemplo que você deu referia-se a um S/N e no caso o sistema iria buscar um resultado de pesquisa.

Caro diogenes_varela, o que você ainda não consegui entender é o seguinte: O AUTOR DO TÓPICO SÓ PRECISAVA SABER COMO MUDAR A COR DO GET.

Isso se vê pelo simples fato de ELE JÁ TER CONSEGUIDO.

Agora talvez VOCÊ sim, esteja com o problema de não estar conseguindo realizar a pesquisa. Se for este o caso, basta dizer, que a gente tenta te ajudar.

O primeiro exemplo foi montado para atender as necessidades básicas que ele pediu e que se tornou a principal discussão do tópico: MUDAR A COR DO GET DE ACORDO COM O CONTEÚDO DE OUTRA VARIÁVEL. Agora de onde esse conteúdo virá, se é de outro GET ou se de uma pesquisa da uma base da NASA, não era o foco da questão.

Stanis Luksys escreveu: Se for este o caso, basta dizer, que a gente tenta te ajudar.

Ô meu caro Stanis, isso eu já fiz... eu escrevi: não consegui, isto é, 1º pessoa do singular - no caso, EU...

diogenes_varela escreveu: O que não consegui foi MUDAR A COR QUANDO HOUVESSE PENDÊNCIA,

Achei o controle interessante para o uso em diversas situações, inclusive alertar sobre um produto em estoque que está perto de acabar. Por isso a insistência, OK?

Na verdade deveria ser colocado uma cláusula valid() quando é digitado o CPF do cônjuge, essa função verificaria se o cônjuge já é cadastrado e se possui débitos, se já for cadastrado apresenta o nome com o comando Say, se tiver débitos apresenta em vermelho, se não for cadastrado usar Get para digitar o nome.

Grings escreveu:Na verdade deveria ser colocado uma cláusula valid() quando é digitado o CPF do cônjuge, essa função verificaria se o cônjuge já é cadastrado e se possui débitos, se já for cadastrado apresenta o nome com o comando Say, se tiver débitos apresenta em vermelho, se não for cadastrado usar Get para digitar o nome.

Neste caso, a função chamada pelo VALID deve conter uma matriz LOCAL chamada GETLIST, senão todos os GETs anteriores (ainda pendenetes na função "mãe") serão perdidos com o segundo READ.

PC Toledo

Cor do Get