Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r13610 -r18198
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 13610)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 18198)
@@ -634,7 +634,10 @@
 <FormalSpec>WSLn:WS.TBX.EM.OrderLijn</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Float</ReturnType>
-<Implementation><![CDATA[	Quit ..CalcBreedteIntern(WSLn.ItemCB, WSLn.ItemWD, $S(WSLn.ItemOPVL["L":25, 1:0), $S(WSLn.ItemOPVL["R":25, 1:0), ..DFLMinTolerantie(WSLn.ItemWD) )
+<Implementation><![CDATA[
+	#define OpvullijstDikte   ..GeefOpvullijstDikte(##class(DOM.PM.enu.TBXKlas).Lade())
+
+	Quit ..CalcBreedteIntern(WSLn.ItemCB, WSLn.ItemWD, $S(WSLn.ItemOPVL["L":$$$OpvullijstDikte, 1:0), $S(WSLn.ItemOPVL["R":$$$OpvullijstDikte, 1:0), ..DFLMinTolerantie(WSLn.ItemWD) )
 ]]></Implementation>
 </Method>
 
@@ -951,6 +954,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOpvullijstDikte">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TBKlasseID:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit $S(TBKlasseID=##class(DOM.PM.enu.TBXKlas).Buro():12.5, 1:25)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLadeVariantFromDesignCode">
 <Description>
 Geeft de enumeratie van LadeVariant voor de DesignCode (S, I, B, F, MA).</Description>
Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r16058 -r18198
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 16058)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 18198)
@@ -5,292 +5,8 @@
 <IncludeCode>KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="DesignDefinition1">
-<Language>cache</Language>
-<ProcedureBlock>0</ProcedureBlock>
-<PublicList>MApplication</PublicList>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[
- ;    end
- ;    object cboDwarsVerdeling: CComboBox
- ;      Left = 136
- ;      Top = 118
- ;      Width = 145
- ;      Height = 21
- ;      TabStop = False
- ;      Anchors = [akTop, akRight]
- ;      Ctl3D = True
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clBlack
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ItemHeight = 13
- ;      ParentCtl3D = False
- ;      ParentFont = False
- ;      TabOrder = 4
- ;      Text = 'cboDwarsVerdeling'
- ;      OnEnter = cboAlgemeenEnter
- ;      OnExit = cboAlgemeenExit
- ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
- ;    end
- ;    object cboFrontSteun: CComboBox
- ;      Left = 136
- ;      Top = 94
- ;      Width = 145
- ;      Height = 21
- ;      TabStop = False
- ;      Anchors = [akTop, akRight]
- ;      Ctl3D = True
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clBlack
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ItemHeight = 13
- ;      ParentCtl3D = False
- ;      ParentFont = False
- ;      TabOrder = 3
- ;      Text = 'cboFrontSteun'
- ;      OnEnter = cboAlgemeenEnter
- ;      OnExit = cboAlgemeenExit
- ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
- ;    end
- ;    object cboRugStukVerlaagd: CComboBox
- ;      Left = 208
- ;      Top = 172
- ;      Width = 81
- ;      Height = 21
- ;      TabStop = False
- ;      Anchors = [akTop, akRight]
- ;      Ctl3D = True
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clRed
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ItemHeight = 13
- ;      ParentCtl3D = False
- ;      ParentFont = False
- ;      TabOrder = 9
- ;      Text = 'cboRugStukVerlaagd'
- ;      Visible = False
- ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
- ;    end
- ;  end
- ;  object pnlButtons: CPanel
- ;    Left = 313
- ;    Top = 567
- ;    Width = 305
- ;    Height = 105
- ;    BevelOuter = bvNone
- ;    TabOrder = 5
- ;    OnEnter = OnGroupBoxEnter
- ;    object lblAantalTxt: CLabel
- ;      Left = 11
- ;      Top = 4
- ;      Width = 40
- ;      Height = 21
- ;      AutoSize = False
- ;      Caption = 'Aantal'
- ;      Layout = tlCenter
- ;    end
- ;    object lblVerpakInfo: CLabel
- ;      Left = 89
- ;      Top = -4
- ;      Width = 208
- ;      Height = 37
- ;      Alignment = taRightJustify
- ;      AutoSize = False
- ;      Caption = 'Verpakking'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clGreen
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = [fsBold]
- ;      ParentFont = False
- ;      Layout = tlCenter
- ;      WordWrap = True
- ;    end
- ;    object btnOpties: CButton
- ;      Left = 6
- ;      Top = 32
- ;      Width = 83
- ;      Height = 25
- ;      Caption = 'Opties'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 2
- ;      OnClick = btnOptiesClick
- ;    end
- ;    object btnToonBox: CButton
- ;      Left = 102
- ;      Top = 72
- ;      Width = 91
- ;      Height = 25
- ;      Caption = 'Details tonen'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 4
- ;      OnMouseUp = btnToonBoxMouseUp
- ;    end
- ;    object btnAllesWissen: CButton
- ;      Left = 6
- ;      Top = 72
- ;      Width = 83
- ;      Height = 25
- ;      Caption = 'Alles wissen'
- ;      Enabled = False
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 5
- ;      OnClick = btnAllesWissenClick
- ;    end
- ;    object btnCancel: CButton
- ;      Left = 206
- ;      Top = 72
- ;      Width = 91
- ;      Height = 25
- ;      Cancel = True
- ;      Caption = 'Annuleren'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 6
- ;      OnClick = btnCancelClick
- ;    end
- ;    object btnAanmaken: CButton
- ;      Left = 206
- ;      Top = 32
- ;      Width = 91
- ;      Height = 25
- ;      Caption = 'BOX creëren'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = [fsBold]
- ;      ParentFont = False
- ;      TabOrder = 1
- ;      OnClick = btnAanmakenClick
- ;    end
- ;    object btnXMLView: CButton
- ;      Left = 102
- ;      Top = 32
- ;      Width = 91
- ;      Height = 25
- ;      Caption = 'Afdruk tonen'
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentFont = False
- ;      TabOrder = 3
- ;      OnClick = btnXMLViewClick
- ;    end
- ;    object txtAantal: CEdit
- ;      Left = 47
- ;      Top = 4
- ;      Width = 41
- ;      Height = 21
- ;      Ctl3D = True
- ;      Enabled = False
- ;      Font.Charset = DEFAULT_CHARSET
- ;      Font.Color = clWindowText
- ;      Font.Height = -11
- ;      Font.Name = 'MS Sans Serif'
- ;      Font.Style = []
- ;      ParentCtl3D = False
- ;      ParentFont = False
- ;      TabOrder = 0
- ;      OnExit = txtAantalExit
- ;      ControlClass = 'UI.Lib.Ctrl.TDAEdit'
- ;    end
- ;  end
- ;end
-]]></Implementation>
-</Method>
-
-<Method name="GeefOPVLKleurDefaultingViaKey">
-<Language>cache</Language>
-<ProcedureBlock>0</ProcedureBlock>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[
- New OPVLKleurDefaultingViaKey
- Set OPVLKleurDefaultingViaKey="K:LG"
-  ;d WLIP^vhDBG(97,"LadeKleur "_..cboLadeKleur.SelectedGetKey()_"  - "_..blTBox.BTValues.GetAt("TBLadeKleur"))
- If ..cboLadeKleur.SelectedGetKey()?1(1"WI",1"SW") {
-     Set OPVLKleurDefaultingViaKey="K:WI"
- }
- Quit OPVLKleurDefaultingViaKey
-
-
-]]></Implementation>
-</Method>
-
-<Method name="Initialization1">
-<FormalSpec>initvalue:%String</FormalSpec>
-<Language>cache</Language>
-<ProcedureBlock>0</ProcedureBlock>
-<PublicList>MApplication</PublicList>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[
- d %this.chkStalenRug.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","AllowGrayed","Caption","TabOrder"),$lb(16,191,225,16,"False","True","Stalen/houten rug",7))
- d %this.cboHangMap.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,142,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",5,"cboHangMap",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboHangMap.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
- d %this.cboAntislipmat.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,46,145,21,$lb("akTop","akRight"),"True",13,"False","False",1,"cboAntislipmat",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboAntislipmat.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.cboBinnenGreep.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,70,145,21,$lb("akTop","akRight"),"True",13,"False","False",2,"cboBinnenGreep",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboBinnenGreep.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
- d %this.cboDwarsVerdeling.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,118,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",4,"cboDwarsVerdeling",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboDwarsVerdeling.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
- d %this.cboFrontSteun.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,94,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",3,"cboFrontSteun",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
- d %this.cboFrontSteun.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
- d %this.cboRugStukVerlaagd.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","Visible"),$lb(208,172,81,21,"False",$lb("akTop","akRight"),"True",13,"False","False",9,"cboRugStukVerlaagd","False"))
- d %this.cboRugStukVerlaagd.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb()))
- d %this.pnlButtons.SetMultiProperty($lb("Left","Top","Width","Height","BevelOuter","TabOrder","OnEnter"),$lb(313,567,305,105,"bvNone",5,$lb(%this,"OnGroupBoxEnter")))
- d %this.lblAantalTxt.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,4,40,21,"False","Aantal","tlCenter"))
- d %this.lblVerpakInfo.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","ParentFont","Layout","WordWrap"),$lb(89,-4,208,37,"taRightJustify","False","Verpakking","False","tlCenter","True"))
- d %this.lblVerpakInfo.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clGreen,-11,"MS Sans Serif",$lb("fsBold")))
- d %this.btnOpties.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(6,32,83,25,"Opties","False",2,$lb(%this,"btnOptiesClick")))
- d %this.btnOpties.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnToonBox.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnMouseUp"),$lb(102,72,91,25,"Details tonen","False",4,$lb(%this,"btnToonBoxMouseUp")))
- d %this.btnToonBox.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnAllesWissen.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Enabled","ParentFont","TabOrder","OnClick"),$lb(6,72,83,25,"Alles wissen","False","False",5,$lb(%this,"btnAllesWissenClick")))
- d %this.btnAllesWissen.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Cancel","Caption","ParentFont","TabOrder","OnClick"),$lb(206,72,91,25,"True","Annuleren","False",6,$lb(%this,"btnCancelClick")))
- d %this.btnCancel.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnAanmaken.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(206,32,91,25,"BOX creëren","False",1,$lb(%this,"btnAanmakenClick")))
- d %this.btnAanmaken.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb("fsBold")))
- d %this.btnXMLView.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(102,32,91,25,"Afdruk tonen","False",3,$lb(%this,"btnXMLViewClick")))
- d %this.btnXMLView.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.txtAantal.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","Enabled","ParentCtl3D","ParentFont","TabOrder","OnExit"),$lb(47,4,41,21,"True","False","False","False",0,$lb(%this,"txtAantalExit")))
- d %this.txtAantal.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- s MApplication.ClientState="Wait"
- q
-]]></Implementation>
-</Method>
-
 <Parameter name="BlumotionMinIB">
 <Description>
 Minimaal toegelaten Interne Breedte voor een lade met Dubbele Blumotion (in mm)</Description>
@@ -2639,23 +2355,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BLGetDFLKenmValue">
-<Description>
-NOT IN USE</Description>
-<FormalSpec>Kenm:%String,KenmGroep:%String="TBX"</FormalSpec>
+<Method name="BLGeefOpvullijstDikte">
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[
- /*
- ;  NOT IN USE !!!
- New PRNr
- Set PRNr=..DFLRef
- Quit:(PRNr="") ""
- Quit:($L(Kenm_KenmGroep)) ##class(Prod.Kenmerk.DataDefinitie).Get(KenmGroep,PRNr,Kenm)
- */
+<Implementation><![CDATA[ Quit ..blTBox.GeefOpvullijstDikte(..blTBox.BTValues.GetAt("TBKlasse"))
 ]]></Implementation>
 </Method>
 
@@ -4153,6 +3859,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BLGetDFLKenmValue">
+<Description>
+NOT IN USE
+</Description>
+<FormalSpec>Kenm:%String,KenmGroep:%String="TBX"</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.String</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ /*
+ ;  NOT IN USE !!!
+ New PRNr
+ Set PRNr=..DFLRef
+ Quit:(PRNr="") ""
+ Quit:($L(Kenm_KenmGroep)) ##class(Prod.Kenmerk.DataDefinitie).Get(KenmGroep,PRNr,Kenm)
+ */
+]]></Implementation>
+</Method>
+
 <Method name="BLNuttigeBreedteRefresh">
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
@@ -4774,6 +4501,289 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DesignDefinition1">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<PublicList>MApplication</PublicList>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ;    end
+ ;    object cboDwarsVerdeling: CComboBox
+ ;      Left = 136
+ ;      Top = 118
+ ;      Width = 145
+ ;      Height = 21
+ ;      TabStop = False
+ ;      Anchors = [akTop, akRight]
+ ;      Ctl3D = True
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clBlack
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ItemHeight = 13
+ ;      ParentCtl3D = False
+ ;      ParentFont = False
+ ;      TabOrder = 4
+ ;      Text = 'cboDwarsVerdeling'
+ ;      OnEnter = cboAlgemeenEnter
+ ;      OnExit = cboAlgemeenExit
+ ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
+ ;    end
+ ;    object cboFrontSteun: CComboBox
+ ;      Left = 136
+ ;      Top = 94
+ ;      Width = 145
+ ;      Height = 21
+ ;      TabStop = False
+ ;      Anchors = [akTop, akRight]
+ ;      Ctl3D = True
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clBlack
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ItemHeight = 13
+ ;      ParentCtl3D = False
+ ;      ParentFont = False
+ ;      TabOrder = 3
+ ;      Text = 'cboFrontSteun'
+ ;      OnEnter = cboAlgemeenEnter
+ ;      OnExit = cboAlgemeenExit
+ ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
+ ;    end
+ ;    object cboRugStukVerlaagd: CComboBox
+ ;      Left = 208
+ ;      Top = 172
+ ;      Width = 81
+ ;      Height = 21
+ ;      TabStop = False
+ ;      Anchors = [akTop, akRight]
+ ;      Ctl3D = True
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clRed
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ItemHeight = 13
+ ;      ParentCtl3D = False
+ ;      ParentFont = False
+ ;      TabOrder = 9
+ ;      Text = 'cboRugStukVerlaagd'
+ ;      Visible = False
+ ;      ControlClass = 'UI.Lib.Ctrl.TComboBox'
+ ;    end
+ ;  end
+ ;  object pnlButtons: CPanel
+ ;    Left = 313
+ ;    Top = 567
+ ;    Width = 305
+ ;    Height = 105
+ ;    BevelOuter = bvNone
+ ;    TabOrder = 5
+ ;    OnEnter = OnGroupBoxEnter
+ ;    object lblAantalTxt: CLabel
+ ;      Left = 11
+ ;      Top = 4
+ ;      Width = 40
+ ;      Height = 21
+ ;      AutoSize = False
+ ;      Caption = 'Aantal'
+ ;      Layout = tlCenter
+ ;    end
+ ;    object lblVerpakInfo: CLabel
+ ;      Left = 89
+ ;      Top = -4
+ ;      Width = 208
+ ;      Height = 37
+ ;      Alignment = taRightJustify
+ ;      AutoSize = False
+ ;      Caption = 'Verpakking'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clGreen
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = [fsBold]
+ ;      ParentFont = False
+ ;      Layout = tlCenter
+ ;      WordWrap = True
+ ;    end
+ ;    object btnOpties: CButton
+ ;      Left = 6
+ ;      Top = 32
+ ;      Width = 83
+ ;      Height = 25
+ ;      Caption = 'Opties'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 2
+ ;      OnClick = btnOptiesClick
+ ;    end
+ ;    object btnToonBox: CButton
+ ;      Left = 102
+ ;      Top = 72
+ ;      Width = 91
+ ;      Height = 25
+ ;      Caption = 'Details tonen'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 4
+ ;      OnMouseUp = btnToonBoxMouseUp
+ ;    end
+ ;    object btnAllesWissen: CButton
+ ;      Left = 6
+ ;      Top = 72
+ ;      Width = 83
+ ;      Height = 25
+ ;      Caption = 'Alles wissen'
+ ;      Enabled = False
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 5
+ ;      OnClick = btnAllesWissenClick
+ ;    end
+ ;    object btnCancel: CButton
+ ;      Left = 206
+ ;      Top = 72
+ ;      Width = 91
+ ;      Height = 25
+ ;      Cancel = True
+ ;      Caption = 'Annuleren'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 6
+ ;      OnClick = btnCancelClick
+ ;    end
+ ;    object btnAanmaken: CButton
+ ;      Left = 206
+ ;      Top = 32
+ ;      Width = 91
+ ;      Height = 25
+ ;      Caption = 'BOX creëren'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = [fsBold]
+ ;      ParentFont = False
+ ;      TabOrder = 1
+ ;      OnClick = btnAanmakenClick
+ ;    end
+ ;    object btnXMLView: CButton
+ ;      Left = 102
+ ;      Top = 32
+ ;      Width = 91
+ ;      Height = 25
+ ;      Caption = 'Afdruk tonen'
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentFont = False
+ ;      TabOrder = 3
+ ;      OnClick = btnXMLViewClick
+ ;    end
+ ;    object txtAantal: CEdit
+ ;      Left = 47
+ ;      Top = 4
+ ;      Width = 41
+ ;      Height = 21
+ ;      Ctl3D = True
+ ;      Enabled = False
+ ;      Font.Charset = DEFAULT_CHARSET
+ ;      Font.Color = clWindowText
+ ;      Font.Height = -11
+ ;      Font.Name = 'MS Sans Serif'
+ ;      Font.Style = []
+ ;      ParentCtl3D = False
+ ;      ParentFont = False
+ ;      TabOrder = 0
+ ;      OnExit = txtAantalExit
+ ;      ControlClass = 'UI.Lib.Ctrl.TDAEdit'
+ ;    end
+ ;  end
+ ;end
+]]></Implementation>
+</Method>
+
+<Method name="GeefOPVLKleurDefaultingViaKey">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ New OPVLKleurDefaultingViaKey
+ Set OPVLKleurDefaultingViaKey="K:LG"
+  ;d WLIP^vhDBG(97,"LadeKleur "_..cboLadeKleur.SelectedGetKey()_"  - "_..blTBox.BTValues.GetAt("TBLadeKleur"))
+ If ..cboLadeKleur.SelectedGetKey()?1(1"WI",1"SW") {
+     Set OPVLKleurDefaultingViaKey="K:WI"
+ }
+ Quit OPVLKleurDefaultingViaKey
+]]></Implementation>
+</Method>
+
+<Method name="Initialization1">
+<FormalSpec>initvalue:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<PublicList>MApplication</PublicList>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ d %this.chkStalenRug.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","AllowGrayed","Caption","TabOrder"),$lb(16,191,225,16,"False","True","Stalen/houten rug",7))
+ d %this.cboHangMap.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,142,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",5,"cboHangMap",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboHangMap.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
+ d %this.cboAntislipmat.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,46,145,21,$lb("akTop","akRight"),"True",13,"False","False",1,"cboAntislipmat",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboAntislipmat.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.cboBinnenGreep.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,70,145,21,$lb("akTop","akRight"),"True",13,"False","False",2,"cboBinnenGreep",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboBinnenGreep.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
+ d %this.cboDwarsVerdeling.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,118,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",4,"cboDwarsVerdeling",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboDwarsVerdeling.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
+ d %this.cboFrontSteun.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","OnEnter","OnExit"),$lb(136,94,145,21,"False",$lb("akTop","akRight"),"True",13,"False","False",3,"cboFrontSteun",$lb(%this,"cboAlgemeenEnter"),$lb(%this,"cboAlgemeenExit")))
+ d %this.cboFrontSteun.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
+ d %this.cboRugStukVerlaagd.SetMultiProperty($lb("Left","Top","Width","Height","TabStop","Anchors","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text","Visible"),$lb(208,172,81,21,"False",$lb("akTop","akRight"),"True",13,"False","False",9,"cboRugStukVerlaagd","False"))
+ d %this.cboRugStukVerlaagd.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb()))
+ d %this.pnlButtons.SetMultiProperty($lb("Left","Top","Width","Height","BevelOuter","TabOrder","OnEnter"),$lb(313,567,305,105,"bvNone",5,$lb(%this,"OnGroupBoxEnter")))
+ d %this.lblAantalTxt.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(11,4,40,21,"False","Aantal","tlCenter"))
+ d %this.lblVerpakInfo.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","ParentFont","Layout","WordWrap"),$lb(89,-4,208,37,"taRightJustify","False","Verpakking","False","tlCenter","True"))
+ d %this.lblVerpakInfo.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clGreen,-11,"MS Sans Serif",$lb("fsBold")))
+ d %this.btnOpties.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(6,32,83,25,"Opties","False",2,$lb(%this,"btnOptiesClick")))
+ d %this.btnOpties.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.btnToonBox.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnMouseUp"),$lb(102,72,91,25,"Details tonen","False",4,$lb(%this,"btnToonBoxMouseUp")))
+ d %this.btnToonBox.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.btnAllesWissen.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Enabled","ParentFont","TabOrder","OnClick"),$lb(6,72,83,25,"Alles wissen","False","False",5,$lb(%this,"btnAllesWissenClick")))
+ d %this.btnAllesWissen.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Cancel","Caption","ParentFont","TabOrder","OnClick"),$lb(206,72,91,25,"True","Annuleren","False",6,$lb(%this,"btnCancelClick")))
+ d %this.btnCancel.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.btnAanmaken.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(206,32,91,25,"BOX creëren","False",1,$lb(%this,"btnAanmakenClick")))
+ d %this.btnAanmaken.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb("fsBold")))
+ d %this.btnXMLView.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnClick"),$lb(102,32,91,25,"Afdruk tonen","False",3,$lb(%this,"btnXMLViewClick")))
+ d %this.btnXMLView.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.txtAantal.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","Enabled","ParentCtl3D","ParentFont","TabOrder","OnExit"),$lb(47,4,41,21,"True","False","False","False",0,$lb(%this,"txtAantalExit")))
+ d %this.txtAantal.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ s MApplication.ClientState="Wait"
+ q
+]]></Implementation>
+</Method>
+
 <Method name="IsNieuweSifonlade">
 <FormalSpec>Klasse</FormalSpec>
 <Language>cache</Language>
@@ -6225,7 +6235,7 @@
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  ;Beginning of user code
 
- Set:(..txtOpvulLijstLi.Text="") ..txtOpvulLijstLi.Text=$S(..blTBox.BTValues.GetAt("TBKlasse")="B":"12", 1:"25")
+ Set:(..txtOpvulLijstLi.Text="") ..txtOpvulLijstLi.Text=..BLGeefOpvullijstDikte()
  Do ..OnComboEnter(..cboOpvullijstKleur)
  Do ..OnComboExit(..cboOpvullijstKleur)
 
@@ -6300,7 +6310,7 @@
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  ;Beginning of user code
 
- Set:(..txtOpvulLijstRe.Text="") ..txtOpvulLijstRe.Text=$S(..blTBox.BTValues.GetAt("TBKlasse")="B":"12", 1:"25")
+ Set:(..txtOpvulLijstRe.Text="") ..txtOpvulLijstRe.Text=..BLGeefOpvullijstDikte()
  Do ..OnComboEnter(..cboOpvullijstKleur)
  Do ..OnComboExit(..cboOpvullijstKleur)