Convert VBA to VB.NET

[Florian L.]

Hello,
I have written the following code in VBA

Sub CreateBatch_PDF()

Dim BatchStart As Date
Dim BatchEnd As Date
Dim Batchnumber As String
Dim MyBatchFunction As RtFunction
Dim MyAMLFunction As RtFunction
Dim ActualDate As String

BatchStart = CDate(thisProject.Variables.Item("sBatchStart").Value)BatchEnd = CDate(thisProject.Variables.Item("sBatchEnd").Value)
Batchnumber = CStr(thisProject.Variables.Item("sBatchNumber").Value)
Set MyBatchFunction = thisProject.RtFunctions.Item("fc_PDF_Batch")
Set MyAMLFunction = thisProject.RtFunctions.Item("fc_PDF_AML")
ActualDate = CStr(Day(Now)) + "-" + CStr(Month(Now)) + "-" + CStr(Year(Now)) + "_" + CStr(Hour(Now)) + "-" + CStr(Minute(Now)) + "-" + CStr(Second(Now))

MyBatchFunction.DynProperties("Filter.Fct_Filename") = Batchnumber + "_" + Computer + "_Batch_" + ActualDate + ".pdf"
MyAMLFunction.DynProperties("Filter.TimeFilter.ARVTime1") = BatchStart
MyAMLFunction.DynProperties("Filter.TimeFilter.ARVTime2") = BatchEnd
MyAMLFunction.DynProperties("Filter.Fct_Filename") = Batchnumber + "_" + Computer + "_AlarmList_" + ActualDate + ".pdf"

MyBatchFunction.Start
MyAMLFunction.Start

thisProject.Variables.Item("xCreateBatch").Value = 1
End Sub

This Makro should Export two PDFs via "Report Viewer: export/print" function.
Before using the Function, I manipulate The DynPropertiers for the Timefilter and the Filename.

Here is, what I have tried to convert into VB.NET

Sub CreateBatch_PDF()
Dim BatchStart As Date
Dim BatchEnd As Date
Dim Batchnumber As String
Dim MyBatchFunction As zenOn.IRtFunction
Dim MyAMLFunction As zenOn.IRtFunction
Dim ActualDate As String


BatchStart = CDate(Me.Variables.Item("sBatchStart").get_Value)
BatchEnd = CDate(Me.Variables.Item("sBatchEnd").get_Value)
Batchnumber = CStr(Me.Variables.Item("sBatchNumber").get_Value)
MyBatchFunction = Me.RtFunctions.Item("fc_PDF_Batch")
MyAMLFunction = Me.RtFunctions.Item("fc_PDF_AML")
ActualDate = CStr(Day(Now)) + "-" + CStr(Month(Now)) + "-" + CStr(Year(Now)) + "_" + CStr(Hour(Now)) + "-" + CStr(Minute(Now)) + "-" + CStr(Second(Now))


MyBatchFunction.DynProperties("Filter.Fct_Filename") = Batchnumber + "_" + Computer + "_Batch_" + ActualDate + ".pdf"
MyAMLFunction.DynProperties("Filter.TimeFilter.ARVTime1") = BatchStart
MyAMLFunction.DynProperties("Filter.TimeFilter.ARVTime2") = BatchEnd
MyAMLFunction.DynProperties("Filter.Fct_Filename") = Batchnumber + "_" + Computer + "_AlarmList_" + ActualDate + ".pdf"



MyBatchFunction.Start()
MyAMLFunction.Start()
Me.Variables.Item("xCreateBatch").set_Value() = 1


End Sub

I have Problems to define the DynProperties and also to write a value to a Variable.

May someone Help me converting the function?

Greetings,
Florian

[Florian L.]

I think I have converted it correct now.

    Public Sub Macro_CreateBatch_PDF()

        Dim BatchStart As Date
        Dim BatchEnd As Date
        Dim Batchnumber As String
        Dim MyBatchFunction As zenOn.IRtFunction
        Dim MyAMLFunction As zenOn.IRtFunction
        Dim MyCELFunction As zenOn.IRtFunction
        Dim ActualDate As String

        BatchStart = CDate(Me.Variables.Item("sBatchStart").get_Value)
        BatchEnd = CDate(Me.Variables.Item("sBatchEnd").get_Value)
        Batchnumber = CStr(Me.Variables.Item("sBatchNumber").get_Value)
        MyBatchFunction = Me.RtFunctions.Item("fc_PDF_Batch")
        MyAMLFunction = Me.RtFunctions.Item("fc_PDF_AML")
        MyCELFunction = Me.RtFunctions.Item("fc_PDF_CEL")
        ActualDate = CStr(Day(Now)) + "-" + CStr(Month(Now)) + "-" + CStr(Year(Now)) + "_" + CStr(Hour(Now)) + "-" + CStr(Minute(Now)) + "-" + CStr(Second(Now))

        MyBatchFunction.set_DynProperties("Filter.Fct_Filename", Batchnumber + "_" + "_Batch_" + ActualDate + ".pdf")

        MyAMLFunction.set_DynProperties("Filter.TimeFilter.ARVTime1", BatchStart)
        MyAMLFunction.set_DynProperties("Filter.TimeFilter.ARVTime2", BatchEnd)
        MyAMLFunction.set_DynProperties("Filter.Fct_Filename", Batchnumber + "_" + "_AlarmList_" + ActualDate + ".pdf")

        MyCELFunction.set_DynProperties("Filter.TimeFilter.ARVTime1", BatchStart)
        MyCELFunction.set_DynProperties("Filter.TimeFilter.ARVTime2", BatchEnd)
        MyCELFunction.set_DynProperties("Filter.Fct_Filename", Batchnumber + "_" + "_AuditTrail_" + ActualDate + ".pdf")

        MyBatchFunction.Start()
        MyAMLFunction.Start()
        MyCELFunction.Start()

        MsgBox("functions executed")

        Me.Variables.Item("xCreateBatch").set_Value(0, 1)

 

    End Sub