Nota Terbilang- Aplikasi Layanan Monitoring Asset


sebuah nota terkadang dibutuhkan suatu keterangan yang menjelaskan besaran uang transaksi yang terjadi. Aplikasi yang baik, harus bisa secara otomatis mendukung tujuan ini. Artinya tanpa ada keterangan yang ditulis manual utk membilang angka rupiah, tetapi sudah ada mekanisme utk mengubah suatu bentuk angka menjadi tulisan.

misal 123  -> seratus dua puluh tiga

          1050 -> seribu lima puluh rupiah

dll

dalam teknik coding VB..ada yang menggunakan class modules utk membuat syntax pembilang angka. Setelah ditulis kemudian dapat diarahkan ke crystal report menggunakan formula yang menangkap variabel dari VB.

misal dlm form CR nya sbb:

  If (a.fileExists(App.Path & "\cr_Pcode\NotaOrder.rpt")) Then
  Set crReport = crApplication.OpenReport(App.Path & "\cr_Pcode\NotaOrder.rpt")
  Else
  MsgBox "file tidak ditemukan..Hubungi Programmer"
  Exit Sub
  End If

crReport.FormulaFields(4).Text = "'" & ClassNumConvert.ToWords(FrmOrder.TxtBayar, True) & "'"

=======

 

Komentar

Postingan populer dari blog ini

Monitoring Progress Proses dalam Digital Printing Advertising – Multi User (Sistem Titip)

Surat Perintah Kerja dalam Usaha Digital Printing

Manajemen Informasi Bengkel 02 – Otomatisasi penggajian komisi penjualan