Condições para preencher dados

[Dudu_XBase]

Boa Madrugada.
Implementação da Solução proposta pelo Daniel.

Código: Selecionar todos

 clea
 lTrava := .t.
 nValor1 := nValor2 := 0
 @ 10,10 say "Valor 1:" get nValor1 when lTrava
 @ 11,10 say "Valor 2:" get nValor2  valid (testando(nvalor1,nValor2,@lTrava))  when lTrava
 read


Static Function Testando(v1,v2,v3)

  do Case
     Case v1=v2
        v3 := .f.
        Return .t.

     Case v2=0
         v3 := .t.
         return .t.

     Other
        return .f.

  Endcase


 

[Josmar dos Santos]

Ola dudu...era examentamente isso que eu estava precisando...valew pela dica...um abraço
Josmar