Membuat Fungsi Kredit PMT, IPMT, PPMT, Future Value di SQL Server

Berikut ini adalah fungsi-fungsi untuk perhitungan finansial/akuntansi di SQL Server. fungsi fungsi ini biasanya di pakai bank untuk perhitungan angsuran kredit.

Future value:

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE FUNCTION [dbo].[Fv] (@r decimal(18,18), @nper INT, @c float, @pv float, @type INT)  
RETURNS NUMERIC(18,0)
AS  
BEGIN  
 DECLARE @fv NUMERIC(18,2)  
 
 IF @type = 1  
 SET @c = @c * (1 + @r);  
 
 SET @fv = -(@c * (Power(1 + @r, @nper) - 1) / @r + @pv  
    * Power(1 + @r, @nper))  
 
 RETURN @fv  
END  

IPMT :

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO


CREATE FUNCTION [dbo].[Ipmt] (@r decimal(18,18), @per INT, @nper INT, @pv float, @fv float, @type INT)  
RETURNS NUMERIC(20,2)   
AS  
BEGIN  
 DECLARE @ipmt NUMERIC(20,2)  
 SET @ipmt = dbo.Fv(@r, @per - 1, dbo.Pmt(@r, @nper, @pv, @fv, @type), @pv, @type) * @r  
 
 if @type = 1  
 SET @ipmt = @ipmt / (1 + @r)  
 RETURN @ipmt  
END  
GO

PMT :

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE FUNCTION [dbo].[Pmt] (@r decimal(18,18), @nper INT, @pv float, @fv float, @type INT)  
RETURNS NUMERIC(18,2)
AS  
BEGIN  
 DECLARE @pmt  NUMERIC(18,0) 
 
 SET @pmt = @r / (Power(1.0 + @r, @nper) - 1.0) * -(@pv * Power(1.0 + @r, @nper) + @fv)  
 
 if @type = 1  
 SET @pmt = @pmt / (1 + @r)  
 RETURN @pmt  
END  

GO

PPMT :

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE FUNCTION [dbo].[Ppmt] (@r NUMERIC(18,4), @per INT, @nper INT, @pv NUMERIC(18,4), @fv NUMERIC(18,4), @type INT)  
RETURNS NUMERIC(18,4)   
AS  
BEGIN  

 RETURN dbo.Pmt(@r, @nper, @pv, @fv, @type) - dbo.Ipmt(@r, @per, @nper, @pv, @fv, @type);  

END  

GO

Mencari Jumlah Angsuran perbulan (Bunga Efektif )

Contoh :
Nasabah : Andi Susanty
Jumlah Pinjaman (Plafond) : Rp. 35.000.000
Suku Bunga Efektif : 39,429% Per Tahun
Tenor : 3 Tahun (36 Bulan)

Untuk mencari jumlah angsuran yg harus Andi bayar perbulan yaitu :
PMT(SukuBunga/12,Tenor,JumlahPinjaman,0,0)

select dbo.pmt(0.39429 / 12, 36,35000000,0,0)
= Rp. 1.672.212,-

untuk mencari porsi Bunga / Interest dalam tenor yg sedang berjalan ialah :

IPMT(SukuBunga/12,Angsuranke,Tenor,JumlahPinjaman,0,0)

yaitu : Rp. 1.150.012,50

 

Sumber: https://rasciii.blogspot.sg/2014/11/membuat-fungsi-kredit-pmt-ipmt-ppmt.html?showComment=1493103708077#c5876738445100200228

 

.NET Framework 4 Error HRESULT: 0xc800022 pada Windows 7

Kali ini saya akan sharing mengenai bagaimana cara Mengatasi Gagal Install Net Framework 4 Pada Windows 7. Biasanya error pada saat install framework 4 ini ditunjukan dengan kode HRESULT : 0XC800022 pada saat proses instalasi dotnet framework 4 berlangsung.

Cara Mengatasi Gagal Install .Net Framework 4 Pada Windows 7

  1. Buka Command Prompt (Run as Administrator).
  2. Selanjutnya di cmd tersebut ketikan: net stop WuAuServ
  3. Langkah selanjutnya adalah masuk ke folder C:/Windows lalu cari folder dengan nama SoftwareDistribution.
  4. Rename folder tersebut misalnya menjadi SoftwareDistributionOld.
  5. Langkah terakhir silahkan kembali ke Command Prompt, lalu ketikan perintah: net start WuAuServ
  6. Terakhir silahkan coba lakukan instalasi ulang Net Framework 4 kamu.

Demikian, Semoga bermanfaat. Selamat mencoba…

Internet Explorer tidak menampilkan detail error dari ASP Classic

Lagi-lagi masih berkutat di pemrograman ASP Classic, kali ini masih berhubungan dengan error yang ada di ASP classic. pada tulisan sebelumnya error odbc dan internal error 500 sudah saya bahas mengenai error open database access dan internal erorr 500 di IIS web server.

Nah tidak sampai di situ ternyata errornya, di internet explorer sekarang juga sama tidak mau menampilkan detail error namun hanya menampilkan internal error 500. usut punya usut dari situs nya Microsoft ternyata ada yang harus di setting. begini caranya:

  1. Buka Internet explorer
  2. Klik menu Tools->Internet Options
  3. Pilih tab Advanced, Lalu uncheck pilihan Show friendly http error messages.
  4. Klik OK.

ie

Demikian pengalaman saya, Semoga bermanfaat. Selamat mencoba..

Classic ASP : Internal Server Error 500

Melanjutkan pengalaman saya mengenai ASP Classic di tulisan Error ASP Classic kali ini saya akan sharing lagi mengenai error Internal Server 500. secara default IIS di set untuk tidak mengirim kan detail error ke client browser ketika ada error di programming code nya. hal ini tentu sangat menyulitkan bagi para developer/programmer untuk melakukan debuging pada code nya.

Nah agar IIS web server mengirimkan kode error pada web browser, berikut langkahnya:

  1. Buka IIS Manager
  2. Pada panel kiri expand Sites->Default Website
  3. Pilih aplikasi yang akan kita setting, Kemudian klik ASP
  4. Expand pada bagian Debugging Properties kemudian set menjadi True untuk bagian Enable Client-side Debugging, Enable Server-side Debugging, dan Send errors to Browser
  5. Klik Apply untuk untuk menyimpan perubahan.
  6. Tekan tombol back, Kemudian klik Error Pages
  7. Pada panel kanan klik Edit Feature Settings kemudian pilih yang Detailed Errors
  8. Klik OK.
  9. Restart Web Server. untuk menerapkan perubahan.

Dengan cara ini seharus nya sudah tidak akan muncul lagi pemberitahuan internal error 500 melainkan akan di tampilkan detail error dari aplikasi kita beserta line number tempat error berada. dari detail error tersebut kita bisa lebih mudah memperbaiki error yang ada.

Demikian, Semoga bermanfaat. Selamat mencoba…

Error: Microsoft OLE DB Provider for ODBC Drivers error ‘80004005’ ASP Classic

Kali ini saya akan share sedikit pengalaman mengenai ASP classic, jadi saya ada sebuah aplikasi web yang di buat menggunakan ASP classic dan database Microsoft Access 2003. setelah saya develop di IIS 10 Windows 10 begitu di di buka di browser client selalu muncul error seperti ini:

Microsoft OLE DB Provider for ODBC Drivers error ‘80004005’

[Microsoft][ODBC Driver Manager]Data source name not found and no default driver specified.

Usut punya usut ternyata error tersebut di karenakan compatibility mode pada driver ODBC Microsoft Access nya. Microsoft Access menggunakan Driver ODBC 32 Bit sedangkan Windows yang saya pakai untuk Web Server adalah 64 bit.

Solusi nya sangat sederhana, yaitu:

  1. Buka IIS Manager
  2. Pilih Application Pools, Dari list yang ada pilih application pools yang di pakai oleh aplikasi kita lalu klik Advanced Settings pada panel kananapplication-pools
  3. Pada pilihan Enable 32-Bit Applications set ke True
  4. Klik OK, kemudian restart Web Server nya
  5. Taraa…., sekarang error sudah menghilang

Demikian, semoga bermanfaat. Selamat mencoba..

 

Encrypt/Decrypt SQL Server

Berikut adalah funtion untuk encrypt dan decrypt di SQL Server…

create Function [dbo].[encrypt] (@Password varchar(100) ,@Key varchar(100))
RETURNS varbinary(max)WITH EXECUTE AS CALLER
BEGIN
return EncryptByPassPhrase(@key, convert(varchar(100),@password))
END

Create Function [dbo].[decrypt] (@Key varchar(100),@EncryptPwd varbinary(max))
RETURNS varchar(100)WITH EXECUTE AS CALLER
BEGIN
return convert(varchar(100),convert(varchar(100),decryptbypassphrase(@Key,@encryptPwd)))
END

declare @password as varchar(100)
declare @key as varchar(100)
set @password=’Passw0rd’
set @key=’Suprie’
declare @hsl1 as varbinary(max)
declare @hsl2 as varbinary(max)
declare @decr as varchar(100)
declare @decr1 as varchar(100)
print ‘Eksekusi pertama ‘
SELECT @hsl1= [dbo].[encrypt] (@password,@Key)
print @hsl1
select @decr=dbo.decrypt(@key,@hsl1)
print @decr
print ”
print ‘eksekusi kedua’
SELECT @hsl2= [dbo].[encrypt] (@password,@Key)
print @hsl2
select @decr1=dbo.decrypt(@key,@hsl2)
print @decr1

Windows XP: This copy of Windows must be activated before you can log on.

Kali ini saya akan sharing lagi mengenai masalah activasi Windows XP, sebelumnya saya akan bercerita tentang kronologi masalah yang terjadi pada komputer produksi yang ada di tempat saya bekerja.

Pada saat komputer di hidupkan,  sebelum muncul layar login windows muncul kotak dialog yang mengatakan bahwa licence windows xp sudah expired dan harus di reactivate. kurang lebih bunyinya seperti ini:

This copy of Windows must be activated with Microsoft before you can log on. Do you want to activate Windows now?

Read the rest of this entry »