Majalah Ilmiah UNIKOM
Vol.9, No. 2
244
H a l a m a n
On Error GoTo Err_Hitung_Click
If Forms![ManajemenBarang]![LeadTime
Subform].Form.RecordsetClone.RecordCo
unt = 0 Then
MsgBox "Masukan informasi
pembelian "
Else
If Forms![ManajemenBarang]!
[LeadTime Subform]!Lead = 0 Then
LT = CLng(Forms!
[ManajemenBarang]![LeadTime Subform]!
Lead) + 1
Else
If Forms![ManajemenBarang]!
[LeadTime Subform]!Lead - CLng(Forms!
[ManajemenBarang]![LeadTime Subform]!
Lead) > 0 Then
LT = CLng(Forms!
[ManajemenBarang]![LeadTime Subform]!
Lead) + 1
Else
LT = CLng(Forms!
[ManajemenBarang]![LeadTime Subform]!
Lead)
End If
End If
End If
If Forms![ManajemenBarang]!
[ManajemenBarangSubform].Form.Record
setClone.RecordCount = 0 Then
MsgBox "Masukan informasi
pembelian"
Else
If (Forms![ManajemenBarang]!
[ManajemenBarangSubform]!RataJual *
1.5) - CLng(Forms![ManajemenBarang]!
[ManajemenBarangSubform]!RataJual *
1.5) > 0 Then
Me!MinimalStok = (CLng(Forms!
[ManajemenBarang]!
[ManajemenBarangSubform]!RataJual *
1.5) + 1) * LT
Else
Me!MinimalStok = (Forms!
[ManajemenBarang]!
[ManajemenBarangSubform]!RataJual *
1.5) * LT
End If
End If
Exit_Hitung_Click:
Exit Sub
Err_Hitung_Click:
MsgBox Err.Description
Resume Exit_Hitung_Click
End Sub
REFERENCES
Blaha, M., W. Premerlani, “Object-Oriented
Modeling and Design for Database
Applications (Book style)”, NJ: Prentice
Hall, 1998.
Fogarty, D W., J. H. Blackstone, and T.
Hoffmann, “Production & Inventory
Management, 2
nd
Edition (Book style)”,
OH: South-Western, 1991.
Fowler, M., “UML Distilled, Edisi 3,
Panduan Singkat Bahasa Permodelan
Objek Standar (Book style)”, Penerbit
Andi, 2005.
Rumbaugh, J., M. Blaha, W. Premelani, F.
Eddy, and W. Lorensen “Object-
Oriented Modeling and Design (Book
style)”, NJ: Prentice Hall, 1991.
Schreibfeder, J., “Efective Inventory Mana-
gement (Web Article style)”, TX, Aug
2008.
Tersine, “Principles of Inventory and
Materials Management, Fourth Edition
(Book
style),”
Prentice
Hall
International, NJ:Prentice Hall, 1994.
Alam Santosa