ASP.NET

Public Shared Function AddDisbursement(ByVal DocType As String, ByVal Rim As Int32, ByVal CustomerName As String, ByVal RSMName As String, ByVal BranchNo As Int32, ByVal Business As String, ByVal InputDate As String, ByVal Category As String, ByVal DeferralDetails As String, ByVal DeferredDays As String, ByVal DefExpDate As String, ByVal DefDate As String, ByVal RMComments As String, ByVal CreatorId As String, ByVal App_Authority As String, ByVal Item As String) As String
        Dim logger As SKLogger = New SKLogger
        Dim connMosaic As String = System.Web.HttpContext.Current.Session("connStr").ToString()
        Dim cmdText As String

        cmdText = "INSERT INTO at_ip_disbursement(" & _
                    "doc_type, " & _
                    "rim_no, " & _
                    "customer_name, " & _
                    "rsm_name, " & _
                    "branch_no, " & _
                    "business_unit, " & _
                    "input_dt, " & _
                    "Category, " & _
                    "deferral_details, " & _
                    "days_deferred, " & _
                    "Deff_Expdt, " & _
                    "Deferred_Dt, " & _
                    "rm_comments, " & _
                    "creator_id, " & _
                    "status, " & _
                    "App_Authority, " & _
                    "item_type) " & _
                "VALUES (" & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "?," & _
                    "'A'," & _
                    "?," & _
                    "?)"

        Dim conn As OdbcConnection = New OdbcConnection(connMosaic)
        Dim cmd As OdbcCommand = New OdbcCommand(cmdText, conn)

        cmd.Parameters.Add("@DocType", OdbcType.VarChar).Value = DocType
        cmd.Parameters.Add("@Rim", OdbcType.Int).Value = Rim
        cmd.Parameters.Add("@CustomerName", OdbcType.VarChar).Value = CustomerName
        cmd.Parameters.Add("@RSMName", OdbcType.VarChar).Value = RSMName
        cmd.Parameters.Add("@BranchNo", OdbcType.Int).Value = BranchNo
        cmd.Parameters.Add("@Business", OdbcType.VarChar).Value = Business
        cmd.Parameters.Add("@InputDate", OdbcType.Date).Value = InputDate
        cmd.Parameters.Add("@Category", OdbcType.VarChar).Value = Category
        cmd.Parameters.Add("@DeferralDetails", OdbcType.VarChar).Value = GetNull(DeferralDetails)
        cmd.Parameters.Add("@DeferredDays", OdbcType.Int).Value = DeferredDays
        cmd.Parameters.Add("@DefExpDate", OdbcType.Date).Value = DefExpDate
        cmd.Parameters.Add("@DefDate", OdbcType.Date).Value = GetNull(DefDate)
        cmd.Parameters.Add("@RMComments", OdbcType.VarChar).Value = GetNull(RMComments)
        cmd.Parameters.Add("@CreatorId", OdbcType.VarChar).Value = GetNull(CreatorId)
        cmd.Parameters.Add("@App_Authority", OdbcType.VarChar, 1200).Value = GetNull(App_Authority)
        cmd.Parameters.Add("@Item", OdbcType.VarChar).Value = GetNull(Item)

        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            logger.LogException("AddDisbursement", ex.ToString())
            AddDisbursement = ex.Message
        Finally
            cmd.Dispose()
            conn.Close()
        End Try

        'Return True
    End Function