daily pastebin goal
50%
SHARE
TWEET

Untitled

a guest Sep 27th, 2018 88 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. ' put this part around line 38 where bRefund is set so it's all together
  3. Dim bBouncedCheque : bBouncedCheque = False
  4. If StrComp(category, "bouncedCheque", 1)=0 Then
  5.     bRefund = true  ' bounced cheques are refunds too
  6.     bBouncedCheque = true
  7. End If
  8.  
  9. ' this makes the if statement around line 214 a bit easier to read i think?
  10. If bRefund Then
  11.     receiptType = "Refund"
  12.     If bBouncedCheque Then
  13.         heading = "<h1>Bounced " & chequeName & "</h1>"
  14.     Else
  15.         heading = "<h1>Add Refund</h1>"
  16.     End If
  17. Else
  18.     heading = "<h1>Add Receipt</h1>"
  19.     receiptType = "Payment"
  20. End If
RAW Paste Data
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
 
Top