Ponto de Entrada - LJ901APV
Descrição - Este Ponto de Entrada é executado na rotina LOJA901A, para informação dos dados adicionais a serem cadastrados na rotina automática de Pedido de Venda (MATA410).
Descrição: | Atualizações\Cadastros | |||||||||||||||
Localização: | E-commerce | |||||||||||||||
Eventos: | Monitor Serv. CiaShop | |||||||||||||||
Programa Fonte: | LOJA901A - Pedidos | |||||||||||||||
Função: | Protheus | |||||||||||||||
Parâmetos: |
| |||||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function LJ901APV()
Local oAPed := NIL
Local oRetExtra := NIL
Local aCab := {}
Local aItem := {}
local aRet := {}
Local nPosVend := 0 //Posicao do Vendedor
Local cValVend := "" //Valor do Vendedor
Local cVendPad := SuperGetMV("MV_LJECOMA",.f.,"000001") //Parametro de vendedor Padrão
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 4 .AND. ;
ValType(PARAMIXB[1]) == "O" .AND. ValType(PARAMIXB[2]) == "O" .AND. ValType(PARAMIXB[3]) == "A";
.AND. ValType(PARAMIXB[4]) == "A"
oAPed := PARAMIXB[1]
oRetExtra := PARAMIXB[2]
aCab := PARAMIXB[3]
aItem := PARAMIXB[4]
EndIf
nPosVend := aScan(aCab, { |c| Rtrim(c[1]) == "C5_VEND1"})
If nPosVend > 0
cValVend := aCab[nPosVend , 02]
EndIf
//so insere se for diferente do padro
If cValVend <> cVendPad
aAdd(aRet, { "C5_VEND1", cVendPad, Nil})
EndIf
Return aRet