Index: APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml =================================================================== diff -u -r42213 -r42271 --- APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml (.../Opdracht.cls.xml) (revision 42213) +++ APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml (.../Opdracht.cls.xml) (revision 42271) @@ -179,7 +179,7 @@ } ; Klant DeDecker en Informa maakt gebruik van een verlaagde rug van 3,5cm - If ##class(TECH.StringUtils).Equals(dtoOpdracht.Rug.ProductNr, ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).GeefProductIDRugX35(), ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).GeefProductIDRugX35DG()) + If ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).IsProductRugX35(dtoOpdracht.Rug.ProductNr) { Set dtoOpdracht.Opmerking1="R:OPGELET" Set dtoOpdracht.Opmerking2="B:Speciale rug 3,5cm" Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml =================================================================== diff -u -r42212 -r42271 --- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 42212) +++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 42271) @@ -668,7 +668,7 @@ #dim RugHoogte As DOM.PM.enu.TBXRugHoogte = "" #dim RugProductID = $P($G(^PRBS("BS",..GeefPRNr(),..GeefBouwsteenNaamVoorHoutenRug())),"\",1) - if ##class(TECH.StringUtils).Equals(RugProductID , ..GeefProductIDRugX35() , ..GeefProductIDRugX35DG()) { + if ..IsProductRugX35(RugProductID) { Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).X35() } Elseif (RugProductID = ..GeefProductIDRugX40()) { Set RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).X40() @@ -694,6 +694,14 @@ ]]> + +1 +ProductId:%String +%Boolean + + + SPF.RUGX35 R-STR2840 LGDG