Comments on: Piece of Code: Transaksi Sales Order

By: Desy Ayu Puspita

Desy Ayu Puspita — Thu, 09 Jul 2009 03:27:52 +0000

create table HeaderSalesOrder (
KdSalesOrder varchar(8) primary key,
TanggalSalesOrder date,
KdCustomer references Customer,
kdSalesPerson references SalesPerson
)
create table DetailSalesOrder (
KdSalesOrder references SalesOrder,
KdProduk references Produk,
Qty number
)

INSERT INTO HeaderSalesOrder (KdSalesOrder,TanggalSalesOrder,KdCustomer,KdSalesPerson) VALUES (SO00001,’01-07-2009’,C00002, SP0001)
INSERT INTO HeaderSalesOrder (KdSalesOrder,TanggalSalesOrder,KdCustomer,KdSalesPerson) VALUES (SO00002,’24-08-2009’,C00008, SP0002)
INSERT INTO HeaderSalesOrder (KdSalesOrder,TanggalSalesOrder,KdCustomer,KdSalesPerson) VALUES (SO00003,’12-11-2009’,C00005, SP0003);
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty) VALUES (SO00001,P001,15)
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty) VALUES (SO00001,P002,10)
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty) VALUES (SO00001,P003,17)
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty) VALUES (SO00002,P001,27)
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty VALUES (SO00002,P002,13)
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty) VALUES (SO00002,P003,10)
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty) VALUES (SO00003,P002,20)
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty) VALUES (SO00003,P003,25)
INSERT INTO DetailSalesOrder (KdSalesOrder,KdProduk,Qty) VALUES (SO00003,P002,10)

By: august 1000843311 06pbt

august 1000843311 06pbt — Tue, 23 Jun 2009 08:44:58 +0000

Kelompok SQL 06PBT

create table headerSalesOrder
(
No_So char(5) primary key,
kdCustomer char(5),
kdSales char(5),
tanggal date,
foreign key (kdCustomer) references msCustomer,
foreign key (kdSales) references msSales
);

create table detailSO
(
no_So char(5),
KdProduk char(5),
QTY NUMERIC,
primary key (noTransaksi,kdProduk),
foreign key (kdProduk) references msProduk
);

insert into headerSalesOrder values(’SO001′,’KC001′,’KS001′,’05/25/09′);
insert into headerSalesOrder values(’SO002′,’KC003′,’KS003′,’05/26/09′);
insert into headerSalesOrder values(’SO003′,’KC009′,’KS002′,’05/26/09′);

insert into detailSalesOrder values(’SO001′,’KP001′,2);
insert into detailSalesOrder values(’SO002′,’KP002′,1);
insert into headerSalesOrder values(’SO003′,’KP004′,10)

By: vania - 1000842731 - 06 PBT

vania - 1000842731 - 06 PBT — Mon, 15 Jun 2009 02:25:27 +0000

CREATE TABLE SO_Header (
NoSalesOrder int NOT NULL,
KdCust varchar(5) NOT NULL,
KdSales varchar (5) NOT NULL,
Tgl DATE NOT NULL ,
PRIMARY KEY (NoSalesOrder)
)
INSERT INTO SO_Header VALUES(1,’C0005′,’S0002′,’2009-05-31′);

CREATE TABLE SO_Detail (
NoSalesOrder int NOT NULL,
KdProduct varchar(5) NOT NULL,
Qty int NOT NULL,
)
INSERT INTO SO_Detail VALUES(1,’P0003′,50);
INSERT INTO SO_Detail VALUES(1,’P0002′,50);
INSERT INTO SO_Detail VALUES(1,’P0001′,50);
INSERT INTO SO_Detail VALUES(1,’P0004′,50);

By: vania - 1000842731 - 06 PBT

vania - 1000842731 - 06 PBT — Mon, 15 Jun 2009 02:07:44 +0000

INSERT INTO SO_Header VALUES(’1′,’C0005′,’SP0002′,’2009-05-31′);
INSERT INTO SO_Detail VALUES(’1′,’P0003′,50);
INSERT INTO SO_Detail VALUES(’1′,’P0001′,50);
INSERT INTO SO_Detail VALUES(’1′,’P0002′,50);
INSERT INTO SO_Detail VALUES(’1′,’P0004′,50);

By: Ora Cell 06PBT

Ora Cell 06PBT — Sun, 14 Jun 2009 15:36:01 +0000

create table SalesOrder
(
KdSalesOrder varchar(6) primary key not null,
KdSales varchar(6) not null,
KdCustomer varchar(6) not null,
SalesDate date not null,
primary key(KdSalesOrder),
CONSTRAINT salesorder_fk1 FOREIGN KEY(KdSales) REFERENCES Sales(KdSales),
CONSTRAINT salesorder_fk2 FOREIGN KEY(CustomerID) REFERENCES Customer(KdCustomer)
);

create table DetailSalesOrder
(
KdSalesOrder varchar(6) not null,
KdProduct varchar(6) not null,
Qty int,
PRIMARY KEY(KdSalesOrder,KdProduct),
CONSTRAINT detailSalesOrder_fk FOREIGN KEY(KdSalesOrder) REFERENCES Sales(KdSalesOrder),
CONSTRAINT detailSalesOrder_fk2 FOREIGN KEY(KdProduct) REFERENCES Product(KdProduct)
);

insert into SalesOrder values (’KSO01′,’KS01′,’KC01′,’01/01/2009′);
insert into SalesOrder values (’KSO02′,’KS02′,’KC02′,’01/05/2009′);
insert into SalesOrder values (’KSO03′,’KS02′,’KC03′,’01/07/2009′);
insert into SalesOrder values (’KSO04′,’KS03′,’KC04′,’01/08/2009′);
insert into SalesOrder values (’KSO05′,’KS01′,’KC05′,’01/10/2009′);
insert into SalesOrder values (’KSO06′,’KS02′,’KC06′,’01/12/2009′);
insert into SalesOrder values (’KSO07′,’KS02′,’KC07′,’01/01/2009′);
insert into SalesOrder values (’KSO08′,’KS03′,’KC08′,’01/01/2009′);

insert into detailSalesOrder values (’KSO01′,’P01′,2);
insert into detailSalesOrder values (’KSO01′,’P02′,1);
insert into detailSalesOrder values (’KSO02′,’P02′,3);
insert into detailSalesOrder values (’KSO03′,’P04′,4);
insert into detailSalesOrder values (’KSO04′,’P03′,5);
insert into detailSalesOrder values (’KSO05′,’P02′,6);
insert into detailSalesOrder values (’KSO06′,’P01′,2);
insert into detailSalesOrder values (’KSO06′,’P02′,1);
insert into detailSalesOrder values (’KSO07′,’P03′,1);
insert into detailSalesOrder values (’KSO08′,’P01′,2);
insert into detailSalesOrder values (’KSO08′,’P02′,2);
insert into detailSalesOrder values (’KSO08′,’P03′,2);

By: Kelompok SQL 06PBT

Kelompok SQL 06PBT — Sun, 14 Jun 2009 15:33:36 +0000

Kelompok SQL 06PBT

create table detailSO
(
no_So char(5),
KdProduk char(5),
QTY NUMERIC,
primary key (noTransaksi,kdProduk),
foreign key (kdProduk) references msProduk
);

insert into detailSalesOrder values(’SO001′,’KP001′,2);
insert into detailSalesOrder values(’SO002′,’KP002′,1);
insert into headerSalesOrder values(’SO003′,’KP004′,10);

By: Herman 06PGT 1000841842

Herman 06PGT 1000841842 — Mon, 01 Jun 2009 02:11:52 +0000

create table SalesOrder
(
SalesOrderID char(5) primary key not null,
SalesID char(5) not null,
CustomerID char(5) not null,
SalesDate date not null,
CONSTRAINT salesorder_fk1 FOREIGN KEY(SalesID) REFERENCES Sales(SalesID),
CONSTRAINT salesorder_fk2 FOREIGN KEY(CustomerID) REFERENCES Customer(CustomerID)
);

create table DetailSalesOrder
(
SalesOrderID char(5) not null,
ProductID char(5) not null,
Qty number,
PRIMARY KEY(SalesOrderID,ProductID),
CONSTRAINT detailSalesOrder_fk FOREIGN KEY(SalesOrderID) REFERENCES Sales(SalesOrderID),
CONSTRAINT detailSalesOrder_fk2 FOREIGN KEY(ProductID) REFERENCES Product(ProductID)
);

With Random… (but error) T.T

DECLARE
IdSLRand number;
IdCSRand number;
IdProRand number;
Trans number;
qty number;
IdSO char(5);
IdSL char(5);
IdCS char(5);
IdPro char(5);
Tgl Date;
hari number;
bulan number;
tahun number;

BEGIN
FOR i IN 1.. 10 LOOP
IF i < 10 then
IdSO := ‘SO00′ || to_char(i);
ELSEIF i < 100 then
IdSO := ‘SO0′ || to_char(i);
ELSEIF i < 1000 then
IdSO := ‘SO’ || to_char(i);
END IF;

IdSLRand := trunc(DBMS_RANDOM.value * 3) + 1;
IdSL := ‘SL00′ || to_char(IdSLRand);

IdCSRand := trunc(DBMS_RANDOM.value * 10) + 1;

IF IdCSRand < 10 THEN
IdCS := ‘CS00′ + to_char(IdCSRand);
ELSEIF IdCSRand < 100 then
IdCS := ‘CS0′ + to_char(IdCSRand);
END IF;

hari := trunc(DBMS_RANDOM.value * 30) + 1;
bulan := trunc(DBMS_RANDOM.value * 12) + 1;
tahun := trunc(DBMS_RANDOM.value * 2) + 2009;
Tgl := TO_CHAR(hari) || ‘/’ || to_char(bulan) || ‘/’ || to_char(tahun);

INSERT INTO SalesORder values (IdSO, IdSL, IdCS, Tgl);

Trans := trunc(DBMS_RANDOM.VALUE * 2) + 1;

FOR J IN 1.. Trans LOOP
IdProRand := trunc(DBMS_RANDOM.value * 4) + 1;
qty := trunc(DBMS_RANDOM.value * 5) + 1;
IdPro := ‘P00′ || to_char(IdProRand);
insert into detailSalesOrder values(IdSO, IdPro, qty);
END LOOP;
END LOOP;
END;

With no Random
insert into SalesOrder values (‘SO001′,’SL001′,’CS001′,’01/01/2009′);
insert into SalesOrder values (‘SO002′,’SL002′,’CS002′,’01/05/2009′);
insert into SalesOrder values (‘SO003′,’SL002′,’CS003′,’01/07/2009′);
insert into SalesOrder values (‘SO004′,’SL003′,’CS004′,’01/08/2009′);
insert into SalesOrder values (‘SO005′,’SL001′,’CS005′,’01/10/2009′);
insert into SalesOrder values (‘SO006′,’SL002′,’CS006′,’01/12/2009′);
insert into SalesOrder values (‘SO007′,’SL001′,’CS007′,’01/01/2009′);
insert into SalesOrder values (‘SO008′,’SL003′,’CS008′,’01/01/2009′);

insert into detailSalesOrder values (‘SO001′,’P001′,2);
insert into detailSalesOrder values (‘SO001′,’P002′,1);
insert into detailSalesOrder values (‘SO002′,’P002′,3);
insert into detailSalesOrder values (‘SO003′,’P004′,4);
insert into detailSalesOrder values (‘SO004′,’P003′,5);
insert into detailSalesOrder values (‘SO005′,’P002′,6);
insert into detailSalesOrder values (‘SO006′,’P001′,2);
insert into detailSalesOrder values (‘SO006′,’P002′,1);
insert into detailSalesOrder values (‘SO007′,’P003′,1);
insert into detailSalesOrder values (‘SO008′,’P001′,2);
insert into detailSalesOrder values (‘SO008′,’P002′,2);
insert into detailSalesOrder values (‘SO008′,’P003′,2);

By: Andreyus

Andreyus — Mon, 01 Jun 2009 01:24:43 +0000

/* Membuat Transaksi Sales Order */

create table HeaderSalesOrder
(
NoSo varchar2(10) primary key,
Tanggal date,
KodeCustomer varchar2(10),
KodeSalesPerson varchar2(10),
CONSTRAINT so_cust_fk FOREIGN KEY (KodeCustomer) references Customer(KodeCustomer),
CONSTRAINT so_sales_fk FOREIGN KEY (KodeSalesPerson) references SalesPerson(KodeSalesPerson)
);

create table DetailSalesOrder
(
NoSO varchar2(10),
KodeProduk varchar2(10),
Qty int,
primary key(NoSO,KodeProduk),
CONSTRAINT so_soso_fk FOREIGN KEY (NoSO) references HeaderSalesOrder(NoSO),
CONSTRAINT so_prod_fk FOREIGN KEY (KodeProduk) references Product(KodeProduk)
);

/*========================================================*/

/* Memasukan ke dalam Transaksi Sales Order */
DECLARE
jml INT:=1;
byk INT:=0;
tempkode INT:=0;
kode VARCHAR2(10);
ran INT;
rana INT;
cust varchar2(10);
sp varchar2(10);
qty INT:=0;
bykran INT:=0;
barang varchar2(10);
cek INT:=0;

BEGIN
WHILE jml<=1000 LOOP
tempkode:=jml;

IF tempkode < 10 THEN
kode := ‘SO0000′ || to_char(tempkode);
ELSIF tempkode<100 THEN
kode := ‘SO000′ || to_char(tempkode);
ELSIF tempkode<1000 THEN
kode := ‘SO00′ || to_char(tempkode);
ELSIF tempkode<10000 THEN
kode := ‘SO0′ || to_char(tempkode);
END IF;

/* Random KodeCustomer */
ran := mod(trunc(DBMS_RANDOM.VALUE *10), 10) + 1;
IF ran < 10 THEN
cust := ‘KC00′ || to_char(ran);
ELSIF ran < 100 THEN
cust := ‘KC0′ || to_char(ran);
END IF;

/* Random KodeSalesOrder */
ran := mod(trunc(DBMS_RANDOM.VALUE *10), 3) + 1;
sp := ‘SP00′ || to_char(ran);

insert into HeaderSalesOrder values(kode,TO_DATE(’01-01-2001′,’dd-mm-yyyy’),cust,sp);

/* Random Byk Jenis Barang yang dibeli customer 1 – 5*/
rana := mod(trunc(DBMS_RANDOM.VALUE *10), 4) + 1;
byk:=0;
WHILE byk

bykran := mod(trunc(DBMS_RANDOM.VALUE *10), 4) + 1;
barang := ‘P00′ || to_char(bykran);

select count(*) into cek from detailsalesorder WHERE NoSO = kode and KodeProduk = barang;
IF (cek < 1) THEN
/* Random Qty yg dibeli 1-100 */
qty := mod(trunc(DBMS_RANDOM.VALUE *100), 100) + 1;
insert into DetailSalesOrder values(kode,barang,qty);
END IF;

byk:=byk+1;
END LOOP;

jml:=jml+1;
END LOOP;

END;

By: Heriyanto

Heriyanto — Sun, 31 May 2009 21:08:36 +0000

Heriyanto
1000836262
06PGT
Oracle

By: Heriyanto

Heriyanto — Sun, 31 May 2009 21:04:50 +0000

CREATE TABLE TrHeaderSO(
KodeSO CHAR(10) PRIMARY KEY,
KodeSales CHAR(5) NOT NULL,
KodeCustomer CHAR(5) NOT NULL,
Tanggal DATE NOT NULL,
FOREIGN KEY (KodeSales) REFERENCES MsSalesPerson(KodeSales),
FOREIGN KEY (KodeCustomer) REFERENCES MsCustomer(KodeCustomer)
);

CREATE TABLE TrDetailSO(
KodeSO CHAR (10),
KodeProduk CHAR(5) NOT NULL,
Qty NUMBER NOT NULL,
PRIMARY KEY(KodeSo, KodeProduk),
FOREIGN KEY (KodeSo) REFERENCES TrHeaderSO (KodeSO),
FOREIGN KEY (KodeProduk) REFERENCES MsProduct (KodeProduk)
);

/*************Koding untuk insert data 1000****************/

DECLARE
counter PLS_INTEGER :=0;
KodeSO char(10);
KodeSales char(5) ;
KodeCustomer char(5);
tanggal DATE;
intTanggal PLS_INTEGER := 2454467 ; /* Tanggal 1-1-2008 dalam bentuk julian*/
KodeProduk char(5);
Qty PLS_INTEGER;
transPerHari PLS_INTEGER ;
counterHari PLS_INTEGER;
temp PLS_INTEGER;
counterDetail PLS_INTEGER;
jumlahDetail PLS_INTEGER;
validator PLS_INTEGER;
validee PLS_INTEGER;
BEGIN
WHILE intTanggal < 2454832 LOOP /*Tanggal 31-12-2008 dalam bentuk julian */
SELECT floor(dbms_random.value(0,5)) INTO transPerHari FROM DUAL;
counterHari :=0;
WHILE counterHari < transPerHari LOOP
/*Generate keluar pesan Kode Sales*/
IF counter < 10 THEN
KodeSO:= ‘SO’ || ‘0000′ || to_char(counter);
ELSIF counter < 100 THEN
KodeSO:= ‘SO’ || ‘000′ || to_char(counter);
ELSIF counter 0 THEN
validator := validator * validee;

/*Insert qty*/
SELECT floor(dbms_random.value(1,10)) INTO temp FROM DUAL;
Qty := temp;

INSERT INTO TrDetailSO VALUES (KodeSO, KodeProduk, Qty);
dbms_output.put_line(KodeSO || ‘ ‘ ||KodeProduk);

counterDetail := CounterDetail + 1;
END IF;
END LOOP;

counter := counter + 1;
counterHari := counterHari + 1;
IF counter = 1000 THEN
EXIT;
END IF;
END LOOP;

IF counter = 1000 THEN
EXIT;
END IF;

intTanggal := intTanggal + 1;
END LOOP;
END;
/