Cetak Nota Pembelian

BY IN Spa & Salon System Comments Off on Cetak Nota Pembelian

Untuk melakukan pencetakan nota, ada persiapan yang harus dilakukan. Kita siapkan sebuah button untuk mentrigger modul cetak, dimana modulnya adalah sebagai berikut:

1. Siapkan Report Headernya, dalam hal ini kita isi dengan variabel global yang sudah ada nilainya. Kita perlu mendefinisikan variabel global karena kita akan pakai header dalam setiap report

With rpt_header
.CompanyName = company_name
.CompanyAddress = company_address
.CompanyPhone = company_phone
End With

2. Definisi recordset untuk membuka tabel

Dim rpt_pembelian As New ADODB.recordset
Dim rpt_pembeliandetail As New ADODB.recordset

Call set_rec_getData(rpt_pembelian, cn, “SELECT * FROM tblBill WHERE BillNo =’” & txtNoNotaPembelian & “‘”)
Call set_rec_getData(rpt_pembeliandetail, cn, “SELECT * FROM tblBillDetail WHERE BillNo =’” & txtNoNotaPembelian & “‘”)

3. Masukkan nilai dari kontrol form ke dalam variabel global

rpt_field0 = txtNoNotaPembelian
rpt_field1 = txtNama
rpt_field2 = txtAlamat
rpt_field3 = txtKota
rpt_field4 = Format(txtTanggal.Value, “dd mmmm yyyy”)
rpt_field5 = Trim(FormatNumber(txtSubTotal, 2))
rpt_field6 = Trim(FormatNumber(txtDiscount, 2))
rpt_field7 = Trim(FormatNumber(txtGrandTotal, 2))

4. Set data source report ke recordset dan langsung ditampilkan

Set rptInvoicePembelian.DataSource = rpt_pembeliandetail
rptInvoicePembelian.Show vbModal

5. Release object

Set rpt_pembelian = Nothing
Set rpt_pembeliandetail = Nothing

Berikut tampilannya:




Comments are closed.