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