Estou fazendo um código de validação, mas não esta dando certo, alguem poderia me dar um help?
User Function VldLot()
local aArea := GetArea()
local lRet:= .t.
DBSELECTAREA( "SB8" )
SB8-> (DBSETORDER( 1 ))
IF !DbSeek((xFilial("SB8")+SB8->B8_LOTECTL))
lRet := .F.
ALert("Lote Não Encontrado!!!!")
else
ALert("Lote Registrado!!!")
endif
RestArea(aArea)
Return(lRet)Voce selecionou o indice 1 que é composto por "B8_FILIAL+B8_PRODUTO+B8_LOCAL+DTOS(B8_DTVALID)+B8_LOTECTL+B8_NUMLOTE"
Voce tem duas opções, adaptar seu codigo para um dos indices existes ou criar um indice de acordo com sua necessidade.
Recomendo a primeira opção, talvez utilizando o indice 5 onde voce pode informar "B8_FILIAL+B8_PRODUTO+B8_LOTECTL"
Muito obrigado, em relação ao codigo vc acha q falta algo?
— cauan 28 de Feb de 2024Cauan você está fazendo uma busca usando o próprio campo da tabela, deveria usar um campo ou variável de memória onde está essa informação, além disso vai precisar como nosso colega Leandro colocou pelo menos do código do produto para fazer a validação, visto que o Lote é cadastrado por produto.
— Cirilo Rocha 28 de Feb de 2024Poderia me ajudar em relação a isso???
— cauan 28 de Feb de 2024