Index: UI/Res/Vertaling/MainForm.cls.xml =================================================================== diff -u -r1074 -r31080 --- UI/Res/Vertaling/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1074) +++ UI/Res/Vertaling/MainForm.cls.xml (.../MainForm.cls.xml) (revision 31080) @@ -5,6 +5,7 @@ KeyCodesCNTs,ReportErrorCNTs,ProdVertalingCNTs Default %Library.TMFormClass +0 %TMSpeedButton @@ -238,8 +239,7 @@ %Library.SQLQuery -SELECT DISTINCT Groep FROM Res.Vertaling - +SELECT DISTINCT Groep FROM Res.Vertaling @@ -248,8 +248,7 @@ %Library.SQLQuery paGroep:%String SELECT ID,Groep,Intern,RandInfo,Taal,Type,Vertaling FROM Res.Vertaling -WHERE Groep=:paGroep - +WHERE Groep=:paGroep @@ -528,7 +527,6 @@ . . Do ..BekijkDetails() Quit - ]]> @@ -580,7 +578,6 @@ .. Set ColumnDefIndex(ColIndex)=$LB(ColumnType,SubType) Quit - ]]> @@ -602,7 +599,6 @@ Kill ColumnDef($$$cdTaal) Quit - ]]> @@ -615,7 +611,6 @@ Kill:($D(ColumnDef)) ColumnDef Kill:($D(ColumnDefIndex)) ColumnDefIndex Quit - ]]> @@ -991,7 +986,6 @@ ;End of user code s Args=$lb(Sender,Action) q - ]]> @@ -1174,7 +1168,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1195,7 +1188,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1225,8 +1217,6 @@ Do VertalingsObj.%Close() Quit tmpClassName - - ]]> @@ -1249,8 +1239,6 @@ Set RelatedForm=..GetRelatedFormViaClassName(Class) Quit RelatedForm - - ]]> @@ -1270,8 +1258,6 @@ Else If ClassName="VertalingLink" Set RelatedForm=..DetailLinkForm Quit RelatedForm - - ]]> @@ -1383,7 +1369,6 @@ . Set WHEREStr=$TR(WHEREStr,"?","_") . Set WHEREStr="UPPER(Vertaling) LIKE '" _ WHEREStr _ "'" Quit WHEREStr - ]]> @@ -1404,7 +1389,6 @@ New IDCol Set IDCol=$LI(ColumnDef($$$cdID,"Intern"),$$$ciColIndex) Quit $S(..sgVertalingen.GetCells(IDCol,1)="":"True",1:"False") - ]]> @@ -1426,7 +1410,6 @@ . Set:($E(Text,Loop)?1C) HasControlChar=1 Quit HasControlChar - ]]> @@ -1627,7 +1610,6 @@ Do Show^MakovaReportError(ErrorType,Msg,Silent,MsgBoxType) Quit - ]]> @@ -1666,7 +1648,6 @@ . Do ..DetailLinkForm.%Close() Quit - ]]> @@ -1701,7 +1682,6 @@ . Set ColumnDefIndex(ColIndex)=$LB($$$cdTaal,tmpTaalID) Quit - ]]> @@ -1743,7 +1723,6 @@ . Do tmpObj.%Close() Quit - ]]> @@ -1763,7 +1742,6 @@ . Do MApplication.MessageBox("De geselecteerde vertaling wordt momenteel aangepast, probeer later opnieuw.","VAN HOECKE",$$$MBICONINFORMATION) Quit LockGranted - ]]> @@ -1776,7 +1754,6 @@ @@ -1797,7 +1774,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1818,7 +1794,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1852,7 +1827,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1881,7 +1855,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1905,7 +1878,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1958,7 +1930,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -1982,7 +1953,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -2037,7 +2007,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -2059,7 +2028,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -2072,7 +2040,6 @@ @@ -2091,8 +2058,6 @@ Set Intern=..sgVertalingen.GetCells(InternColIndex,Row) Quit Intern - - ]]> @@ -2111,8 +2076,6 @@ Set VertalingsType=..sgVertalingen.GetCells(VTColIndex,Row) Quit VertalingsType - - ]]> @@ -2143,7 +2106,6 @@ AddToGroepCombo(ToList,Value,Object) Do ToList.Items.Add(Object_": "_Value) Quit - ]]> @@ -2178,7 +2140,6 @@ AddToTaalPump(ToList,Value,Object) Do ToList.Items.AddObject(Object_": "_Value,Object) Quit - ]]> @@ -2235,7 +2196,6 @@ AddToTypePump(ToList,Value,Object) Do ToList.Items.AddObject(Object_": "_Value,Object) Quit - ]]> @@ -2268,7 +2228,6 @@ Do RS.%Close() Quit - ]]> @@ -2318,7 +2277,6 @@ Set Item.Checked="True" Set Item.Caption=Item.Caption_" (std)" Quit - ]]> @@ -2360,7 +2318,7 @@ Set MApplication.ScreenCursor=$$$crDefault //Error handling voor Execute - If $$$ISERR(tmpStatus) Do ..ReportError($$$reStatusError,tmpStatus) Do RS.%Close() Quit + If $$$ISERR(tmpStatus) Do ..ReportError($$$reStatusError,tmpStatus) Do RS.Close() Quit Set MApplication.ScreenCursor=$$$crHourGlass @@ -2378,7 +2336,8 @@ New AddToList Set ..sgVertalingen.Visible="False" - For Quit:'RS.Next() Do + Set scQuery = $$$OK + For Quit:'RS.Next(.scQuery) Do . Set AddToList=1 //Standaard is toevoegen OK, de translationbag kan hier verandering in brengen . If ..TranslationBagKey'=0 Do .. If '$D(^TranslationBag(..TranslationBagKey,RS.Get("Intern"),RS.Get("Type"))) Do @@ -2397,7 +2356,7 @@ . Set:((RowCount-1)#50=0) ..Form.Caption="Product Vertaling refresh: "_(RowCount-1)_" vertaling(en)" Set ..sgVertalingen.Visible="True" - Do RS.%Close() + Do RS.Close() New ProductStr Set ProductStr=$S(..TranslationBagKey'=0:", product: "_^TranslationBag(..TranslationBagKey,$$$tbsUnID)_".",1:".") @@ -2406,7 +2365,6 @@ Set ..sgVertalingen.Enabled=$S((RowCount-1)=0:"False",1:"True") Set MApplication.ScreenCursor=$$$crDefault - Quit ;----------------------------------------------------------------------------- @@ -2435,7 +2393,6 @@ Do ..sgVertalingen.SetObjects(ColIndex,RowIndex,HasControlChar) Quit - ]]> @@ -2455,8 +2412,6 @@ Set ListPump.btnAnnuleren.Enabled="False" Set ListPump.Form.Caption=Caption Quit - - ]]> @@ -2500,7 +2455,6 @@ . Do ..sgVertalingen.SetCells(ColIndex,0,ColName) . Do:(ColWidth'=0) ..sgVertalingen.SetColWidth(ColIndex,ColWidth) Quit - ]]> @@ -2677,7 +2631,6 @@ Set ..FEditValue="" Quit - ]]> @@ -2701,7 +2654,6 @@ Set ..FEditValue="" Quit - ]]> @@ -2722,7 +2674,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -2743,7 +2694,6 @@ ;End of user code s Args=$lb(Sender) q - ]]> @@ -2771,7 +2721,6 @@ ;End of user code s Args=$lb(Sender,ACol,ARow,Value) q - ]]> @@ -2802,7 +2751,6 @@ ;End of user code s Args=$lb(Sender,Key,Shift) q - ]]> @@ -2833,7 +2781,6 @@ ;End of user code s Args=$lb(Sender,Key) q - ]]> @@ -2865,7 +2812,6 @@ ;End of user code s Args=$lb(Sender,ACol,ARow,CanSelect) q - ]]> @@ -2890,7 +2836,6 @@ ;End of user code s Args=$lb(Sender,Key,Shift) q - ]]>