Mengkonversi Jumlah dari Satu satuan ke Multi Satuan VB 6

conversion via www.ricemedia.com

Saat kita merancang sebuah Aplikasi Inventory multi satuan, yang pertama harus dipikirkan adalah bagaimana cara merancang struktur tabel satu kode barang memiliki lebih dari satu jenis satuan, kemudian bagaimana cara menghitung jumlah barang masuk maupun barang keluar mengingat kita menggunakan multi satuan.Selanjutnya bagaimana agar saat laporan dibuat maka satuan akan menyesuiakan dengan yang user inputkan.

Selama ini saya membuat aplikasi inventory biasa tanpa multi satuan. Nah, kebetulan saya mendapat project untuk membuat aplikasi multi satuan. Sehingga mau tidak mau wajib belajar. Setelah mencari dan membaca beberapa postingan dari grup mauapun web pribadi. Alhamdulilah, terjawab.


Berikut adalah script vb 6 yang dapat digunakan untuk melakukan konversi stok ke dalam stok multi satuan.

Sebagai contoh :
Di tabel stokbarang, field stok terdapat sejumlah 500. Jika kemudian kita langsung menampilkan laporan langsung 500, User pasti akan bertanya 500 ini karton atau strip atau pcs atau satuannya apa?

Solusi pertama. 500 ini maksudnya 500 pcs
Masalah pertama yang Timbul . Ok kita set 500 pcs, namun bagaimana jika suatu saat user melakukan stok opname, sedangkan barang -barang tersebut masih terdapat digudang dan masih terbungkus oleh dus/karton? Apakah kita akan meminta user untuk membuka satu persatu dus hanya untuk stok opname?sungguh memakan waktu lama, dan tidak efekti.

Solusi Kedua, Lakukan Konversi
Semisal 1 karton isi 50 pcs, satu strip isi 10 pcs, satu pcs isi 1
Sehingga 500 pcs =10 


Berikut Script Vb 6 untuk konversi stok dari database


    skarton = 0
    sstrip = 0
    spcs = 0
    n_awal = !stok
    n_karton = 100
    n_strip = 10
    n_pcs = 1
    If n_awal <> 0 And n_awal >= n_karton Then
        skarton = n_awal / n_karton
        n_awal = n_awal Mod n_karton
        'kon1 = Rs_satuan1!satuan1
            If n_awal > 0 And n_awal >= n_strip Then
            sstrip = n_awal / n_strip
            n_awal = n_awal Mod n_strip
                If n_awal > 1 Then
                spcs = n_awal
                End If
            Else
            spcs = n_awal
            End If
        ElseIf n_strip <> 0 And n_awal >= n_strip Then
        sstrip = n_awal / n_strip
        n_awal = n_awal Mod n_strip
            If n_awal > 1 Then
            spcs = n_awal
            End If

Sehingga kita akan mendapatkan masing masing stok yang terkategori dalam karton( skarton), strip(sstrip), pcs(spcs)