Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (fabiana.silva), última alteração em 30 dez, 2015

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:

Nome

Tipo

Descrição

 oAPed ObjetoObjeto do XML do Pedido de Venda
 oRetExtra Objeto Objetos do XML dos Dados Extra do Pedido
 aCabPv Array Array unidimensional de campos do Pedido de Venda a ser gerado pela rotina MATA410
 aItemPV Array Array unidimensional de itens do pedido de venda a ser inserido pela rotina MATA410

 

 

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRet

 Array

Array unidimensional, contendo os campos adicionais do Pedido de Venda tabela SC5, se não tiver campos a inserir, retornar array vazio

 

Sim

 

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