penambahan nilainya pada kolom bungadiberi sebelumnya 1200 jadi
012 pokoknya usahakan bisa input angka 0 didepan dan bungadiberi tersebut
tidak digunakan untuk perhitungan hanya penulisan aja seperti text makasih
banget yach....
contoh:
bungadiberi
bungadiberi(yang dirubah)
1200
01200
disini aku kasih store procedurnya...jadi aku hanya
perlu modifikasi yang udah ada sehingga bisa jadi sepeti diatas....
CREATE PROCEDURE [dbo].[BI_2_ABA] @bulan
char(2),@tahun char(4) AS
EXEC('
/* SANDI 900 dan Jenis 2 Digit Belakang
Sandi BI
Khusus Giro, Tabungan, dan Escrow
Account
cdperk
= (''10501'',''10503'',''10510'')*/
DELETE FROM
BI_Form2_ABA
INSERT INTO BI_Form2_ABA
(cdkec, cdbpr, cdperk, nmperk, sandi, Jenis, jw_thn,jw_bln, jw_hr,
Kolektibilitas, bungadiberi,
Jumlah, bulan, tahun )
SELECT cdkec, cdbpr,cdperk, perkiraan,
''900'' as sandi,
right(rtrim(SandiBI),2) as Jenis, 0 ,0 ,0, ''1'' as Kolektibilitas,
1200 as bungadiberi, bln'[EMAIL PROTECTED]' AS Jumlah, '[EMAIL PROTECTED]' AS bulan,
tahun
FROM bMSperkiraan
WHERE bMSperkiraan.tahun='[EMAIL PROTECTED]'
and left(bMSperkiraan.sandibi,3) = ''120'' and left(bMSperkiraan.cdperk,5) in
(''10501'',''10503'',''10510'')
ORDER BY
dbo.bMSperkiraan.cdperk
/* SANDI 600
dan Jenis 2 Digit Belakang Sandi
BI
Khusus
Deposito, Kredit, dan
Pinjaman
cdperk = (''10507'',''10511'',''10509'') */
INSERT INTO
BI_Form2_ABA
(cdkec, cdbpr, cdperk,nmperk, sandi,
Jenis, jw_thn,jw_bln, jw_hr, Kolektibilitas, bungadiberi, Jumlah, bulan, tahun )
SELECT
cdkec, cdbpr,cdperk,perkiraan, ''600'' as sandi, right(rtrim(SandiBI),2)
as Jenis, 0 ,0 ,0, ''1'' as Kolektibilitas,
1200 as bungadiberi, bln'[EMAIL PROTECTED]' AS Jumlah, '[EMAIL PROTECTED]' AS bulan,
tahun
FROM dbo.bMSperkiraan
WHERE dbo.bMSperkiraan.tahun='[EMAIL PROTECTED]'
and left(dbo.bMSperkiraan.sandibi,3) = ''120'' and
left(dbo.bMSperkiraan.cdperk,5) in (''10507'',''10509'',''10511'')
ORDER BY dbo.bMSperkiraan.cdperk
/* HAPUS UNTUK ABA YANG JUMLAH = 0
*/
DELETE BI_Form2_ABA WHERE Jumlah = 0
/* BUAT PECAHAN Milyar, Jutaan dan Ribuan
*/
UPDATE BI_Form2_ABA Set Jumlah = Round(Jumlah *
0.001,0)
UPDATE BI_Form2_ABA
SET JmlRibu =
right(str(round(Jumlah,0)),3),
JmlJuta = substring(str(round(Jumlah,0)),len(str(round(Jumlah,0)))-5,3)
,
JmlMlyr = LEFT(str(round(Jumlah,0)),len(str(round(Jumlah,0)))-6)
/* BUAT Backup File History*/
DELETE FROM BI_H2_ABA Where Bulan = '[EMAIL PROTECTED]' and Tahun = '[EMAIL PROTECTED]'
INSERT INTO BI_H2_ABA SELECT * FROM BI_Form2_ABA
')
GO
disini aku informasikan bahwa kolom ini bertype
numeric...apa aku harus rubah type kolomnya gak??klo iya kebentuk
apa???
klo ada yang bisa tolongin makasih banyak
yach..
Rima
