Management Tool Script Editing Error

[SanjoyNath]

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