To Store / Extract and Use variables in between coded steps

Hi,

My scenario is - I have a value being generated on the fly (by appending the current time stamp) and could store it in a String in a Coded step. But, I'm unable to use/refer the variable in another coded step. Also, I require to verify an element having this variable's value as its identifier.

Here, the "PriceName" is where I'm trying to generate a value and to make use of in another coded step and wanna use to identify an element. I tried using SetExtractedValue, GetExtractedValue, Utility.valueHolder...but, facing one or the other issue like "not stored in data source... , might be restricted due to its scope... , Null exception..."

Value is generating and storing in "Public Sub Library_AddPrice_ValueRange_CodedStep()".

Value to be accessed in "Public Sub Library_AddPrice_ValueRange_CodedStep1()"

Below is the entire code for your easy reference...Please help.

Imports Telerik.TestingFramework.Controls.KendoUI
Imports Telerik.WebAii.Controls.Html
Imports Telerik.WebAii.Controls.Xaml
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Linq

Imports ArtOfTest.Common.UnitTesting
Imports ArtOfTest.WebAii.Core
Imports ArtOfTest.WebAii.Controls.HtmlControls
Imports ArtOfTest.WebAii.Controls.HtmlControls.HtmlAsserts
Imports ArtOfTest.WebAii.Design
Imports ArtOfTest.WebAii.Design.Execution
Imports ArtOfTest.WebAii.ObjectModel
Imports ArtOfTest.WebAii.Silverlight
Imports ArtOfTest.WebAii.Silverlight.UI

Namespace Version7_21
    
Public NotInheritable Class Utility
    Private Sub New()
    End Sub

    Public Shared valueHolder As String
    Public Shared Sub writeToFile(path As [String], content As [String])


        Dim file As New System.IO.StreamWriter(path)
        file.WriteLine(content)
        file.Close()
    End Sub
End Class
    
    

    Public Class Library_AddPrice_ValueRange
        Inherits BaseWebAiiTest
        

#Region "[ Dynamic Pages Reference ]"

        Private _pages As Pages
        
        '''<summary>
        ''' Gets the Pages object that has references
        ''' to all the elements, frames or regions
        ''' in this project.
        '''</summary>
        Public ReadOnly Property Pages() As Pages
            Get
                If (_pages Is Nothing) Then
                    _pages = New Pages(Manager.Current)
                End If
                Return _pages
            End Get
        End Property
        
#End Region
        
        ' Add your test methods here...

        <CodedStep("Entering Price Label")> _
        Public Sub Library_AddPrice_ValueRange_CodedStep()
            
            Dim str1, str2
            Dim PriceName AS String
            
            str1 = System.DateTime.Now.ToString("HH:mm:ss").Replace("/","")
            str2 = str1.Replace(":","")
            PriceName = "Price Fee " + str2.Replace(" ","")
            
            SetExtractedValue("PriceName", PriceName)
            
            Dim FeeName As String = GetExtractedValue("PriceName")
            SetExtractedValue("PriceFeeName", FeeName)
            
            Dim myData As Object = GetExtractedValue("PriceFeeName")
            Log.WriteLine(myData)
            
            Utility.valueHolder = GetExtractedValue("PriceName")
            Log.WriteLine(Utility.valueHolder.ToString())
            Utility.writeToFile("D:\OBFS Project\V 7.21\PDFS_Version7.21\Data\PriceDataSheet.xls", Utility.valueHolder)
            
            ActiveBrowser.Window.SetFocus()
            Pages.ProductStudio.PyLabelText.Focus()
            Pages.ProductStudio.PyLabelText.MouseClick
            Manager.Desktop.KeyBoard.TypeText(PriceName, 50, 100, true)
              
        End Sub

        '<CodedStep("New Coded Step")> _
        'Public Sub Library_AddPrice_ValueRange_CodedStep1()
            'Log.WriteLine(GetExtractedValue(Utility.valueHolder))
            'Log.WriteLine(myData)
        'End Sub

    End Class
End Namespace