Perguntas Ponto de Entrada para validar o Pedido de Venda

Bom dia Denilson,

Tenta assim AQUI EU VALIDEI PELO TOTAL DO PEDIDO E NÃO SO DE UM UNICO ITEM

#include "protheus.ch"

User Function MT410TOK()

Local aArea
LOCAL _NTOT := 0
Local nPosPRCTOT := GDFIELDPOS("C6_VALOR")
Local _ret := .T.

aArea := GetArea()

nLC := Posicione("SA1",1,xFilial("SA1")+M->C5_CLIENTE+M->C5_LOJACLI,"A1_LC") //SA1->A1_LC
if nPosPRCTOT <> 0
For nx := 1 To Len(aCols)
_NTOT+=aCols[nx][nPosPRCTOT]
NEXT
ENDIF

If _NTOT > nLC .AND. M->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!")
_ret :=.F.
Endif
RestArea(aArea)
return(_ret)

ATT;

Diego da Silva Muniz
Analista Programador
www.milleniumtecnologia.com.br

Diego bom dia;

Vou testar pode ser pelo total mesmo
vlw

Denilson