Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml
===================================================================
diff -u -r67569 -r67754
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml (.../DomNaarDotnet.cls.xml) (revision 67569)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml (.../DomNaarDotnet.cls.xml) (revision 67754)
@@ -122,7 +122,7 @@
Set DomKenmerken = AppsNaarDomConvertor.GeefIngegevenKenmerken(AppsKenmerken)
}
- If ((##class(TECH.StringUtils).Contains(DomKenmerken.Antislipmat, "ZW.AF", "WI.AF", "AN.AF", "ZW.AZ", "AN.AZ")) && $$$Not(..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(DomKenmerken)) && $$$Not(##class(TECH.ListUtils).Contains(TBXKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Antislipmat()))) {
+ If ((##class(TECH.StringUtils).Contains(DomKenmerken.Antislipmat, "ZW.AF", "WI.AF", "AN.AF", "ZW.AZ", "AN.AZ", "BS.CF", "QZ.CF")) && $$$Not(..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(DomKenmerken)) && $$$Not(##class(TECH.ListUtils).Contains(TBXKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Antislipmat()))) {
#dim OngekoppeldeMat As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
If DomKenmerken.Antislipmat = "ZW.AF" {
@@ -140,6 +140,12 @@
} ElseIf DomKenmerken.Antislipmat = "AN.AZ" {
Set OngekoppeldeMat.Kleur = ##class(DOM.PM.enu.MATKleur).FlockAntraciet()
Set OngekoppeldeMat.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Flock()
+ } ElseIf DomKenmerken.Antislipmat = "BS.CF" {
+ Set OngekoppeldeMat.Kleur = ##class(DOM.PM.enu.MATKleur).BisterBruinLichtDonker()
+ Set OngekoppeldeMat.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+ } ElseIf DomKenmerken.Antislipmat = "QZ.CF" {
+ Set OngekoppeldeMat.Kleur = ##class(DOM.PM.enu.MATKleur).QuartzZilverBruin()
+ Set OngekoppeldeMat.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
}
Set OngekoppeldeMat.Type = ##class(DOM.PM.enu.MatType).Basis()
Index: BL/PPS/TBX/impl/TBXMatToEnuMatConverter.cls.xml
===================================================================
diff -u -r61091 -r67754
--- BL/PPS/TBX/impl/TBXMatToEnuMatConverter.cls.xml (.../TBXMatToEnuMatConverter.cls.xml) (revision 61091)
+++ BL/PPS/TBX/impl/TBXMatToEnuMatConverter.cls.xml (.../TBXMatToEnuMatConverter.cls.xml) (revision 67754)
@@ -18,6 +18,8 @@
Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).AntracietAgoFiber()) EnumMatKleur.AntiSlipFiberAntraciet
Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).ZwartFlock()) EnumMatKleur.FlockZwart
Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).AntracietFlock()) EnumMatKleur.FlockAntraciet
+ Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).QuartzVinyl()) EnumMatKleur.QuartzZilverBruin
+ Quit:(TBXMat = ##class(DOM.PM.enu.TBXAntislipmat).BruinVinyl()) EnumMatKleur.BisterBruinLichtDonker
// Wolvilt
; Zie svn rev. 50128 (+revert)
@@ -38,6 +40,8 @@
Set Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
} ElseIf (TBXMat [ ".AZ") {
Set Materiaal = ##class(DOM.PM.enu.MATMateriaal).Flock()
+ } ElseIf (TBXMat [ ".CF") {
+ Set Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
} Else {
Set Materiaal = ##class(DOM.PM.enu.MATMateriaal).Antislip()
}
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r67336 -r67754
--- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 67336)
+++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 67754)
@@ -1242,7 +1242,7 @@
#dim ASM As %String = $S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
quit:0[ASM ""
- #dim Dim,IsSR,KLAS,KPRNr,LD,MatOpties,Opmerking,Rec,Type As %CacheString
+ #dim Dim,IsSR,KLAS,KPRNr,LD,IB,MatOpties,Opmerking,Rec,Type As %CacheString
Set KPRNr=$P($G(^PRBS("BS",PRNr,"PRASM.001")),"\",1)
If KPRNr Do
@@ -1265,7 +1265,7 @@
. . . . Set Opmerking=""
Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
-
+ Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; InterneBreedte
Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug
Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; Klasse (Spoelbak, Lade, ...)
@@ -1298,18 +1298,19 @@
Set MattenUitvoeringInfo.Breedte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Breedte")
Set MattenUitvoeringInfo.Diepte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Diepte")
- Set MattenUitvoeringInfo.BewerkingBreedte = Dim
+ Set MattenUitvoeringInfo.BewerkingBreedte = IB-85
Set MattenUitvoeringInfo.BewerkingDiepte = LD-27
- #dim MateriaalId As %String = ..TBXMatToEnuMatConverter.GeefMateriaal($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur")))
+ #dim MateriaalId As %String = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Materiaal")
+
Set MattenUitvoeringInfo.MateriaalId = MateriaalId
If MateriaalId = ##class(DOM.PM.enu.MATMateriaal).Antislip() {
Set MattenUitvoeringInfo.Materiaal = "AGO"
} Else{
Set MattenUitvoeringInfo.Materiaal = ##class(DOM.PM.enu.MATMateriaal).LogicalToDisplay(MateriaalId)
}
- #dim KleurId = ..TBXMatToEnuMatConverter.GeefKleur($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur")))
+ #dim KleurId = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Kleur")
Set MattenUitvoeringInfo.KleurId = KleurId
Set MattenUitvoeringInfo.Kleur = ##class(DOM.PM.enu.MATKleur).LogicalToDisplay(KleurId)
Index: DOM/PM/enu/TBXAntislipmat.cls.xml
===================================================================
diff -u -r57679 -r67754
--- DOM/PM/enu/TBXAntislipmat.cls.xml (.../TBXAntislipmat.cls.xml) (revision 57679)
+++ DOM/PM/enu/TBXAntislipmat.cls.xml (.../TBXAntislipmat.cls.xml) (revision 67754)
@@ -6,11 +6,11 @@
%String
-;0;G;Z;R;ZW.AF;WI.AF;LG.AF;AN.AF;ZW.AZ;AN.AZ
+;0;G;Z;R;ZW.AF;WI.AF;LG.AF;AN.AF;ZW.AZ;AN.AZ;QZ.CF;BS.CF
-;0;G;Z;R;ZW.AF;WI.AF;LG.AF;AN.AF;ZW.AZ;AN.AZ
+;0;G;Z;R;ZW.AF;WI.AF;LG.AF;AN.AF;ZW.AZ;AN.AZ;QZ.CF;BS.CF
@@ -83,6 +83,20 @@
]]>
+
+1
+DOM.PM.enu.TBXAntislipmat
+
+
+
+
+1
+DOM.PM.enu.TBXAntislipmat
+
+
+
MatKleur:DOM.PM.enu.MATKleur
1
%Boolean
-
Index: APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter.cls.xml
===================================================================
diff -u -r58148 -r67754
--- APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter.cls.xml (.../TbxMatCodeConverter.cls.xml) (revision 58148)
+++ APPS/EDI/common/impl/LegacyConverter/TbxMatCodeConverter.cls.xml (.../TbxMatCodeConverter.cls.xml) (revision 67754)
@@ -31,6 +31,14 @@
Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).FlockAntraciet()
Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).Flock()
Set TBXProduct.HeeftMat = $$$True
+ } ElseIf LegacyMatCode = "QZ.CF" {
+ Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).QuartzZilverBruin()
+ Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+ Set TBXProduct.HeeftMat = $$$True
+ } ElseIf LegacyMatCode = "BS.CF" {
+ Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).BisterBruinLichtDonker()
+ Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
+ Set TBXProduct.HeeftMat = $$$True
} ElseIf LegacyMatCode = "G" {
Set TBXProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).Antraciet()
Set TBXProduct.MatMateriaal = ##class(DOM.PM.enu.MATMateriaal).Antislip()
@@ -77,6 +85,12 @@
ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).FlockAntraciet() {
Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).AntracietFlock()
}
+ ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).QuartzZilverBruin() {
+ Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).QuartzVinyl()
+ }
+ ElseIf Product.MatKleur = ##class(DOM.PM.enu.MATKleur).BisterBruinLichtDonker() {
+ Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).BruinVinyl()
+ }
Else {
Set LegacyMatCode = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
}