#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 |