Title: Message
maksudnya apa neh?,
  • Best regards,
  • Hendikin Ferrar 
  • PT. ERPSoft Solusi Mandiri
  • The Information Technology Company
  • http://www.henlia.com
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of <::>rima
Sent: Thursday, October 06, 2005 10:34 AM
To: [email protected]
Subject: [Programmer-VB] Bantuindong mengenai store procedure SQL server

Dear All,
 
Saya punya permaslahan nech..soalnya aku punya masalah tapi ini udah pernah dibahas tapi aku kayaknya kurang agak mengerti dengan solusi yang idberikan maklumlah pemula gitu loch....he...he...
 
 
begini maslahanya:

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



Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]





YAHOO! GROUPS LINKS




Kirim email ke