Arsip: <ask>aplikasi surat peringatan tunggakan nasabah

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

supermuam

coba kalo dihitung dari tanggal jatuh tempo pembayaran yang terakhir kemudian dikalikan nilai denda bagaimana?
user image
more 9 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 9 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 9 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 9 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
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com