serial KeyCodesCNTs,ReportErrorCNTs,ProdVertalingCNTs Default %Library.TMFormClass 0 %TMSpeedButton %TMCheckBox %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMEdit Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal CopyMode:%Integer,ToType:%String="" cache 0 document literal Args:%String cache 0 document literal 3 1 2 %Library.SQLQuery SELECT DISTINCT Groep FROM Res.Vertaling %Library.SQLQuery paGroep:%String SELECT ID,Groep,Intern,RandInfo,Taal,Type,Vertaling FROM Res.Vertaling WHERE Groep=:paGroep %Library.String %Library.String 0 %Library.Integer 0 %Library.String 0 %Library.Integer -1 %Library.Integer -1 %Library.Integer %Library.String "False" %Library.TMForm %TMGroupBox %TMGroupBox %Library.Integer 0 %Library.Integer 0 %TMPanel %TMPanel %TMPanel %Library.Integer %Library.Integer 0 - TranslationBagKey=0 er is geen translation meegegeven, dus alle vertalingen weergeven (filters werken wel nog) - TranslationBagKey=$$%J^vhRtn1(), dus maw een unieke global sleutel de vertalingen aanwezig in de translationbag worden weergegeven, andere niet Opmaak: TranslationBag(TranslationBagKey,Intern)=VertalingVerplicht Bijv. voor het kenmerk kleur kunnen er volgende zaken in de bag zitten: TranslationBag(1518002,"PRNr")=62361 PS: PRNr is steeds aanwezig in de tBag TranslationBag(1518002,"Wit")="L" TranslationBag(1518002,"Wit")="O" TranslationBag(1518002,"Wit")="K" %Library.String 0 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMComboBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMImageList %TMLabel %Library.String %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMStringGrid Wordt gebruikt bij zoekverrichtingen %Library.String 0 %Library.TMTimer %TMEdit initvalue:%String cache 0 %Status document literal Row:%String cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Args:%String cache 0 document literal 0) Do . Set MApplication.ScreenCursor=$$$crHourGlass . New Loop,tmpItem . For Loop=0:1:(..SortedListView.lvItems.Items.Count-1) Do .. Set tmpItem=..SortedListView.lvItems.Items.GetItems(Loop) .. Quit:(tmpItem.Selected="False") .. Set Intern=tmpItem.Caption .. Set Type=tmpItem.SubItems.GetStrings(0) .. Quit:((Intern="") || (Type="")) .. If ..rVerwijderVertaling(Groep,Intern,Type)="" Do ... Set DelCnt=DelCnt+1 .. Else Do ... Set DelErrCnt=DelErrCnt+1 . Do ..EVENTRefresh(Args) . Set MApplication.ScreenCursor=$$$crDefault . If DelErrCnt>0 Do .. Do MApplication.MessageBox(DelErrCnt _ " vertaling(en) niet verwijderd.",..Form.Caption,$$$MBICONEXCLAMATION) ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Groep,Intern,VertalingsType:%String,FullName:%Integer=0 cache 0 %Library.String document literal Groep,Intern,VertalingsType:%String cache 0 %Library.Integer document literal ClassName:%String cache 0 %Library.Integer document literal cache 0 document literal SQL wildcards . Set WHEREStr=$TR(WHEREStr,"?","_") . Set WHEREStr="UPPER(Intern) LIKE '" _ WHEREStr _ "'" Quit WHEREStr GetVertalingClause() New WHEREStr Set WHEREStr="" If ..chkVertalingFilter.Checked="True" Do . Set WHEREStr=$ZCONVERT(..txtVertalingFilter.Text,"U") . Set WHEREStr=$TR(WHEREStr,"*","%") //Klassieke wildcards -> SQL wildcards . Set WHEREStr=$TR(WHEREStr,"?","_") . Set WHEREStr="UPPER(Vertaling) LIKE '" _ WHEREStr _ "'" Quit WHEREStr ]]> cache 0 %Library.Boolean document literal Via Text Text:%String="" cache 0 %Library.Integer document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal ErrorType:%Integer,Msg:%String="",Silent:%Boolean="False",MsgBoxType=0 cache 0 document literal Clean application shutdown cache 0 document literal BUG MAKOVA //----------------------------------------------------------------------------- //Vrijgeven Column Definitie Do ..CloseColumnDef() //Vrijgeven eventuele listpump forms If ..ListPumpTaal'=0 Do . Do ..ListPumpTaal.%Close() If ..ListPumpType'=0 Do . Do ..ListPumpType.%Close() //Vrijgeven van de detailform If ..DetailForm'=0 Do . Set ..DetailForm.FinalClose="True" . Do ..DetailForm.%Close() //Vrijgeven van de detaillinkform If ..DetailLinkForm'=0 Do . Set ..DetailLinkForm.FinalClose="True" . Do ..DetailLinkForm.%Close() Quit ]]> cache 0 document literal MaxIDColIndex Set MaxIDColIndex=ColIndex //Verwijderen vorige kolommen Do ..ClearTaalColumnDef() //Inlezen van de huidig geselecteerde talen New TalenOK,Loop,tmpTaal,tmpTaalID Set TalenOK=..ListPumpTaal.GetDestViaPieces("/") For Loop=1:1:$L(TalenOK,"/") Quit:(TalenOK="") Do . Set tmpTaalID=$P($P(TalenOK,"/",Loop),": ",1) //bijv. 'N' . Set tmpTaal=$P($P(TalenOK,"/",Loop),": ",2) //bijv. 'Nederlands' . Set ColIndex=MaxIDColIndex+Loop . Set ColumnDef($$$cdTaal,tmpTaalID)=$LB(ColIndex,0,"False",tmpTaal) . Set ColumnDefIndex(ColIndex)=$LB($$$cdTaal,tmpTaalID) Quit ]]> Row:%Integer cache 0 document literal Groep,Intern,Type,Taal:%String cache 0 document literal lock niet gelukt! If LockGranted="False" Do . Do MApplication.MessageBox("De geselecteerde vertaling wordt momenteel aangepast, probeer later opnieuw.","VAN HOECKE",$$$MBICONINFORMATION) Quit LockGranted ]]> Groep,Intern,Type,Taal:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 %Library.String document literal Row:%Integer cache 0 %Library.String document literal Row:%Integer cache 0 %Library.String document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal ListPump:UI.Lib.Dlg.ListDataPump,Caption:%String,UpDownVisible:%Boolean="False" cache 0 document literal ColumnType:%Integer cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Groep,Intern,Type:%String cache 0 %Library.String document literal cache 0 document literal zo ja, save, zo nee reset+quit New Vertaling Set Vertaling=..sgVertalingen.GetCells(..FEditCol,..FEditRow) If ..FEditValue=Vertaling Do Quit . Set ..FEditCol=-1 //Reset Vars . Set ..FEditRow=-1 . Set ..FEditValue="" //Niet saven wanneer controlcharacters in vertaling, dan is dit reeds gebeurd ih detailscherm Quit:(..HasControlChars(Vertaling)) New Groep Set Groep=..dCOMPREADGroep() Quit:(Groep="") New Intern Set Intern=..dCOMPREADIntern(..FEditRow) Quit:(Intern="") New VertalingsType Set VertalingsType=..dCOMPREADVertalingsType(..FEditRow) Quit:(VertalingsType="") New Taal Set Taal=$LI(ColumnDefIndex(..FEditCol),2) Quit:(Taal="") New tmpID Set tmpID=Groep_"||"_Intern_"||"_VertalingsType_"||"_Taal New VertalingsObj Set VertalingsObj=##class(Res.VertalingAbstract).%OpenId(tmpID) If VertalingsObj=$$$NULLOREF Do . New ClassName . Set ClassName=..GetRelatedClassName(Groep,Intern,VertalingsType,1) . Quit:(ClassName="") . Xecute "Set VertalingsObj=##class("_ClassName_").%New()" . If VertalingsObj=$$$NULLOREF Do ..ReportError($$$reCannotCreateNewObj,"Res.VertalingAbstract") . Do VertalingsObj.GroepSetObjectId(Groep) . Set VertalingsObj.Intern=Intern . Do VertalingsObj.TypeSetObjectId(VertalingsType) . Do VertalingsObj.TaalSetObjectId(Taal) Quit:(VertalingsObj=$$$NULLOREF) Set VertalingsObj.Vertaling=Vertaling Set ..lblMsg.Caption="Bezig met opslaan... even geduld." Do ..VertalingLOCK(Groep,Intern,VertalingsType,Taal) Set tmpStatus=VertalingsObj.%Save() Do ..VertalingUNLOCK(Groep,Intern,VertalingsType,Taal) Set ..lblMsg.Caption="" If $$$ISERR(tmpStatus) Do ..ReportError($$$reStatusError,tmpStatus) Do VertalingsObj.%Close() Set ..FEditCol=-1 Set ..FEditRow=-1 Set ..FEditValue="" Quit ]]> cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal N %Library.CacheSerialState list "%Library.TMFormClass" Address Form Label1 Panel1 Panel2 Panel3 StringGrid btnAnnuleren cbbGroep chkAlleenNietVertaalde chkFrans chkIncludeLabel chkIncludeOmschrijving chkNederlands lvVertalingen Label2 Label3 Panel4 btnSaveAsNew lblVertaling txtIntern txtType txtVertaling Label4 txtTaal btnDelete chkIncludeKortOmsch Label5 btnSave SortCol Bevel1 btnRefresh tmrUpdate Panel5 chkIncludeIntern txtSearchStr TranslationBagKey tmpSearchIndex ilVlaggen SpeedButton1 btnVoorbeeld CurrentLockVertaling StringGrid1 lblBewerkingen CheckListBox1 CheckListBox2 StatusBar1 CheckBox1 CheckBox2 CheckBox3 Edit1 GroupBox1 GroupBox2 SpeedButton2 SpeedButton3 pmTalen pmTypes Button1 ListPumpTaal ListPumpType btnFilterTaal btnFilterType chkAlleTalen chkAlleTypes chkInternFilter sgVertalingen txtInternFilter btnDetailsBekijken btnNieuweVertaling btnVertalingVerwijderen DetailForm FEditCol FEditRow FEditValue lblMsg Memo1 FinalClose DetailLinkForm pmNieuweVertaling pmiVertaling pmiWebLink pmVoorbeeldTalen BaseURL SortedListView pLastGroep pmVertalingVerwijderen pmiDelSelVertaling pmiViaLijst pmiDelViaLijst btnCopyTrans pmCopyTrans pmiCopySelTrans pmiCopySelTransAllTypes pmiCopySelTransToType pmiSep1 chkVertalingFilter txtVertalingFilter