Perguntas Ponto de Entrada para validar o Pedido de Venda

Boa tarde a todos;

estou "tentando" montar uma validação no Pedido de Venda que checa o limite de crédito do cliente e bloqueia a emissão do pedido, fiz o ponto abaixo MT410TOK só que ele deixa gravar normalmente e quando tento alterar ou excluir ai ele trava dando a mensagem de bloqueio:

#include "protheus.ch"

User Function MT410TOK()

Local aArea

aArea := GetArea()
SA1->(DbSetORder(1)) // Filial + Cliente + Loja
SA1->(DbSeek(xFilial("SA1")+SC6->C6_CLI+SC6->C6_LOJA))

nLC := SA1->A1_LC

If SC6->C6_VALOR > nLC .AND. SC5->C5_TIPO = "N"
MsgStop("O Valor Total não pode ser maior que o Limite de Crédito cadastrado para o Cliente! Verifique junto ao Financeiro, o Pedido não será cadastrado!")
return(.f.)
Endif

RestArea(aArea)

return(.t.)

alguém poderia me ajudar no que estou fazendo errado?

grato

Denilson

Bom dia, sou iniciante no ADVPL e estou precisando realizar um desenvolvimento.
Também estou precisando fazer uma validação no pedido de vendas, esta validação deve ser feita quando for feito a prep. do doc., preciso que seja verificado o campo C5_Pronto. Dependendo do resultado da consulta ele libera ou bloqueia o processo. Alguém pode me ajudar como realizar essa validação.

Cara, acredito que o que precisa seja semelhante a esse topico. Dá uma olhada se isso te ajuda:

masteradvpl.com.br/index.php/forum/5-mod...tes-da-geracao-da-nf

Vlw cara, era exatamente o que eu estava precisando. Show!!

boa tarde Luiz;

isso mesmo quero comparar o valor total do item C6_VALOR com o limite de crédio do Cliente A1_LC se for maior não deixa cadastrar.

grato

Denilson