API tools faq
paste
Advertisement
joehackzero

Untitled

joehackzero
Nov 27th, 2014
192
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 8.79 KB | None | 0 0
raw download clone embed print report
  1. Private Sub addReceiveCommand(ByVal pBranchCode As String _
  2.                                 , ByVal pReceiveNo As String _
  3.                                 , ByVal pSupplierName As String _
  4.                                 , ByVal pRemarks As String _
  5.                                 , ByVal pDNORM_Subtotal As Double _
  6.                                 , ByVal pGSTPercent As Double _
  7.                                 , ByVal pDNORM_GSTAmount As Double _
  8.                                 , ByVal pDNORM_GrandTotal As Double _
  9.                                 , ByVal pOrderNo As String _
  10.                                 , ByVal pIsDiscount01 As Boolean _
  11.                                 , ByVal pIsDiscountByPercent01 As Boolean _
  12.                                 , ByVal pIsDiscountByAmount01 As Boolean _
  13.                                 , ByVal pDiscountedPercent01 As Double _
  14.                                 , ByVal pDiscountedAmount01 As Double _
  15.                                 , ByVal pIsDiscount02 As Boolean _
  16.                                 , ByVal pIsDiscountByPercent02 As Boolean _
  17.                                 , ByVal pIsDiscountByAmount02 As Boolean _
  18.                                 , ByVal pDiscountedPercent02 As Double _
  19.                                 , ByVal pDiscountedAmount02 As Double _
  20.                                 , ByVal pIsPaid As Boolean _
  21.                                 , ByVal pPaidRemarks As String _
  22.                                 , ByVal pIsIssuesPending As Boolean _
  23.                                 , ByVal pIssuesPendingRemarks As String _
  24.                                 , ByVal pIsReceiveOrderForPendingCostPrice As Boolean _
  25.                                 , ByVal pOtherCostPrice As Double _
  26.                                 , ByVal pActualDate As DateTime _
  27.                                 , ByVal pCreatedBy As String _
  28.                                 , ByVal pCreatedDate As DateTime _
  29.                                 , ByVal pUpdatedBy As String _
  30.                                 , ByVal pUpdatedDate As DateTime _
  31.                                 , ByVal pGSTInclusive As Boolean _
  32.                                 , ByVal pTaxCode As String _
  33.                                 , ByVal pBranchSysId As String _
  34.                                 , ByVal pConnection As SqlConnection _
  35.                                 , ByVal pTransaction As SqlTransaction)
  36.         '--------------------
  37.        Dim sSql As String _
  38.             = "INSERT INTO T_ReceiveBranch (SysId,ReceiveNo,BranchCode,SupplierName,Remarks,DNORM_Subtotal,GSTPercent,DNORM_GSTAmount,DNORM_GrandTotal,OrderNo,IsDiscount01,IsDiscountByPercent01,IsDiscountByAmount01,DiscountedPercent01,DiscountedAmount01,IsDiscount02,IsDiscountByPercent02,IsDiscountByAmount02,DiscountedPercent02,DiscountedAmount02,IsPaid,PaidRemarks,IsIssuesPending,IssuesPendingRemarks,IsReceiveOrderForPendingCostPrice,OtherCostPrice,ActualDate,CreatedDate,CreatedBy,UpdatedDate,UpdatedBy,BranchSysId,IsCSV_Add,GSTInclusive,TaxCode)" _
  39.                 & " VALUES (newid(),@0,@1,@2,@3,@4,@5,@6,@7,@8,@9,@10,@11,@12,@13,@14,@15,@16,@17,@18,@19,@20,@21,@22,@23,@24,@25,@26,@27,@28,@29,@30,0,@31,@32)"
  40.         Dim cmdSQL As New SqlCommand
  41.         '--------------------
  42.        With cmdSQL
  43.             .CommandType = CommandType.Text
  44.             .CommandText = sSql
  45.             '--------------------
  46.            .Parameters.Add(New SqlParameter("@0", SqlDbType.NVarChar))
  47.             .Parameters.Item(0).Value = pReceiveNo
  48.             '--------------------
  49.            .Parameters.Add(New SqlParameter("@1", SqlDbType.NVarChar))
  50.             .Parameters.Item(1).Value = pBranchCode
  51.             '--------------------
  52.            .Parameters.Add(New SqlParameter("@2", SqlDbType.NVarChar))
  53.             .Parameters.Item(2).Value = pSupplierName
  54.             '--------------------
  55.            .Parameters.Add(New SqlParameter("@3", SqlDbType.NVarChar))
  56.             .Parameters.Item(3).Value = pRemarks
  57.             '--------------------
  58.            .Parameters.Add(New SqlParameter("@4", SqlDbType.Decimal))
  59.             .Parameters.Item(4).Value = pDNORM_Subtotal
  60.             '--------------------
  61.            .Parameters.Add(New SqlParameter("@5", SqlDbType.Decimal))
  62.             .Parameters.Item(5).Value = pGSTPercent
  63.             '--------------------
  64.            .Parameters.Add(New SqlParameter("@6", SqlDbType.Decimal))
  65.             .Parameters.Item(6).Value = pDNORM_GSTAmount
  66.             '--------------------
  67.            .Parameters.Add(New SqlParameter("@7", SqlDbType.Decimal))
  68.             .Parameters.Item(7).Value = pDNORM_GrandTotal
  69.             '--------------------
  70.            .Parameters.Add(New SqlParameter("@8", SqlDbType.NVarChar))
  71.             .Parameters.Item(8).Value = pOrderNo
  72.             '--------------------
  73.            .Parameters.Add(New SqlParameter("@9", SqlDbType.Bit))
  74.             .Parameters.Item(9).Value = pIsDiscount01
  75.             '--------------------
  76.            .Parameters.Add(New SqlParameter("@10", SqlDbType.Bit))
  77.             .Parameters.Item(10).Value = pIsDiscountByPercent01
  78.             '--------------------
  79.            .Parameters.Add(New SqlParameter("@11", SqlDbType.Bit))
  80.             .Parameters.Item(11).Value = pIsDiscountByAmount01
  81.             '--------------------
  82.            .Parameters.Add(New SqlParameter("@12", SqlDbType.Decimal))
  83.             .Parameters.Item(12).Value = pDiscountedPercent01
  84.             '--------------------
  85.            .Parameters.Add(New SqlParameter("@13", SqlDbType.Decimal))
  86.             .Parameters.Item(13).Value = pDiscountedAmount01
  87.             '--------------------
  88.            .Parameters.Add(New SqlParameter("@14", SqlDbType.Bit))
  89.             .Parameters.Item(14).Value = pIsDiscount02
  90.             '--------------------
  91.            .Parameters.Add(New SqlParameter("@15", SqlDbType.Bit))
  92.             .Parameters.Item(15).Value = pIsDiscountByPercent02
  93.             '--------------------
  94.            .Parameters.Add(New SqlParameter("@16", SqlDbType.Bit))
  95.             .Parameters.Item(16).Value = pIsDiscountByAmount02
  96.             '--------------------
  97.            .Parameters.Add(New SqlParameter("@17", SqlDbType.Decimal))
  98.             .Parameters.Item(17).Value = pDiscountedPercent02
  99.             '--------------------
  100.            .Parameters.Add(New SqlParameter("@18", SqlDbType.Decimal))
  101.             .Parameters.Item(18).Value = pDiscountedAmount02
  102.             '--------------------
  103.            .Parameters.Add(New SqlParameter("@19", SqlDbType.Bit))
  104.             .Parameters.Item(19).Value = pIsPaid
  105.             '--------------------
  106.            .Parameters.Add(New SqlParameter("@20", SqlDbType.NVarChar))
  107.             .Parameters.Item(20).Value = pPaidRemarks
  108.             '--------------------
  109.            .Parameters.Add(New SqlParameter("@21", SqlDbType.Bit))
  110.             .Parameters.Item(21).Value = pIsIssuesPending
  111.             '--------------------
  112.            .Parameters.Add(New SqlParameter("@22", SqlDbType.NVarChar))
  113.             .Parameters.Item(22).Value = pIssuesPendingRemarks
  114.             '--------------------
  115.            .Parameters.Add(New SqlParameter("@23", SqlDbType.Bit))
  116.             .Parameters.Item(23).Value = pIsReceiveOrderForPendingCostPrice
  117.             '--------------------
  118.            .Parameters.Add(New SqlParameter("@24", SqlDbType.Decimal))
  119.             .Parameters.Item(24).Value = pOtherCostPrice
  120.             '--------------------
  121.            .Parameters.Add(New SqlParameter("@25", SqlDbType.DateTime))
  122.             .Parameters.Item(25).Value = pActualDate
  123.             '--------------------
  124.            .Parameters.Add(New SqlParameter("@26", SqlDbType.DateTime))
  125.             .Parameters.Item(26).Value = pCreatedDate
  126.             '--------------------
  127.            .Parameters.Add(New SqlParameter("@27", SqlDbType.NVarChar))
  128.             .Parameters.Item(27).Value = pCreatedBy
  129.             '--------------------
  130.            .Parameters.Add(New SqlParameter("@28", SqlDbType.DateTime))
  131.             .Parameters.Item(28).Value = pUpdatedDate
  132.             '--------------------
  133.            .Parameters.Add(New SqlParameter("@29", SqlDbType.NVarChar))
  134.             .Parameters.Item(29).Value = pUpdatedBy
  135.             '--------------------
  136.            .Parameters.Add(New SqlParameter("@30", SqlDbType.NVarChar))
  137.             .Parameters.Item(30).Value = pBranchSysId
  138.             '--------------------
  139.            .Parameters.Add(New SqlParameter("@31", SqlDbType.Bit))
  140.             .Parameters.Item(31).Value = pGSTInclusive
  141.             '--------------------
  142.            .Parameters.Add(New SqlParameter("@32", SqlDbType.NVarChar))
  143.             .Parameters.Item(32).Value = pTaxCode
  144.             '--------------------
  145.        End With
  146.         '--------------------
  147.        executeTransactions(cmdSQL, pConnection, pTransaction)
  148.         '--------------------
  149.    End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!