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()