Code:
Dim myGetCustInfoNewService As GetCustInfoNewService.SA1Z1003 = New GetCustInfoNewService.SA1Z1003()
Dim a As Integer = myCalculatorService.Add(6, 2)
'---------------------Define Input Parameter----------------------------
strTransNo = Date.Today.Year.ToString.PadLeft(4,