Index: UI/PR/GA/EditItemDtls.cls.xml =================================================================== diff -u -r1074 -r1210 --- UI/PR/GA/EditItemDtls.cls.xml (.../EditItemDtls.cls.xml) (revision 1074) +++ UI/PR/GA/EditItemDtls.cls.xml (.../EditItemDtls.cls.xml) (revision 1210) @@ -5,6 +5,7 @@ KeyCodesCNTs,TTreeViewExCNTs,PRGACNTs,%VHMacro Default %Library.TMFormClass +0 Prod.GAData.Item @@ -368,8 +369,7 @@ 0 document literal - + @@ -420,7 +420,6 @@ Set ..btnFixedRemoveAll.Enabled=Enabled Set ..btnUpdateAll.Enabled=Enabled Quit - ]]> @@ -505,9 +504,7 @@ %Status document literal - @@ -531,7 +528,6 @@ Set ..txtCurValue.Text=..DItem.Parameters.GetAt(ActPKey) Set ..txtNewValue.Text="" Quit - ]]> @@ -553,7 +549,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -757,7 +752,6 @@ . For j=2:1:$LL(lbCols) Do .. Do LItem.SubItems.Add($$$LCVT($LG(lbCols,j))) Quit - ]]> @@ -793,7 +787,6 @@ . Set arDtls($O(arDtls(i),-1)+1)=$LB(PKey,arDP(PKey)) Do ..lvFillFromArray(.arDtls) Quit - ]]> @@ -841,7 +834,6 @@ Set ..btnFixedUpdate.Enabled=Enabled Set ..btnFixedRemove.Enabled=Enabled Quit - ]]> @@ -862,7 +854,7 @@ #define msg "Update Fixed ?" If Key=$$$keyEnter Do . If MApplication.MessageBox($$$msg,..Form.Caption,$$$MBOKCANCEL+$$$MBICONEXCLAMATION)=$$$mrOk Do - .. Do ..btnFixedUpdateClick($LB(..btnFixedUpdate)) + . . Do ..btnFixedUpdateClick($LB(..btnFixedUpdate)) ;End of user code s Args=$lb(Sender,Key,Shift) Index: UI/PR/GA/Antislipmat.cls.xml =================================================================== diff -u -r1185 -r1210 --- UI/PR/GA/Antislipmat.cls.xml (.../Antislipmat.cls.xml) (revision 1185) +++ UI/PR/GA/Antislipmat.cls.xml (.../Antislipmat.cls.xml) (revision 1210) @@ -18,7 +18,7 @@ Minimaal toegelaten Interne breedte voor een lade (in mm) -160 +155 Index: WV GAProduct.prj.xml =================================================================== diff -u -r1133 -r1210 --- WV GAProduct.prj.xml (.../WV GAProduct.prj.xml) (revision 1133) +++ WV GAProduct.prj.xml (.../WV GAProduct.prj.xml) (revision 1210) @@ -1,6 +1,6 @@ - + @@ -120,6 +120,7 @@ + Index: UI/PR/GA/dlgTBStartNew.cls.xml =================================================================== diff -u -r1074 -r1210 --- UI/PR/GA/dlgTBStartNew.cls.xml (.../dlgTBStartNew.cls.xml) (revision 1074) +++ UI/PR/GA/dlgTBStartNew.cls.xml (.../dlgTBStartNew.cls.xml) (revision 1210) @@ -5,6 +5,7 @@ KeyCodesCNTs,UILibCtrlCNTs Default %Library.TMFormClass +0 %Library.String @@ -273,7 +274,6 @@ ArrayDS("0-Index","IS")=4 ArrayDS("0-Index","WS")=2 */ - ]]> @@ -287,7 +287,6 @@ Quit:(..cboDesign.ItemIndex=-1) 0 Quit:(..cboTemplateCode.ItemIndex=-1) 0 Quit 1 - ]]> @@ -299,7 +298,6 @@ @@ -315,7 +313,6 @@ Set ..cboTemplateCode.OnChangeItem=$lb(%this,"cboTemplateCodeChangeItem") Do ..InitializeCtrls() q $$$OK - ]]> @@ -336,7 +333,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -362,8 +358,6 @@ q ;============================================================================= - - ]]> @@ -402,8 +396,6 @@ ;End of user code s Args=$lb(Sender,PrevIndex) q - - ]]> @@ -424,16 +416,15 @@ If (Key=$$$keyEnter)&&(..cboDesign.ItemIndex>-1) Do . ; Move focus . If ..cboTemplateCode.Items.Count=1 Do - .. ;Do:(..btnOK.CanFocus()) ..btnOK.SetFocus() - .. Do ..btnOKClick($LB(..btnOK)) + . . ;Do:(..btnOK.CanFocus()) ..btnOK.SetFocus() + . . Do ..btnOKClick($LB(..btnOK)) . Else Do - .. Set ..cboTemplateCode.DroppedDown="True" - .. Do ..cboTemplateCode.SetFocus() + . . Set ..cboTemplateCode.DroppedDown="True" + . . Do ..cboTemplateCode.SetFocus() ;End of user code s Args=$lb(Sender,Key,Shift) q - ]]> @@ -455,8 +446,6 @@ ;End of user code s Args=$lb(Sender,PrevIndex) q - - ]]> @@ -481,8 +470,6 @@ tceSetDefault(ComboOref) Do:(ComboOref.ItemIndex=-1)&&(ComboOref.Items.Count>0) ComboOref.SetIndex(0) - - ]]> @@ -506,7 +493,6 @@ ;End of user code s Args=$lb(Sender,Key,Shift) q - ]]> Index: UI/PR/GA/Viewer.cls.xml =================================================================== diff -u -r1074 -r1210 --- UI/PR/GA/Viewer.cls.xml (.../Viewer.cls.xml) (revision 1074) +++ UI/PR/GA/Viewer.cls.xml (.../Viewer.cls.xml) (revision 1210) @@ -5,6 +5,7 @@ KeyCodesCNTs,TTreeViewExCNTs,PRGACNTs Default %Library.TMFormClass +0 %Library.Boolean @@ -176,7 +177,6 @@ arTree(1,1,3,5)=("Onder A5", "A5", "A1", "..Form") */ - ]]> @@ -416,7 +416,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -438,7 +437,6 @@ ;End of user code s Args=$lb(Sender,Action) q - ]]> @@ -459,7 +457,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -480,7 +477,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -523,9 +519,7 @@ 0 document literal - @@ -573,8 +567,6 @@ ierMessage(msg) If ($D(MApplication)) Do MApplication.MessageBox(msg,,"Import/Export ResVisual") Quit - - ]]> @@ -673,8 +665,6 @@ . Do ..cboTemplate.Items.AddItem(rs.Get("ComboText"), rs.Get("ID")) Do rs.%Close() Quit - - ]]> @@ -749,8 +739,6 @@ Kill frmDlg.arTV Merge frmDlg.arTV=tmpAr Quit - - ]]> @@ -832,8 +820,6 @@ . Set RijFmtSel=$S(RijFmt'="":RijFmt_" SEL", 1:"") . Do ..tvProduct.BuildNode(ParentNode,..arTree(1,iG,iS,iI,iK), $LB(iK), 0,RijFmt,RijFmtSel) Quit - - ]]> @@ -876,7 +862,6 @@ arTree(1,1,3,5)=("Onder A5", "A5", "A1", "..Form") */ - ]]> @@ -892,7 +877,6 @@ Do ..Form.ShowModal() Quit - ]]> @@ -914,7 +898,6 @@ ; ##class(UI.Lib.Ctrl.TComboBox). ; ##class(UI.Lib.Ctrl.TTreeViewEx2). - ]]> @@ -935,7 +918,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -956,15 +938,14 @@ If $$InputBox^vhVisual("Select Product","Geef een geldig ProductID",.ProdID)=$$$mrOk Do . Set ..cboTemplate.ItemIndex=-1 . If $L(ProdID) && (##class(Prod.GAData.Product).%ExistsId(ProdID)) Do - .. Set Prod=##class(Prod.GAData.Product).OpenWithCalc(ProdID) - .. Do ..BuildProductTree(Prod) + . . Set Prod=##class(Prod.GAData.Product).OpenWithCalc(ProdID) + . . Do ..BuildProductTree(Prod) . Else Do - .. Set ..txtProductID.Text=ProdID + . . Set ..txtProductID.Text=ProdID ;End of user code s Args=$lb(Sender) q - ]]> @@ -985,7 +966,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1007,7 +987,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1037,8 +1016,6 @@ ;End of user code s Args=$lb(Sender) q - - ]]> @@ -1097,8 +1074,6 @@ . Set $E(t,1)="" . Set $P(sText,$C(13,10),i)=t Quit $TR(sText, ",.""", ";,") - - ]]> @@ -1125,7 +1100,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1154,7 +1128,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> Index: UI/PR/GA/Verlichting.cls.xml =================================================================== diff -u -r1185 -r1210 --- UI/PR/GA/Verlichting.cls.xml (.../Verlichting.cls.xml) (revision 1185) +++ UI/PR/GA/Verlichting.cls.xml (.../Verlichting.cls.xml) (revision 1210) @@ -2890,12 +2890,12 @@ If Answer=$$$mrYes Do . Set ProdOK=..CreateProduct() . If ProdOK Do - .. If '..StandAlone Set ..Form.ModalResult=$$$mrOk - .. Else Do - ... Do MApplication.MessageBox("Product ID = "_ ..Product.%Id()) - ... Do ..Form.Close() + . . If '..StandAlone Set ..Form.ModalResult=$$$mrOk + . . Else Do + . . . Do MApplication.MessageBox("Product ID = "_ ..Product.%Id()) + . . . Do ..Form.Close() . Else Do - .. Do MApplication.MessageBox($$$msg,MApplication.Title,$$$MBICONEXCLAMATION) + . . Do MApplication.MessageBox($$$msg,MApplication.Title,$$$MBICONEXCLAMATION) ;End of user code s Args=$lb(Sender) Index: UI/PR/GA/KaderDeur.cls.xml =================================================================== diff -u -r1074 -r1210 --- UI/PR/GA/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 1074) +++ UI/PR/GA/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 1210) @@ -5,6 +5,7 @@ KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs Default %Library.TMFormClass +0 %TMButton @@ -164,7 +165,6 @@ Set NewKP=KadObj.KostPrijs(QtyStaffel,"",1,1) Kill %DtlRecalcOnly Quit - ]]> @@ -250,7 +250,6 @@ Do MApplication.MessageBox(msg,"Producten valideren",$$$MBICONEXCLAMATION) d ..TTrace(msg) Quit - ]]> @@ -586,7 +585,6 @@ . Do MApplication.MessageBox($$$msg,"Kaderdeur - Ingave",$$$MBICONSTOP) Quit tmp ;----------------------------------------------------------------------------- - ]]> @@ -1571,7 +1569,7 @@ Set ..txtHoogte.AllowedCharSet="csFloat" Set ..txtBreedte.AllowedCharSet="csFloat" ; Temporary default "Calc Schaduwprijs" - Set ..chkCalcSchaduwPrijs.Checked="False" ; "True" + Set ..chkCalcSchaduwPrijs.Checked="False" Set ..txtKadID.Text="11093" Quit @@ -1623,8 +1621,6 @@ Do ..cboLosProfDeel.SetIndex(-1) ; ##class(UI.Lib.Ctrl.TComboBox).FillItems Quit - - ]]> @@ -1682,7 +1678,6 @@ Index: UI/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r1185 -r1210 --- UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 1185) +++ UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 1210) @@ -5321,8 +5321,8 @@ If blnDoUpdate Do . Set i="" . For Set i=$O(tmpAr(i)) Quit:(i="") Do - .. Set Oref=$G(tmpAr(i,"Oref")) - .. Do:(Oref) lceFakeUserInput(Oref,tmpAr(i,"Val")) + . . Set Oref=$G(tmpAr(i,"Oref")) + . . Do:(Oref) lceFakeUserInput(Oref,tmpAr(i,"Val")) Quit lceFakeUserInput(ComboOref,Key) Index: UI/PR/GA/dlgTBOpties.cls.xml =================================================================== diff -u -r1074 -r1210 --- UI/PR/GA/dlgTBOpties.cls.xml (.../dlgTBOpties.cls.xml) (revision 1074) +++ UI/PR/GA/dlgTBOpties.cls.xml (.../dlgTBOpties.cls.xml) (revision 1210) @@ -4,6 +4,7 @@ serial Default %Library.TMFormClass +0 %Library.TMForm @@ -441,7 +442,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -574,8 +574,6 @@ ; Verpakking // ==> in te vullen door Parent Form ;Do ..cboVerpakking.FillItems($$$CTxt(lbText),lbIDs) - - ]]> @@ -592,7 +590,6 @@ ;Quit:(..cboOndSpecial.ItemIndex=-1) 1 ; No validation on this control ;Quit:(..cboRugStukVerlaagd.ItemIndex=-1) 1 ; No validation on this control Quit 1 - ]]> @@ -605,7 +602,6 @@ Set ..btnOK.Enabled=$S(..IsVolledig()=0:"False", 1:"True") ;Do WL^vhDBG("MK="_ ..cboMatKlant.ItemIndex_" SR="_ ..cboStalenRug.ItemIndex_" VP="_ ..cboVerpakking.ItemIndex) Quit - ]]> @@ -627,8 +623,6 @@ ;End of user code s Args=$lb(Sender) q - - ]]> @@ -647,7 +641,6 @@ Set ..cboVerpakking.OnChangeItem=$lb(%this,"cboVerpakkingChangeItem") Do ..InitializeCtrls() q $$$OK - ]]> @@ -668,7 +661,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -694,8 +686,6 @@ q ;============================================================================= - - ]]> @@ -719,8 +709,8 @@ Set strNietMee=##class(BL.PR.GA.TandemBox).NietMeeToepassen(VPKey) If strNietMee="ASK" Do . If ..NMAnswer="" Do - .. Set msg="Losse onderdelen niet meeleveren?" - .. Set ..NMAnswer=MApplication.MessageBox(msg, "NIET Meeleveren", $$$MBOKCANCEL) + . . Set msg="Losse onderdelen niet meeleveren?" + . . Set ..NMAnswer=MApplication.MessageBox(msg, "NIET Meeleveren", $$$MBOKCANCEL) . Set strNietMee=$S(..NMAnswer=$$$mrCancel:"False", 1:"True") Set:($IsObject(..blTBox)) blnBinnenLade=(..blTBox.BTValues.GetAt("TBLadeType")="B") Set lbNietMee=$S(strNietMee="True":##class(BL.PR.GA.TandemBox).DFLNietMeeList(.blnBinnenLade), 1:"") @@ -745,7 +735,6 @@ Set ..chkNietMee10.Checked=$$$NMInList("NMOpvullijst") Set ..chkNietMee11.Checked=$$$NMInList("NMAntislipmat") Quit - ]]> @@ -795,7 +784,6 @@ Quit /* */ - ]]> Index: UI/PR/GA/Greep.cls.xml =================================================================== diff -u -r1074 -r1210 --- UI/PR/GA/Greep.cls.xml (.../Greep.cls.xml) (revision 1074) +++ UI/PR/GA/Greep.cls.xml (.../Greep.cls.xml) (revision 1210) @@ -5,6 +5,7 @@ KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs Default %Library.TMFormClass +0 30 @@ -1014,9 +1015,9 @@ If Answer=$$$mrYes Do . Set ProdOK=..CreateProduct() . If ProdOK Do - .. Do ..AppCloseFormOK() + . . Do ..AppCloseFormOK() . Else Do - .. Do MApplication.MessageBox($$$msg,MApplication.Title,$$$MBICONEXCLAMATION) + . . Do MApplication.MessageBox($$$msg,MApplication.Title,$$$MBICONEXCLAMATION) ;End of user code s Args=$lb(Sender) Index: UI/Utils/MAppLauncher/MainForm.cls.xml =================================================================== diff -u -r1185 -r1210 --- UI/Utils/MAppLauncher/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1185) +++ UI/Utils/MAppLauncher/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1210) @@ -149,7 +149,7 @@ For i=1:1:$LL(lbNodes) Do:($LD(lbNodes,i)) . Set $LI(lbParams,i)=$G(..Params(NdMain,$LI(lbNodes,i))) - ;d ..TTrace($$LCVT^vhLib(lbParams)) + ;d ..TTrace($$LCVT^vhLib(lbParams)) Quit lbParams ]]> Index: UI/PR/GA/dlgTBSpoelbak.cls.xml =================================================================== diff -u -r1074 -r1210 --- UI/PR/GA/dlgTBSpoelbak.cls.xml (.../dlgTBSpoelbak.cls.xml) (revision 1074) +++ UI/PR/GA/dlgTBSpoelbak.cls.xml (.../dlgTBSpoelbak.cls.xml) (revision 1210) @@ -4,6 +4,7 @@ serial Default %Library.TMFormClass +0 %Library.TMForm @@ -207,7 +208,6 @@ ; Else Quit 1 - ]]> @@ -252,7 +252,6 @@ ; Else Quit 1 - ]]> @@ -568,7 +567,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -689,7 +687,6 @@ new lbText,lbIDs ;Do ..cboVerpakking.FillItems($$$CTxt(lbText),lbIDs) Quit - ]]> @@ -700,14 +697,13 @@ document literal 0)&&(..txtSPZMI.Text>0)&&(..txtSPZRE.Text>0) ; &&(..lblSPBR.Caption>0) + If (..lblSifonQty.Caption=2) Quit (..txtSPZLI.Text>0)&&(..txtSPZMI.Text>0)&&(..txtSPZRE.Text>0) Quit:(..lblSPZLI.Caption="") 0 Quit:(..lblSPZRE.Caption="") 0 Quit:(..lblSPBR.Caption="") 0 ;Quit:(..cboMatKlant.ItemIndex=-1) 0 ;Quit:(..cboOndSpecial.ItemIndex=-1) 1 ; No validation on this control Quit 1 - ]]> @@ -719,7 +715,6 @@ @@ -741,8 +736,6 @@ ;End of user code s Args=$lb(Sender) q - - ]]> @@ -756,7 +749,6 @@ @@ -777,7 +769,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -803,8 +794,6 @@ q ;============================================================================= - - ]]>