Coba bantu:
Tabel, terdiri dari Fields:
A = utk nampung barang masuk pertama kali.
Proses Entry:
Entry Tabel X->A_MaxStock
Entry Tabel Y->B_MaxStock, Y->C_MaxStock
Dim ProdukMasuk as Double = 100
Entry Tabel X->A_Terisi += ProdukMasuk
Proses Distribusi Barang: (misalkan dgn melakukan CommandButton1_Click)
Dim A_Sisa, B_Sisa, C_Sisa as Double
Dim JumlaProduk as Double = ProdukMasuk
A_Sisa = X->A_MaxStock - X->A_Terisi
Baca Tabel Y berdasarkan A->KodeProduk
B_Sisa = Y->B_MaxStock - Y->B_Terisi
C_Sisa = Y->C_MaxStock - Y->C_Terisi
IF B_Sisa <> 0 Then
IF B_Sisa < JumlahProduk Then
Y->B_Terisi += B_Sisa
JumlahProduk -= B_Sisa
ELSE
Y->B_Terisi += JumlahProduk
JumlahProduk = 0
Tabel A_Terisi -= ProdukMasuk
Return
ENDIF
ENDIF
IF C_Sisa <> 0 Then
IF C_Sisa < JumlahProduk Then
Y->C_Terisi += C_Sisa
JumlahProduk -= C_Sisa
ELSE
Y->C_Terisi += JumlahProduk
JumlahProduk = 0
Tabel A_Terisi -= ProdukMasuk
Return
ENDIF
ENDIF
IF A_Sisa <> 0 Then
IF A_Sisa < JumlahProduk Then
X->A_Terisi += A_Sisa
JumlahProduk -= A_Sisa
Messagebox.Show "Hoi!! Kekurangan tempat penyimpanan nich!"
ELSE
Tabel A_Terisi -= ProdukMasuk
X->A_Terisi += JumlahProduk
Return
ENDIF
ELSE
Messagebox.Show "Hoi!! Kekurangan tempat penyimpanan nich!"
ENDIF
Kurang lebih seperti itu Logic-nya, tinggal disederhanakan Coding-nya.
Semoga membantu.
regards,
Muliadi Liem
> -----Original Message-----
> From: [email protected] [mailto:Programmer-
> [EMAIL PROTECTED] On Behalf Of Hasan
>
> Jadi gini,diprogram ini ada menu untuk ngalokasiin
> barang,anggap ini field A tabel X,kemudian kita pny
> bbrp ruang atau rak,anggap aja field B, field C dan D
> tabel Y.
> Kl ada barang datang(jumlahnya ga satuan,tp berjml
> besar),kita input ke field A,kita akan mengalokasiin
> barang ini berdasarkan sisa tempat dlm ruang,jd kita
> hrs cek dl field B,C, dan D ditabel Y.Kl msh ada
> tempat,brp pun itu kita bs tempatkan brg itu difield
> itu,sisanya ke field brktnya,begitu trs die looping
> smp nilai A jd nol,or dpt tempat semua..
> Kira2 gt deh..
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
