Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

Validação de campo

estou fazendo um axcadastro mas na validação preciso fazer com verificação no campo para ver se o que esta sendo digitado existe, tentei fazer via consulta padrão mas nao deu, e agora estou tentando via advpl e mesmo assim da erro.

User Function TELACAD()   
 Local aRotAdic :={} 
 local cDelOk := ".t."

 Local bOK  := {||MsgAlert('Chamada ao clicar em OK'), .T.}

 Local aButtons := {}//adiciona botões na tela de inclusão, alteração, visualização e exclusao
 aadd(aButtons,{ "PRODUTO", {|| MsgAlert("Teste")}, "Teste", "Botão Teste" }  ) //adiciona chamada no aRotina

 AxCadastro("ZZR", "Lotes Bloqueados", cDelOk, "U_COK()", , , , ,, , , aButtons, , )  
Return(.T.)                        


User Function COK() 

  Local cLot:= ZZR -> ZZR_LOTE

   (DBSELECTAREA( "SB8" ))
   (DBSETORDER(1)) 

   if !dbSeek( FwxFilial("SB8") + cLot )
  cLOT := Space(TamSX3("B8_LOTECTL")[1])
  Alert("Codigo nao encontrado na B8")
 endif
 return 

RestArea()
compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags axcadastro validacao ou faça a sua própria pergunta.