Arsip: <ask>aplikasi surat peringatan tunggakan nasabah

more 14 years ago
giblartar
mastah" izin nanya y...
ane lg coba bikin aplkasi surat peringatan tunggakan nasabah
ni screenshot form ny.
untuk dbedit7(Keterangan) : nilai yang diinginkan yaitu "SURAT PERINGATAN 1, SURAT PERINGATAN 2, SURAT PERINGATAN 3 dan SURAT PENARIKAN JAMINAN
dengan ketentuan :
SURAT PERINGATAN 1 jk nasabah menunggak 1bulan + 1 hari
SURAT PERINGATAN 2 jk nasabah menunggak 1bulan + 2 minggu
SURAT PERINGATAN 3 jk nasabah menunggak 1bulan + 3 hari
SURAT PENARIKAN JAMINAN jika nasabah menunggak 2bulan + 1 hari
denda 0,25/hari
ane msh bingung untuk menentukan nilai" dbedit yg ada di form denda,,
ane pake sql server 2000 database nya n pke ADOconnection
ada yg bisa ngasih pencerahan..
thanks...





more 14 years ago
supermuam
coba kalo dihitung dari tanggal jatuh tempo pembayaran yang terakhir
kemudian dikalikan nilai denda bagaimana?

more 14 years ago
cyber_hecker
@giblartar: dengan ketentuan : SURAT PERINGATAN 1 jk nasabah menunggak 1bulan + 1 hari SURAT PERINGATAN 2 jk nasabah menunggak 1bulan + 2 minggu SURAT PERINGATAN 3 jk nasabah menunggak 1bulan + 3 hari SURAT PENARIKAN JAMINAN jika nasabah menunggak 2bulan + 1 harianeh rule nya... SP 3 keluar dulu, baru SP 2 keluar :P. SP 3 lewat 3 hari, SP 2 lewat 1 minggu.

more 14 years ago
om20020
Dengan asumsi :
SURAT PERINGATAN 1 diberikan dari tgl jatuh tempo + 1bl+1 hari
SURAT PERINGATAN 2 diberikan dari tgl jatuh tempo + 2bl+2 minggu
SURAT PERINGATAN 3 diberikan dari tgl jatuh tempo + 3bl+3 hari
SURAT PERINGATAN PENARIKAN JAMINAN diberikan LEBIH DARI tgl jatuh tempo + 5bl+1 hari
procedure TForm1.Peringatan(TglJthTempo:Tdate);
begin
if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,5),1)
then Label1.Caption := 'SURAT PERINGATAN PENARIKAN JAMINAN'
ELSE
if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,3),3)
then Label1.Caption := 'SURAT PERINGATAN 3'
ELSE
if TglSekarang.Date>IncWeek(IncMonth(TglJthTempo,2),2)
then Label1.Caption := 'SURAT PERINGATAN 2'
ELSE
if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,1),1)
then Label1.Caption := 'SURAT PERINGATAN 1'
ELSE Label1.Caption := 'Belum Nunggak Koq';
end;
Gitu kali ya,mohon direfisi klo ada yg salah :D
more 14 years ago
om20020
Eh ada yg kelupaan nih untuk tambahan DENDA 0.25/hari
Dengan asumsi :
SURAT PERINGATAN 1 diberikan dari tgl jatuh tempo + 1bl+1 hari
SURAT PERINGATAN 2 diberikan dari tgl jatuh tempo + 2bl+2 minggu
SURAT PERINGATAN 3 diberikan dari tgl jatuh tempo + 3bl+3 hari
SURAT PERINGATAN PENARIKAN JAMINAN diberikan LEBIH DARI tgl jatuh tempo + 5bl+1 hari
procedure TForm1.Peringatan(TglJthTempo:Tdate);
var denda:Double;
begin
if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,5),1)
then Label1.Caption := 'SURAT PERINGATAN PENARIKAN JAMINAN'
ELSE
if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,3),3)
then Label1.Caption := 'SURAT PERINGATAN 3'
ELSE
if TglSekarang.Date>IncWeek(IncMonth(TglJthTempo,2),2)
then Label1.Caption := 'SURAT PERINGATAN 2'
ELSE
if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,1),1)
then Label1.Caption := 'SURAT PERINGATAN 1'
ELSE Label1.Caption := 'Belum Nunggak Koq';
//----------------------------------------------------
//Untuk perhitungan DENDA
//----------------------------------------------------
if DaysBetween(TglSekarang.Date,TglJthTempo)<=0
then denda:=0
else denda := DaysBetween(TglSekarang.Date,TglJthTempo)*0.25;
Label3.Caption := FormatFloat('###,###.##',denda);
end;
Gitu kali ya,mohon direfisi klo ada yg salah :D
more 14 years ago
giblartar
@cyber_hecker:udah ane edit gan.. 1bulan + 3 minggu maksudnya thanks y..@giblartar: dengan ketentuan : SURAT PERINGATAN 1 jk nasabah menunggak 1bulan + 1 hari SURAT PERINGATAN 2 jk nasabah menunggak 1bulan + 2 minggu SURAT PERINGATAN 3 jk nasabah menunggak 1bulan + 3 minggu SURAT PENARIKAN JAMINAN jika nasabah menunggak 2bulan + 1 harianeh rule nya... SP 3 keluar dulu, baru SP 2 keluar :P. SP 3 lewat 3 hari, SP 2 lewat 1 minggu.
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- i bisa menekan tombol applikasi lain di luar delphi
by blackshield in Tip n Trik Pemrograman more 16 years ago - Pembayaran International - Paypal
by DelphiExpert in OOT more 17 years ago - [help] - Check Filename in String
by rydzâ„¢ in Tip n Trik Pemrograman more 16 years ago - Buka file pdf
by bboyz in Hal umum tentang Pascal Indonesia more 17 years ago - Tolongin cara akses ke Folder pake Delphi...pliss..
by arise in Tip n Trik Pemrograman more 17 years ago - tanya buat subtotal dan total di quict report
by budhie_yk in Reporting more 16 years ago - hapus database menggunakan ZQuery
by luq_h in Tip n Trik Pemrograman more 13 years ago - Open file with......
by greatjon2002 in Tip n Trik Pemrograman more 18 years ago - Bagaimana cara Lookup Field Tabel
by ari_volker in Hal umum tentang Pascal Indonesia more 17 years ago - nanya para delphier yang lagin ON bisa ga
by agenda in Bedah Kasus more 16 years ago