Ini pertanyaan saya yang kedua saya ulang [ yang jawab cuma 2 orang/tapi maaf belum
ngerti ], saya udah cari di arsip Delphindo tapi ngak ada, bisa ada yang bantu ngak ?
Saya punya tabel invoice salah satu fieldnya TglInvoice tipe date dan saya punya satu
tabel lagi yaitu customer dengan salah satu fieldnya Term tipe number, saya mau tanya :
1. bagaimana caranya waktu saya input tanggal invoice misal 01-10-2003 otomatis
tanggal jatuh temponya ditambah dari field term. mis : Term = 30 hari, maka tanggal
jatuh temponya 31-10-2003 [saya pakai maskedit ]
saya udah coba begini tapi ngak bisa :
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;
Keluar Message : is not a valid date
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
thx
Hans
[Non-text portions of this message have been removed]
------------------------ 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/
