Index: BL/PR/GA/TB/tmpDev2.mac.rou =================================================================== diff -u -r18 -r58 --- BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 18) +++ BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 58) @@ -124,7 +124,7 @@ Quit Prod bfwBTItemsFromWSLijn - New lbDSCodes,DSCode,KFront,KRug,KBxs + New lbDSCodes,DSCode,KFront,KRug,KBxs,Klas,SPZKpiece1 ;d WLIP^vhDBG(97,"*"_$L(WSLn.ItemRK)_"*"_" - "_WSLn.ItemRK) Set DSCode=$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBDesignCode",WSLn.ItemDS),1), 1:"") Set KFront=$S($L(WSLn.ItemRK):$LG(..BTDep("TBRelingKleur","TBFrontKleur",WSLn.ItemRK),1), 1:"") @@ -138,6 +138,7 @@ Do ..BTValues.SetAt(DSCode ,"TBDesignCode") Do ..BTValues.SetAt(WSLn.ItemLT ,"LadeCode") Do bfwBTItemsLadeCode(WSLn.ItemLT) + Set Klas=..BTValues.GetAt("TBKlasse") Do ..BTValues.SetAt($S(..BTValues.GetAt("TBLadeType")="B":"Z", 1:WSLn.ItemFB) ,"TBFBevestiging") Do ..BTValues.SetAt(WSLn.ItemCB ,"TBCBreedte") Do ..BTValues.SetAt(WSLn.ItemWD ,"TBWandDikte") @@ -153,40 +154,46 @@ Do ..BTValues.SetAt(KRug ,"TBRugKleur") Do ..BTValues.SetAt(WSLn.ItemBM ,"TBBlumotion") - /* - ; Temporary work-around for GlazenBoxside, until the web-wizard also uses ItemKV (switched off by WimV on 30/03/2009) - If 1 && (WSLn.ItemBX?1(1"BZ",1"BF",1"BC")) Do - . New KVul - . Set KVul=$Case(WSLn.ItemBX, "BZ":"FZ", "BF":"FG", "BC":"FC", :ERROR) - . Do ..BTValues.SetAt("BG" ,"TBBoxSide") - . Do ..BTValues.SetAt(KBxs ,"TBBoxsideKleur") - . Do ..BTValues.SetAt(KVul ,"TBVulstukKleur") - Else Do - . Do ..BTValues.SetAt(WSLn.ItemBX ,"TBBoxSide") - . Do ..BTValues.SetAt(WSLn.ItemKX ,"TBBoxsideKleur") - . Do ..BTValues.SetAt(WSLn.ItemKV ,"TBVulstukKleur") - */ Do ..BTValues.SetAt(WSLn.ItemBX ,"TBBoxSide") Do ..BTValues.SetAt(KBxs ,"TBBoxsideKleur") ; WSLn.ItemKX Do ..BTValues.SetAt(WSLn.ItemKV ,"TBVulstukKleur") Do ..BTValues.SetAt(WSLn.ItemSB ,"TBStabilisator") Do ..BTValues.SetAt("Z" ,"TBStalenRug") - Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",1) ,"TBSPZijkant") + Set SPZKpiece1=$P(WSLn.ItemSPZK,";",1) + Do ..BTValues.SetAt(SPZKpiece1 ,"TBSPZijkant") - #define SPZkOpMaat(%v) (%v?1(1"M".E,1"SI".E)) - - If $$$SPZkOpMaat($P(WSLn.ItemSPZK,";",1)) Do ; Spoelbak zijkant op maat - . Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2) ,"SpoelbakZkLi") - . Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3) ,"SpoelbakZkRe") - . Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakZkMi") - . ; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct() - + If Klas=##class(DOM.PM.enu.TBXKlas).SifonTypeBlum() { + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2) ,"SpoelbakZkLi") + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3) ,"SpoelbakZkRe") + Set AantalUitsparingen=..SpoelbakUitsparingen(WSLn.ItemLT,SPZKpiece1,Klas) + If AantalUitsparingen>1 { + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakZkMi") + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",5) ,"SpoelbakBreedte1") + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",6) ,"SpoelbakBreedte2") + } + Else { + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakBreedte1") + } + } + ElseIf (Klas=##class(DOM.PM.enu.TBXKlas).Spoelbak())||(Klas=##class(DOM.PM.enu.TBXKlas).Sifon()) { + #define SPZkOpMaat(%v) (%v?1(1"M".E,1"SI".E)) + + If $$$SPZkOpMaat(SPZKpiece1) { ; Spoelbak zijkant op maat + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2) ,"SpoelbakZkLi") + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3) ,"SpoelbakZkRe") + Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakZkMi") + ; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct() + } + } + /* + ; javascript:UpdateSPZK("MM;181;236;200;129;129"); ;d WLIP^vhDBG(97,WSLn.ItemSPZK_" SPZK LI: "_..BTValues.GetAt("SpoelbakZkLi")_" SPZK RE: "_..BTValues.GetAt("SpoelbakZkRe")) - + */ + If ($L(WSLn.ItemVPK)) Do . Do ..BTValues.SetAt(WSLn.ItemVPK ,"Verpakking") - . Do:(##class(BL.PR.GA.TandemBox).NietMeeToepassen(WSLn.ItemVPK)="True")||(WSLn.ItemVPK="P") bfwUpdateNMItemsBulk ; Do:(WSLn.ItemVPK?1(1"C",1"P",1"Z",1"A",1"Y")) bfwUpdateNMItemsBulk + . Do:(##class(BL.PR.GA.TandemBox).NietMeeToepassen(WSLn.ItemVPK)="True")||(WSLn.ItemVPK="xxP") bfwUpdateNMItemsBulk ; Do:(WSLn.ItemVPK?1(1"C",1"P",1"Z",1"A",1"Y")) bfwUpdateNMItemsBulk Do:($L(WSLn.ItemBGRP) ) ..BTValues.SetAt(WSLn.ItemBGRP ,"TBBinnenGreep") Do:('$L(WSLn.ItemBGRP)) ..BTValues.SetAt($S(WSLn.ItemLT?1(1"D/Z",1"C/Z"):"H",1:""),"TBBinnenGreep") @@ -339,7 +346,7 @@ // MargeMBHO=1 , berekening via LijstPrijs --> geen #define MargeMBHO 1 // MargeSFS= ? , berekening via ??? (modified by WimV on 28/02/2011, previous value: 2.8 --> change to MargeSFS active from 01/03/2011) -#define MargeSFS 2.525 +#define MargeSFS 2.33 New KPrijsVH,LPrs,VKPrs,VerwMarge,KLNrPrs,PrPiece,GenPRNr,IsBeursUser,IsAnonymousUser New D,Q,U Set Q="K",D="\",U=";" @@ -364,7 +371,7 @@ . // Else : gewone user --> standaard prijsberekening (zowel AKPrijs als VKPrijs bijhouden) . Set KPrijsVH=$G(Prod.Cumuls("KPrijs")) . Set KLNrPrs=$S(sDomVERW'="VHEPN":sDomKLNr, (WS.KLNummer?1.N)&&(WS.KLNummer>0):WS.KLNummer, 1:4645) - . Set AKPrs=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)),"\",1) + . Set AKPrs=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",1) . Set VKPrs=$$bfwCalcVKPrijsKlant(KPrijsVH,AKPrs) Else Do . Set VKPrs="ERROR" @@ -396,7 +403,7 @@ ;d WL^vhDBG("Show Cumuls") ;d WL^vhDBG($$ArrayToText^vhLib("Cumuls(""KPrijs"")",Prod,"Cumuls")) Set PrijsCP=$G(Prod.Cumuls("KPrijs",2,1,5))+$G(Prod.Cumuls("KPrijs",2,1,6)) ; CP links + CP rechts - Set AKPrsCP=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(PrijsCP,0,2)),"\",1) + Set AKPrsCP=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(PrijsCP,0,2)),"\",1) Set VKPrijsCP=$$bfwCalcVKPrijsKlant(PrijsCP,AKPrsCP) If VKPrijsCP>0 { d WL^vhDBG("KPrijs CP : "_VKPrijsCP_" (is berekend via Cumuls)") @@ -424,14 +431,14 @@ Quit:(sDomVERW="VHEPN") AKPrs // BENELUX handels zonder korting, i.e. zonder klantinfo (dus Anonymous) - Quit:(sDomVERW="DUPO" ) $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs) - Quit:(sDomVERW="HFLE" ) $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs) - Quit:(sDomVERW="HELMY") $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs) + Quit:(sDomVERW="DUPO" ) $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs) + Quit:(sDomVERW="HFLE" ) $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs) + Quit:(sDomVERW="HELMY") $P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",$$$PcLijstPrs) // BENELUX handels met korting, i.e. met klantinfo New HandelVKPrijs,KPrijsData,HandelVKPrijs If (sDomVERW="MBHO")||(sDomVERW="HFLB" ) { - Set KPrijsData=$$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,,$J(KPrijsVH,0,2)) + Set KPrijsData=$$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)) Set HandelVKPrijs=$J($$$HandelLijstPrijs(KPrijsData)*KLReductie,0,2) // Als de "HandelVKPrijs met KLKorting" kleiner dan de HandelAKPrijs, dan wordt de KLKorting volledig ongedaan gemaakt. If HandelVKPrijs<$$$HandelAankoopPrijs(KPrijsData) { Set HandelVKPrijs=$$$HandelLijstPrijs(KPrijsData) }