Index: BL/PR/GA/TB/tmpDev2.mac.rou =================================================================== diff -u -r51490 -r51491 --- BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 51490) +++ BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 51491) @@ -110,110 +110,110 @@ ; Maakt een GAData.Product object voor WSLn If (WSLn.Exclude=1) Do Quit "" Else If WSLn.ItemSTDL=$$$tbxCodeStdLade Do Quit $$$tbxCodeStdLade - Set ..Qty=WSLn.Qty + Set blTBox.Qty=WSLn.Qty Set:(WSLn.ItemDS="") WSLn.ItemDS=OrderDesignID Set WSLn.GAMeta="TBX" - Do ..ResetTB() - Do bfwBTItemsFromWSLijn + Do blTBox.ResetTB() + Do bfwBTItemsFromWSLijn(WSLn,blTBox) ; Data van blTBox naar GAData.Product New Prod Set Prod=##class(Prod.GAData.Product).BuildFromTemplate(Templ.%Id()) Do Prod.TemplateTmpInit() Do Prod.AutosFromTemplate(,"FILL") Do:(KLNrProd) Prod.KlantSetObjectId(KLNrProd) - Do ..BTValues.SetAt(Prod.TemplateCode,"TemplateCode") + Do blTBox.BTValues.SetAt(Prod.TemplateCode,"TemplateCode") Do bfwSetNietMeeItems(pdlNietMee) Do bfwFBevestNML Do bfwResetNMItemsBinnenlade ; Reling/boxside worden sowieso gemonteerd op een binnenlade - Do ..BTValuesToProduct(Prod) - Do ..BWValuesToProduct(Prod) - Do ..KMValuesToProduct(Prod,"TBR") + Do blTBox.BTValuesToProduct(Prod) + Do blTBox.BWValuesToProduct(Prod) + Do blTBox.KMValuesToProduct(Prod,"TBR") Quit Prod -bfwBTItemsFromWSLijn +bfwBTItemsFromWSLijn(WSLn,blTBox) New lbDSCodes,DSCode,KFront,KRug,KBxs,Klas,SPZKpiece1,AantalUitsparingen ;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:"") - Set KRug =$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBRugKleur",WSLn.ItemDS),1), 1:"") + Set DSCode=$S($L(WSLn.ItemDS):$LG(blTBox.BTDep("TBDesign","TBDesignCode",WSLn.ItemDS),1), 1:"") + Set KFront=$S($L(WSLn.ItemRK):$LG(blTBox.BTDep("TBRelingKleur","TBFrontKleur",WSLn.ItemRK),1), 1:"") + Set KRug =$S($L(WSLn.ItemDS):$LG(blTBox.BTDep("TBDesign","TBRugKleur",WSLn.ItemDS),1), 1:"") If WSLn.ItemKX="" Do - . Set KBxs=$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBBoxsideKleur",WSLn.ItemDS),1), 1:"") + . Set KBxs=$S($L(WSLn.ItemDS):$LG(blTBox.BTDep("TBDesign","TBBoxsideKleur",WSLn.ItemDS),1), 1:"") . Set WSLn.ItemKX=KBxs ; Set to WSLijn Else Do . Set KBxs=WSLn.ItemKX - Do ..BTValues.SetAt(WSLn.ItemDS ,"TBDesign") - Do ..BTValues.SetAt(DSCode ,"TBDesignCode") - Do ..BTValues.SetAt(WSLn.ItemLT ,"LadeCode") + Do blTBox.BTValues.SetAt(WSLn.ItemDS ,"TBDesign") + Do blTBox.BTValues.SetAt(DSCode ,"TBDesignCode") + Do blTBox.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") - Do ..BTValues.SetAt($S(WSLn.ItemOPVL["L":25, 1:0) ,"OpvullijstLi") - Do ..BTValues.SetAt($S(WSLn.ItemOPVL["R":25, 1:0) ,"OpvullijstRe") - Do ..BTValues.SetAt(..DFLMinTolerantie(WSLn.ItemWD) ,"MinTolerantie") ; $S(+WSLn.ItemWD=0:0, 1:1) - Do ..BTValues.SetAt(WSLn.ItemLD ,"TBLadeDiepte") - Do ..BTValues.SetAt(WSLn.ItemDK ,"TBDraagKracht") - Do ..BTValues.SetAt(WSLn.ItemKB ,"TBBodemKleur") - Do ..BTValues.SetAt(WSLn.ItemRK ,"TBRelingKleur") - Do ..BTValues.SetAt(KFront ,"TBFrontKleur") - Do ..BTValues.SetAt($S(WSLn.ItemKL="BE":"BA", 1:WSLn.ItemKL) ,"TBLadeKleur") - Do ..BTValues.SetAt(KRug ,"TBRugKleur") - Do ..BTValues.SetAt(WSLn.ItemBM ,"TBBlumotion") + Set Klas=blTBox.BTValues.GetAt("TBKlasse") + Do blTBox.BTValues.SetAt($S(blTBox.BTValues.GetAt("TBLadeType")="B":"Z", 1:WSLn.ItemFB) ,"TBFBevestiging") + Do blTBox.BTValues.SetAt(WSLn.ItemCB ,"TBCBreedte") + Do blTBox.BTValues.SetAt(WSLn.ItemWD ,"TBWandDikte") + Do blTBox.BTValues.SetAt($S(WSLn.ItemOPVL["L":25, 1:0) ,"OpvullijstLi") + Do blTBox.BTValues.SetAt($S(WSLn.ItemOPVL["R":25, 1:0) ,"OpvullijstRe") + Do blTBox.BTValues.SetAt(blTBox.DFLMinTolerantie(WSLn.ItemWD) ,"MinTolerantie") ; $S(+WSLn.ItemWD=0:0, 1:1) + Do blTBox.BTValues.SetAt(WSLn.ItemLD ,"TBLadeDiepte") + Do blTBox.BTValues.SetAt(WSLn.ItemDK ,"TBDraagKracht") + Do blTBox.BTValues.SetAt(WSLn.ItemKB ,"TBBodemKleur") + Do blTBox.BTValues.SetAt(WSLn.ItemRK ,"TBRelingKleur") + Do blTBox.BTValues.SetAt(KFront ,"TBFrontKleur") + Do blTBox.BTValues.SetAt($S(WSLn.ItemKL="BE":"BA", 1:WSLn.ItemKL) ,"TBLadeKleur") + Do blTBox.BTValues.SetAt(KRug ,"TBRugKleur") + Do blTBox.BTValues.SetAt(WSLn.ItemBM ,"TBBlumotion") - Do ..BTValues.SetAt(WSLn.ItemBX ,"TBBoxSide") - Do ..BTValues.SetAt(KBxs ,"TBBoxsideKleur") ; WSLn.ItemKX - Do ..BTValues.SetAt(WSLn.ItemKV ,"TBVulstukKleur") - Do ..BTValues.SetAt(WSLn.ItemKLROPVL ,"TBOpvullijstKleur") + Do blTBox.BTValues.SetAt(WSLn.ItemBX ,"TBBoxSide") + Do blTBox.BTValues.SetAt(KBxs ,"TBBoxsideKleur") ; WSLn.ItemKX + Do blTBox.BTValues.SetAt(WSLn.ItemKV ,"TBVulstukKleur") + Do blTBox.BTValues.SetAt(WSLn.ItemKLROPVL ,"TBOpvullijstKleur") - Do ..BTValues.SetAt(WSLn.ItemSB ,"TBStabilisator") - Do ..BTValues.SetAt(WSLn.ItemRSTL ,"TBRugStukVerlaagd") - Do ..BTValues.SetAt("Z" ,"TBStalenRug") + Do blTBox.BTValues.SetAt(WSLn.ItemSB ,"TBStabilisator") + Do blTBox.BTValues.SetAt(WSLn.ItemRSTL ,"TBRugStukVerlaagd") + Do blTBox.BTValues.SetAt("Z" ,"TBStalenRug") Set SPZKpiece1=$P(WSLn.ItemSPZK,";",1) - Do ..BTValues.SetAt(SPZKpiece1 ,"TBSPZijkant") + Do blTBox.BTValues.SetAt(SPZKpiece1 ,"TBSPZijkant") If ##class(TECH.StringUtils).Equals(Klas, ##class(DOM.PM.enu.TBXToepassing).SifonType2(),##class(DOM.PM.enu.TBXToepassing).SifonType3()) { - Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2) ,"SpoelbakZkLi") - Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3) ,"SpoelbakZkRe") - Set AantalUitsparingen=..SpoelbakUitsparingen(WSLn.ItemLT,SPZKpiece1,Klas) + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",2) ,"SpoelbakZkLi") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",3) ,"SpoelbakZkRe") + Set AantalUitsparingen=blTBox.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") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakZkMi") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",5) ,"SpoelbakBreedte1") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",6) ,"SpoelbakBreedte2") } Else { - Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakBreedte1") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakBreedte1") } } ElseIf Klas=##class(DOM.PM.enu.TBXToepassing).Spoelbak() { #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") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",2) ,"SpoelbakZkLi") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",3) ,"SpoelbakZkRe") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakZkMi") ; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct() } } ElseIf Klas=##class(DOM.PM.enu.TBXToepassing).SifonType1() { - Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2) ,"SpoelbakZkLi") - Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3) ,"SpoelbakZkRe") - Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakZkMi") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",2) ,"SpoelbakZkLi") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",3) ,"SpoelbakZkRe") + Do blTBox.BTValues.SetAt($P(WSLn.ItemSPZK,";",4) ,"SpoelbakZkMi") Set SPBR=##class(BL.PR.GA.TandemBox).CalcBreedteSpoelbak(SPZKpiece1,0,0,DSCode) - Do ..BTValues.SetAt(SPBR ,"SpoelbakBreedte") ; deze moet ingevuld zijn voor dubbele sifonlade + Do blTBox.BTValues.SetAt(SPBR ,"SpoelbakBreedte") ; deze moet ingevuld zijn voor dubbele sifonlade } If ($L(WSLn.ItemVPK)) Do - . Do ..BTValues.SetAt(WSLn.ItemVPK ,"Verpakking") + . Do blTBox.BTValues.SetAt(WSLn.ItemVPK ,"Verpakking") . 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") + Do:($L(WSLn.ItemBGRP) ) blTBox.BTValues.SetAt(WSLn.ItemBGRP ,"TBBinnenGreep") + Do:('$L(WSLn.ItemBGRP)) blTBox.BTValues.SetAt($S(WSLn.ItemLT?1(1"D/Z",1"C/Z"):"H",1:""),"TBBinnenGreep") - Do ..BTValues.SetAt($S(WSLn.ItemFS="":"A", 1:WSLn.ItemFS) ,"TBFrontSteun") - Do ..BTValues.SetAt($S(WSLn.ItemASM="":"0", 1:WSLn.ItemASM) ,"TBMat") - Do ..BTValues.SetAt(WSLn.ItemDWV ,"TBDwarsVerdeling") - Do ..BTValues.SetAt(WSLn.ItemOLP ,"OrgaluxProduct") + Do blTBox.BTValues.SetAt($S(WSLn.ItemFS="":"A", 1:WSLn.ItemFS) ,"TBFrontSteun") + Do blTBox.BTValues.SetAt($S(WSLn.ItemASM="":"0", 1:WSLn.ItemASM) ,"TBMat") + Do blTBox.BTValues.SetAt(WSLn.ItemDWV ,"TBDwarsVerdeling") + Do blTBox.BTValues.SetAt(WSLn.ItemOLP ,"OrgaluxProduct") Do bfwExtrasFromGlobal(DSCode) Quit bfwBTItemsLadeCode(LCodeID) @@ -224,7 +224,7 @@ Quit:('LCode) Set Key="" For Set TBVal=LCode.TBKenm.GetNext(.Key) Quit:(Key="") Do - . Do ..BTValues.SetAt(TBVal,Key) + . Do blTBox.BTValues.SetAt(TBVal,Key) Set LCode="" ; Close Quit bfwSetNietMeeItems(pdlNietMee) ; Niet Meeleveren is gedefinieerd op Hoofding-niveau en niet op Lijn-niveau @@ -245,7 +245,7 @@ Set:(pdlNietMee["NMOVL" ) lbNietMee=lbNietMee_$LB("NMOpvullijst") Set:(pdlNietMee["NMSPDL") lbNietMee=lbNietMee_$LB("NMSPDwarsLatjes") Set:(pdlNietMee["NMASM" ) lbNietMee=lbNietMee_$LB("NMAntislipmat") - For i=1:1:$LL(lbNietMee) Do:(1) ..BTValues.SetAt(1,$LI(lbNietMee,i)) + For i=1:1:$LL(lbNietMee) Do:(1) blTBox.BTValues.SetAt(1,$LI(lbNietMee,i)) ; WEL Meeleveren ("WM...") New lbWelMee @@ -264,33 +264,33 @@ Set:(pdlNietMee["WMOVL" ) lbWelMee=lbWelMee_$LB("NMOpvullijst") Set:(pdlNietMee["WMSPDL") lbWelMee=lbWelMee_$LB("NMSPDwarsLatjes") Set:(pdlNietMee["WMASM" ) lbWelMee=lbWelMee_$LB("NMAntislipmat") - For i=1:1:$LL(lbWelMee) Do:(1) ..BTValues.SetAt(0,$LI(lbWelMee,i)) + For i=1:1:$LL(lbWelMee) Do:(1) blTBox.BTValues.SetAt(0,$LI(lbWelMee,i)) Quit bfwFBevestNML ; FrontBevestiging Niet Meeleveren bij Lade ZONDER FB (excl. Binnenlade) ! - If (..BTValues.GetAt("TBFBevestiging")="NM") || ((..BTValues.GetAt("TBFBevestiging")="Z")&&(..BTValues.GetAt("TBLadeType")'="B")) Do - . Do ..BTValues.SetAt("S","TBFBevestiging") - . Do ..BTValues.SetAt(1,"NMFBevestiging") + If (blTBox.BTValues.GetAt("TBFBevestiging")="NM") || ((blTBox.BTValues.GetAt("TBFBevestiging")="Z")&&(blTBox.BTValues.GetAt("TBLadeType")'="B")) Do + . Do blTBox.BTValues.SetAt("S","TBFBevestiging") + . Do blTBox.BTValues.SetAt(1,"NMFBevestiging") Quit bfwUpdateNMItemsBulk New Key,dummy Set Key="NM" - For Set Key=$O(..LookUp(Key)) Quit:(Key'?1"NM".E) Do + For Set Key=$O(blTBox.LookUp(Key)) Quit:(Key'?1"NM".E) Do . Quit:(Key?1(1"NMBlumoBehuizing",1"NMAntislipmat")) - . Do:('..BTValues.IsDefined(Key)) ..BTValues.SetAt(1,Key) + . Do:('blTBox.BTValues.IsDefined(Key)) blTBox.BTValues.SetAt(1,Key) ;Do bfwResetNMItemsBinnenlade // de oproep is nu verhuisd naar bfwProductFromWSLijn Quit bfwResetNMItemsBinnenlade ; Binnenlade kan NIET gemonteerd worden zonder Reling, dus NMZijReling terug op 0 zetten - If (..BTValues.GetAt("TBLadeType")="B")&&(..BTValues.GetAt("TBBoxSide")'="ZR") Do ; binnenlade met reling/boxside - . Do ..BTValues.SetAt(0,"NMZijReling") - . Do ..BTValues.SetAt(0,"NMBoxSide") + If (blTBox.BTValues.GetAt("TBLadeType")="B")&&(blTBox.BTValues.GetAt("TBBoxSide")'="ZR") Do ; binnenlade met reling/boxside + . Do blTBox.BTValues.SetAt(0,"NMZijReling") + . Do blTBox.BTValues.SetAt(0,"NMBoxSide") Quit bfwExtrasFromGlobal(DSCode) #define KLDataExtra(%v) $$$GlobalKLData(0,sDomVERW,KLNrProd,%v) #define DelimByDC(%v) $P(%v,";",$S(DSCode="I":2,1:1)) Quit:(sDomVERW'="VHEPN") ; Only for safety - Do:($$$DelimByDC($G($$$KLDataExtra("NMAK")))=1) ..BTValues.SetAt(1,"NMAfdekkap") ; KLNrProd <--> WS.KLNummer - Do:($G($$$GlobalKLData(0,sDomVERW,KLNrProd,"SR"))?1"V") ..BTValues.SetAt($$$GlobalKLData(0,sDomVERW,KLNrProd,"SR"),"TBStalenRug") + Do:($$$DelimByDC($G($$$KLDataExtra("NMAK")))=1) blTBox.BTValues.SetAt(1,"NMAfdekkap") ; KLNrProd <--> WS.KLNummer + Do:($G($$$GlobalKLData(0,sDomVERW,KLNrProd,"SR"))?1"V") blTBox.BTValues.SetAt($$$GlobalKLData(0,sDomVERW,KLNrProd,"SR"),"TBStalenRug") Quit bfwCalcProductsInit