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 +