Edit me

ParamsOutput

This method is used to get data from server at page load.

Public Overrides Function GenerateParamsOutput(dataKey As String, Params As List(Of clsSQLParam)) As clsProcOutput
        Dim oRet As clsProcOutput = myContext.SQL.ValidateSQLParams(Params)
        If oRet.Success Then
Dim GstRegID As Integer = myUtils.cValTN(myContext.SQL.ParamValue("@gstregid", Params))

             Select Case dataKey.Trim.ToLower
                Case "generate"
Dim EWayBillID As Integer = myUtils.cValTN(myContext.SQL.ParamValue("@ewaybillid", Params))
                    Dim oProc As New clsGSTNEwayBill(myContext)
                    Dim info = oProc.Generate(GstRegID, EWayBillID)
                    oRet.Success = (info.HttpStatusCode = HttpStatusCode.OK)
                    oRet.Message = info.Message
 oRet.JsonData = New With {.status = 200, .success = oRet.Success, .message = oRet.Message, .Data = JsonConvert.SerializeObject(info.Data)}
                Case "cancel"
Dim EWayBillID As Integer = myUtils.cValTN(myContext.SQL.ParamValue("@ewaybillid", Params))
                    Dim oProc As New clsGSTNEwayBill(myContext)
                    Dim info = oProc.Cancel(GstRegID, EWayBillID)
                    oRet.Success = (info.HttpStatusCode = HttpStatusCode.OK)
                    oRet.Message = info.Message
oRet.JsonData = New With {.status = 200, .success = oRet.Success, .message = oRet.Message, .Data = JsonConvert.SerializeObject(info.Data)}

                Case "update"
Dim EWayBillVehicleID As Integer = myUtils.cValTN(myContext.SQL.ParamValue("@ewaybillvehicleid", Params))
                    Dim oProc As New clsGSTNEwayBill(myContext)
                    Dim info = oProc.Update(GstRegID, EWayBillVehicleID)
                    oRet.Success = (info.HttpStatusCode = HttpStatusCode.OK)
                    oRet.Message = info.Message
oRet.JsonData = New With {.status = 200, .success = oRet.Success, .message = oRet.Message, .Data = JsonConvert.SerializeObject(info.Data)}
            End Select
        End If
        Return oRet
    End Function