OK deh kl gitu.. Makasih byk y... makasih... --- Muliadi Liem <[EMAIL PROTECTED]> wrote:
> 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.. > __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com ------------------------ Yahoo! Groups Sponsor --------------------~--> Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life. http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/k7folB/TM --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
