Thinker

Personal e-notepad


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

    Aueeins
    Aueeins
    水面上的小草

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

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

    Post by Aueeins on 10/10/11, 02: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 30/05/20, 09:49 pm