Index: DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml =================================================================== diff -u -r62802 -r64369 --- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml (.../KorttekstBepaler.cls.xml) (revision 62802) +++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml (.../KorttekstBepaler.cls.xml) (revision 64369) @@ -52,8 +52,12 @@ Set LadeHoogteCode = ..Enum.LadeHoogte.N } ElseIf (IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) { Set LadeHoogteCode = ..Enum.LadeHoogte.M + } ElseIf (IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.K) { + Set LadeHoogteCode = ..Enum.LadeHoogte.K } ElseIf (IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.E) { Set LadeHoogteCode = ..Enum.LadeHoogte.E + } ElseIf (IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.F) { + Set LadeHoogteCode = ..Enum.LadeHoogte.F } Quit LadeHoogteCode @@ -73,6 +77,10 @@ Set DesignCode = "S" } + If $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig()) { + Set DesignCode = "!" + } + Quit DesignCode ]]> @@ -86,8 +94,14 @@ If (IngegevenKenmerken.IsBinnenlade = $$$True) { Set FrontBevestigingCode = "Z" + } ElseIf (IngegevenKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Drevel) { + Set FrontBevestigingCode = "D" + } ElseIf (IngegevenKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Expando) { + Set FrontBevestigingCode = "E" } ElseIf (IngegevenKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Inserta) { Set FrontBevestigingCode = "I" + } ElseIf (IngegevenKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef) { + Set FrontBevestigingCode = "S" } Quit FrontBevestigingCode @@ -112,9 +126,13 @@ @@ -131,6 +149,8 @@ Set BuitenKleurCode = "IG" } ElseIf (IngegevenKenmerken.LadeKleur = ..Enum.LadeKleur.Oriongrijs) { Set BuitenKleurCode = "OG" + } ElseIf (IngegevenKenmerken.LadeKleur = ..Enum.LadeKleur.Zijdewit) { + Set BuitenKleurCode = "SW" } Quit BuitenKleurCode @@ -148,6 +168,10 @@ Set BinnenKleurCode = "IG" } ElseIf (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Oriongrijs) { Set BinnenKleurCode = "OG" + } ElseIf (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Wit) { + Set BinnenKleurCode = "WI" + } ElseIf (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Zwart) { + Set BinnenKleurCode = "S" } Quit BinnenKleurCode