SQLÓï¾ä

'for payment type
    sCmd = "Select Sum(B.PaymentAmount) As SPaymentAmount, Sum(B.Changes) As SChange, "
    sCmd = sCmd & " B.PaymentType from Trans A INNER JOIN TransPayment B ON A.TransID = B.TransID "
    sCmd = sCmd & " Where B.BusinessDate  " & sDtCr & " And "
    sCmd = sCmd & " A.TransStatus In (2, 3, 4) "
    sCmd = sCmd & " Group By B.PaymentType "
    sCmd = sCmd & " Order By B.PaymentType"
    Set oRs = oCmn.ExecRS(sCmd, SDCN)
    Do While Not oRs.EOF
        cTotalSales = cTotalSales + IIf(IsNull(oRs!SPaymentAmount), 0, oRs!SPaymentAmount)
        If UCase(Trim(oRs!PaymentType)) = "CASH" Then
            cCashInDrawer = cCashInDrawer + IIf(IsNull(oRs!SPaymentAmount), 0, oRs!SPaymentAmount)
        End If
        sPrnLn = Space(9) & PADR(Trim(oRs!PaymentType), 10) & ":  " & PADR(oCurrency.FormatCurrency(IIf(IsNull(oRs!SPaymentAmount), 0, oRs!SPaymentAmount), , , True), 10)
       
        AddContents sPrnLn
        'P_PrintText sPrnLn, oPrn