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() }