Index: UI/PR/GA/dlgTBOpties.cls.xml
===================================================================
diff -u -r1499 -r34104
--- UI/PR/GA/dlgTBOpties.cls.xml (.../dlgTBOpties.cls.xml) (revision 1499)
+++ UI/PR/GA/dlgTBOpties.cls.xml (.../dlgTBOpties.cls.xml) (revision 34104)
@@ -58,14 +58,26 @@
%TMCheckBox
+
+%TMCheckBox
+
+
%TMCheckBox
+
+%TMCheckBox
+
+
%TMCheckBox
+
+%TMCheckBox
+
+
%TMCheckBox
@@ -145,7 +157,7 @@
; Left = 0
; Top = -1
; Width = 381
- ; Height = 567
+ ; Height = 568
; BorderIcons = [biSystemMenu]
; Caption = 'Tandem BOX - Opties'
; Color = clBtnFace
@@ -206,7 +218,7 @@
; end
; object grpBasis: CGroupBox
; Left = 12
- ; Top = 203
+ ; Top = 196
; Width = 209
; Height = 308
; Anchors = [akLeft, akBottom]
@@ -252,61 +264,87 @@
; TabOrder = 3
; end
; object chkNietMee5: CCheckBox
- ; Left = 15
+ ; Left = 111
; Top = 115
; Width = 169
; Height = 17
; Caption = 'Blumotion meenemer'
- ; TabOrder = 4
+ ; TabOrder = 7
+ ; Visible = False
; end
; object chkNietMee6: CCheckBox
- ; Left = 15
+ ; Left = 111
; Top = 139
; Width = 169
; Height = 17
; Caption = 'Blumotion behuizing'
- ; TabOrder = 5
+ ; TabOrder = 8
+ ; Visible = False
; end
; object chkNietMee7: CCheckBox
; Left = 15
- ; Top = 163
+ ; Top = 187
; Width = 169
; Height = 17
; Caption = 'Frontbevestiging'
- ; TabOrder = 6
+ ; TabOrder = 9
; end
; object chkNietMee8: CCheckBox
; Left = 15
- ; Top = 187
+ ; Top = 211
; Width = 169
; Height = 17
; Caption = 'Boxside'
- ; TabOrder = 7
+ ; TabOrder = 10
; end
; object chkNietMee10: CCheckBox
; Left = 15
- ; Top = 235
+ ; Top = 259
; Width = 169
; Height = 17
; Caption = 'Opvullijst'
- ; TabOrder = 9
+ ; TabOrder = 12
; end
; object chkNietMee9: CCheckBox
; Left = 15
- ; Top = 211
+ ; Top = 235
; Width = 169
; Height = 17
; Caption = 'Dwarslatjes spoelbak'
- ; TabOrder = 8
+ ; TabOrder = 11
; end
; object chkNietMee11: CCheckBox
; Left = 15
- ; Top = 259
+ ; Top = 283
; Width = 169
; Height = 17
; Caption = 'Antislipmat'
- ; TabOrder = 10
+ ; TabOrder = 13
; end
+ ; object chkNietMee12: CCheckBox
+ ; Left = 15
+ ; Top = 115
+ ; Width = 169
+ ; Height = 17
+ ; Caption = 'TOB set (eenh+meenemer)'
+ ; TabOrder = 4
+ ; end
+ ; object chkNietMee13: CCheckBox
+ ; Left = 15
+ ; Top = 139
+ ; Width = 169
+ ; Height = 17
+ ; Caption = 'TOB synchronisatiestang'
+ ; TabOrder = 5
+ ; end
+ ; object chkNietMee14: CCheckBox
+ ; Left = 15
+ ; Top = 163
+ ; Width = 169
+ ; Height = 17
+ ; Caption = 'TOB synchro-toebehoren '
+ ; TabOrder = 6
+ ; end
; end
; object cboMatKlant: CComboBox
; Left = 144
@@ -364,7 +402,7 @@
; end
; object btnOK: CButton
; Left = 232
- ; Top = 453
+ ; Top = 446
; Width = 75
; Height = 25
; Anchors = [akLeft, akBottom]
@@ -375,7 +413,7 @@
; end
; object btnCancel: CButton
; Left = 232
- ; Top = 485
+ ; Top = 478
; Width = 75
; Height = 25
; Anchors = [akLeft, akBottom]
@@ -458,6 +496,9 @@
d %this.cboVerpakking.%Close()
d %this.cboStalenRug.%Close()
d %this.cboMatKlant.%Close()
+ d %this.chkNietMee14.%Close()
+ d %this.chkNietMee13.%Close()
+ d %this.chkNietMee12.%Close()
d %this.chkNietMee11.%Close()
d %this.chkNietMee9.%Close()
d %this.chkNietMee10.%Close()
@@ -508,6 +549,9 @@
s %this.chkNietMee10=##class(%TMCheckBox).%New($lb(%this.grpBasis.Address,0))
s %this.chkNietMee9=##class(%TMCheckBox).%New($lb(%this.grpBasis.Address,0))
s %this.chkNietMee11=##class(%TMCheckBox).%New($lb(%this.grpBasis.Address,0))
+ s %this.chkNietMee12=##class(%TMCheckBox).%New($lb(%this.grpBasis.Address,0))
+ s %this.chkNietMee13=##class(%TMCheckBox).%New($lb(%this.grpBasis.Address,0))
+ s %this.chkNietMee14=##class(%TMCheckBox).%New($lb(%this.grpBasis.Address,0))
s %this.cboMatKlant=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0))
s %this.cboStalenRug=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0))
s %this.cboVerpakking=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0))
@@ -516,34 +560,37 @@
s %this.cboOndSpecial=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0))
s %this.cboRugStukVerlaagd=##class(UI.Lib.Ctrl.TComboBox).%New($lb(%this.Form.Address,0))
s MApplication.ClientState="NoWait"
- d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","BorderIcons","Caption","Color","OldCreateOrder","Position","OnShow","PixelsPerInch"),$lb(0,-1,381,567,$lb("biSystemMenu"),"Tandem BOX - Opties",$$$clBtnFace,"False","poDesktopCenter",$lb(%this,"DesignFormShow"),96))
+ d %this.Form.SetMultiProperty($lb("Left","Top","Width","Height","BorderIcons","Caption","Color","OldCreateOrder","Position","OnShow","PixelsPerInch"),$lb(0,-1,381,568,$lb("biSystemMenu"),"Tandem BOX - Opties",$$$clBtnFace,"False","poDesktopCenter",$lb(%this,"DesignFormShow"),96))
d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
d %this.zzLabel1.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,14,104,21,"False","Plaatmateriaal klant","tlCenter"))
d %this.zzLabel2.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,46,104,21,"False","Stalen rug","tlCenter"))
d %this.zzLabel3.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,142,104,21,"False","Verpakking","tlCenter"))
d %this.zzLabel4.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,78,104,21,"False","Onderdelen Speciaal","tlCenter"))
d %this.zzLabel5.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,110,104,21,"False","Rugstuk verlaagd","tlCenter"))
- d %this.grpBasis.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont","TabOrder","TabStop"),$lb(12,203,209,308,$lb("akLeft","akBottom")," NIET meeleveren ","False",4,"True"))
+ d %this.grpBasis.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont","TabOrder","TabStop"),$lb(12,196,209,308,$lb("akLeft","akBottom")," NIET meeleveren ","False",4,"True"))
d %this.grpBasis.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
d %this.chkNietMee1.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,19,169,17,"Corpusprofiel",0))
d %this.chkNietMee2.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,43,169,17,"Zijreling",1))
d %this.chkNietMee3.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,67,169,17,"Afdekkap",2))
d %this.chkNietMee4.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,91,169,17,"Bodemsteun",3))
- d %this.chkNietMee5.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,115,169,17,"Blumotion meenemer",4))
- d %this.chkNietMee6.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,139,169,17,"Blumotion behuizing",5))
- d %this.chkNietMee7.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,163,169,17,"Frontbevestiging",6))
- d %this.chkNietMee8.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,187,169,17,"Boxside",7))
- d %this.chkNietMee10.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,235,169,17,"Opvullijst",9))
- d %this.chkNietMee9.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,211,169,17,"Dwarslatjes spoelbak",8))
- d %this.chkNietMee11.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,259,169,17,"Antislipmat",10))
+ d %this.chkNietMee5.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","Visible"),$lb(111,115,169,17,"Blumotion meenemer",7,"False"))
+ d %this.chkNietMee6.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder","Visible"),$lb(111,139,169,17,"Blumotion behuizing",8,"False"))
+ d %this.chkNietMee7.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,187,169,17,"Frontbevestiging",9))
+ d %this.chkNietMee8.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,211,169,17,"Boxside",10))
+ d %this.chkNietMee10.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,259,169,17,"Opvullijst",12))
+ d %this.chkNietMee9.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,235,169,17,"Dwarslatjes spoelbak",11))
+ d %this.chkNietMee11.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,283,169,17,"Antislipmat",13))
+ d %this.chkNietMee12.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,115,169,17,"TOB set (eenh+meenemer)",4))
+ d %this.chkNietMee13.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,139,169,17,"TOB synchronisatiestang",5))
+ d %this.chkNietMee14.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(15,163,169,17,"TOB synchro-toebehoren ",6))
d %this.cboMatKlant.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,14,145,21,"True",13,"False","False",0,"cboMatKlant"))
d %this.cboMatKlant.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
d %this.cboStalenRug.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,46,145,21,"True",13,"False","False",1,"cboStalenRug"))
d %this.cboStalenRug.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
d %this.cboVerpakking.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,142,145,21,"True",13,"False","False",3,"cboVerpakking"))
d %this.cboVerpakking.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.btnOK.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Default","TabOrder","OnClick"),$lb(232,453,75,25,$lb("akLeft","akBottom"),"OK","True",5,$lb(%this,"btnOKClick")))
- d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(232,485,75,25,$lb("akLeft","akBottom"),"True","Annuleren",6,$lb(%this,"btnCancelClick")))
+ d %this.btnOK.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","Default","TabOrder","OnClick"),$lb(232,446,75,25,$lb("akLeft","akBottom"),"OK","True",5,$lb(%this,"btnOKClick")))
+ d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Cancel","Caption","TabOrder","OnClick"),$lb(232,478,75,25,$lb("akLeft","akBottom"),"True","Annuleren",6,$lb(%this,"btnCancelClick")))
d %this.cboOndSpecial.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,78,145,21,"True",13,"False","False",2,"cboOndSpecial"))
d %this.cboOndSpecial.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
d %this.cboRugStukVerlaagd.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ItemHeight","ParentCtl3D","ParentFont","TabOrder","Text"),$lb(144,110,145,21,"True",13,"False","False",7,"cboRugStukVerlaagd"))
@@ -723,7 +770,7 @@
vpcCheckNM(lbNietMee)
#define NMInList(%v) $S($LF(lbNietMee,%v):"True", 1:"False")
;Set ..chkNietMee1.Checked=$S($LF(lbNieMee,"NMCorpusProfiel"):"True", 1:"False")
- Set ..chkNietMee1.Checked=$$$NMInList("NMCorpusProfiel")
+ Set ..chkNietMee1.Checked = $$$NMInList("NMCorpusProfiel")
Set ..chkNietMee2.Checked=$$$NMInList("NMZijReling")
Set ..chkNietMee3.Checked=$$$NMInList("NMAfdekkap")
Set ..chkNietMee4.Checked=$$$NMInList("NMBodemsteun")
@@ -734,6 +781,9 @@
Set ..chkNietMee9.Checked=$$$NMInList("NMSPDwarsLatjes")
Set ..chkNietMee10.Checked=$$$NMInList("NMOpvullijst")
Set ..chkNietMee11.Checked=$$$NMInList("NMAntislipmat")
+ Set ..chkNietMee12.Checked=$$$NMInList("NMTOBSet")
+ Set ..chkNietMee13.Checked=$$$NMInList("NMTOBStang")
+ Set ..chkNietMee14.Checked=$$$NMInList("NMTOBToebehoren")
Quit
]]>
@@ -833,6 +883,15 @@
blTBox
+
+chkNietMee12
+
+
+chkNietMee13
+
+
+chkNietMee14
+