consume

   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