On Saturday, December 28, 2002, 11:21:30 AM, changan chai wrote:
> GajiPokok, Trans, TKeluarga, Makan,dll. Biasanya kalau saya di
> program Clipper begini perintah print
> @ 1,2 say �Nama : �+Napeg
> @ prow()+1,2 say �Gaji Pokok Rp.�
> @ prow(),17 say Gajipokok pict �@e 9,999,999�+�,-�
> if trans > 0
> @ prow()+1,2 say �-Transport Rp.�
> @ prow(),17 say Trans pict �@e 999,999�+�,-�
> endif
> Yang menjadi pertanyaan saya begini Kalau print di Qreport dan kalau
> pakai perintah manual caranya gimana ya.
Kalau pakai QReport, anda desain dulu Reportnya dengan asumsi elemen
Biaya transport selalu dicetak.
Kemudian sebelum mencetak, cek dulu nilai Trans: nol atau tidak?
Jika nol maka:
1. Set property Top komponen komponen yang posisi
cetaknya di bawah Biaya Transport agar posisinya menempati posisi
cetak "Biaya Transport". Kemudian yang akan dicetak dibawahnya lagi
dinaikkan posisinya dst.
2. Hook event OnPrint dari komponen yang
merupakan representasi dari "Biaya Transport" dan set Value ke empty
string ('').
Kalau mau direct ngeprint ala Clipper, gunakan AssignPrn (lihat di
help) dan selanjutnya terjemahkan saja statement-2 Clipper ke Pascal:
* Di mana di Clipper kita gunakan ? atau Qout(), di Pascal kita gunakan
WriteLn
* Di mana di Clipper kita gunakan ?? atau QQout(), di Pascal kita
gunakan Write
Kira-2 sbb:
Procedure PrintAlaDOS;
var
F : TextFile;
begin
AssignPrn( F ); // Lihat HELP file
Rewrite( F );
//
WriteLn( F , 'Nama : ' + DataSet.FieldByName( 'NAMA').AsString );
... dst
if DataSet.FieldByName( 'TRANS').AsCurrency <> 0 then
WriteLn( F , ' - Transport '
+ FormatFloat( '"Rp " ###,##0' ,
DataSet.FieldByName('TRANS').AsCurrency
)
);
...dst
end;
WriteLn/Write(.....)
// Selesai.
CloseFile( F );
end;
--
Bambang
http://bpranoto.tripod.com
Let's win quizzes!! http://www.itpaystolearn.com/default.asp?ref_id=ADY095
If you're too open minded, your brains will fall out.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
