Menyimpan Barcode ke dalam Field table

[hariyana]

- Kali ini saya ingin membagi sedikit pengetahuan saya yang mudah-mudahan dapat membantu kita semua :
- Saya memberikan contoh cara membuat barcode dengan 2 model yaitu :
   1.  dengan menggunakan font, barcode tidak perlu disimpan ke dalam field tabel. hasil cetakkan tidak fleksibel.
   2. dengan mengambil hasil barcode yang dibuat dengan corel draw, barcode harus disimpan ke dalam field tabel. hasil cetakkan sangat fleksibel

- Untuk model satu anda harus menginstall font terlebih dahulu contoh font sudah saya sertakan juga.
- untuk model 2 anda harus menginstall corel draw versi yg mana saja (softwarenya boleh yg asli atau bajakan)
- untuk model 2 jika anda menggunakan tabel natife vfp tipe field data harus General
- untuk model 2 jika anda menggunakan tabel mysql tipe field data harus mediumblob atau longblob.

Selamat mencoba

[tsabita]

the nice tips....thankyou

[tsabita]

o ya mas...tapi nyetaknya gemana kasih tau donk....misal 1 barcode mau cetak 3 atau 6 barcode yag sama..tks

[hariyana]

logika programnya sederhana, buatlah tabel cursor untuk mengola cetakkan yang diinginkan, jumlah fieldnya sesuaikan dengan kolom untuk mencetak barcodenya.
Contoh misalkan ada tabel barang dengan data sbb :
rec   barcode
----  -----------
    1   12345
    2   67890
    3   45602

kita akan mencetak barcode utk masing-masing rec sebanyak 5 buah barcode dengan format cetakkan kolom sebanyak 3. contoh source code sbb :

creat cursor crcetak (kdbar1 G(4), kdbar2 G(4), kdbar3 G(4))
kol = 0
jkol = 3
SELE barang
GO TOP
SCAN ALL
    FOR i=1 TO jkol
        SELECT crcetak
        IF kol = 1
            APPEND BLANK
        ENDIF
        xb = 'kdbar'+str(kol,1)
        REPLACE &xb WITH barang.barcode
        IF kol = jkol
            kol = 1
        ENDIF
    NEXT
    SELE barang
ENDSCAN
*
SELECT crcetak
GO TOP

report form ............................ TO PRINT PROMPT PREVIEW

USE IN crcetak