Perguntas Ponto de Entrada no Pedido de Venda

Boa Noite Pessoal!

Estou precisando de um PE que verifique alguns campos do cadastro do cliente e caso não esteja preenchido bloqueie a confirmação do pedido.

Alguém sabe algum? Por favor!

Att.
Matheus Silva

Matheus Bom Dia,

Veja se te ajuda:

//Inicio do Programa


#INCLUDE "rwmake.ch"

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MT410TOK ºAutor ³Rafael Strozi º Data ³ 28/12/11 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ P.E. para validação do pedido antes da Inclusão, Alteração º±±
±±º ³ ou Csncelamento º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/


User Function MT410TOK()

Local lRetorno := .T.
Local aProd := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_PRODUTO"})
Local aTES := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_TES"})
Local aCST := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_CLASFIS"})
Local aItem := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_ITEM"})
Local cProduto := ""
Local cTES := ""
Local cCSTAtual := ""
Local cItem := ""
Local nX := 0
Local cOrigem := ""
Local cST := ""
Local cCSTOk := ""
Local nCont := 0

For nX := 1 to Len(aCols)

cProduto := aCols[nX][aProd]
cTES := aCols[nX][aTES]
cCSTAtual := aCols[nX][aCST]
cItem := aCols[nX][aItem]
cOrigem := Posicione("SB1",1,xFilial("SB1")+cProduto,"B1_ORIGEM")
cST := Posicione("SF4",1,xFilial("SF4")+cTES,"F4_SITTRIB")
cCSTOk := Alltrim(cOrigem)+Alltrim(cST)


If cCSTAtual <> cCSTOk
Aviso("Atenção","Campo aspassimplesSit.Trib.aspassimples do item "+cItem+" - "+cProduto+" inconsistente! Está "+cCSTAtual+" e deveria ser "+cCSTOK+" . Dê <ENTER> no campo TES para corrigir!",{"Ok"})
nCont++
EndIf

Next

If nCont > 0
lRetorno := .F.
EndIf

Return(lRetorno)


//Fim do Programa

Obrigado Fernando!

Vou adaptar a minha necessidade, se der certo, posto aqui depois.

Abraço.

Att.
Matheus Silva

Matheus,

Ok, qualquer coisa é só dar um toque.

Abraços.