.::: Implementation Store Procedure on Datawarehouse SQL Server ( Sample table barang, customer, suplier, pasok & pembelian) :::.

 
1. add table barang
-- if using Query SQL
select * from barang;
insert into barang(KODE_BARANG,NAMA_BARANG,SATUAN_BARANG,STOK_BARANG) values('ELK-01','RICE COOKER','BUAH',20);
insert into barang(KODE_BARANG,NAMA_BARANG,SATUAN_BARANG,STOK_BARANG) values('ELK-02','LEMARI ES','UNIT',8);
insert into barang(KODE_BARANG,NAMA_BARANG,SATUAN_BARANG,STOK_BARANG) values('ELK-03','TELEVISI','UNIT',30);
insert into barang(KODE_BARANG,NAMA_BARANG,SATUAN_BARANG,STOK_BARANG) values('ELK-04','RADIO/TAPE','BUAH',35);
insert into barang(KODE_BARANG,NAMA_BARANG,SATUAN_BARANG,STOK_BARANG) values('ELK-05','KOMPUTER','UNIT',28);
insert into barang(KODE_BARANG,NAMA_BARANG,SATUAN_BARANG,STOK_BARANG) values('ELK-06','KIPAS ANGIN','BUAH',38);
select * from barang;

-- Using Store Procedure
create procedure tambah_barang (
@KODE_BARANG char(6),
@NAMA_BARANG varchar(25),
@SATUAN_BARANG varchar(20),
@STOK_BARANG decimal(4, 0))
as
begin
 insert into barang values(@KODE_BARANG, @NAMA_BARANG, @SATUAN_BARANG, @STOK_BARANG)
end 

-- exec sample 
exec tambah_barang 'ELK-01','RICE COOKER','BUAH',20;
exec tambah_barang 'ELK-02','LEMARI ES','UNIT',8;
exec tambah_barang 'ELK-03','TELEVISI','UNIT',30;
exec tambah_barang 'ELK-04','RADIO/TAPE','BUAH',35;
exec tambah_barang 'ELK-05','KOMPUTER','UNIT',28;
exec tambah_barang 'ELK-06','KIPAS ANGIN','BUAH',38;

-- select row table barang
select * from barang;

2. add table customer
-- if using Query SQL
select * from customer;
insert into customer(KODE_CUSTOMER,NAMA_CUSTOMER,ALAMAT_CUSTOMER,KOTA_CUSTOMER,TELEPON_CUSTOMER) values('J-0001','TOKO KARISMA','JL CIMANGGIS 34','JAKARTA','(021) 856-4209');
insert into customer(KODE_CUSTOMER,NAMA_CUSTOMER,ALAMAT_CUSTOMER,KOTA_CUSTOMER,TELEPON_CUSTOMER) values('J-0002','TOKO AYU','JL CIMANGGIS 12','JAKARTA','(021) 856-1321');
insert into customer(KODE_CUSTOMER,NAMA_CUSTOMER,ALAMAT_CUSTOMER,KOTA_CUSTOMER,TELEPON_CUSTOMER) values('B-0001','TOKO WARNA','JL ABC 234','BANDUNG','(022) 432-6635');
insert into customer(KODE_CUSTOMER,NAMA_CUSTOMER,ALAMAT_CUSTOMER,KOTA_CUSTOMER,TELEPON_CUSTOMER) values('B-0002','TOKO SURYA','JL ABC 309','BANDUNG','(022) 432-6024');
insert into customer(KODE_CUSTOMER,NAMA_CUSTOMER,ALAMAT_CUSTOMER,KOTA_CUSTOMER,TELEPON_CUSTOMER) values('B-0003','TOKO MAHARANI','JL KOPO 333','BANDUNG','(022) 856-3333');
insert into customer(KODE_CUSTOMER,NAMA_CUSTOMER,ALAMAT_CUSTOMER,KOTA_CUSTOMER,TELEPON_CUSTOMER) values('B-0004','TOKO MULYA','JL OTISTA 555','BANDUNG','(022) 422-5555');
select * from customer;

-- Using Store Procedure
create procedure tambah_customer(
@KODE_CUSTOMER char(6),
@NAMA_CUSTOMER varchar(30),
@ALAMAT_CUSTOMER varchar(30),
@KOTA_CUSTOMER varchar(15),
@TELEPON_CUSTOMER varchar(15))
as
begin 
 insert into customer values(@KODE_CUSTOMER,@NAMA_CUSTOMER,@ALAMAT_CUSTOMER,@KOTA_CUSTOMER,@TELEPON_CUSTOMER)
end

-- exec sample 
exec tambah_customer 'J-0001','TOKO KARISMA','JL CIMANGGIS 34','JAKARTA','(021) 856-4209'
exec tambah_customer 'J-0002','TOKO AYU','JL CIMANGGIS 12','JAKARTA','(021) 856-1321'
exec tambah_customer 'B-0001','TOKO WARNA','JL ABC 234','BANDUNG','(022) 432-6635'
exec tambah_customer 'B-0002','TOKO SURYA','JL ABC 309','BANDUNG','(022) 432-6024'
exec tambah_customer 'B-0003','TOKO MAHARANI','JL KOPO 333','BANDUNG','(022) 856-3333'
exec tambah_customer 'B-0004','TOKO MULYA','JL OTISTA 555','BANDUNG','(022) 422-5555'

-- select row table customer
select * from customer;

3. add table suplier
-- if using Query SQL
select * from suplier;
insert into suplier(KODE_SUPLIER,NAMA_SUPLIER,ALAMAT_SUPLIER,KOTA_SUPLIER,TELEPON_SUPLIER) values ('EJ-01','PT ACTRON','JL THAMRIN 12','JAKARTA','(021) 850-2301');
insert into suplier(KODE_SUPLIER,NAMA_SUPLIER,ALAMAT_SUPLIER,KOTA_SUPLIER,TELEPON_SUPLIER) values ('EJ-02','PT MULYA ELEKTRONIK','JL SUDIRMAN 45','JAKARTA','(021) 855-4262');
insert into suplier(KODE_SUPLIER,NAMA_SUPLIER,ALAMAT_SUPLIER,KOTA_SUPLIER,TELEPON_SUPLIER) values ('EB-01','PT ULTRASOUND','JL SUKARNO HATTA 103','BANDUNG','(021) 522-3305');
insert into suplier(KODE_SUPLIER,NAMA_SUPLIER,ALAMAT_SUPLIER,KOTA_SUPLIER,TELEPON_SUPLIER) values ('EB-02','PT SUPERTRON','JL INDUSTRI 37','BANDUNG','(021) 660-4091');
insert into suplier(KODE_SUPLIER,NAMA_SUPLIER,ALAMAT_SUPLIER,KOTA_SUPLIER,TELEPON_SUPLIER) values ('EB-03','PT OCHANG','JL KOSAMBI 44','BANDUNG','(022) 850-4444');
insert into suplier(KODE_SUPLIER,NAMA_SUPLIER,ALAMAT_SUPLIER,KOTA_SUPLIER,TELEPON_SUPLIER) values ('EB-04','PT TUNGGAL JAYA','JL KIARA CONDONG 77','BANDUNG','(022)740-7777');
select * from suplier;

-- Using Store Procedure
create procedure tambah_suplier(
@KODE_SUPLIER char(5),
@NAMA_SUPLIER varchar(30),
@ALAMAT_SUPLIER varchar(30),
@KOTA_SUPLIER varchar(15),
@TELEPON_SUPLIER varchar(15)) 
as
begin
 insert into suplier values(@KODE_SUPLIER, @NAMA_SUPLIER, @ALAMAT_SUPLIER, @KOTA_SUPLIER, @TELEPON_SUPLIER)

end 

-- exec sample 
exec tambah_suplier 'EJ-01','PT ACTRON','JL THAMRIN 12','JAKARTA','(021) 850-2301'
exec tambah_suplier 'EJ-02','PT MULYA ELEKTRONIK','JL SUDIRMAN 45','JAKARTA','(021) 855-4262'
exec tambah_suplier 'EB-01','PT ULTRASOUND','JL SUKARNO HATTA 103','BANDUNG','(021) 522-3305'
exec tambah_suplier 'EB-02','PT SUPERTRON','JL INDUSTRI 37','BANDUNG','(021) 660-4091'
exec tambah_suplier 'EB-03','PT OCHANG','JL KOSAMBI 44','BANDUNG','(022) 850-4444'
exec tambah_suplier 'EB-04','PT TUNGGAL JAYA','JL KIARA CONDONG 77','BANDUNG','(022)740-7777'

-- select row table suplier
select * from suplier;

4. add pasok;
-- if using Query SQL
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E001','ELK-01','EJ-01','2002-01-01',8);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E002','ELK-01','EJ-02','2002-01-01',5);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E003','ELK-02','EJ-01','2002-02-01',2);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E004','ELK-02','EJ-02','2002-02-02',3);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E005','ELK-02','EB-02','2002-01-01',2);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E006','ELK-03','EJ-01','2002-03-03',5);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E007','ELK-03','EJ-01','2002-03-04',2);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E008','ELK-03','EJ-01','2002-03-03',3);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E009','ELK-03','EB-01','2002-03-13',4);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E010','ELK-03','EB-01','2002-03-13',3);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E011','ELK-04','EB-01','2002-04-22',12);
insert into pasok(KODE_PASOK,KODE_BARANG,KODE_SUPLIER,TANGGAL_PASOK,JUMLAH_PASOK) values('PAS-E012','ELK-04','EB-02','2002-04-30',9);
select * from pasok;

-- Using Store Procedure
create procedure tambah_pasok (
    @KODE_PASOK char(10),
@KODE_BARANG char(6),
@KODE_SUPLIER char(5),
@TANGGAL_PASOK date,
@JUMLAH_PASOK decimal(4, 0))
as
begin 
 insert into pasok values (@KODE_PASOK, @KODE_BARANG, @KODE_SUPLIER, @TANGGAL_PASOK, @JUMLAH_PASOK)
end 

-- exec sample 
exec tambah_pasok 'PAS-E001','ELK-01','EJ-01','2002-01-01',8;
exec tambah_pasok 'PAS-E002','ELK-01','EJ-02','2002-01-01',5;
exec tambah_pasok 'PAS-E003','ELK-02','EJ-01','2002-02-01',2;
exec tambah_pasok 'PAS-E004','ELK-02','EJ-02','2002-02-02',3;
exec tambah_pasok 'PAS-E005','ELK-02','EB-02','2002-01-01',2;
exec tambah_pasok 'PAS-E006','ELK-03','EJ-01','2002-03-03',5;
exec tambah_pasok 'PAS-E007','ELK-03','EJ-01','2002-03-04',2;
exec tambah_pasok 'PAS-E008','ELK-03','EJ-01','2002-03-03',3;
exec tambah_pasok 'PAS-E009','ELK-03','EB-01','2002-03-13',4;
exec tambah_pasok 'PAS-E010','ELK-03','EB-01','2002-03-13',3;
exec tambah_pasok 'PAS-E011','ELK-04','EB-01','2002-04-22',12;
exec tambah_pasok 'PAS-E012','ELK-04','EB-02','2002-04-30',9;

-- select row table pasok
select * from pasok; 

5. add pembelian
-- if using Query SQL
select * from pembelian;
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E001','ELK-01','J-0001','2002-05-20',3);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E002','ELK-01','J-0001','2002-05-21',4);  
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E003','ELK-01','J-0002','2002-05-20',2);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E004','ELK-01','B-0001','2002-05-20',2);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E005','ELK-01','B-0002','2002-05-22',3);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E006','ELK-02','J-0001','2002-06-24',1);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E007','ELK-02','J-0002','2002-06-24',1);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E008','ELK-02','B-0001','2002-06-25',2);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E009','ELK-02','B-0002','2002-06-25',2);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E010','ELK-03','J-0001','2002-06-20',5);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E011','ELK-03','J-0002','2002-07-02',4);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E012','ELK-03','B-0001','2002-07-02',6);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E013','ELK-03','J-0001','2002-07-10',5);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E014','ELK-04','J-0002','2002-07-15',12);
insert into pembelian(KODE_PEMBELIAN,KODE_BARANG,KODE_CUSTOMER,TANGGAL_PEMBELIAN,JUMLAH_PEMBELIAN) values('BEL-E015','ELK-04','B-0002','2002-07-17',15);
select * from pembelian;

-- Using Store Procedure
create procedure tambah_pembelian (
@KODE_PEMBELIAN char(10),
@KODE_BARANG char(6),
@KODE_CUSTOMER char(6),
@TANGGAL_PEMBELIAN date,
@JUMLAH_PEMBELIAN decimal(4, 0))
as
begin
 insert into pembelian values (@KODE_PEMBELIAN, @KODE_BARANG, @KODE_CUSTOMER, @TANGGAL_PEMBELIAN, @JUMLAH_PEMBELIAN)
end 

-- exec sample 
exec tambah_pembelian 'BEL-E001','ELK-01','J-0001','2002-05-20',3;
exec tambah_pembelian 'BEL-E002','ELK-01','J-0001','2002-05-21',4;
exec tambah_pembelian 'BEL-E003','ELK-01','J-0002','2002-05-20',2;
exec tambah_pembelian 'BEL-E004','ELK-01','B-0001','2002-05-20',2;
exec tambah_pembelian 'BEL-E005','ELK-01','B-0002','2002-05-22',3;
exec tambah_pembelian 'BEL-E006','ELK-02','J-0001','2002-06-24',1;
exec tambah_pembelian 'BEL-E007','ELK-02','J-0002','2002-06-24',1;
exec tambah_pembelian 'BEL-E008','ELK-02','B-0001','2002-06-25',2;
exec tambah_pembelian 'BEL-E009','ELK-02','B-0002','2002-06-25',2;
exec tambah_pembelian 'BEL-E010','ELK-03','J-0001','2002-06-20',5;
exec tambah_pembelian 'BEL-E011','ELK-03','J-0002','2002-07-02',4;
exec tambah_pembelian 'BEL-E012','ELK-03','B-0001','2002-07-02',6;
exec tambah_pembelian 'BEL-E013','ELK-03','J-0001','2002-07-10',5;
exec tambah_pembelian 'BEL-E014','ELK-04','J-0002','2002-07-15',12;
exec tambah_pembelian 'BEL-E015','ELK-04','B-0002','2002-07-17',15;

-- select row table pembelian
select * from pembelian; 

6. add depency

create procedure sample_1 (

@KODE_SUPLIER char(5) not null,

@JUMLAH_PASOK decimal(4))

as

begin

select KODE_SUPLIER, count(JUMLAH_PASOK) as CACAH_PASOK,sum(JUMLAH_PASOK) as TOTAL_PASOK from pasok where KODE_SUPLIER='EJ-01' group by KODE_SUPLIER UNION select KODE_SUPLIER, count(JUMLAH_PASOK) as CACAH_PASOK,sum(JUMLAH_PASOK) as TOTAL_PASOK from pasok where KODE_SUPLIER='EJ-02' group by KODE_SUPLIER UNION select KODE_SUPLIER,count(JUMLAH_PASOK) as CACAH_PASOK,sum(JUMLAH_PASOK) as TOTAL_PASOK from pasok where KODE_SUPLIER in('EB-01','EB-02') group by KODE_SUPLIER;

end