Membuat Aplikasi Penjualan Part9 ( Membuat Nota dengan FastReport)

Akhirnya ada waktu juga untuk meneruskan artikel ini. hampir sebulan artikel ini gak update, karena ngerjain project gak selesai-selesai ... hehhe.

Artikel ini akan membahas pembuatan nota menggunakan fastereport, walaupun banyak cara untuk pembuatan nota, tapi saya lebih senang dengan fastreport karena kemudahaan dalam ketika mendesain nota.

Langsung saja langkah-langkah pembuatannya.

1. Tambahkan 2 Komponen ZQuery dan 2 Dataset seperti gambar dibawah ini.

2. Mengatur property SQL pada Qpenjualan. Lihat gambar dibawah

3. Mengatur Property SQL Pada QdetailPenjualan. Lihat gambar dibawah

4. Menambahkan komponen fastreport . 1 FrxReport dan 2 FrxDBDataset

5. Mengatur Properti FrxDBDataset ( Data Penjualan ).

6. Mengatur Properti pada DetailPenjualan

7. Membuat Desain Nota ( Klik 2 kali pada komponen FrxReport1) 

8. Menambahkan Dataset pada master Data dan detail data

9. Menamabahkan TFrxMemoView untuk menampilkan Data Penjualanya. buat  format Sepert gambar dibawah.

10. Setelah semua sudah diseting kemudian simpan dalam folderaplikasi\laporan\nota.fr3.

11. Preview Nota seperti pada gambar dibawah ini.

12. Pemanggilan pada form penjualan.

 -Tambahkan procedure cetakNota. lihat gambar

- Tekan Ctrl+shift+C. Kemudian tambahkan kode dibawah ini.

procedure TFpenjualan.CetakNota;
begin
  with dm.Qpenjualan  do
  begin
     Close;
     SQL.Clear;
     SQL.Add('select * from tb_penjualan where kodepenjualan="'+Enotapenjualan.Text+'"');
     Open;
  end;
  DM.QdetailPenjualan.Active:=False;
  DM.QdetailPenjualan.Active:=True;
  dm.frxReport1.LoadFromFile(ExtractFilePath(Application.ExeName)+'Laporan\nota.fr3');
  dm.frxReport1.ShowReport();
end;

- pada tombol simpan sisipkan kode dibawah ini.

13. Proses pembuatan nota sudah selesai. kemudian jalankan program. kemudian lakukan proses transaksi penjualan.

Lengkap Source Codenya