Index: UI/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r9219 -r13007 --- UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 9219) +++ UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 13007) @@ -7,246 +7,6 @@ %Library.TMFormClass 0 - -cache -0 -MApplication -document -literal - - - - -initvalue:%String -cache -0 -MApplication -document -literal - - - Minimaal toegelaten Interne Breedte voor een lade met Dubbele Blumotion (in mm) @@ -4436,7 +4196,7 @@ If (LadeCode?1(1"DLS2"))&&(..cboSPZijkant.SelectedGetKey()'?1(1"SA",1"M")) Do Quit 0 . Set msg="De spoelbak zijstukken voor een "_LadeCode_"-lade moet ""SA"" of ""M"" zijn." ; Else - If (LadeCode?1(1"DLS2"))&&(..cboSPZijkant.SelectedGetKey()="M")&&(oBTVal.GetAt("TBRugKleur")'?1(1"MG")) Do Quit 0 + If (LadeCode?1(1"DLS2"))&&(..cboSPZijkant.SelectedGetKey()="M")&&(oBTVal.GetAt("TBRugKleur")'?1(1"MG",1"NI")) Do Quit 0 . Set msg="De spoelbaklade "_LadeCode_" met zijstukken op maat (M) is enkel beschikbaar in kleur ""MG"" (metalic grijs)." ; Else If (LadeCode?1(1"DLS2"))&&(..cboSPZijkant.SelectedGetKey()="M")&&(oBTVal.GetAt("TBRugStukVerlaagd")'?1(1"M",1"")) Do Quit 0 @@ -4682,6 +4442,205 @@ ]]> + +cache +0 +MApplication +document +literal + + + Klasse cache @@ -4693,6 +4652,47 @@ ]]> + +initvalue:%String +cache +0 +MApplication +document +literal + + + Args:%String cache