Search
Bagimana mencetak struk pada Visual Foxpro
15 Nov2007
Seseorang menanyakan kepada saya melalui email bagaimana mencetak struk dengan Visual Foxpro.
lam kenal pak,
sy baru belajar vfp.
skrg lg buat program penjualan sederhana.
saya buat struk penjualan, masalahnya knp kertasnya
selalu mengulung 1 halaman?, sy pk noeject/nopage
tetap sj kertas mengulung diakhir kertas. gimana
supaya hasil printnya berhenti di akhir data?
salam
fuad
Jawaban saya :
Salam kenal.
Sama, saya juga baru belajar vfp.
Untuk masalah itu, saya juga punya masalah yang sama.
Masalah yang rumit dan bikin kepala mau pecah, ya gak ? Hehheehhe…
Solusinya? Saya tidak pakai report.
Berikut contohnya:
* Masukkan kode ini menggantikan fungsi cetak menggunakan Report *
*Mulai gunakan dari sini*
local lcTempFile, lcPrinterName, lcFileInRam
SET SAFETY OFF
lcTempFile = ‘c:coba.txt’
lcPrinterName = SET(“Printer”,2) &&
SET PRINTER TO NAME (lcPrinterName) &&
SET DEVICE TO FILE (lcTempFile)
@PROW(),10 SAY ALLTRIM(CUST_ID)
@PROW(),43 SAY ALLTRIM(PENERIMA)
@PROW()+1,3 SAY ALLTRIM(PENGIRIM)
@PROW()+1,3 SAY ALLTRIM(alam1)
@PROW()+1,3 SAY ALLTRIM(alam2)
@PROW()+1,0 say ‘ ‘ &&biar posisi head printer kembali ke posisi 0(nol)
*Akhir code di sini*
***********************************************
Penjelasan :
@PROW(),10 SAY ALLTRIM(CUST_ID)
Artinya angka 10 adalah mencetak di mulai karakter ke 10 dari kiri, mencetak field CUST_ID
@PROW(),43 SAY ALLTRIM(PENERIMA)
Artinya angka 43 adalah mencetak di mulai karakter ke 43 dari kiri, mencetak field PENERIMA
@PROW()+1,3 SAY ALLTRIM(PENGIRIM)
Artinya angka +1 adalah loncat 1 baris karakter ke bawah, mencetak di mulai karakter ke 3 dari kiri, mencetak field PENGIRIM
Semoga bermanfaat.
By the way… want to follow me on Twitter?? Click here- In: VFP
November 29th, 2007 at 1:09 pm
Salam
Untuk UPC gimana ya he he …
Trims fontnya Pak .. !!!
GBU
November 29th, 2007 at 1:41 pm
UPC maksudnya apa ya? UPC printer barcode, maaf saya belum pernah menggunakan printer barcode.
January 5th, 2008 at 11:48 am
saya punya masalah bagaimana caranya mengkompres file yang sudah di kompile agar tidak open source lagi
dan bagaimana agar program bisa dijalankan tanpa harus menginstal program visual fokpro
tolong kasih solusinya
January 18th, 2008 at 12:52 am
set print on
set talk off
?” Nama :”+fieldnama
?” Kota :”+fieldkota
?”—————————–”
do while !eof()
?kode+” “+diskripsi
skip
enddo
?”—————————–”
?” Total Rp. “+totalrp
?”"
?”"
?”"
set print off
January 19th, 2008 at 1:58 pm
Mas tghfox,
Mantaffff sekali commentnya. Semoga bermanfa’at bagi semua Foxer Indonesia.
March 6th, 2008 at 1:56 pm
saya minta tolong untuk mencarikan account dalam program visual foxpro
March 7th, 2008 at 6:54 pm
@ icha : Mencarikan account bgmn ya mbak?
March 10th, 2008 at 6:20 pm
Mas Reza saya sudah coba kok kertasnya gak mau berhenti ya? Masih gulung terus… Ada Contoh yang lebih detail gak ? Maaf baru belajar nih…
March 17th, 2008 at 6:46 pm
*******************************
* CETAK LANGSUNG
*******************************
SELECT dd
SET safety off
SET CONSOLE off
fx=FOPEN(‘LPT1′,2)
totdiskon = 0
STORE THISFORM.TEXT2.VALUE TO TOTAL_BYR
STORE THISFORM.NOta.VALUE TO _NOTA
STORE THISFORM.BAYAR.VALUE TO _BAYAR
STORE THISFORM.SISA.VALUE TO KEMBALI
SUM diskon*qty TO _diskon
IF fx-1
=fputs(fx,SPACE(_batas)+chr(27)+chr(33)+chr(12)+’—————————————-’)
=fputs(fx,SPACE(_batas)+’No.Bon : ‘+_NOTA+’ Kasir : ‘+KDOP)
=fputs(fx,SPACE(_batas)+’Tanggal : ‘+TTOC(datetime()))
=fputs(fx,SPACE(_batas)+’—————————————-’)
SCAN
=fputs(fx,SPACE(_batas)+substr(dd.nm_brg,1,20)+TRANS(dd.qty,’999′) + ‘x’+ trans(dd.harga,’999,999′)+ TRANS(dd.harga*dd.qty,’9,999,999′))
if dd.DISKON > 0
=fputs(fx,SPACE(_batas)+’<> ‘ + TRANS(diskon*qty,’999,999,999′))
endif
ENDSCAN
go top
=fputs(fx,SPACE(_batas)+’ —————————’)
=fputs(fx,SPACE(_batas)+’ SUB TOTAL : ‘ + TRANS(total_byr+_diskon,’999,999,999′))
=fputs(fx,SPACE(_batas)+’ DISKON : ‘ + TRANS(_diskon,’999,999,999′))
=fputs(fx,SPACE(_batas)+’ —————————’)
=fputs(fx,SPACE(_batas)+’ JUMLAH TOTAL : ‘ + TRANS(total_byr,’999,999,999′))
=fputs(fx,SPACE(_batas)+’ DIBAYAR : ‘ + TRANS(_BAYAR,’999,999,999′))
=fputs(fx,SPACE(_batas)+’ KEMBALI : ‘ + TRANS(KEMBALI,’999,999,999′))
=fputs(fx,SPACE(_batas)+’—————————————-’)
=fputs(fx,SPACE(_batas)+”)
=fputs(fx,SPACE(_batas)+”)
=fputs(fx,SPACE(_batas)+”)
=fputs(fx,SPACE(_batas)+”)
=fputs(fx,SPACE(_batas)+’—————————————-’)
=fputs(fx,SPACE(_batas)+’ KEPUASAN BELANJA ANDA HARAPAN KAMI’)
=fputs(fx,SPACE(_batas)+’ TERIMA KASIH ATAS KUNJUNGAN ANDA’)
=fputs(fx,SPACE(_batas)+’ Psn Prog. Hub: 03415458232′)
=fputs(fx,SPACE(_batas)+’—————————————-’+ chr(27)+chr(33)+chr(30)))
=fputs(fx,SPACE(_batas)+NaMa_KIOS+chr(27)+chr(33)+chr(12))
=fputs(fx,SPACE(_batas)+alm_kios)
=fputs(fx,SPACE(_batas)+’Telp. : ‘+tlp_kios)
=FCLOSE(fx)
ELSE
messagebox(“Printer Error…. Periksa Printer Anda!”,64,”Informasi”)
endif
March 26th, 2008 at 2:00 pm
kenapa gak ada tampilan formnya sih…..?
soalnya jadi susah untuk dimengerti.
March 26th, 2008 at 5:49 pm
@ aci : memang itu code berada “dibalik” form. Bisa dimasukkan di mana saja, apakah dimasukkan setelah perintah “Simpan”, lalu code cetak struk dsb nya..
July 12th, 2008 at 8:08 am
salam kenal
nih aku buat laporan ttg hasil pemilihan di kelurah
NAMA KELURAHAN : XLURAH
———————————————————
URAIAN | TPS 1 | TPS 2 | TPS 3 | TPS 4 | TPS 5 | TPS….|
———————————————————
SAH | 2 | 4 | 6 | 8 | 10 | …. |
TDK SAH| 1 | 1 | 3 | 0 | 2 | …. |
———————————————————
TOLONG DIBANTU
NIH FIELD NAMA TABELNYA
KELURAHAN
ID_KELURAHAN
NM_LURAH
TABEL TPS
ID_TPS
ID_KELURAHAN
NAMA_TPS
TABEL PERHITUNGAN
ID_KELURAHAN
ID_TPS
SAH
TDK_SAH
TOLONG DIBANTU
TERIMA KASIH
July 25th, 2008 at 9:11 am
lam kenal…
saya lagi belajar bikin program pinjaman. buat mencetak kwitansi dengan menterjemahkan nilai uang gimana yach..
misal Rp. 100 biar muncul tulisan “seratus rupiah”
thanks
December 31st, 2008 at 12:54 pm
buat mas joedha…
ksh aja alamat emailnya,nanti saya kasih .prg buat terjemahin Rp.100nya dll..hehehe..
soalnya ga muat kl disini
salam…
buat mas reza…gmn tuh aq blm bs cetak nota neh…spoolingnya ga mau brenti…gmn biar panjang kertas sepanjang recordnya aja???(bisa panjang ato pendek)reportnya harus dibikin lewat .prg yach??wah ga bs pake reportnya foxpro yach…
mohon dibantu dan penjelasannya yg detail…
untuk teman2 semua yg bs bantu jg…aq tggu
January 1st, 2009 at 11:20 pm
@Uyok : Kan sudah saya berikan penjelasannya di tulisan tersebut. Komentar dari TGHFOX dan BRODIN juga memberikan contoh yang sudah cukup jelas.
January 8th, 2009 at 4:26 pm
lam kenal mas Reza…
Saya pernah buat program tp kesulitan untuk koneksi database-nya. akhirnya ga selesai mpe skrg n goodbye n jd males.
mohon bantuannya. Thks b4.
January 8th, 2009 at 7:27 pm
Banyak artikel untuk mengenai koneksi database. Coba di Googling
January 31st, 2009 at 8:20 pm
saya punya kode untuk memunculkan rupiah sampai ratusan juta cuma kodenya agak panjang,kalau yang pernah pake clipper pasti punya …, nanti bisa saya kirim lewat zip file
March 3rd, 2009 at 8:52 am
saya mau nanya tapi bagaimana… tolong telpon saya 0711-7860006 saya di Kota Palembang.
yang mau saya tanyakan:]
1. bagaimana mencetak hasil di Continus fiorm supaya tidak menggulung satu halaman, dalam program Visualfoxpro8,
tolong mas Atau Mbak
March 5th, 2009 at 12:25 am
@pusar syarif: masalah ini sudah banyak di bahas di forum-forum. coba kunjungi fox-id.org
April 20th, 2009 at 8:44 pm
Asalamu’alaikum.wr.wb. mas reza ini aku ihsan,salam kenal ya.mas aku minta dikirimi listing program penjualan pada toko,tapi hanya laporan penjualan per bulan dan perhari.makasih.tlong ya.
April 20th, 2009 at 8:46 pm
tolong dikirim ke email saya yang tadi y mas. .he.makasih
April 21st, 2009 at 8:49 am
bozz keren banget artikelnya.
sorry bozz
aku masih nwebie ga da pengetahuan dasar tentang visual foxpro.
btw bos gimana cara singkat dan mudah konversi dari database (*.dta) ke excel buat laporan. thx bgt bozz
April 27th, 2009 at 3:31 pm
ada yg bisa bantu gak? apa listingnya jika pada laporan ada teks “jumlah sampai dengan bulan lalu” {bisa menampilkan jumlah sampai dengan bulan lalu.
April 28th, 2009 at 11:49 am
sya ada masalah pada foxpro9…
1) bagaimana cara memanggil file lain pada menu sistem yang telah di compile…mis : kita memanggil file *.pdf atau file microsoft excel sebagai acuan atau referensi aja..sehingga kita tidak membuka file tersebut secara langsung tapi bisa kita buka melalui sistem,
2) satu lagi, bagaimana kita membuat laporan/report lewat microsoft word/excel, sehingga laporan bisa lebih menarik tampilannya dan memodifikasikan.
April 28th, 2009 at 11:50 am
trims,,,,
May 14th, 2009 at 2:49 pm
mau tanya,
sy pemula, gimana listing agar telpon dapat dibaca oleh program VFP, thanks
May 15th, 2009 at 12:30 pm
yang lebih mudah untuk Print dengan Visual Foxpro agar kertas tidak naik satu halaman adalah dengan cara :
set print di Printer and Fax.
May 24th, 2009 at 2:22 pm
salam kenal!
saya baru saja belajar foxpro (masih amatir gitu lo)mau nanya :
1. bagaimana caranya menampilkan total penjumlahan secara otomatis pada foxpro ?
2. bagaimana cara menampilkan terbilang angka pada foxpro, & apakah bisa ditampilkan secara otomatis juga ?
May 24th, 2009 at 2:25 pm
oo iya, lupa menyisipkan e-mail nya
so_djein@yahoo.com
tolongin ya pa’, please-please
trima kasih sebelum & sesudahnya !!!!!!
June 9th, 2009 at 3:43 pm
Salam Kenal, saya mau minta tolong bagaimana membuat saldo awal pada laporan jika misalkan saya membutuhkan hanya transaksi tgl 01-01-2009 s/d 31-01-2009 sedangkan di bawah tanggal 01-01-2009 masih terdapat saldo yg harus di hitung, dan nilai perhitungan kumulatif tersebut akan di jadikan saldo awal, contoh
Kode Barang : MRB-001-11
Keterangan : Marlboro Besar
=================================================
Tanggal Bukti keterangan in out jumlah
=================================================
Saldo Awal 10
01-01-2009 B-001 Sale 0 1 9
03-01-2009 R-017 Retur Spl 0 5 4
=================================================
saldo akhir : 4
=================================================
saya mengalami kesulitan untuk membuat saldo awal tersebut untuk mengkumlatifkan nilai Qty tersebut menjadi nilai awal awal nya,saya mohon bantuannya, jika berkenan tolong di emailkan ke alamat saya : ugie_xw@yahoo.com , Terimakasih.
June 15th, 2009 at 7:30 am
sy butuh sofware refox yang bisa bongkar file visual
August 12th, 2009 at 2:22 pm
mas terima kasih atas jawabannya, yang masalah cetak di Continues form.
Namun dikesempatan ini saya mau menanyakan Bagaimana data dbf lewat form Visual Foxpro dikirim ke Excel, atau dengan katalain data itu dicetak langsung ke excel mas
August 13th, 2009 at 2:07 pm
MAS TOLONG SAYA… BAGAIMANA MENJALANKAN EXCEL LEWAT VISUAL FOXPRO.. YAITU KITA LETAKAN DI COMMAND BOTTOM MAS.
August 17th, 2009 at 6:41 pm
Muantab Pak.. , Ma’ Nyuss…
(^_^) alo pak…
August 18th, 2009 at 4:12 pm
mas… saya mhn bantuannya . karena membentuk file excel saya sdh dapat, namun mejalankan excel lewat visual itu perintahnya saya belum dapat mas… mhn bantuannya… terima kasih atas segala bantuan dan informasinya..
August 19th, 2009 at 1:05 pm
coba teman2 yang bisa bantu atau pernaj mencoba saya ingin menbuka microsoft excel lewat vfp,umpanya jika saya klik satu command bottom program langsung run excel….. gitu mas mhn bantuannya apa perintahnya…
bagi teman2, atau para programmer pernah atau sdh mencoba mhn bagi2 ke saya … ditunggu ya.
October 9th, 2009 at 9:06 am
Mas saya mau minta tolong, bagaimana cara menterjemahkan nilai angka menjadi karakter seperti di kwitansi,kalo bisa saya minta di kirimkan script nya lewat email saya : ugie_xw@yahoo.com sebagai contoh yang pernah Mas Buat, sebelumnya saya ucapkan banyak terimakasih.
January 21st, 2010 at 9:19 am
Mas pusar syarif, bs kirimin pnyeleseian cetak continous formnya ke alamat adi125cc@yahoo.co.id, coz fox-id.org nya msh dalam maintenance
January 30th, 2010 at 5:55 pm
salam kenal,
mohon bantuan untuk mencetak font yang lebih besar dari aslinya, dengan esc code – Chr(xx)+,
saya pakai clipper dengan printer epson lx 300+.
Sebelumnya saya ucapkan banyak terima kasih
wassalam
anggorotri@yahoo.com
February 12th, 2010 at 9:35 pm
mas minta tlng kirimi listingnya mencetak langsung ke word / excel
trim’s
March 16th, 2010 at 12:14 pm
mas, mau nanya nih.. bisa gak bikin form dengan berbagai macam bentuk selain segi empat yang standard gtu mas.. klo bisa kirimin listing.y mas di email ku dhyla_muaniezt@yahoo.com atau minta email.y dunk mas…!!! tolong yah mas penting banget nih..
ok..makasih sebelumnya..