-=-
.
.....
  
| messages |
 
RSS
Direkomendasikan menggunakan brower Opera/Chrome/Firefox. Resolusi minimal 1024x768 | Powered by ____ |
 
KiOSS.Com
  
| Switch to Default View |
  
Nikmati Delphi-ID dalam berbagai versi tampilan :
Basic View (LOW Bandwidth)
Default View (Full)
Mobile Edition
Main Menu
..:: onWebTools ::..
..:: onLastPosts ::..
goto Postjumlah komponen maksimal dalam sebuah project(6)
 by d4mnf1y32
 on 21.May at 12:16
goto Posttanya grayscale to biner dengan scanline(1)
 by luckynvic
 on 20.May at 20:44
goto Posttanya looping biner to matriks(1)
 by luckynvic
 on 20.May at 20:10
goto Postsql error:acces denied for user....(2)
 by nasbms
 on 19.May at 16:54
goto Postpemanggilan frame(4)
 by nasbms
 on 19.May at 16:14
goto Posttanya AvLock(0)
 by azuriza
 on 19.May at 11:24
goto PostGet TDBEdit Value Menggunakan LookUp Grid(10)
 by henry_sys
 on 18.May at 11:27
goto Postmenghitung record dalam perulangan(4)
 by idhiel
 on 16.May at 13:53
goto Posttanya ascii(4)
 by mas_kofa
 on 16.May at 12:11
goto PostRawPrint Untuk Delphi XE2(0)
 by adewijaya
 on 15.May at 22:34
goto Postdatabase error..(4)
 by idhiel
 on 15.May at 15:57
goto Postbekasi, pt arila putra mahkota(3)
 by mas_kofa
 on 15.May at 15:37
goto Postbagaimana cara membaca file *.doc dg delphi?(0)
 by ficky
 on 15.May at 06:14
goto Posttanya biner to matriks(13)
 by diandewi
 on 14.May at 20:30

..:: onLast Articles ::..
..:: New Download ::..
Pascal-id.Org
Feeds -  Popular -  Latest
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: Perkenalan dan Absen
8 months, 3 weeks ago
RE: Alhamdulillah Buka Puasa Bersama
8 months, 4 weeks ago
RE: تَقَبَّلَ اللهُ مِنَّا وَمِنْكَ - Selamat Hari Raya Idul Fitri
8 months, 4 weeks ago
Lintas Situs
«
free web site stats and visitor tracking
•   Forum FAQ  •  Search  • 

<ask>aplikasi surat peringatan tunggakan nasabah
Delphi Indonesia Forum Index » Pemrograman » Bedah Kasus
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
Author Message
giblartarOffline
Location:
Post subject: <ask>aplikasi surat peringatan tunggakan nasabah  PostPosted: 03/Feb/2011 15:17
onBeginner


Joined: 03-Feb-2011
Posts: 6

Status: Offline
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...
 
 View user's profile Send private message  
Reply with quote Back to top
supermuamOffline
Location:
Post subject:   PostPosted: 04/Feb/2011 10:49
onKnowledgeable


Joined: 20-Feb-2008
Posts: 131

Status: Offline
coba kalo dihitung dari tanggal jatuh tempo pembayaran yang terakhir
kemudian dikalikan nilai denda bagaimana?

_________________
....No Pain No Gain...
 
 View user's profile Send private message  
Reply with quote Back to top
cyber_heckerOffline
Location: Ponti Hot City
Post subject: Re: <ask>aplikasi surat peringatan tunggakan nasabah  PostPosted: 05/Feb/2011 10:18
onProfessional


Joined: 19-May-2005
Posts: 981
Location: Ponti Hot City
Status: Offline
      giblartar wrote:

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 Razz. SP 3 lewat 3 hari, SP 2 lewat 1 minggu.

_________________
 
 View user's profile Send private message Yahoo Messenger MSN Messenger  
Reply with quote Back to top
om20020Offline
Location:
15 Post subject:   PostPosted: 05/Feb/2011 19:43
onConfident


Joined: 04-Dec-2006
Posts: 20

Status: Offline
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 
code : pascal
  1. procedure TForm1.Peringatan(TglJthTempo:Tdate);
  2. begin
  3.    if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,5),1)       
  4.       then Label1.Caption := 'SURAT PERINGATAN PENARIKAN JAMINAN'
  5.    ELSE 
  6.    if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,3),3)  
  7.       then Label1.Caption := 'SURAT PERINGATAN 3'
  8.    ELSE 
  9.    if TglSekarang.Date>IncWeek(IncMonth(TglJthTempo,2),2) 
  10.       then Label1.Caption := 'SURAT PERINGATAN 2'
  11.    ELSE 
  12.    if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,1),1)  
  13.       then Label1.Caption := 'SURAT PERINGATAN 1'
  14.    ELSE Label1.Caption := 'Belum Nunggak Koq';
  15. end;
Parsed in 0.005 seconds, using GeSHi

Gitu kali ya,mohon direfisi klo ada yg salah Very Happy
 
 View user's profile Send private message  
Reply with quote Back to top
om20020Offline
Location:
15 Post subject:   PostPosted: 05/Feb/2011 20:33
onConfident


Joined: 04-Dec-2006
Posts: 20

Status: Offline
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 
code : pascal
  1. procedure TForm1.Peringatan(TglJthTempo:Tdate);
  2. var denda:Double;
  3. begin
  4.    if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,5),1)
  5.       then Label1.Caption := 'SURAT PERINGATAN PENARIKAN JAMINAN'
  6.    ELSE
  7.    if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,3),3)
  8.       then Label1.Caption := 'SURAT PERINGATAN 3'
  9.    ELSE
  10.    if TglSekarang.Date>IncWeek(IncMonth(TglJthTempo,2),2)
  11.       then Label1.Caption := 'SURAT PERINGATAN 2'
  12.    ELSE
  13.    if TglSekarang.Date>IncDay(IncMonth(TglJthTempo,1),1)
  14.       then Label1.Caption := 'SURAT PERINGATAN 1'
  15.    ELSE Label1.Caption := 'Belum Nunggak Koq';
  16. //----------------------------------------------------
  17. //Untuk perhitungan DENDA
  18. //----------------------------------------------------
  19.    if DaysBetween(TglSekarang.Date,TglJthTempo)<=0
  20.       then denda:=0
  21.       else denda := DaysBetween(TglSekarang.Date,TglJthTempo)*0.25;
  22.    Label3.Caption := FormatFloat('###,###.##',denda);
  23. end;
Parsed in 0.006 seconds, using GeSHi

Gitu kali ya,mohon direfisi klo ada yg salah Very Happy
 
 View user's profile Send private message  
Reply with quote Back to top
giblartarOffline
Location:
Post subject: Re: <ask>aplikasi surat peringatan tunggakan nasabah  PostPosted: 11/Feb/2011 14:12
onBeginner


Joined: 03-Feb-2011
Posts: 6

Status: Offline
      cyber_hecker wrote:
      giblartar wrote:

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 Razz. SP 3 lewat 3 hari, SP 2 lewat 1 minggu.

udah ane edit gan..
1bulan + 3 minggu maksudnya

thanks y..
 
 View user's profile Send private message  
Reply with quote Back to top
Display posts from previous:     
Jump to:  
All times are GMT - 12 Hours
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
 Delphi Indonesia Forum Index » Pemrograman »  Bedah Kasus





Powered by PNphpBB2 © 2003-2009 The Zafenio Team
Credits


| Register | Lost Password ? |