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

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