validar 1 funcao e 1 blocos em um get

[rogerio]

Ola Pessoal,

Alguem poderia me ajudar na sintaxe para validar uma funcao e um bloco num get aninhado ??
Exemplo:
@ l,c get data
@ li,c get tipo
@ l,c get vendedor valid funcao() e bloco
@ l,c get valor
@ l,c get comissao
read

Ao chegar no 3 get, funcao() faz uma pesquisa no bd de vendedor e bloco checa se ja houve lancamento para esta data, tipo e vendedor no bd de movimentacao. Se houver nao passa para os outros gets.

Ele abre uma janela para buscar o vendedor e quando seleciono e dou enter ele da erro na avaliacao do bloco. É sintaxe ou logica ??

Valeu !!!!!!

[Dudu_XBase]

Boa Noite Rogério !!!

Código: Selecionar todos

  // Variavel lógica para validar uso dos gets...
  lValid := .t.
   
  @ l,c get data 
  @ li,c get tipo  
  @ l,c get vendedor valid proc_mov(data,tipo,vendedor,@lValid)
  @ l,c get valor        When (lValid)  // caso true naum tem mov
  @ l,c get comissao  When(lValid)   // e libero os gets
  read 

/*******************************************/  
  // Função para procurar movimentos do vendedor
  // na data solicitada e tipo
  Static Function proc_mov(dt,tp,vend,acho)
 
  // denominei o arq_mov como se vc seu arq de mov do vend
  if arq_mov->(dbseeK(dtos(dt)+tp+vend))
     acho := .f.
  endif
   
  Return .t.
/********************************************/