Nomer 1:
Karena format tanggal yang sedang Anda gunakan adalah dd-mm-yyyy
Coba seperti ini:
procedure TFPiutang.edtglinvKeyPress(Sender: TObject; var Key: Char);
Var PTglA, c, PTglB : TDateTime; begin
LongDateFormat:='dd-mm-yyyy';
pTgla:=strTodate(edtglinv.text);
if key=chr(13) then
begin
c:=ptgla+datamodule1.tbcust['term'];
edtgltempo.Text:=DateToSTr(c);
edtgltempo.SetFocus;
end;
LongDateFormat:='mm-dd-yyyy';
end;
Nomer 2:
Mungkin Anda bisa menambahkan 1 field baru pada database yang
menunjukkan informasi SALDO AKHIR.
Misalnya field: JUM_PIUTANG, BAYAR_PIUTANG
Maka JUM_PIUTANG harus berisi 35,000
dan saat dibayar maka BAYAR_PIUTANG berisi 15,000
Begini maksudnya?
Semoga membantu.
[Non-text portions of this message have been removed]
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/
------------------------ 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/
