Index: AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzDixfConverter.cls.xml =================================================================== diff -u -r47557 -r48612 --- AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzDixfConverter.cls.xml (.../PrijsUitzDixfConverter.cls.xml) (revision 47557) +++ AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzDixfConverter.cls.xml (.../PrijsUitzDixfConverter.cls.xml) (revision 48612) @@ -276,21 +276,25 @@ 4)||($L(..Korting2)>4)) ; Exacte prijs op product nivo + If ..PRNr ;,($L((..Korting1)>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,"\",14) + Set NettoPrijs=+$piece(PrijsRec,"\",1) If ..PrijzenInclBTW { Set NettoPrijs=+$J(NettoPrijs*1.21,0,2) } - Set ..AxPrijsUitz.PriceCur=$$$AXNum(NettoPrijs*100) - Set ..AxPrijsUitz.PriceUnit="100" + 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" @@ -398,7 +402,8 @@ CustomerCodexRelation:DOM.VKP.VanHoeckeKlant %Boolean -