Dear Experts,
What is this ?
We do these with SQL server long methods
We were trying to do short methods to paste the script directly with management tools Table Editor
We are getting error after pasting
C:\Users\Sanjoy Nath\AppData\Local\Temp
Value cannot be null.
Parameter name: element
PresentationCore
System.Collections.ListDictionaryInternal
at System.Windows.Automation.Peers.UIElementAutomationPeer.FromElement(UIElement element)
at System.Windows.Controls.DataGrid.CellAutomationValueHolder.TrackValue()
at System.Windows.Controls.DataGrid.ReleaseCellAutomationValueHolders()
at System.Windows.Controls.DataGrid.OnExecutedCommitEdit(ExecutedRoutedEventArgs e)
at System.Windows.Input.CommandBinding.OnExecuted(Object sender, ExecutedRoutedEventArgs e)
at System.Windows.Input.CommandManager.ExecuteCommandBinding(Object sender, ExecutedRoutedEventArgs e, CommandBinding commandBinding)
at System.Windows.Input.CommandManager.FindCommandBinding(Object sender, RoutedEventArgs e, ICommand command, Boolean execute)
at System.Windows.Input.CommandManager.OnExecuted(Object sender, ExecutedRoutedEventArgs e)
at System.Windows.RoutedEventArgs.InvokeHandler(Delegate handler, Object target)
at System.Windows.RoutedEventHandlerInfo.InvokeHandler(Object target, RoutedEventArgs routedEventArgs)
at System.Windows.EventRoute.InvokeHandlersImpl(Object source, RoutedEventArgs args, Boolean reRaised)
at System.Windows.UIElement.RaiseEventImpl(DependencyObject sender, RoutedEventArgs args)
at System.Windows.Input.RoutedCommand.ExecuteImpl(Object parameter, IInputElement target, Boolean userInitiated)
at System.Windows.Controls.DataGrid.EndEdit(RoutedCommand command, DataGridCell cellContainer, DataGridEditingUnit editingUnit, Boolean exitEditMode)
at System.Windows.Controls.DataGrid.CommitAnyEdit()
at System.Windows.Controls.DataGrid.OnEnterKeyDown(KeyEventArgs e)
at System.Windows.Controls.DataGrid.OnKeyDown(KeyEventArgs e)
at System.Windows.RoutedEventArgs.InvokeHandler(Delegate handler, Object target)
at System.Windows.RoutedEventHandlerInfo.InvokeHandler(Object target, RoutedEventArgs routedEventArgs)
at System.Windows.EventRoute.InvokeHandlersImpl(Object source, RoutedEventArgs args, Boolean reRaised)
at System.Windows.UIElement.RaiseEventImpl(DependencyObject sender, RoutedEventArgs args)
at System.Windows.UIElement.RaiseTrustedEvent(RoutedEventArgs args)
at System.Windows.Input.InputManager.ProcessStagingArea()
at System.Windows.Input.InputManager.ProcessInput(InputEventArgs input)
at System.Windows.Input.InputProviderSite.ReportInput(InputReport inputReport)
at System.Windows.Interop.HwndKeyboardInputProvider.ReportInput(IntPtr hwnd, InputMode mode, Int32 timestamp, RawKeyboardActions actions, Int32 scanCode, Boolean isExtendedKey, Boolean isSystemKey, Int32 virtualKey)
at System.Windows.Interop.HwndKeyboardInputProvider.ProcessKeyAction(MSG& msg, Boolean& handled)
at System.Windows.Interop.HwndSource.CriticalTranslateAccelerator(MSG& msg, ModifierKeys modifiers)
at System.Windows.Interop.HwndSource.OnPreprocessMessage(Object param)
at System.Windows.Threading.ExceptionWrapper.InternalRealCall(Delegate callback, Object args, Int32 numArgs)
at System.Windows.Threading.ExceptionWrapper.TryCatchWhen(Object source, Delegate callback, Object args, Int32 numArgs, Delegate catchHandler)
System.Windows.Automation.Peers.AutomationPeer FromElement(System.Windows.UIElement)
We are trying to paste this script in the management tools Table Editor
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Europe2 SAAN SAAGIRID script used by Numbering process
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function getNumber(EqualPartObject)
'We dont use these On Error Resume Next(this is for final releases sometimes)
'we create a text file first d:\testfile.txt
'Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f As Object 'we need to check in DPM scripts
Dim the_objects_counter_internal as Double
the_objects_counter_internal =0
Set fs = CreateObject("Scripting.FileSystemObject") 'we need to check in DPM scripts
''' Set F = fs.OpenTextFile("d:\\testfile.txt", ForAppending, TristateFalse) 'this dont work
Set f = fs.OpenTextFile("d:\\testfile.txt", ForAppending)
checkElement = False
Dim strToCheckRole As String
strToCheckRole = Obj.ClassType.Name
Call f.Write(vbCrLf & the_objects_counter_internal & "strToCheckRole=" & strToCheckRole & " " & Str(Now) )
Number = -1
If PositionMarkCreator.MarkProcessType = kSinglePart Then
'Calculate the single part number
PositionMarkCreator.UseTemplateType = kSinglePart
StartAt = PositionMarkCreator.GetStartAtForSinglePartsWithPrefix(EqualPartObject.Type, EqualPartObject.SinglePartPrefix)
Delta = PositionMarkCreator.getDeltaForSingleParts(EqualPartObject.Type)
Number = StartAt
Number = PositionMarkCreator.AddZerosToPartMark(Number)
' NumberWithTokens contains prefix
NumberWithTokens = PositionMarkCreator.getNumberWithTokens(Number)
Do Until PositionMarkCreator.isUniqueInTheModel(kBoth, NumberWithTokens)
StartAt = StartAt + Delta
Number = StartAt
Number = PositionMarkCreator.AddZerosToPartMark(Number)
NumberWithTokens = PositionMarkCreator.getNumberWithTokens(Number)
‘Role is string types
Call f.Write(vbCrLf& " FOR LOOP OF kSinglePart & " EqualPartObject Role =" & Role & " " & Str(Now) & EqualPartObject.Type & EqualPartObject.SinglePartPrefix & ( StartAt+Delta) & "IS STANDALONE = " & EqualPartObject.Standalone)
Loop
'Update the kernel by the number in order not to start the next time again
'from original startAt
' Ola: # 13323: because of speed pbs, i decommented this line
'
PositionMarkCreator.UpdateStartAtForSinglePartsWithPrefix EqualPartObject.Type, EqualPartObject.SinglePartPrefix, StartAt+Delta
ElseIf PositionMarkCreator.MarkProcessType = kPreliminaryPart Then
'Calculate the preliminary part number
StartAt = PositionMarkCreator.GetStartAtForPreliminaryPartsWithPrefix(EqualPartObject.Type, EqualPartObject.PreliminaryPartPrefix)
Delta = PositionMarkCreator.GetDeltaForPreliminaryParts(EqualPartObject.Type)
Number = StartAt
Do Until PositionMarkCreator.isUniqueInTheModel(kBoth, EqualPartObject.PreliminaryPartPrefix & Number)
StartAt = StartAt + Delta
Number = StartAt
‘Role is string types
Call f.Write(vbCrLf& " FOR LOOP OF kPreliminaryPart & " EqualPartObject Role =" & Role & " " & Str(Now) & EqualPartObject.Type & EqualPartObject.SinglePartPrefix & ( StartAt+Delta) & "IS STANDALONE = " & EqualPartObject.Standalone)
Loop
'Update the kernel by the number in order not to start the next time again
'from original startAt
' Ola: # 13323: because of speed pbs, i decommented this line
'
PositionMarkCreator.UpdateStartAtForPreliminaryPartsWithPrefix EqualPartObject.Type, EqualPartObject.PreliminaryPartPrefix, StartAt+Delta
Else
If EqualPartObject.IsMainPart Then
'Calculate the main part number, it’s a main part
PositionMarkCreator.UseTemplateType = kMainPart
StartAt = PositionMarkCreator.GetStartAtForMainPartsWithPrefix(EqualPartObject.Type, EqualPartObject.MainPartPrefix)
Delta = PositionMarkCreator.getDeltaForMainParts(EqualPartObject.Type)
Number = StartAt
Number = PositionMarkCreator.AddZerosToPartMark(Number)
' NumberWithTokens contains prefix
NumberWithTokens = PositionMarkCreator.getNumberWithTokens(Number)
Do Until PositionMarkCreator.isUniqueInTheModel(kBoth, NumberWithTokens)
StartAt = StartAt + Delta
Number = StartAt
Number = PositionMarkCreator.AddZerosToPartMark(Number)
NumberWithTokens = PositionMarkCreator.getNumberWithTokens(Number)
‘Role is string types
Call f.Write(vbCrLf& " FOR LOOP OF IsMainPart & " EqualPartObject Role =" & Role & " " & Str(Now) & EqualPartObject.Type & EqualPartObject.SinglePartPrefix & ( StartAt+Delta) & "IS STANDALONE = " & EqualPartObject.Standalone)
Loop
'Update the kernel by the number in order not to start the next time again
'from original startAt
' Ola: # 13323: because of speed pbs, i decommented this line
'
PositionMarkCreator.UpdateStartAtForMainPartsWithPrefix EqualPartObject.Type, EqualPartObject.MainPartPrefix, StartAt+Delta
End If
End If
f.Close
getNumber = Number
End Function
Can't find what you're looking for? Ask the community or share your knowledge.