Fungsi Buat Blanko

* =-=-=-=-=-=-=
* Buat Blangko
* =-=-=-=-=-=-=
Procedure Blangko
Parameter Brs1, Klm1, Lbr
Private Nitip

Set Color To Gr/B
@Brs1, Klm1 Clear To Brs1 + 10, Klm1 + Lbr
@Brs1, Klm1 To Brs1 + 10, Klm1 + Lbr
Nitip= "Data Kwitansi"
@Brs1 + 1, Klm1 + 3 Say Nitip
Nitip= "No. Record : "
@Brs1 + 1, Klm1 + 33 Say Nitip
@Brs1 + 2, Klm1 Say "Ã" + Repl("Ä", Lbr - 1) + "´"

@Brs1 + 4, Klm1 + 2 Say " Nomor Kwitansi : "
@Brs1 + 5, Klm1 + 2 Say " Sudah diterima dari : "
@Brs1 + 6, Klm1 + 2 Say " Pada tanggal : "
@Brs1 + 7, Klm1 + 2 Say " Sejumlah Rp. "
@Brs1 + 8, Klm1 + 2 Say " Untuk pembayaran : "

Return