Thinker

Would you like to react to this message? Create an account in a few clicks or log in to continue.
Thinker

Forum for story


    -------f08CaseAcct-------

    Aueeins
    Aueeins
    呢喃的歌声


    帖子数 : 205
    积分 : 4987
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

    -------f08CaseAcct------- Empty -------f08CaseAcct-------

    Post by Aueeins 2011-10-10, 9:26 pm

    Private Sub pRecSalesDet()

    Dim vSqlSalesDetStr As String
    vSqlSalesDetStr = "SELECT m02SalesDet.VoucherNumber, " & _
    "m02Sales.SalesDate, " & _
    "m02SalesDet.SubCode, " & _
    "m02Sales.PostStatus, " & _
    "m02SalesDet.RefType, " & _
    "m02Sales.ReferenceYour, " & _
    "m02SalesDet.ValueOriginal, " & _
    "m02SalesDet.GstOriginal, " & _
    "m02SalesDet.AppliedOriginal, " & _
    "m02Sales.BalanceOriginal " & _
    "FROM m02Sales RIGHT OUTER JOIN " & _
    "m02SalesDet ON " & _
    "m02Sales.VoucherNumber = m02SalesDet.VoucherNumber "

    vSqlSalesDetStr = vSqlSalesDetStr & _
    " WHERE m02SalesDet.RefType = '" & vEventReferenceModule & "'" & _
    " AND m02SalesDet.SubCode = 'LWPF'"
    dgSales.DataSource = vRs02SalesDet
    Exit Sub
    End Sub

      Current date/time is 2024-03-28, 6:45 pm