Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Descrição

Ponto de entrada para alterar o valor das tags do objeto EAI (cabeçalho, itens e pagamentos) que foram recebidas pela mensagem padronizada RetailSales.


Programa fonte:

LOJI701O.PRW

Versão:2.0


Parâmetros:



NomeTipoDescrição
oEAIObEtObjetoObjeto contendo as tags e conteúdos do cabeçalho, item e pagamento da RetailSales



Retorno:



NomeTipoDescriçãoObrigatório
oEAIObEtObjetoO retorno do P.E. deve ser na mesma estrutura e tipo do parâmetro de entrada.Sim



Exemplo:
#INCLUDE "PROTHEUS.CH"

//Exemplo do PE
User Function LJI701O3()

Local oObj := PARAMIXB[1]

//Alterando a tag Content no cabeçalho
oObj:setHeader("DocumentCode", "000272")

//Alterando o tipo de entrega do item 1
If oObj:getPropValue("ListOfSaleItem"):getPropValue("SaleItem")[1]:getPropValue("ItemDeliveryType") <> "3"
	oObj:getPropValue("ListOfSaleItem"):getPropValue("SaleItem")[1]:setProp("ItemDeliveryType", "3")
EndIf

//Alterando a forma de pagamento da posição 1
oObj:getPropValue("ListOfSaleCondition"):getPropValue("SaleCondition")[1]:setProp("PaymentMethodCode", "XX")

//Incluindo uma nova forma de pagamento
oObj:getPropValue("ListOfSaleCondition"):setProp("SaleCondition",{})
oObj:getPropValue("ListOfSaleCondition"):getPropValue("SaleCondition")[2]:setProp("DateOfPayment", "20210426")
oObj:getPropValue("ListOfSaleCondition"):getPropValue("SaleCondition")[2]:setProp("PaymentValue",  2)
oObj:getPropValue("ListOfSaleCondition"):getPropValue("SaleCondition")[2]:setProp("PaymentMethodCode", "CH")

Return oObj