B4201500
<font class="small">Code:</font><hr /><pre>
Calculate Sales Prices And Costs [CalculateSalesPricesAndCosts,B4201500,D4201500,CDIST]
szOrderType [DCTO] <- rpt_OrderType [DCTO]
szOrderCo [KCOO] <- rpt_CompanyKeyOrderNo [KCOO]
mnLineNo [LNID] <- '1,000'
szAdjustmentSchedule [ASN] <- rpt_PriceAdjustmentScheduleN [ASN]
mnAddressNo [AN8] <- rpt_AddressNumber [AN8]
mnShipToNo [SHAN] <- rpt_AddressNumberShipTo [SHAN]
mnShortItemNo [ITM] <- TK IdentifierShortItem[V5745520A,F4102,ITM]
szBaseCurrencyCode [CRDC] <- rpt_szBaseCurrencyCode_CRDC [CRCD]
szCustomerCurrencyCode [CRCD] <- TK CurrencyCodeFrom[V5745520A,F0301,CRCD]
mnUnitPrice [UPRC] -> rpt_mnUnitAmount_UPRC [UPRC]
mnListPrice [LPRC] -> rpt_AmtListPricePerUnit_LPRC [LPRC]
szBranchPlantDtl [MCU] <- TK CostCenter[V5745520A,F4102,MCU]
cTransferOrderCostMarkup [EV02] X <not assigned> <Blank>
szCompany [CO] <- rpt_Company [CO]
mnQtyShipped [SOQS] <- '1'
mnQtyBackOrdered [SOBK] <- <Zero>
mnQtyCanceled [SOCN] <- <Zero>
mnQtyOrdered [UORG] <- '1'
szTransactionUom [UOM] <- rpt_szUnitOfMeasure_UOM [UOM]
szPricingUom [UOM4] <- rpt_szUnitOfMeasure_UOM [UOM]
jdPriceEffectiveDate [PEFJ] <- rpt_DateEffectiveJulian1 [EFTJ]
cSuppressWriteToWF [EV04] <- '1'
mnDiscountTrade [TRDC] <- <Zero>
szLineType [LNTY] <- 'S'
rpt_mnFinalUnitPrice_UPRC [UPRC] = rpt_mnUnitAmount_UPRC [UPRC]
</pre><hr />