PC Toledo

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