Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r4990 -r6143
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 4990)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 6143)
@@ -5,8 +5,247 @@
 <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[
+ ;      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="Initialization1">
+<FormalSpec>initvalue:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<PublicList>MApplication</PublicList>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ 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>
@@ -730,7 +969,7 @@
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
  . Do ..cboSPZijkant.SetFocus()
 
- If ('..BLValidateSifon(.msg)) Do  Quit 0   ;
+ If ('..BLValidateUitsparingDiepte(.msg)) Do  Quit 0   ;
  . ;Set msg="Voor sifonlades met TIP-ON moet de ladediepte minimum "_(MinDiepteVoorTipOn)_" mm zijn."   ; vanwege de TIP-ON met Synchro
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
  . Do ..cboBlumotion.SetFocus()
@@ -3793,7 +4032,10 @@
  New Klasse
  Set Klasse=..cboKlasse.SelectedGetKey()
  Set AftrekLadeProf=$S(Klasse="SP":"", 1:0)   ; "" = Default AftrekLadeProf (75)
+	d WLIP^vhDBG(97,"Klasse ="_Klasse)
+
  Set SifonQty=##class(BL.PR.GA.TandemBox).SpoelbakUitsparingen(..cboLadeCode.SelectedGetKey(), ..cboSPZijkant.SelectedGetKey(), Klasse)
+	d WLIP^vhDBG(97,"SifonQty ="_SifonQty)
  Set:(Klasse'?1(1"SY",1"SY2")) SifonQty=0
  Do csmCalcAfmetingen()
  Do $$$TBoxParameter("SpoelbakZkLi", SPZLI)
@@ -4205,15 +4447,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BLValidateSifon">
+<Method name="BLValidateUitsparingDiepte">
 <FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Boolean</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- ; Minimale diepte voor de sifonlades met TIP-ON is  300 mm
+ ; Minimale diepte voor lades met uitsparing : als glijder met TIP-ON dan extra beperking (min. 400 mm of 300 mm)
  New oBTVal,LadeCode,IsValid
  Set oBTVal=..blTBox.BTValues
  Set msg=""   ; msg is returned by reference
@@ -4228,13 +4470,21 @@
  	}
  }
  ElseIf ..cboKlasse.SelectedGetKey()="SY2" {
- 	; Controle diepte van spoelbaklade type 2 met TIP-ON
+ 	; Controle diepte van sifonlade type 2 met TIP-ON
  	Set MinDiepteVoorTipOn=400
  	If (..cboLadeDiepte.SelectedGetKey()<MinDiepteVoorTipOn)&&(..cboBlumotion.SelectedGetKey()="T") {
  		Set IsValid=0
- 		Set msg="Voor spoelbaklades type 2 met TIP-ON moet de ladediepte minimum "_(MinDiepteVoorTipOn)_" mm zijn."
+ 		Set msg="Voor sifonlades type 2 met TIP-ON moet de ladediepte minimum "_(MinDiepteVoorTipOn)_" mm zijn."
  	}
  }
+ ElseIf ..cboKlasse.SelectedGetKey()="SP2" {
+ 	; Controle diepte van spoelbaklade met TIP-ON
+ 	Set MinDiepteVoorTipOn=400
+ 	If (..cboLadeDiepte.SelectedGetKey()<MinDiepteVoorTipOn)&&(..cboBlumotion.SelectedGetKey()="T") {
+ 		Set IsValid=0
+ 		Set msg="Voor spoelbaklades met TIP-ON moet de ladediepte minimum "_(MinDiepteVoorTipOn)_" mm zijn."
+ 	}
+ }
 
  Quit IsValid
 ]]></Implementation>
@@ -4250,6 +4500,7 @@
  new SPZLI,SPZRE,SPZMI,SPBR1,SPBR2,UserLI,UserRE,UserMI,UserBR1,UserBR2,SifonQty
  Set ComboItems=..cboSPZijkant.Items
  Do ..lstSP2BreedtesOpMaat.Items.Clear()
+
  Set blnOpMaat=..BLCalcSPBreedteOpMaat(.SPZLI,.SPZRE,.SPBR1,.UserLI,.UserRE,.UserBR1, .SifonQty, .SPZMI,.UserMI, .SPBR2, .UserBR2)   ; haalt de waarden op en vult de lokale variabelen in.
  Set ..SpoelbakDim("SifonQty")=$G(SifonQty)
  Quit:('blnOpMaat)
@@ -4423,246 +4674,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DesignDefinition1">
-<Language>cache</Language>
-<ProcedureBlock>0</ProcedureBlock>
-<PublicList>MApplication</PublicList>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[
- ;      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="Initialization1">
-<FormalSpec>initvalue:%String</FormalSpec>
-<Language>cache</Language>
-<ProcedureBlock>0</ProcedureBlock>
-<PublicList>MApplication</PublicList>
-<SoapBindingStyle>document</SoapBindingStyle>
-<SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[
- 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>