serial KeyCodesCNTs,ReportErrorCNTs Default %Library.TMFormClass UI.Utils.Spy5.MainForm %Library.String $$$NULLOREF %Library.String $$$NULLOREF %Library.String $$$NULLOREF %Library.TMForm %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %Library.String %TMPanel %TMPanel %TMPanel %TMPanel %TMSplitter %Library.String 0 %TMSpeedButton %TMButton %TMButton %TMSpeedButton %TMSpeedButton %TMButton %TMButton %TMSpeedButton %TMSpeedButton %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMCheckBox %TMCheckBox %TMGroupBox %TMGroupBox %TMGroupBox %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMMenuItem %TMMemo %TMMemo %TMPopupMenu %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPanel %TMTreeView %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal Property:%String cache 0 document literal cache 0 document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Node:%TMTreeNode cache 0 %Library.String document literal Node:%TMTreeNode cache 0 %Library.String document literal Node:%TMTreeNode cache 0 %Library.String document literal initvalue:%String cache 0 MApplication document literal Node:%TMTreeNode cache 0 document literal 0:"True",1:"False") Set VTVis=$S(Node.Level=2:"True",1:"False") Set:(..lblDefinitie.Visible'=DefVis) ..lblDefinitie.Visible=DefVis Set:(..gbMDBasis.Visible'=DefVis) ..gbMDBasis.Visible=DefVis Set:(..gbMDAdvanced.Visible'=DefVis) ..gbMDAdvanced.Visible=DefVis Set:(..gbVT.Visible'=VTVis) ..gbVT.Visible=VTVis //Vorige wijzigingen saven Do ..SaveNode(..LastNodeSelected) //De Groepgegevens inladen, er is STEEDS een groep geselecteerd //Er wordt enkel opnieuw ingelezen wanneer het om een verschillende groep gaat Do ..dCOMPLOADGroep(..dCOMPREADGroep()) Do:(Node.Level>0) ..dCOMPLOADDef(..dCOMPREADKenmerk()) Do:(Node.Level=2) ..dCOMPLOADVertTrans(..dCOMPREADVertalingsTypes()) Set ..LastNodeSelected=Node Quit ]]> initvalue:%String cache 0 %Library.Status document literal bug!) New pmiNieuweVertalingClick Set pmiNieuweVertalingClick=$LB(%this,"pmiNieuweVertaling") Set ..pmiNieuweVertaling.OnClick=pmiNieuweVertalingClick Set ..pmiNieuweVertaling.Tag="NV" Set ..pmiNieuweWebLink.OnClick=pmiNieuweVertalingClick Set ..pmiNieuweWebLink.Tag="NVL" //TreeView vullen Do ..dCOMPWRITEtvMetaStuff() //ListPump opvullen met vertalingstypes Set ..VTListPump=##class(UI.Lib.Dlg.ListDataPump).%New($LB(%this.Form.Address,0)) If ..VTListPump=$$$NULLOREF Do . Do ..ReportError($$$reCannotCreateNewObj,"ListDataPump") Else Do . Set ..btnShowListVertalingsTypes.Enabled="True" . Do ..dCOMPWRITEListPumpVTs() . Set ..VTListPump.Form.Caption="VertalingsTypes selecteren" . Set ..VTListPump.txtExtraListEntry.Visible="False" . Set ..VTListPump.btnExtraToDest.Visible="False" . Set ..VTListPump.btnDestUp.Visible="False" . Set ..VTListPump.btnDestDown.Visible="False" //Hint-tijd instellen Set MApplication.HintHidePause=10000 Set MApplication.Title="MetaDesigner ["_$ZU(5)_"]" q $$$OK ]]> Args:%String cache 0 document literal ErrorType:%Integer,Msg:%String="",Silent:%Boolean="False",MsgBoxType=0 cache 0 document literal Node:%TMTreeNode cache 0 document literal 0) ..dCOMPSAVEDef() //VertaalTrans saven wanneer geselecteerd (lev 2) Do:(Node.Level=2) ..dCOMPSAVEVertTrans() Quit ]]> 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 Default inlezen! New Key,Value,lbWdSort Do ListSortForm.lbSortList.Items.Clear() ;Set Key="" ;For Set Value=tmpMetaDef.WaardenSortering.GetNext(.Key) Quit:(Key="") Do ;. Do ListSortForm.lbSortList.Items.Add(Value) Set lbWdSort=tmpMetaDef.WaardenSortering For Key=1:1:$LL(lbWdSort) Do ListSortForm.lbSortList.Items.Add($LG(lbWdSort,Key)) New tmpAnswer,Loop,tmpLB Set tmpAnswer=ListSortForm.Form.ShowModal() If tmpAnswer=$$$mrOk Do . Set tmpMetaDef.WaardenSortering="" ; Do tmpMetaDef.WaardenSortering.Clear() . Set tmpLB="" . For Loop=0:1:ListSortForm.lbSortList.Items.Count-1 Do .. Set tmpLB=tmpLB_$LB(ListSortForm.lbSortList.Items.GetStrings(Loop)) ; Do tmpMetaDef.WaardenSortering.Insert(...) . Set tmpMetaDef.WaardenSortering=tmpLB . New tmpStatus . Set tmpStatus=tmpMetaDef.%Save() . If $$$ISERR(tmpStatus) Do ..ReportError($$$reStatusError,tmpStatus) Do tmpMetaDef.%Close() ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Kenmerk:%String cache 0 document literal INTERFACE INLEZEN Set ..chkMDVerplicht.Checked=$S(..CurrentKenmerkORef.Verplicht=1:"True",1:"False") Set ..chkMDToelatenEC.Checked=$S(..CurrentKenmerkORef.ToelatenEC=1:"True",1:"False") Set ..cbbMDFormaat.Text=..CurrentKenmerkORef.FormatLogicalToDisplay(..CurrentKenmerkORef.Format) Set ..txtMDKenmerk.Text=..CurrentKenmerkORef.Kenmerk Set ..txtMDOmschrijving.Text=..CurrentKenmerkORef.Omschrijving Set ..txtMDDecimalen.Text=..CurrentKenmerkORef.Decimalen Set ..txtMDEenheid.Text=..CurrentKenmerkORef.Eenheid Set ..txtMDLengte.Text=..CurrentKenmerkORef.Lengte Set ..txtMDMinWaarde.Text=..CurrentKenmerkORef.MinValue Set ..txtMDMaxWaarde.Text=..CurrentKenmerkORef.MaxValue Set ..txtMDVolgNr.Text=..CurrentKenmerkORef.VolgNr Set ..txtMDDesactiveerCode.Text=..CurrentKenmerkORef.DisableWhen Set ..txtMDLangtekstTransform.Text=..CurrentKenmerkORef.LangtekstTransform Set ..txtMDLangtekstVolgNr.Text=..CurrentKenmerkORef.LangtekstVolgNr Set ..txtMDMultiple.Text=..CurrentKenmerkORef.Multiple Set ..txtMDMultipleInterface.Text=..CurrentKenmerkORef.MultipleDisplay New SortType Set SortType=..CurrentKenmerkORef.SortTypeLogicalToDisplay(..CurrentKenmerkORef.SortType) Set ..cbbSortType.ItemIndex=..cbbSortType.Items.IndexOf(SortType) Quit ]]> Groep:%String cache 0 document literal INTERFACE INLEZEN Set ..txtMGCode.Text=..CurrentGroepORef.Code Set ..txtMGOmschrijving.Text=..CurrentGroepORef.Omschrijving Quit ]]> VertalingsTypes:%String cache 0 document literal Node:%TMTreeNode cache 0 %Library.String document literal Node:%TMTreeNode cache 0 %Library.String document literal Node:%TMTreeNode cache 0 %Library.String document literal cache 0 document literal OBJECT If ..CurrentKenmerkORef.%Id()="" Do //Als het gaat om een 'nieuw' object . Set ..CurrentKenmerkORef.Groep=..CurrentGroepORef . Set ..CurrentKenmerkORef.Kenmerk=..txtMDKenmerk.Text Set ..CurrentKenmerkORef.Verplicht=$S(..chkMDVerplicht.Checked="True":1,1:0) Set ..CurrentKenmerkORef.ToelatenEC=$S(..chkMDToelatenEC.Checked="True":1,1:0) Set ..CurrentKenmerkORef.Format=..CurrentKenmerkORef.FormatDisplayToLogical(..cbbMDFormaat.Text) Set ..CurrentKenmerkORef.Omschrijving=..txtMDOmschrijving.Text Set ..CurrentKenmerkORef.Decimalen=..txtMDDecimalen.Text Set ..CurrentKenmerkORef.Eenheid=..txtMDEenheid.Text Set ..CurrentKenmerkORef.Lengte=..txtMDLengte.Text Set ..CurrentKenmerkORef.MinValue=..txtMDMinWaarde.Text Set ..CurrentKenmerkORef.MaxValue=..txtMDMaxWaarde.Text Set ..CurrentKenmerkORef.VolgNr=..txtMDVolgNr.Text Set ..CurrentKenmerkORef.DisableWhen=..txtMDDesactiveerCode.Text Set ..CurrentKenmerkORef.LangtekstTransform=..txtMDLangtekstTransform.Text Set ..CurrentKenmerkORef.LangtekstVolgNr=..txtMDLangtekstVolgNr.Text Set ..CurrentKenmerkORef.Multiple=..txtMDMultiple.Text Set ..CurrentKenmerkORef.MultipleDisplay=..txtMDMultipleInterface.Text If ..cbbSortType.ItemIndex=-1 Set ..cbbSortType.ItemIndex=0 Set ..CurrentKenmerkORef.SortType=..CurrentKenmerkORef.SortTypeDisplayToLogical(..cbbSortType.Text) //INTERFACE -> OBJECT New tmpStatus Set tmpStatus=..CurrentKenmerkORef.%Save() If $$$ISERR(tmpStatus) Do ..ReportError($$$reStatusError,tmpStatus) Set ..txtMDKenmerk.ReadOnly="True" Quit ]]> cache 0 document literal OBJECT Set:(..CurrentGroepORef.%Id()="") ..CurrentGroepORef.Code=..txtMGCode.Text Set ..CurrentGroepORef.Omschrijving=..txtMGOmschrijving.Text //INTERFACE -> OBJECT New tmpStatus Set tmpStatus=..CurrentGroepORef.%Save() If $$$ISERR(tmpStatus) Do ..ReportError($$$reStatusError,tmpStatus) Set ..txtMGCode.ReadOnly="True" Quit ]]> cache 0 document literal 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 0 Do .. Set SortedVT(VolgNr)=RS.Get("ItemID")_": "_RS.Get("Omschrijving") . Else Do .. Do ListSort.lbSortList.Items.Add(RS.Get("ItemID")_": "_RS.Get("Omschrijving")_" [?]") //Huidige sortering grafisch tonen Set VolgNr="" For Set VolgNr=$O(SortedVT(VolgNr)) Quit:(VolgNr="") Do . Do ListSort.lbSortList.Items.Add(SortedVT(VolgNr)_" ["_VolgNr_"]") If ListSort.Form.ShowModal()=$$$mrOk Do . New VTObj,VTID,Loop . For Loop=0:1:ListSort.lbSortList.Items.Count-1 Do .. Set ListSort.lbSortList.ItemIndex=Loop .. Set VTID=$P(ListSort.lbSortList.Items.GetStrings(Loop),":",1) .. If '##class(Res.PI.VertalingsType).%ExistsId(VTID) Do Quit ... Do ..ReportError($$$reObjDoesNotExist,"VertalingsType: "_VTID) .. Set VTObj=##class(Res.PI.VertalingsType).%OpenId(VTID) .. If VTObj=$$$NULLOREF Do Quit ... Do ..ReportError($$$reUnableToOpenObj,"VertalingsType: "_VTID) .. Set VTObj.VolgNr=Loop+1 .. Do VTObj.%Save() .. Do VTObj.%Close() Do ListSort.%Close() ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal In de tag van het PMI (opgevuld bij OnCreate) NV: Vertaling NVL: VertalingLink 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 %Library.CacheSerialState "%Library.TMFormClass" Address Form Panel1 Splitter1 TreeView1 btnNieuw btnVerwijder CheckBox1 ComboBox1 Edit1 Edit10 Edit11 Edit14 Edit15 Edit16 Edit17 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8 Edit9 GroupBox1 GroupBox2 GroupBox3 Label1 Label10 Label11 Label12 Label13 Label14 Label17 Label18 Label19 Label2 Label20 Label3 Label4 Label5 Label6 Label7 Label8 Label9 Panel2 Panel3 pmNieuw pmiNieuweDefinitie pmiNieuweGroep pmiNieuweVT tvMetaStuff pmiNieuweVertaling pmiNieuweWebLink Memo1 txtMGCode txtMGOmschrijving CurrentGroepORef CurrentKenmerkORef CurrentVertalingsTypesORef cbbMDFormaat chkMDVerplicht txtMDDecimalen txtMDDesactiveerCode txtMDEenheid txtMDKenmerk txtMDLangtekstTransform txtMDLangtekstVolgNr txtMDLengte txtMDMaxWaarde txtMDMinWaarde txtMDMultiple txtMDMultipleInterface txtMDOmschrijving txtMDVolgNr btnAfsluiten btnOpslaan Label22 Label23 Label24 cbbSleutelSelectType txtVertalingsTypes cbbVTSleutelSelectType mmoVTSleutelSelectExec txtVTVertalingsTypes VTListPump btnShowListVertalingsTypes Button1 gbMDAdvanced gbMDBasis gbVT lblDefinitie Memo2 CurrentVTORef LastNodeSelected ilMetaStuff Label25 btnSetupSort cbbSortType Panel4 btnEvaluate lblOutputValue txtInputValue Label26 Label27 Panel5 btnEvaluateWaarde cbbVTWaardeExecType lblOutputValueWaarde mmoVTWaardeExec txtInputValueWaarde lblWaardeExec lblWaardeExecType pnlEvaluateWaarde btnTools miVTSortering pmTools miCacheObjectSpy COSForm chkMDToelatenEC