Perguntas Tela de Transferencia de Produtos

Boa Tarde pessoal,
Só novo no Advpl, e gostaria de tirar uma duvida com vocês..
Aqui na empresa tem um ponto de entrada chamado A260INI, este ponto de entrada foi criado para fazer uma validação entre os campo de produto de origem e destino, onde ele não deve deixar o destino ser diferente da origem. Porem se o usuário for no campo de destino e alterar o produto, o mesmo chama a rotina, valida as informações retorna o valor falso para a rotina mata260, e mesmo assim altera a informação do destino.
Gostaria de um apoio ou diga de como posso resolver este problema...

Abaixo o trecho do codigo:

User Function A260INI()

Local lRet := .T.

If (! Empty(CCODORIG) .And. ! Empty(CCODDEST))
If (AllTrim(CCODORIG) == AllTrim(CCODDEST))
lRet := .T.
Else
lRet := .T.
MsgAlert("Atenção! Produto Origem e Destino deve ser iguais.")
EndIf
EndIf

Return(lRet)

Valeu pela atenção

Boa tarde Michel,

User Function A260INI()

Local lRet := .T.

If (! Empty(CCODORIG) .And. ! Empty(CCODDEST))
If (AllTrim(CCODORIG) == AllTrim(CCODDEST))
lRet := .T.
Else
lRet := .F. //Aqui deve ser falso, pois se os produtos forem diferentes deve retornar .F. para o usuário digitar o produto igual, não saindo do campo até ele digitar o mesmo produto
MsgAlert("Atenção! Produto Origem e Destino deve ser iguais.")
EndIf
EndIf

Return(lRet)


Acho que o seu problema está aí.

Att
Thales