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