Author Topic: Struk ke-2 ada titik-titik  (Read 660 times)

0 Members and 1 Guest are viewing this topic.

Offline pandusetiawan

  • Newbie
  • *
  • Posts: 1
Struk ke-2 ada titik-titik
« on: February 23, 2016, 09:55:30 AM »
Mohon bantuan pencerahan dai para master, saya bikin aplikasi POS pk VFP 9 SP2, printer LX-310. kode cetak nota nya :

Code: [Select]
I = 1
SET PRINTER TO NAME ALLTRIM(_printer2)
SET DEVICE TO PRINT

@ 0,0 Say PADR(_namanota,65," ")+REPLICATE(" ",10)+"--"+cNomor+"--"
@ 1,0 Say PADR(_alamat1,65," ")+"Tanggal : "+cTgl
@ 2,0 Say PADR(_alamat2,65," ")+"Yth.    : "+cNama
@ 3,0 Say PADR(_alamat3,65," ")+REPLICATE(" ",10)+cAlamat
nRow = 4
tSQL = "SELECT a.*,b.kode,b.nama,b.satuan FROM det_jual a LEFT JOIN stok AS b ON b.kode=a.kode WHERE a.nomor='"+cNomor+"'"
SQLEXEC(dbKon,tSQL,"cur2")
subtot = 0
DO WHILE !EOF()
IF I=1
@ nRow+I,0 Say REPLICATE("=",nLebar)
nRow = nRow+1
@ nRow+I,0 Say "|No.|              NAMA BARANG               |Disc|   Harga   |  Jmlh  |   Stn   |  Sub-total  |"
nRow = nRow+1
@ nRow+I,0 Say REPLICATE("-",nLebar)
nRow = nRow+1
ENDIF

nDisk = cur2.diskon
nHarga = cur2.harga - (cur2.harga*(nDisk/100))
nSat = cur2.satuan
@ nRow+I,0 Say "|"+PADC(ALLTRIM(STR(I))+".",3," ")+"|"+PADR(cur2.nama,40," ")+"|"+ ;
PADC(TRANSFORM(cur2.diskon,"99")+"%",4," ")+"|"+ ;
PADL(TRANSFORM(nHarga,"99,999,999"),11," ")+"|"+ ;
PADC(TRANSFORM(cur2.jumlah,"9,999.99"),8," ")+"|"+ ;
PADC(ArrSatuan[nSat],9," ")+"|"+ ;
PADL(TRANSFORM(nHarga*cur2.jumlah,"99,999,999"),13," ")+"|"
subtot=subtot+(nHarga*cur2.jumlah)
I=I+1
SKIP
ENDDO
@ nRow+I,0 Say REPLICATE("-",nLebar)
nRow = nRow+1
@ nRow+I,0 Say REPLICATE(" ",75)+"TOTAL |"+PADL(TRANSFORM(subtot,"99,999,999"),13," ")+"|"
nRow = nRow+1
@ nRow+I,0 Say REPLICATE("=",nLebar)
EJECT
SET DEVICE TO SCREEN
SET PRINTER TO


Pada saat mencetak nota pertama kali, hasil selalu normal, tapi pencetakan nota ke-2 dst selalu ada titik-titik di hasil nya (attachment). Nota bs normal lagi kl sudah klr dr program dulu kmdian masuk lg. Apa ada dr master2 yg pnh ngalamin spt ini?mohon pencerahan dr para master disini....trims.


Offline hell_angel

  • Junior Member
  • *
  • Posts: 305
Re: Struk ke-2 ada titik-titik
« Reply #1 on: February 24, 2016, 01:34:35 PM »
mungkin itu gejala kena penyakit cacar, wkwkwkw  :laughing3:
A man who can moves a mountain, begins by carrying a small stone....

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.018
  • Awas ya...
Re: Struk ke-2 ada titik-titik
« Reply #2 on: February 24, 2016, 02:48:27 PM »
biarin aja, titit2nya kliatan

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.449
    • Foxy Land
Re: Struk ke-2 ada titik-titik
« Reply #3 on: February 24, 2016, 03:31:27 PM »
Solusi yang terpikir:
1. Coba hardware print test page (matikan printer, tekan tombol online. Tahan. Nyalakan printer. Tahan terus tombolnya sampai si printer nge-print sendiri semua character set yang dia bisa print). Normalkah?
2. Apakah ada kode ESC (=Epson Standard Code; biasanya CHR(27) + CHR(..) + CHR(..) ) tertentu yang Anda kirimkan di report Anda. Kalau ada, coba hilangkan kode ESC itu.
3. Sudah coba pakai printer LX-310 lain? Kalau jadi bagus, masalahnya di printer. Kalau masih ngaco, berarti program
4. Sudah coba download driver epson LX-310 ? Memang dari Windows (terutama Windows 7++) sudah ada printer driver Epson LX, FX series yang langsung mengenali; tapi just in case aja; coba pakai driver yang memang untuk LX-310. Download dari http://www.epson.co.id/sites/epson_indonesia/support/support.page

hth,
foxy
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.

Offline dan2y

  • Senior Member
  • *
  • Posts: 563
Re: Struk ke-2 ada titik-titik
« Reply #4 on: March 02, 2016, 08:37:22 AM »
pake report bawaan foxpro aja pak...

Offline aronsluciano

  • Junior Member
  • *
  • Posts: 216
Re: Struk ke-2 ada titik-titik
« Reply #5 on: April 09, 2016, 08:58:02 AM »

Di coba ditambah :  ??? ""

jadi spt ini :
SET DEVICE TO PRINT
SET PRINTER TO NAME ALLTRIM(_printer2)
??? " "


Mudah2n bisa bantu