Re: [Programmer-VB] Bantuindong mengenai store procedure SQL server

Wed, 05 Oct 2005 22:09:29 -0700

 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

Sepertinya anda akan meng insert 01200 ke dalam table, kalau memang iya, berarti field nya ( yg di table tujuan) itu ya diganti jadi varchar atau char...

kemudian depannya tinggal kasih '0'+cast(1200 as varchar)  as bungadiberi

CMIIW
Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta


"<::>rima"
Sent by: [email protected]

06/10/2005 10:33 AM

Please respond to
[email protected]
To
<[email protected]>
cc
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]


SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS





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



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke