Receipt code

Question

Masterace 0 Newbie Poster

14 Years Ago

Hi people need codes for displaying serial number in a receipt (ie a unique number after every transaction) here is the receipt code am working on

Private Sub CmdPrint_Click()
'printing a receipt
If MsgBox("Print Receipt?", vbYesNo, "Receipt") = vbYes Then
Printer.Print Tab(30);
Printer.Print Tab(30); "TIKMASH MANAGEMENT LIMITED"
Printer.Print Tab(30); "SERVICE CHARGE PAYMENT"
Printer.Print Tab(30); "KATAMU COURT, PLAINSVIEW, SOUTH B."
Printer.Print Tab(30); "L.R NO. 93/1272."
Printer.Print Tab(30); "TEL: +254 721800003"
Printer.Print
Printer.Print Tab(15); "---------------------------------------------------------------------------------------------------------"
Printer.Print Tab(40); "SERVICE CHARGE RECEIPT"
Printer.Print Tab(15); "---------------------------------------------------------------------------------------------------------"
Printer.Print
Printer.Print Tab(15); "Name:"; Spc(3); FrmTikmash.TxtName.Text
Printer.Print
Printer.Print Tab(15); "Unit NO.:"; Spc(3); FrmTikmash.TxtUnitNo.Text
Printer.Print
Printer.Print Tab(15); "Month:"; Spc(3); FrmTikmash.LblDate2.Caption
Printer.Print
Printer.Print Tab(15); "Amount Paid:"; Spc(3); FrmTikmash.TxtAmount.Text
Printer.Print
Printer.Print Tab(15); "Balance B/F:"; Spc(3); FrmTikmash.TxtBal.Text
Printer.Print
Printer.Print Tab(15); "Total Paid:"; Spc(3); FrmTikmash.TxtTotal.Text
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(15); "Service Charge:"; Spc(3); FrmTikmash.TxtPay.Text
Printer.Print
Printer.Print Tab(15); "Balance B/F:"; Spc(1); ".........................................."
Printer.Print
Printer.Print Tab(15); "Agent's Signature:"; Spc(1); "..........................................."
Printer.Print
Printer.EndDoc
End If
End Sub

visual-basic

Edited 14 Years Ago by WaltP because: Added CODE tags -- with all the help about them, how could you miss using them????

3 Contributors
3 Replies
2K Views
1 Week Discussion Span
Latest Post 14 Years Ago Latest Post by Masterace

WaltP 2,905 Posting Sage w/ dash of thyme

14 Years Ago

What serial number? How is it formatted? How does the subroutine get it?

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

pankaj.garg 0 Junior Poster in Training · Answer 1 · 2010-03-11T17:12:09+00:00

hi Masterace,

Based on your 2 threads, i understand that solution to your problem could be something like this-

1. create a file to store your last receipt number i.e. "2001" (its last 4 numbers of receipt number u gave TK012001)
2. Every time u want to print a receipt -
a) fetch this number from your file
b) increment this
c) append it with "TK01"
d) restore the incremented number to your file

hope this is what you were looking for...

Pankaj

Masterace 0 Newbie Poster · Answer 2 · 2010-03-17T17:05:25+00:00

hi Masterace,
Based on your 2 threads, i understand that solution to your problem could be something like this-
1. create a file to store your last receipt number i.e. "2001" (its last 4 numbers of receipt number u gave TK012001)
2. Every time u want to print a receipt -
a) fetch this number from your file
b) increment this
c) append it with "TK01"
d) restore the incremented number to your file
hope this is what you were looking for...
Pankaj

Hi pankaj

am able to see the code in the receipt but its not updatin wil u please help do not know where to code sorr am a newbie

thanx