Arsip: <ask>aplikasi surat peringatan tunggakan nasabah

 
user image
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...
user image
more 14 years ago

supermuam

coba kalo dihitung dari tanggal jatuh tempo pembayaran yang terakhir kemudian dikalikan nilai denda bagaimana?
user image
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 hari
aneh rule nya... SP 3 keluar dulu, baru SP 2 keluar :P. SP 3 lewat 3 hari, SP 2 lewat 1 minggu.
user image
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
user image
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
user image
more 14 years ago

giblartar

@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 minggu SURAT PENARIKAN JAMINAN jika nasabah menunggak 2bulan + 1 hari
aneh rule nya... SP 3 keluar dulu, baru SP 2 keluar :P. SP 3 lewat 3 hari, SP 2 lewat 1 minggu.
udah ane edit gan.. 1bulan + 3 minggu maksudnya thanks y..
more ...
  • Pages:
  • 1
Share to

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

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com