Private Sub Consume_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim oTranslate As New Translate
oTranslate.TranslateForm(Me)
oTranslate = Nothing
End Sub
Private Sub ShowScreen()
MsgBox("Under Consuruction", MsgBoxStyle.Information)
Exit Sub
Call SetListViews()
Me.ShowDialog()
End Sub
Private Sub SetListViews()
Dim oCustList As New CustListView
oCustList.SetUp(Me.LstVwMaterialsToConsume, "Material to Consume|Quantity Needed|Unit of Measure")
oCustList.SetUp(Me.LstVwMaterialInventory, "SubLot Key|Available Quantity|Consume Quantity")
oCustList = Nothing
End Sub
Private Sub txtLotID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtLotID.KeyPress
Dim oInQuery As New InTrack_Automation.InQueryClass
Dim iRetFlag As Integer = 0
If Asc(e.KeyChar) = 13 Then
iRetFlag = oInQuery.Query("Sublot", "*", "Where LotID = '" & Me.txtLotID.Text & "'")
If iRetFlag = 0 Then
Me.cmbRouteName.Items.Add("")
Me.cmbOperationName.Items.Add("")
End If
End If
End Sub
Public Function SetExpirationDate(ByVal spLotID As String, ByVal spNewExpirationDate As Date)
'
Dim oInLot As New InTrack_Automation.InLot
Dim oInDateTime As New InTrack_Automation.InDateTime
'
Dim bAllow As Boolean
Dim iTmp1 As Long
Dim iTmp2 As Long
Dim sTmpDate As Date
Try
If oKIntrackDB.CheckIntrackConnection <> 1 Then
Exit Function
End If
spLotID = spLotID.ToUpper
oInLot.LotKey = spLotID
iErrorNumber = oInLot.Load
If iErrorNumber <> 0 Then
InDBConnect.GetErrorMessage(iErrorNumber, sErrorDescription)
Exit Function
End If
If IsDate(spNewExpirationDate) Then
oInDateTime.SetMonthDayYear(spNewExpirationDate.Month, spNewExpirationDate.Day, spNewExpirationDate.Year)
iErrorNumber = oInLot.SetExpirationDate(oInDateTime)
If iErrorNumber <> 0 Then
InDBConnect.GetErrorMessage(iErrorNumber, sErrorDescription)
Exit Function
End If
End If
Catch ex As Exception
oKErrors.InternalErrorsHandler(ex, "Consume.SetExpirationDate")
Finally
oInLot = Nothing : oInDateTime = Nothing
End Try
Return IIf(iErrorNumber = 0, 1, 0)
End Function
'Public Function Consume(ByVal spSublotKey As String, ByVal spConsumeItems As String, _
' Optional ByVal bpForceConsumption As Boolean = True, _
' Optional ByVal spMachineName As String = "NONE") As Integer
' '
' Dim oInSublot As New InTrack_Automation.InSublot
' Dim oInPrmQty As New InTrack_Automation.InAmount
' Dim oInConsumeItems As New InTrack_Automation.InConsumeItems
' Dim oInConsumeItem As New InTrack_Automation.InConsumeItem
' '
' Dim iRow As Integer = 0
' Dim oLstConsume() As String
' Dim sConsumeLotID As String
' Dim dblConsumeQty As Double = 0
' Dim oMaterialQuantities() As String
' '
' Try
' oLstConsume = spConsumeItems.Split("|")
' oInSublot.SublotKey = spSublotKey
' iErrorNumber = oInSublot.Load
' If iErrorNumber <> 0 Then
' InDBConnect.GetErrorMessage(iErrorNumber, sErrorDescription)
' Exit Function
' End If
' For iRow = 0 To oLstConsume.Length - 1
' oMaterialQuantities = oLstConsume(iRow).Split(",")
' sConsumeLotID = oMaterialQuantities(0)
' dblConsumeQty = oMaterialQuantities(1)
' oInConsumeItem.Sublot = sConsumeLotID & "@NONE[NONE]:NONE"
' oInPrmQty.Quantity = dblConsumeQty
' oInConsumeItem.PrimaryAmt = oInPrmQty
' oInConsumeItem.MachineName = spMachineName
' oInConsumeItem.ForceConsumption = bpForceConsumption
' '
' iErrorNumber = oInSublot.Consume(oInConsumeItem)
' '
' If iErrorNumber <> 0 Then
' InDBConnect.GetErrorMessage(iErrorNumber, sErrorDescription)
' Exit Function
' End If
' Next
' Catch ex As Exception
' oKErrors.InternalErrorsHandler(ex, "Consume.Consume")
' Finally
' InDBConnect.Comment = ""
' oInSublot = Nothing : oInPrmQty = Nothing : oInConsumeItems = Nothing
' oInConsumeItem = Nothing
' End Try
' Return IIf(iErrorNumber = 0, 1, 0)
'End Function
Public Function Consume(ByVal spLotID As String, ByVal spOperationName As String, ByVal spConsumeItems As String, _
Optional ByVal bpForceConsumption As Boolean = True, _
Optional ByVal spMachineName As String = "NONE") As Integer
'
Dim oInSublot As New InTrack_Automation.InSublot
Dim oInPrmQty As New InTrack_Automation.InAmount
Dim oInConsumeItems As New InTrack_Automation.InConsumeItems
Dim oInConsumeItem As New InTrack_Automation.InConsumeItem
'
Dim iRow As Integer = 0
Dim oLstConsume() As String
Dim sConsumeLotID As String
Dim dblConsumeQty As Double = 0
Dim oMaterialQuantities() As String
'
Try
If oKIntrackDB.CheckIntrackConnection <> 1 Then
Exit Function
End If
spLotID = spLotID.ToUpper
oLstConsume = spConsumeItems.Split("|")
oInSublot.SublotKey = SetSubLotKey(spLotID, spOperationName)
iErrorNumber = oInSublot.Load
If iErrorNumber <> 0 Then
InDBConnect.GetErrorMessage(iErrorNumber, sErrorDescription)
Exit Function
End If
For iRow = 0 To oLstConsume.Length - 1
oMaterialQuantities = oLstConsume(iRow).Split(",")
sConsumeLotID = oMaterialQuantities(0)
dblConsumeQty = oMaterialQuantities(1)
oInConsumeItem.Sublot = sConsumeLotID & "@NONE[NONE]:NONE"
oInPrmQty.Quantity = dblConsumeQty
oInConsumeItem.PrimaryAmt = oInPrmQty
oInConsumeItem.MachineName = spMachineName
oInConsumeItem.ForceConsumption = bpForceConsumption
'
iErrorNumber = oInSublot.Consume(oInConsumeItem)
'
If iErrorNumber <> 0 Then
InDBConnect.GetErrorMessage(iErrorNumber, sErrorDescription)
Exit Function
End If
Next
Catch ex As Exception
oKErrors.InternalErrorsHandler(ex, "Consume.Consume")
Finally
InDBConnect.Comment = ""
oInSublot = Nothing : oInPrmQty = Nothing : oInConsumeItems = Nothing
oInConsumeItem = Nothing
End Try
Return IIf(iErrorNumber = 0, 1, 0)
End Function