Perguntas Ponto de entrada na inclusão do pedido de venda.

Senhores, boa tarde!

Preciso desenvolver um fonte que faça o seguinte:
Na hora que clicar em OK, seja consultado o limite de crédito do cliente e informa alerta se pedido pode ser liberado ou não.
Bem simples assim! O restante das validações eu programo aqui de acordo com a regra da empresa.

olá!

Usa o ponto de entrada MTA410.

Elton,

Bom dia! Para tal procedimento faço um query na tabela SC9. Nela fica os pedidos bloqueados.

Outra coisa, vc pode olhar no financeiro se tem alguma nf vencida. Minha consulta na SC9 é essa:

cQuery := "SELECT COUNT(C9_BLCRED) AS C9_BLCRED FROM " + RetSqlName("SC9") + " C9 "
cQuery += "INNER JOIN " + RetSqlName("SC6") + " C6 "
cQuery += "ON ( "
cQuery += "C6_FILIAL = C9_FILIAL AND "
cQuery += "C6_ITEM = C9_ITEM AND "
cQuery += "C6_PRODUTO = C9_PRODUTO AND "
cQuery += "C6_NUM = C9_PEDIDO AND "
cQuery += "C6_CLI = C9_CLIENTE AND "
cQuery += "C6_LOJA = C9_LOJA ) "
cQuery += "WHERE C9.D_E_L_E_T_ <> '*' "
cQuery += "AND C6.D_E_L_E_T_ <> '*' "
cQuery += "AND C6.C6_NUM = '" + SC5->C5_NUM + "' "
cQuery += "AND C9.C9_BLCRED <> '' "

TcQuery cQuery Alias "CRED" New


If CRED->C9_BLCRED > 0
MsgInfo("Não é possível sair da fase comercial, tendo em vista que o pedido não se encontra com crédito liberado!")
dbSelectArea("CRED")
dbCloseArea()
Return
EndIf
dbSelectArea("CRED")
dbCloseArea()


Alguma coisa assim;

Atc,
Henry