Prod.Product TECH.RegisteredObject AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor %RegisteredObject %RegisteredObject %String 1 %List 1 %Decimal 1 %Date 1 %Date 1 %Decimal 1 %Decimal 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 AXdixf.PrijsUitz.PrijsUitz 1 %Boolean 1 1 %Status 1 itPrijsUitz:PrijsUitzIterator,LineNum:%String AXdixf.VerkoopPrijzen.VerkoopPrijzenKortingen 1 1 1 1 1 1 1 4)||($L(..Korting2)>4)) ; Exacte prijs op product nivo { Set PrijsRec=$$KLANTPR^KPRIJS(..KLNr,..PRNr) If ..MinAantal Set PrijsRec=$$KlantPrijs^KPRIJS(..KLNr,..PRNr,,,..MinAantal) Set NettoPrijs=+$piece(PrijsRec,"\",1) If ..PrijzenInclBTW { Set NettoPrijs=+$J(NettoPrijs*1.21,0,2) } Set ..AxPrijsUitz.PriceCur=$$$AXNum(NettoPrijs) Set ..AxPrijsUitz.PriceUnit=$piece(PrijsRec,"\",11) Set ..AxPrijsUitz.UnitId="STK" Set ..AxPrijsUitz.CodexSetupId="" Set ..AxPrijsUitz.Percent1="" Set ..AxPrijsUitz.Percent2="" ;Set ..AxPrijsUitz.Opmerking=..AxPrijsUitz.Opmerking_"#"_PrijsRec ;If ..KLNr=2252&&(..PRNr=513553) { ;D DumpObject^%apiOBJ(..AxPrijsUitz) ;W !,PrijsRec,! } } ElseIf CodexGroep="BSL" { If +..Korting1=-0.1 ; Plus { Set ..AxPrijsUitz.CodexSetupId="STD Cons" Set ..AxPrijsUitz.Percent1=..Korting2*100 } If +..Korting1=0.1 ; Rabat { Set ..AxPrijsUitz.CodexSetupId="STD Rabat" Set ..AxPrijsUitz.Percent1=$$$AXNum(..Korting2*100) } ElseIf +..Korting1=0.2 ; Spil { Set ..AxPrijsUitz.CodexSetupId="STD Spil" Set ..AxPrijsUitz.Percent1=$$$AXNum(..Korting2*100) } ElseIf +..Korting1=0.3 ; Basis { Set ..AxPrijsUitz.CodexSetupId="STD Basis" Set ..AxPrijsUitz.Percent1=$$$AXNum(..Korting2*100) } ElseIf +..Korting1=0.4 ; Groot { Set ..AxPrijsUitz.CodexSetupId="STD Groot" Set ..AxPrijsUitz.Percent1=$$$AXNum(..Korting2*100) } Else { Set ..AxPrijsUitz.CodexSetupId="STD Lijst" Set ..AxPrijsUitz.Percent1=$$$AXNum(..Korting1*100) Set ..AxPrijsUitz.Percent2=$$$AXNum(..Korting2*100) } } Else { Set ..AxPrijsUitz.CodexSetupId=CodexGroep_" Lijst" Set ..AxPrijsUitz.Percent1=$$$AXNum(..Korting1*100) Set ..AxPrijsUitz.Percent2=$$$AXNum(..Korting2*100) } If (..AxPrijsUitz.CodexSetupId'="")&&..PrijzenInclBTW { Set ..AxPrijsUitz.CodexSetupId=..AxPrijsUitz.CodexSetupId_"+btw" } ]]> 1 1 1 1 1