<%@ WebHandler Language="VB" Class="HandlerVB" %>
Imports System
Imports System.Web
Imports System.Data
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Collections.Generic
Imports System.Web.Script.Serialization
Public Class HandlerVB : Implements IHttpHandler
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
Dim callback As String = context.Request.QueryString("callback")
Dim customerId As String = context.Request.QueryString("customerId")
Dim bcode As String = context.Request.QueryString("code")
Dim bcode2 As String = context.Request.QueryString("code2")
' Dim strDate As DateTime
' strDate = DateTime.Parse(bcode, System.Globalization.CultureInfo.CreateSpecificCulture("en-GB").DateTimeFormat)
' Dim formatInfo As New System.Globalization.DateTimeFormatInfo()
' formatInfo.LongDatePattern = "dd/MM/yyyy"
' Dim strStartDate As String = strDate.ToString("dd/MM/yyyy", formatInfo)
Dim json As String = Me.GetCustomersJSON(customerId, bcode, bcode2)
If Not String.IsNullOrEmpty(callback) Then
json = String.Format("{0}({1});", callback, json)
End If
context.Response.ContentType = "text/json"
context.Response.Write(json)
End Sub
Private Function GetCustomersJSON(customerId As String, bcode As String, bcode2 As String) As String
Dim customers As New List(Of Object)()
Dim bc As String = 0
Using conn As New SqlConnection()
conn.ConnectionString = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using cmd As New SqlCommand()
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "glsttV4"
cmd.Parameters.Add("@act", SqlDbType.NVarChar).Value = customerId
cmd.Parameters.Add("@f", SqlDbType.NVarChar).Value = bcode
cmd.Parameters.Add("@t", SqlDbType.NVarChar).Value = bcode2
cmd.Connection = conn
conn.Open()
cmd.ExecuteReader()
End Using
conn.Close()
End Using
Using conn As New SqlConnection()
conn.ConnectionString = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using cmd As New SqlCommand()
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "Runningbalance"
cmd.Connection = conn
conn.Open()
cmd.ExecuteReader()
End Using
conn.Close()
End Using
Return False
End Function
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
Get
Return False
End Get
End Property
End Class
