Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r734 -r908
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 734)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 908)
@@ -1,253 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:09">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-22 11:32:53">
 <Class name="UI.PR.GA.TandemBox">
 <ClassType>serial</ClassType>
 <IncludeCode>KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
-<TimeChanged>62098,41962</TimeChanged>
-<TimeCreated>62098,41962</TimeCreated>
+<TimeChanged>62144,41634.722483</TimeChanged>
+<TimeCreated>62144,41093</TimeCreated>
+<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)
@@ -976,6 +737,11 @@
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
  . Do ..cboSPZijkant.SetFocus()
 
+ If ('..BLValidateSifon(.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()
+
  If ('..BLValidateBM(.msg)) Do  Quit 0   ; Blumotion "Beide" : min. interne breedte is 165 mm
  . ;Set msg="Voor Blumotion ""Beide"" is de nuttige (interne) breedte minimum "_..#BlumotionMinIB_" mm."
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
@@ -4336,6 +4102,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BLValidateNMRL">
+<FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Boolean</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ; Binnenladen met Reling/Boxside:
+ ;          Waarschuwing geven indien "ZijReling Niet Meeleveren" is aangecheckt.
+ ; Eveneens waarschuwing geven indien "Boxsides Niet Meeleveren" is aangecheckt.
+ ; Dit kan gebeuren wanneer men bvb. Bulk-verpakking kiest ( --> NietMee-opties automatisch aangevinkt)
+ New blnBoxside
+ Set msg=""
+ Quit:(..cboLadeType.SelectedGetKey()'?1(1"B",1"X")) 1   ; is geen binnenlade
+ Quit:(..cboBoxSide.SelectedGetKey()="ZR") 1             ; is zonder reling/boxside
+ Set blnBoxside=(..cboBoxSide.SelectedGetKey()'?1(1"ER",1"DR",1"VR"))
+
+ ; Binnenlade met Boxside
+ If (blnBoxside) && ((..blTBox.BTValues.GetAt("NMZijReling")=1)||(..blTBox.BTValues.GetAt("NMBoxSide")=1)) Do  Quit 0
+ . Set msg="De relingen/boxsides van de binnenlade worden niet meegeleverd."
+ ; Else :  Binnenlade met reling, zonder Boxside
+ If ('blnBoxside) && (..blTBox.BTValues.GetAt("NMZijReling")=1) Do  Quit 0
+ . Set msg="De relingen van de binnenlade worden niet meegeleverd."
+
+ Quit 1
+]]></Implementation>
+</Method>
+
 <Method name="BLValidateSPZK">
 <FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
 <Language>cache</Language>
@@ -4352,7 +4147,7 @@
  Set msg=""   ; msg is returned by reference
  Quit:(..cboSPZijkant.SelectedGetKey()="") 1
  Quit:(..cboKlasse.SelectedGetKey()="SY") 1
- 
+
  // Controle intivo spoelbak DLS
  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."
@@ -4374,30 +4169,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BLValidateNMRL">
+<Method name="BLValidateSifon">
 <FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Boolean</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- ; Binnenladen met Reling/Boxside:
- ;          Waarschuwing geven indien "ZijReling Niet Meeleveren" is aangecheckt.
- ; Eveneens waarschuwing geven indien "Boxsides Niet Meeleveren" is aangecheckt.
- ; Dit kan gebeuren wanneer men bvb. Bulk-verpakking kiest ( --> NietMee-opties automatisch aangevinkt)
- New blnBoxside
- Set msg=""
- Quit:(..cboLadeType.SelectedGetKey()'?1(1"B",1"X")) 1   ; is geen binnenlade
- Quit:(..cboBoxSide.SelectedGetKey()="ZR") 1             ; is zonder reling/boxside
- Set blnBoxside=(..cboBoxSide.SelectedGetKey()'?1(1"ER",1"DR",1"VR"))
+ ; Minimale diepte voor de sifonlades met TIP-ON is  300 mm
+ New oBTVal,LadeCode
+ Set oBTVal=..blTBox.BTValues
+ Set msg=""   ; msg is returned by reference
+ Quit:(..cboKlasse.SelectedGetKey()'="SY") 1
 
- ; Binnenlade met Boxside
- If (blnBoxside) && ((..blTBox.BTValues.GetAt("NMZijReling")=1)||(..blTBox.BTValues.GetAt("NMBoxSide")=1)) Do  Quit 0
- . Set msg="De relingen/boxsides van de binnenlade worden niet meegeleverd."
- ; Else :  Binnenlade met reling, zonder Boxside
- If ('blnBoxside) && (..blTBox.BTValues.GetAt("NMZijReling")=1) Do  Quit 0
- . Set msg="De relingen van de binnenlade worden niet meegeleverd."
+ // Controle diepte van sifonlade met TIP-ON
+ Set MinDiepteVoorTipOn=300   ; voor TIP-ON met Synchro
+ If (..cboLadeDiepte.SelectedGetKey()<MinDiepteVoorTipOn)&&(..cboBlumotion.SelectedGetKey()="T") Do  Quit 0
+ . Set msg="Voor sifonlades met TIP-ON moet de ladediepte minimum "_(MinDiepteVoorTipOn)_" mm zijn."   ; vanwege de TIP-ON met Synchro
+ ; Else
 
  Quit 1
 ]]></Implementation>
@@ -4586,6 +4376,246 @@
 ]]></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="btnCancelClick">
 <FormalSpec>Args:%String</FormalSpec>
 <Language>cache</Language>
@@ -6564,5 +6594,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="1394585654"/>
+<Checksum value="1749502486"/>
 </Export>
Index: UI/MB/UGLYPicking/dlgOrderSel.cls.xml
===================================================================
diff -u -r734 -r908
--- UI/MB/UGLYPicking/dlgOrderSel.cls.xml	(.../dlgOrderSel.cls.xml)	(revision 734)
+++ UI/MB/UGLYPicking/dlgOrderSel.cls.xml	(.../dlgOrderSel.cls.xml)	(revision 908)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:09">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-21 09:33:32">
 <Class name="UI.MB.UGLYPicking.dlgOrderSel">
 <ClassType>serial</ClassType>
 <IncludeCode>UglyPickingCNTs,KeyCodesCNTs,BL.Derde.Kennis,BL.Derde.KlantSpecifiek</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
-<TimeChanged>61506,59494.839519</TimeChanged>
-<TimeCreated>61325,63605</TimeCreated>
+<TimeChanged>62143,34472.466569</TimeChanged>
+<TimeCreated>62140,60433</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="EventCtrlr">
@@ -346,6 +346,14 @@
  If '$IsObject(HoofdingObj.Klant) Do  Quit 0
  . Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen klant gekoppeld aan hoofdingobject '"_ConsNr_"'.",$$$MBICONINFORMATION)
 
+ ; Raisen van een UGLYPicking gestart of herstart event.
+ new EventData,Event
+ Set EventData = ##class(TECH.Events.UGLYPickingEventData).%New(ConsNr)
+ If '$length($piece(^ORDW("D",ConsNr),"\",26)) Set Event = ##class(TECH.Events.UGLYPickingStartedEvent).%New(EventData)
+ Else  Set Event = ##class(TECH.Events.UGLYPickingRestartedEvent).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+ If '$length($piece(^ORDW("D",ConsNr),"\",26)) Set $piece(^ORDW("D",ConsNr),"\",26)=$Horolog  ; wegschrijven tijdstip start UGLYPicking
+
  Do ..ShowKennisAnkers(HoofdingObj.Klant.Nummer)
 
  $$$WriteToLog("ConsNr: "_ConsNr_", Magazijn: "_Magazijn_", Klant: "_HoofdingObj.Klant.Naam_" ("_HoofdingObj.Klant.Nummer_")")
@@ -1170,5 +1178,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="189945531"/>
+<Checksum value="4175146679"/>
 </Export>
Index: UI/PR/Kenm/MainForm.cls.xml
===================================================================
diff -u -r734 -r908
--- UI/PR/Kenm/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 734)
+++ UI/PR/Kenm/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 908)
@@ -1,12 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:10">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 11:10:58">
 <Class name="UI.PR.Kenm.MainForm">
 <ClassType>serial</ClassType>
 <IncludeCode>ProdCataloogCNTs,ReportErrorCNTs,KeyCodesCNTs,%VHMacro,APPS.PM.OL.Common</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
-<TimeChanged>62003,35122</TimeChanged>
+<TimeChanged>62158,40331.058276</TimeChanged>
 <TimeCreated>62003,35122</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="AppName">
 <Default>UI.PR.Kenm.MainForm</Default>
@@ -730,6 +731,8 @@
  Set HoofdGroep=..GetSelectedMetaGroep()
  Set PRNr=..GetSelectedPRNr()
  Quit:((HoofdGroep="") || (PRNr=""))
+	
+ Do WLIP^vhDBG(127,PRNr)	
 
  ; Added by WimV on 18/09/2008
  Set:('blnKeepSubID) ..lblActiveSubID.Caption=""
@@ -742,8 +745,10 @@
  New kenmerkRunner,DataDefID
  Set kenmerkRunner=""
 
+
  For  Set kenmerkRunner=$O(Local(kenmerkRunner)) Quit:(kenmerkRunner="")  Do
  . Set DataDefID=UnID_"||"_HoofdGroep_"||"_kenmerkRunner
+ . Do WLIP^vhDBG(127,DataDefID)
  . If ##class(Prod.Kenmerk.DataDefinitie).%ExistsId(DataDefID) Do               //Resp. obj bestaat -> combo selectie
  ..  Do ..AddMsgToLog(" - Bezig met het openen van de bestaande DataDefinitie..."_kenmerkRunner_".")
  ..  Set tmpDataDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId(DataDefID)
@@ -801,6 +806,7 @@
  Set YOffs=20
 
  New tmpStatus
+ Do WLIP^vhDBG(127,"Filter "_Filter)
  Set tmpStatus=RS.Execute(Filter)
  //Error handling voor Execute
  If $$$ISERR(tmpStatus) Do ..ReportError($$$reStatusError,tmpStatus),RS.%Close() Quit
@@ -1164,7 +1170,7 @@
  //kiMultipleDispl: maximum aantal zichtbare waarden
  New MultipleDisplay
  Set MultipleDisplay=RS.Get("MultipleDisplay")
-
+ Do WLIP^vhDBG(127,RS)
  Set Local(RS.Get("Kenmerk"))=$LB(Multiple,MultipleMax,MultipleDisplay)
 
  Quit
@@ -3291,9 +3297,11 @@
  ....   For  Quit:($E(Value,$L(Value))'=" ")  Set Value=$E(Value,1,$L(Value)-1)
  ....   New HoofdGroep
  ....   Set HoofdGroep=..GetSelectedMetaGroep()
+ ....   Do WLIP^vhDBG(127,"UpdateMultipleTransIndic gepasseerd")
  ....   Quit:(HoofdGroep="")
+ ....   Do WLIP^vhDBG(127,"UpdateMultipleTransIndic gepasseerd 2")
  ....   Set Edit.Text=DataDef(Kenmerk).GetLanguages(Value,translationRunner)
-
+	Do WLIP^vhDBG(127,"UpdateMultipleTransIndic gepasseerd 3")
  Quit
 ]]></Implementation>
 </Method>
@@ -4545,5 +4553,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="2186003121"/>
+<Checksum value="2276277409"/>
 </Export>