Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (fabiana.silva), última alteração em 09 mar, 2016

Ponto de Entrada - Lj901PIt

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) para inserção dos itens do Pedido de Venda

 

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

 oAItem   ObjetoObjeto do XML do Item do Pedido de Venda
 oRetExtra Objeto Objetos do XML dos Dados Extra do Pedido
 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 Item do Pedido de Venda tabela SC6; se não tiver campos a inserir, retornar array vazio

 

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function Lj901PIt()

Local oAItem := NIL

Local oRetExtra := NIL

Local aItem := {}

local aRet := {}

If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 3 .AND. ;   

  ValType(PARAMIXB[1]) == "O" .AND. ValType(PARAMIXB[2]) == "O"  .AND. ValType(PARAMIXB[3]) == "A"  

  oAItem := PARAMIXB[1]  

   oRetExtra := PARAMIXB[2]  

   aItem := PARAMIXB[3]

EndIf

aAdd(aRet, {"C6_UCODIGO", oAItem:_PF_ID:TEXT, NIL})

AaDD(aRet, {"C6_UTOTAL", (VAL(oAItem:_ADJUSTED_PRICE:TEXT) / 100), NIL})

Return aRet