serialKeyCodesCNTs,ReportErrorCNTsDefault%Library.TMFormClass59254,4242659254,42426%Library.Boolean0%Library.String%Library.TMForm%TMLabel%TMMenuItem%TMMenuItem%TMPanel%TMSaveDialog%TMButton%TMButton%TMButton%TMButton%TMCheckBox%TMCheckBox%TMCheckListBox%TMCheckListBox%TMLabel%TMLabel%TMLabel%TMLabel%TMLabel%TMLabel%TMMenuItem%TMMenuItem%TMMenuItem%TMMenuItem%TMMenuItem%TMMenuItem%TMMenuItem%TMPopupMenu%TMEdit%TMEdit%TMEditinitvalue:%String0%Status0Args:%String00initvalue:%String0MApplicationinitvalue:%String0%Library.StatusClassName:%String0%Library.Boolean2 Do
. For Loop=1:1:$L(tmpClass,".")-2 Do
.. Set $E(tmpClass,$F(tmpClass,".")-1)="_"
If $E(tmpClass,1,4)="User" Do
. Set $E(tmpClass,1,4)="SQLUser"
*/
Set MApplication.ScreenCursor=$$$crHourGlass
Do ..clbIDs.Items.BeginUpdate()
Do ..clbIDs.Clear()
Set result=##class(%ResultSet).%New(..txtClassName.Text_":Extent")
;Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
;Do result.Prepare("SELECT ID From " _ tmpClass)
Do result.Execute()
New CurIndex,Cnt
Set Cnt=0
For Quit:('result.Next() || ..Canceled) Do
. Set CurIndex=..clbIDs.Items.Add(result.Get("ID"))
. Do ..clbIDs.SetChecked(CurIndex,"True")
. Set Cnt=Cnt+1
. If Cnt=100 Do
.. Set Cnt=0
.. Do MApplication.ProcessMessages()
Do ..clbIDs.Items.EndUpdate()
Set MApplication.ScreenCursor=$$$crDefault
Set ..lblIDs.Font.Style=$LB()
If ..Canceled Do
. Set ..lblMsg.Caption="Aborted preparing (" _ ..clbIDs.Items.Count _ " ID(s) available)."
Else Do
. Set ..lblMsg.Caption="Finished preparing (" _ ..clbIDs.Items.Count _ " ID(s) available)."
Set ..btnReplicate.Visible="False"
Set ..btnCancel.Visible="False"
Set ..lblLogo.Caption="ID Manipulator"
Set ..lblLogoShadow.Caption=..lblLogo.Caption
Quit 1
]]>ORef:%Integer0%Library.Boolean2 Do
. For Loop=1:1:$L(tmpClass,".")-2 Do
.. Set $E(tmpClass,$F(tmpClass,".")-1)="_"
If $E(tmpClass,1,4)="User" Do
. Set $E(tmpClass,1,4)="SQLUser"
*/
Set MApplication.ScreenCursor=$$$crHourGlass
Do ..clbIDs.Items.BeginUpdate()
Do ..clbIDs.Clear()
Set result=##class(%ResultSet).%New(..txtClassName.Text_":Extent")
//Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
//Do result.Prepare("SELECT ID From " _ tmpClass)
Do result.Execute()
New CurIndex,Cnt
Set Cnt=0
For Quit:('result.Next() || ..Canceled) Do
. If result.Get("ID")'=ORef.%Id() Do
.. Set CurIndex=..clbIDs.Items.Add(result.Get("ID"))
.. Do ..clbIDs.SetChecked(CurIndex,"True")
.. Set Cnt=Cnt+1
.. If Cnt=100 Do
... Set Cnt=0
... Do MApplication.ProcessMessages()
Do result.%Close()
Do ..clbIDs.Items.EndUpdate()
Set MApplication.ScreenCursor=$$$crDefault
Set ..lblIDs.Font.Style=$LB()
If ..Canceled Do
. Set ..lblMsg.Caption="Aborted preparing (" _ ..clbIDs.Items.Count _ " ID(s) available)."_$C(13,10)_"Source '"_ORef.%Id()_"' not included in list."
Else Do
. Set ..lblMsg.Caption="Finished preparing (" _ ..clbIDs.Items.Count _ " ID(s) available)."_$C(13,10)_"Source '"_ORef.%Id()_"' not included in list."
Set ..btnReplicate.Visible="True"
Set ..btnReplicate.Enabled="True"
Set ..lblLogo.Caption="Data Replicator"
Set ..lblLogoShadow.Caption=..lblLogo.Caption
Set ..btnCancel.Visible="False"
Quit 1
]]>ErrorType:%Integer,Msg:%String="",MsgBoxType=00Args:%String0Args:%String0Args:%String0Args:%String0Args:%String0Args:%String0Args:%String0Args:%String0Args:%String0 to continue.","Clipboard full",$$$MBICONINFORMATION+$$$MBOKCANCEL)
.. Set:(tmpAnswer=$$$mrOk) MApplication.ClipboardText="", CurLen=0
. Quit:(tmpAnswer=$$$mrCancel)
. Set MApplication.ClipboardText=MApplication.ClipboardText_OutputStr_$C(13,10)
. Set CopCount=CopCount+1
. Set ..lblMsg.Caption="Copying "_CopCount_" ID(s)... "_((CurLen*100)\32000)_"%"
Set ..lblMsg.Caption="Copied "_CopCount_" object(s)."
;End of user code
s Args=$lb(Sender)
q
//-----------------------------------------------------------------------------
CopyError
Set ..lblMsg.Caption="Error during copy"
Do MApplication.MessageBox("Er is een fout opgetreden bij het kopiëren.","Data Replicator",$$$MBICONERROR)
Set ..lblMsg.Caption=$ZERROR
Quit
]]>Args:%String0")
For Loop=0:1:..clbIDs.Items.Count-1 Do
. Quit:(..clbIDs.GetChecked(Loop)="False")
. Set ID=..clbIDs.Items.GetStrings(Loop)
. Xecute "Set Exists=##class("_..txtClassName.Text_").%ExistsId(ID)"
. Quit:('Exists)
. Xecute "Set Obj=##class("_..txtClassName.Text_").%OpenId(ID)"
. Quit:(Obj=$$$NULLOREF)
. Do XMLStrings.Add(" ")
. Do Obj.%Close()
Do XMLStrings.Add("")
Set ..lblMsg.Caption=Count_" object(s) XML copied."
If ..SaveDialog.Execute()="True" Do
. Do XMLStrings.SaveToFile(..SaveDialog.FileName)
. Do MApplication.Execute("notepad "_..SaveDialog.FileName)
Do XMLStrings.%Close()
;End of user code
s Args=$lb(Sender)
q
]]>Args:%String0Args:%String0Args:%String0Args:%String0%Library.CacheSerialStatelist"%Library.TMFormClass"AddressFormLabel1Label2Panel1btnPreparetxtClassNametxtORefCheckListBox1CheckListBox2Label3Label4Button1ProgressBar1btnReplicateclbIDsclbPropertiespbProgresslblIDslblPropertieslblClassNameEdit2lblMsgtxtIDFilterbtnXtrachkClearPreviousmiDeletepmIDsMenuItem1miCopyIDsmiCopyXMLchkSelAllPropsSaveDialogmiCopyExcellblLogolblLogoShadowMenuItem3miCreateNewInstancesmiCreateCopyMethodbtnCancelCanceledmiCopyCacheCurrentORef