> procedure TFPiutang.edtglinvKeyPress(Sender: TObject; var Key: Char); > Var PTglA, c, PTglB : TDateTime; > begin > pTgla:=strTodate(edtglinv.text); > if key=chr(13) then > begin > c:=ptgla+datamodule1.tbcust['term']; > edtgltempo.Text:=DateToSTr(c); > > edtgltempo.SetFocus; > end; > end; errornya di c:=ptgla+datamodule1.tbcust['term']; seharusnya c:=ptgla+datamodule1.tbcust['term'].asinteger;
penting: mungkin jgn pake event onKeypress tapi OnExit lebih efektif > 2. Bagaimana caranya pengurangan saldo piutang > > misalnya : piutang RP. 35.000, bayar tanggal 5-10-2003 rp. 15000. saldo = 20.000 masuk kedalam tabel piutang, waktu bayar lagi yang tampil nilai dari saldo terakhir > tampaknya anda harus baca2 system akuntansi. dalam akuntansi semua ini merupakan bagian journal jadi tabelnya sbb: JOURNAL DESCRIPTION DEBET KREDIT ------------------------------------------------------ BAYAR 5-10-2003 20,000 KAS 20,000 Dari mana dapat nilai piutang awal Rp 35.000? Caranya jika memakai Non DB Server seperti Paradox maka kita buat tabel Master Piutang. Kelemahannya adalah integrasi data harus ekstra hati-hati dan sulit untuk membuat analisa keuangan per 5 tahun. Tetapi jauh lebih cepat. Jika pake SQL Server (misal MySQL) maka biasanya saya cari piutang itu dari querynya sbb: select sum(debet)-sum(credit) Piutang from Journal_Piutang where year(Journal_Date)=2003 Cara query tsb hanya boleh jika anda bisa mensupply data hasil query maksimum 1 detik, biasanya dengan cara posting tahunan. Masalah ini sgt tergantung pd database yg anda pakai, bentuk report user, system posting data. Tetapi kebanyakan programmer pake cara 1, yaitu bikin tabel Master Piutang yang diupdate setiap ada transaksi yg relevan. Semoga menjawab tuntas ... ------------------------ Yahoo! Groups Sponsor ---------------------~--> Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511 http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/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/
