kalo saya biasanya membuat satu tabel konversi satuan, dimana satuan utama adalah
satuan terkecil dan saya taruh di master barang.
misal
nama barang kode barang satuan terkecil
----------- ----------- ---------------
kecap 01 unit
saus 02 unit
maka di tabel konversi akan saya buat seperti ini
kode barang satuan konversi satuan utama konversi
----------- --------------- ------------ --------
01 karton unit 5
02 karton unit 2
dst
jadi kalo misalnya terjadi pembelian 5 karton 6 unit, saya cukup melihat konversi 5
karton ke tabel konversi yaitu 25 unit sehingga
aktual stok saya adalah 31 unit. Dan aktual stok inilah yang kita simpan ( baik di
daftar stok maupun di pembelian ). sehingga untuk perhitungan unit anda tidak perlu
membuat kalkulasi lagi, tetapi kalo ingin dikonversi ke karton jelas anda perlu
membuat kalkulasi dengan menggunakan actual stok mod konversi ( 31 mod 5 ) maka akan
didapat 6. Tinggal actual stok anda kurangi dengan sisa bagi menjadi sbb:
Function GetKonversi(ID_Barang:string):integer;
begin
query1.close;
query1.sql.clear;
query1.sql.add(format('Select Konversi from Satuan_konversi where id_barang =
''%s''',[ID_Barang]);
query1.open;
result := query1['Konversi'];
end;
Function hitung_karton (ID_Barang:string;actual:integer):integer;
var
karton,unit : integer;
begin
unit := actual mod (getkonversi(id_barang));
karton := (actual - unit) / (getkonversi(id_barang));
result := karton;
end;
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
