Program Mencetak Laporan
Selain menampilkan data per record, kita juga bisa menampilkan seluruh record sekaligus. Yaitu dengan membuat laporan, untuk lebih jelasnya langsung saja kita coba yang di bawah ini.
Langsung ketik aja kode di bawah ini :
local mscreen, mcolor
save scre to mscreen
CLOSE DATABASE
use BARANG index BARANG
pilih=0
pilih:=alert("Media Cetakan",{"Layar","Printer","Batal"})
Do case
case pilih=1
set printer off
set cons off
set alter to lapor.txt
set alter on
case pilih=2
if ! isprinter()
alert("Printer Belum Siap")
return
endif
set cons off
set printer on
case pilih=3 .or. pilih=0
return
endcase
CLEAR
? "TOKO ADI JAYA UTAMA"
? "Jl. DR. Radjiman No. 525 Surakarta"
?
? space(33)+"LAPORAN DATA BARANG"
? "------------------------------------------------------------"
? " No Kode Barang Nama Barang Satuan Merk Harga Stok"
? "------------------------------------------------------------"
no=0
hal=1
br=1
SET FILTER TO
GO TOP
do while .not. eof()
NO=NO+1
A1="|"+TRAN(NO,"999")+"|"+KD_BRG+"|"+NM_BRG+"|"
A2=SATUAN+"|"+MERK+"|"+TRAN(HARGA,"9,999,999")+"|"
A3=TRAN(STOK,"999")
? A1+A2+A3
SKIP
ENDDO
if pilih=1
if pilih=1
set colo to w+/b
@1,0 to 23,79
@24,1 clea to 24,78
set print off
set cons on
set alter to
set colo to w+/b
geser := memoedit(memoread("LAPOR.txt"),2,1,22,78,.F.,,350,10)
endif
endif
RETURN