Perguntas PE Pedido de Venda

Boa tarde!
Estou precisando desenvolver um pe em ped de venda, para validar se cfop é incompativel com campo contribuinte no cad do cliente. Ao incluir novo pedido deverá aparecer uma mensagem ao usuário informando sobre isso. Não é validar por campo/item e sim ao abrir o ped de venda.

Fiz o codigo abaixo mas só funciona quando eu clico no botão cancelar. O correto seria quando eu fosse clicar em confirmar ou quando o usuário tentasse alterar o campo cfop.

USER FUNCTION MA410VLD()
aAreaSA1:= SA1->(GetArea())
lRet:= .T.
dbSelectArea("SA1")
dbSetOrder(1)
IF dbSeek(xFilial("SA1")+m->(C5_CLIENTE+C5_LOJACLI),.F.)
lRet:= .t.
_nItem:= aScan(aHeader,{|x| rtrim(x[2])=="C6_ITEM"}) //item do pedido
_nCfop:= aScan(aHeader,{|x| rtrim(x[2])=="C6_CF"}) //cfop

cContrib:= A1_CONTRIB //1=sim cfop=x102 || 2=nao cfop=x108

FOR cont:= 1 TO Len(aCols)
cCfop:= aCols[cont,_nCfop]

IF ((SA1->A1_CONTRIB == "1") .or. (cCfop <> "6108")) .and. ((SA1->A1_CONTRIB == "2") .or. (cCfop <> "6102"))
lRet:= .F.
msgAlert("CFOP "+cCfop+" CONTRIBUINTE "+cContrib)
ENDIF
SA1->(dbSkip())
NEXT cont
ENDIF
restArea(aAreaSA1)
return(lRet)

Alguém pode me ajudar?

Leandro

Opa Luiz Alberto, blz?
Este código que passou na verdade tem a mesma funcionalidade do meu, a diferença é que você busca somente os três últimos dígitos do cfop.
Mas acontece assim:
No sintegra está dando erro em algumas nfs, pois quando um cliente é CONTRIBUINTE e você inclui um ped. de venda, o cfop nos itens é preechido automaticamente como 6108. Mas por alguma razão, o usuário altera esse cfop para 6102, gerando o erro no sintegra. Mesma coisa se o cliente é NÃO CONTRIBUINTE e o tes é preenchido como 6108.
Aí tenho que acessar as tabelas SD2, SFT e SF3 e alterar esse cfop juntamente com o contribuinte no cad do cliente.
Eu fazendo esse ponto de entrada, avisará ao usuário que o cfop é incompatível com o campo no cad. do cliente.

Essa validação vc pode fazer no ponto de entrada MTA410 .
Abs,
Cleber

Valeu galera pela ajuda mas eu terminei o rdmake e ficou belezinha. Abraço a todos