<System.Web.Services.WebMethod()> _
Public Shared Function writeSingleRecord(ByVal id As Long) As Boolean
Try
PrepareAndPassData(id)
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Sub PrepareAndPassData(id As Long)
Dim listOfParameters As New List(Of SqlParameter)
Dim validatedPaymentsParam As New SqlParameter("@Id's", SqlDbType.BigInt)
validatedPaymentsParam.Value = getValidatedPayments()
listOfParameters.Add(validatedPaymentsParam)
'Dim dt = DataAccessLayer.GetDataAsDatatable(listOfParameters, _connstr, "usp_GetValidatedRecordsForPayment")
'WriteToExcel(dt)
Try
WriteToExcel(DataAccessLayer.GetDataAsDatatable(listOfParameters, _charterProdConnstr, "usp_GetValidatedRecordsForPayment"))
Catch ioEx As System.IO.IOException
PassToErrorHandler(ioEx, System.Reflection.MethodInfo.GetCurrentMethod().ToString(), System.Reflection.Assembly.GetExecutingAssembly().GetName().Name)
Catch ex As Exception
PassToErrorHandler(ex, System.Reflection.MethodInfo.GetCurrentMethod().ToString(), System.Reflection.Assembly.GetExecutingAssembly().GetName().Name)
End Try
End Sub
Dim cph As System.Web.UI.WebControls.ContentPlaceHolder = Master.FindControl("MainContent")
Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.