Index: KPRIJS.mac.rou =================================================================== diff -u -r48147 -r48610 --- KPRIJS.mac.rou (.../KPRIJS.mac.rou) (revision 48147) +++ KPRIJS.mac.rou (.../KPRIJS.mac.rou) (revision 48610) @@ -94,26 +94,46 @@ // VHIP907: Verkoopprijzen // VHIP907->MVI: voorlopig laat ik alles invullen in fase 2a en overschrijf ik enkel de waarden die ax teruggeeft - New SalesPriceService, Output, OutputLine If $$IsAX(KLNr,PRNr) { + New SalesPriceService, Result,PriceUnit Set SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New() #Dim Result as AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC - Set Result = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):CifPPL,1:"")) - + Set Result = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):SimPPL,1:""),.Aantal) Set VkpEUR = Result.Price - Set VkpPr = VkpEUR Set LijstEUR = Result.GrossPrice + Set PriceUnit=+Result.PriceUnit + If SalesPriceService.PrijzenInclBTW() + { + Set VkpEUR=+$J(VkpEUR/1.21,0,10) + } + Set VkpPr = VkpEUR Set LijstPr = LijstEUR + If PriceUnit>1 + { + Set VkpEUR=VkpEUR/PriceUnit + Set LijstEUR=LijstEUR/PriceUnit + + } + Set GrOrde=$Case(PriceUnit,100:"H",:"E") + Set GrOrdNum=$Case(GrOrde,"H":100,:1) + Set Korting2=0 - Set Korting1=(1-(VkpEUR/LijstEUR))*100 + if +LijstEUR=0 { + Set Korting1=0 + } else { + Set Korting1=(1-(VkpEUR/LijstEUR))*100 + } } Quit $$BUILD ; Build = VkpPr_D_Munt_D_GrOrde_D_LijstPr_D_Korting1_D_Korting2_D_$G(PrijsKl)_D_$G(KortNiv)_D_+$J(1/MuntPar,0,8)_D_GrOrde_1_D_GrOrdNum_D_1_D_AkpEUR_D_VkpEUR_D_LijstEUR ; 1:prijs,2:munt,3:eenheid,4:lijstprijs,5:korting1,6:korting2,7:codex,8:katprijs,9:pariteit,10:afrondingsregel,11:eenheid(numeriek),12:round,13:aankpr(EUR),14:prijs(EUR),15:lijstprijs(EUR) - +PrijzenViaAdmin(KLNr) +{ + Quit $$$MaatwerkKlantenMetWildcardUitz[(";"&KLNr&";") +} // Set twee kortingen om van in % (*100) naar ��n korting in % @@ -125,13 +145,12 @@ Set IsAX=0 If ($$$CheckAXFase) { Set IsAX=1 - If $$$MaatwerkKlantenMetWildcardUitz[(";"&KLNr&";") { + If $$PrijzenViaAdmin(KLNr) { If PRNr,$$$PRGet($$$LeveranciersNr)=$$$LevHalux { Set IsAX=0 } } } - ;w "KLNr",KLNr," PRNr",PRNr," = ",IsAX,! Quit IsAX PRODINCLBTW(PRNr,Land,KlMunt,Korting1,Korting2,NetBrutP,KlTyp,NoSa,SimPPL,KlantGrOrde,CheckKAT,BusinessType) @@ -142,7 +161,8 @@ ProdViaCodex(PRNr,Codex) New KLNr - Set KLNr=$Case(Codex,"L":$$$KlantLVanHoecke,"R":$$$KlantRVanHoecke,"S":$$$KlantSVanHoecke,"B":$$$KlantBVanHoecke,"G":$$$KlantGVanHoecke,"P":$$$KlantPVanHoecke,"C":$$$KlantCVanHoecke) + Set KLNr=$Case(Codex,"L":$$$CKlantL,"R":$$$CKlantR,"S":$$$CKlantS,"B":$$$CKlantB,"G":$$$CKlantG,"P":$$$CKlantP,"C":$$$CKlantCExcl) + Quit:'$D(^KK1(KLNr)) "" Quit $$KLANTPR(KLNr,PRNr) @@ -252,7 +272,47 @@ Set Result=##class(AXimpl.Admin.VKP.SalesPriceService).%New().GeefPrijs($$$KlantLVanHoecke,PRNr,.SimCifPPL) Quit Result.GrossPrice - +PRIJSGEGZONDERAX(PRNr,NoSa,SimPPL) ; Ophalen van de prijsgegevens van een product + ; De SimPPL wordt genomen ter vervanging van de PPL in PRNr, + ; zo kan dan het product een generisch product zijn waarvoor het afgeleid product nog niet bestaat + ; De SimPPL moet voldoen aan de muntpariteit en de grootteorde + ; Output: Piece 1 = PPL + ; Piece 2 = aankoopmunt + ; Piece 3 = aankoopeenheid + ; Piece 4 = aankoopeenheid (numeriek) + ; Piece 5 = korting + ; Piece 6 = CifPPL + ; Piece 7 = firmamunt + ; Piece 8 = verkoopeenheid + ; Piece 9 = verkoopeenheid (numeriek) + ; Piece 10 = Cif% + ; Piece 11 = dekkingsbijdrage + ; Piece 12 = dekkingsbijdrage% + ; Piece 13 = vork + ; Piece 14 = vork% + ; Piece 15 = lijstprijs (per stuk) + ; Piece 16 = katprod industrie (Prijsklasse code) + ; Piece 17 = katprod handel (Prijsklasse code) + ; Piece 18 = katprod KS (Prijsklasse code) + ; Piece 19 = LEVNr + ; Piece 20 = CorFakt + New I,J,R,LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,GrtPr,PrMunt,CifPPL,LijstPr,Vork,DB,FaMunt,Decimal,EenhAank,PPL,%Korting,%Vork,%DB,%Cif,CorFakt + Do GetProdBasis + ;Set Decimal=$$MUNT^vhRtn1(FaMunt,4),%DB=$J(%DB*GrOrdNum,0,Decimal) + Set R=CifPPL/(100-%DB/100)*%DB/100,R=$J(R,1,4),LijstPr=CifPPL+R + Set LijstPr=LijstPr*GrOrdNum + Set GrtPr=LijstPr*(100-%Vork/100) + Set GrtPr=$J($$ROUND(GrtPr),0,2) + Set LijstPr=$J($$ROUND(LijstPr),0,2) + Set Vork=LijstPr-GrtPr/GrOrdNum + Set LijstPr=LijstPr/GrOrdNum + Set PPL=$J(PPL*EenhAank,0,4) + Set DB=LijstPr-CifPPL + Set R=PPL_D_PrMunt_D_$S(EenhAank=1:"E",EenhAank=100:"H",EenhAank=1000:"M",1:"")_D_EenhAank + Set R=R_D_%Korting_D_CifPPL_D_FaMunt_D_GrOrde_D_GrOrdNum_D_%Cif_D_DB_D_%DB_D_Vork_D_%Vork_D_LijstPr + Set R=R_D_KatPrInd_D_KatPrHan_D_KatPrKs_D_LEVNr_D_CorFakt + Quit R + GETPROD(PRNr,NoSa,SimPPL) ; Ophalen productgegevens New J,R,FaMunt,EenhAank,PPL,%Korting,%DB,%Cif Do GetProdBasis Index: KORTING.mac.rou =================================================================== diff -u -r39200 -r48610 --- KORTING.mac.rou (.../KORTING.mac.rou) (revision 39200) +++ KORTING.mac.rou (.../KORTING.mac.rou) (revision 48610) @@ -71,7 +71,7 @@ KATPrijs(KLNr,PRNr,NoSa,PrijsGegRec) ; Katprijs zonder rekening te houden met uitzonderingen op product nivo New IsKsCust,KlTyp,Rec Quit:$$IsMedewerker^KLANT5(KLNr) "" ; geen katprijs voor medewerkers - Set:$G(PrijsGegRec)="" PrijsGegRec=$$PRIJSGEG^KPRIJS(PRNr,.NoSa) + Set:$G(PrijsGegRec)="" PrijsGegRec=$$PRIJSGEGZONDERAX^KPRIJS(PRNr,.NoSa) Set KlTyp=$$IsHandel^KLANT5(KLNr) Set IsKsCust=0 ;$$ISKLANT^KS(KLNr,,.NoSa) Quit $S(IsKsCust:$P(PrijsGegRec,D,18),KlTyp:$P(PrijsGegRec,D,17),1:$P(PrijsGegRec,D,16)) @@ -92,7 +92,7 @@ Set LevTerm=$G(LevTerm),DTyp="" If LevTerm'?.N Set DTyp="DW" If $L(DTyp) Set LevTerm=$$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(LevTerm,DTyp),"W","FD"),LevTerm=$J((LevTerm-$H)/7,0) Set DispOption=$G(DispOption) - Set PrijsGegRec=$$PRIJSGEG^KPRIJS(PRNr,NoSa) + Set PrijsGegRec=$$PRIJSGEGZONDERAX^KPRIJS(PRNr,NoSa) Quit // --- Optionele kortingen --- Index: BL/Derde/KlantSpecifiek.inc.rou =================================================================== diff -u -r48137 -r48610 --- BL/Derde/KlantSpecifiek.inc.rou (.../KlantSpecifiek.inc.rou) (revision 48137) +++ BL/Derde/KlantSpecifiek.inc.rou (.../KlantSpecifiek.inc.rou) (revision 48610) @@ -18,7 +18,25 @@ #define KlantSFS 12486 #define KlantTotaalInterieurNL 9989 - + /* ; op accept zijn deze klantnrs nog niet beschikbaar 23/12/2017 PV +#define CKlantG 29447 ;op ACCEPT +#define CKlantB 29446 +#define CKlantS 29445 +#define CKlantR 29444 +#define CKlantL 29443 +#define CKlantP 29448 +#define CKlantCExcl 29450 +*/ +#define CKlantCIncl 29449 + +#define CKlantG 29391 +#define CKlantB 6822 +#define CKlantS 6821 +#define CKlantR 6820 +#define CKlantL 6819 +#define CKlantP 13854 +#define CKlantCExcl 13854 + ; Intern #define KlantVanHoeckeNV 4682 #define KlantVanHoeckeBV 9544 Index: PVAX.mac.rou =================================================================== diff -u -r48137 -r48610 --- PVAX.mac.rou (.../PVAX.mac.rou) (revision 48137) +++ PVAX.mac.rou (.../PVAX.mac.rou) (revision 48610) @@ -1,8 +1,31 @@ #include BL.Derde.LevSpecifiek #include Prod.Product #include vhLib.Macro + + ;d PrijsOphalen^PVAX(4810 + PVAX - Set SalesPriceService=##class(AXimpl.Admin.VKP.SalesPriceService).%New() + ;Do PrijsOphalen(8365,1168275) + + Do PrijsOphalen(2252,225635,,3000) + + Do PrijsOphalen(2252,225635,,5000) + + ;Do PrijsOphalen(1614,860769) + + q + Do PrijsOphalen(3042,1529657) + + q + Do PrijsOphalen(1125,2001) + q + Do PrijsOphalen(1125,1529657) + + Do PrijsOphalen(1125,1174139,10) + Do PrijsOphalen(1125,858490,20) + Do PrijsOphalen(1125,1804877,30) + + Do PrijsOphalen(1125,249821) Do PrijsOphalen(4810,808099) Do PrijsOphalen(4810,3551) @@ -14,75 +37,127 @@ Do PrijsOphalen(14604,904305) Do PrijsOphalen(14604,794520,200) Do PrijsOphalen(19485,675436,500) + Quit -PrijsOphalen(KLNr,PRNr,CifPPL) +PrijsOphalen(KLNr,PRNr,CifPPL,Aantal) + Set SalesPriceService=##class(AXimpl.Admin.VKP.SalesPriceService).%New() + s x =$$$ProductGet(PRNr, $$$CifPPLEUR) Write !,KLNr," ",$P(^KKL(^KK1(KLNr),0),"\",2),! Write PRNr," ",$P(^KPR(PRNr,2),"\",25)," ",$P(^KPR(PRNr,0),"\"),! - Set Result=SalesPriceService.GeefPrijs(KLNr,PRNr,.CifPPL) + Set Result=SalesPriceService.GeefPrijs(KLNr,PRNr,.CifPPL,.Aantal) d DumpObject^%apiOBJ(Result) - Set PrijsRec=$$KLANTPR^KPRIJSADMIN(KLNr,PRNr,,.CifPPL) + Set:'$G(Aantal) PrijsRec=$$KLANTPR^KPRIJSADMIN(KLNr,PRNr,,.CifPPL) + Set:$G(Aantal) PrijsRec=$$KlantPrijs^KPRIJSADMIN(KLNr,PRNr,,,Aantal) Write !,"Admin prijs: ",$P(PrijsRec,"\")," lijstprijs : ",$P(PrijsRec,"\",4),! + Set:'$G(Aantal) PrijsRecAX=$$KLANTPR^KPRIJS(KLNr,PRNr,,.CifPPL) + Set:$G(Aantal) PrijsRecAX=$$KlantPrijs^KPRIJS(KLNr,PRNr,,,Aantal) + Write " AX prijs: ",$P(PrijsRecAX,"\")," AX lijstpr : ",$P(PrijsRecAX,"\",4),! + Write !,"Admin: ",PrijsRec,! + Write "AX : ",PrijsRecAX,! + q All - ;Do KlantCheck(4810) ; lobelle - ;Do KlantCheck(1736) ; dupont - Do KlantCheck(1614) ; Vossaert (B2C) - ;Do KlantCheck(3042) ; dovy - ;Do KlantCheck(23112) ; DKG + Do Klant(1938) ; roobrouck + + Do Klant(4810) ; lobelle + Do KlantCheck(1736) ; dupont + ;Do KlantCheck(1614) ; Vossaert (B2C) + Do KlantCheck(3042) ; dovy + Do KlantCheck(23112) ; DKG q -KlantCheck(KLNr) - w ^KK1(KLNr),! - Set TijdStipStartLog=$zH + +Klant(KLNr,DiffOnly) + Set Dev=$$OPEN^vhDEV("e:\AX","PrijsVGL AX "_KLNr_" - "_$TR($ZDT($H,8),":")_".txt","W") + Use Dev + + Write "GUID KLNr Nm PRNr ItemID KortTekst Codex Kat InclBTW AXPrice AXGO AdminPrice AdminGO Verschil ErrorTxt",! + Do KlantCheck(KLNr,.DiffOnly) + Do CLOSE^vhDEV(Dev) + Quit + +AlleKlanten + Set Dev=$$OPEN^vhDEV("e:\AX","PrijsVGL AX"_$TR($ZDT($H,8),":")_".txt","W") + Use Dev + + Write "GUID KLNr Nm PRNr ItemID KortTekst Codex Kat InclBTW AXPrice AXGO AdminPrice AdminGO Verschil ErrorTxt",! + Set TijdStipStartAll=$zH + Set itKlant = ##class(TECH.DynamicIterator).%New(##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlantIterator(),,"(Item.GeefRegio()'=98)&&(Item.GeefRegio()'=99)") + While itKlant.HasNext() + { + Set Klant=itKlant.Next() + Set KLNr=$P(Klant.GeefID(),"||",2) + Continue:(Klant.GeefBusinessType() = ##class(DOM.VKP.enu.BusinessType).B2C()) + + If $D(^KK1(KLNr)),($O(^KSTKL(KLNr,0,"2016.07 "))'=""),(KLNr?4.6N) + { + Set TijdStipStartLog=$zH + Do KlantCheck(KLNr,1) + Use 0 + Write KLNr," ",$ZH-TijdStipStartLog,! + Use Dev + } + Set KLNr=$O(^KSTKL(KLNr)) + } + Do CLOSE^vhDEV(Dev) + Write "ALL=",$ZH-TijdStipStartAll,! + q + +KlantCheck(KLNr,DiffOnly) Set SalesPriceService=##class(AXimpl.Admin.VKP.SalesPriceService).%New() Do SalesPriceService.Initialisatie(KLNr) Kill CacheID Set PRNr=$O(^KSTKL(KLNr,0)) Set Count=0 While PRNr { - Quit:$D(^KPR(PRNr,"J"_$$$LevHalux)) - Quit:$$$PRGet($$$GenProduct)'="" - Quit:$$$PRGet($$$NONAktief)=1 - If $D(^KPR(PRNr,"J"_$$$LevVanHoecke)) { - Set CifPPL=$$CifPPL^KPRIJS(PRNr) - } Else { - Set CifPPL="" + If ($O(^KSTKL(KLNr,PRNr,"2016.07 "))'="") && ('$D(^KPR(PRNr,"J"_$$$LevHalux))) && ($$$PRGet($$$GenProduct)="") && ($$$PRGet($$$NONAktief)'=1) && '$$IsOrgaluxOpMaat^PRODUKT2(PRNr) + { + If $D(^KPR(PRNr,"J"_$$$LevVanHoecke)) { + Set CifPPL=$$CifPPL^KPRIJS(PRNr) + } Else { + Set CifPPL="" + } + Set MessageId=SalesPriceService.VoegToeProduct(PRNr,CifPPL) + Set Count=Count+1 + Set CacheId(MessageId)=PRNr } - Set MessageId=SalesPriceService.VoegToeProduct(PRNr,CifPPL) - Set Count=Count+1 - Set CacheId(MessageId)=PRNr Set PRNr=$O(^KSTKL(KLNr,PRNr)) } - Set TijdOphalen=$ZH-TijdStipStartLog - Set TijdStipStartLog=$zH - Do SalesPriceService.VoerUit() - Set TijdWebservice=$ZH-TijdStipStartLog - Set TijdStipStartLog=$zH - Set it=SalesPriceService.GeefResultaatIterator() - Set Dev=$$OPEN^vhDEV("f:\AX.EC","PrijsVGL AX "_KLNr_".txt","W") - Use Dev - Write "GUID PRNr ItemID KortTekst InclBTW AXPrice AXGO AdminPrice AdminGO Verschil ErrorTxt",! - While it.HasNext() + If Count { - Set Result=it.Next() - Set MessageId="{"_$zcvt(Result.MessageId,"U")_"}" - Set PRNr=$G(CacheId(MessageId)) - Set PrijsRec=$$KLANTPR^KPRIJSADMIN(KLNr,PRNr) - write Result.MessageId,*9 - Write PRNr,*9,Result.ItemId,*9,$$$PRGet($$$KortTekst) - Write *9,SalesPriceService.PrijzenInclBTW(),*9,$$$ExcelNum(Result.Price),*9,Result.PriceUnit - Write *9,$$$ExcelNum($P(PrijsRec,"\",1)),*9,$P(PrijsRec,"\",11) - Write:'$L(Result.ErrorTxt) *9,$$$ExcelNum((Result.Price/Result.PriceUnit)-($P(PrijsRec,"\",1)/$P(PrijsRec,"\",11))) - Write:$L(Result.ErrorTxt) *9,"error" - Write *9,Result.ErrorTxt - Write ! - ;d DumpObject^%apiOBJ(Result) - + Do SalesPriceService.VoerUit() + Set it=SalesPriceService.GeefResultaatIterator() + ;Set Dev=$$OPEN^vhDEV("e:\AX","PrijsVGL AX "_KLNr_".txt","W") + ;Use Dev + While it.HasNext() + { + Set Result=it.Next() + Set MessageId="{"_$zcvt(Result.MessageId,"U")_"}" + Set PRNr=$G(CacheId(MessageId)) + Set PrijsRec=$$KLANTPR^KPRIJSADMIN(KLNr,PRNr) + Set:SalesPriceService.PrijzenInclBTW() $P(PrijsRec,"\",1)=$J($P(PrijsRec,"\",1)*1.21,0,2) + Set Diff="" + Set:'$L(Result.ErrorTxt) Diff=$$$ExcelNum((Result.Price/Result.PriceUnit)-($P(PrijsRec,"\",1)/$P(PrijsRec,"\",11))) + If '$G(DiffOnly)||((Diff>0.01)||(Diff<-0.01))||$L(Result.ErrorTxt) + { + write Result.MessageId,*9 + Write KLNr,*9,$P(^KKL(^KK1(KLNr),0),"\",2),*9 + Write PRNr,*9,Result.ItemId,*9,$$$PRGet($$$KortTekst) + Write *9,$P(PrijsRec,"\",7),*9,$P(PrijsRec,"\",8) + Write *9,SalesPriceService.PrijzenInclBTW(),*9,$$$ExcelNum(Result.Price),*9,Result.PriceUnit + Write *9,$$$ExcelNum($P(PrijsRec,"\",1)),*9,$P(PrijsRec,"\",11) + Write *9,Diff + Write *9,Result.ErrorTxt + Write ! + } + ;d DumpObject^%apiOBJ(Result) + + } } - Do CLOSE^vhDEV(Dev) - Write KLNr," #Prod:",Count," Ophalen:",TijdOphalen," Webservice:",TijdWebservice," Vgl: ",$ZH-TijdStipStartLog,! + ;Do CLOSE^vhDEV(Dev) + ;Write KLNr," #Prod:",Count," Ophalen:",TijdOphalen," Webservice:",TijdWebservice," Vgl: ",$ZH-TijdStipStartLog,! Quit Multi @@ -117,4 +192,7 @@ Do ##class(TECH.Config.ConfigMgr).Instance().SetString("VHIP907SalesPriceServiceUrl","http://ax-aos-dev:84/MicrosoftDynamicsAXAif60_ACCEPT/SalesPriceService/xppservice.svc") Do ##class(TECH.Config.ConfigMgr).Instance().SetString("VHIP907SalesPriceServiceUrl","http://ax_scan:81/MicrosoftDynamicsAXAif60_PROD/SalesPriceService/xppservice.svc") + Do ##class(TECH.Config.ConfigMgr).Instance().SetString("AX_SalesPriceOut_Fase","2A") + Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("BevestigdAXOrderSluitenActief",1) + ;##class(TECH.Config.ConfigMgr).Instance().GetString("AX_SalesPriceOut_Fase") = "2A" q Index: KPRIJSADMIN.mac.rou =================================================================== diff -u -r48147 -r48610 --- KPRIJSADMIN.mac.rou (.../KPRIJSADMIN.mac.rou) (revision 48147) +++ KPRIJSADMIN.mac.rou (.../KPRIJSADMIN.mac.rou) (revision 48610) @@ -90,30 +90,52 @@ Set KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr) Set Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID) Set BusinessType = Klant.GeefBusinessType() - Do KKORTING, CALC + Do KKORTING,CALC // VHIP907: Verkoopprijzen // VHIP907->MVI: voorlopig laat ik alles invullen in fase 2a en overschrijf ik enkel de waarden die ax teruggeeft - New SalesPriceService, Result If $$IsAX(KLNr,PRNr) { + New SalesPriceService, Result,PriceUnit Set SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New() #Dim Result as AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC Set Result = SalesPriceService.GeefPrijs(KLNr, PRNr, $S($G(SimPPL):SimPPL,1:"")) - Set VkpEUR = Result.Price - Set VkpPr = VkpEUR Set LijstEUR = Result.GrossPrice - Set LijstPr = LijstEUR + Set PriceUnit=Result.PriceUnit + + If SalesPriceService.PrijzenInclBTW() + { + Set VkpEUR=VkpEUR/1.21 + Set LijstEUR=LijstEUR/1.21 + } + Set VkpPr = $J(VkpEUR,0,2) + Set LijstPr = $J(LijstEUR,0,2) + If Result.PriceUnit>1 + { + Set VkpEUR=VkpEUR/PriceUnit + Set LijstEUR=LijstEUR/PriceUnit + + } + Set GrOrde=$Case(+Result.PriceUnit,100:"H",:"E") + Set GrOrdNum=$Case(GrOrde,"H":100,:1) + Set Korting2=0 - Set Korting1=(1-(VkpEUR/LijstEUR))*100 + if +LijstEUR=0 { + Set Korting1=0 + } else { + Set Korting1=(1-(VkpEUR/LijstEUR))*100 + } } Quit $$BUILD ; Build = VkpPr_D_Munt_D_GrOrde_D_LijstPr_D_Korting1_D_Korting2_D_$G(PrijsKl)_D_$G(KortNiv)_D_+$J(1/MuntPar,0,8)_D_GrOrde_1_D_GrOrdNum_D_1_D_AkpEUR_D_VkpEUR_D_LijstEUR ; 1:prijs,2:munt,3:eenheid,4:lijstprijs,5:korting1,6:korting2,7:codex,8:katprijs,9:pariteit,10:afrondingsregel,11:eenheid(numeriek),12:round,13:aankpr(EUR),14:prijs(EUR),15:lijstprijs(EUR) - +PrijzenViaAdmin(KLNr) +{ + Quit $$$MaatwerkKlantenMetWildcardUitz[(";"&KLNr&";") +} // Set twee kortingen om van in % (*100) naar ��n korting in % @@ -125,7 +147,7 @@ Set IsAX=0 If ($$$CheckAXFase) { Set IsAX=1 - If $$$MaatwerkKlantenMetWildcardUitz[(";"&KLNr&";") { + If $$PrijzenViaAdmin(KLNr) { If PRNr,$$$PRGet($$$LeveranciersNr)=$$$LevHalux { Set IsAX=0 } @@ -143,6 +165,8 @@ ProdViaCodex(PRNr,Codex) New KLNr Set KLNr=$Case(Codex,"L":$$$KlantLVanHoecke,"R":$$$KlantRVanHoecke,"S":$$$KlantSVanHoecke,"B":$$$KlantBVanHoecke,"G":$$$KlantGVanHoecke,"P":$$$KlantPVanHoecke,"C":$$$KlantCVanHoecke) + + Set KLNr=$$$KlantLVanHoecke Quit:'$D(^KK1(KLNr)) "" Quit $$KLANTPR(KLNr,PRNr)