Private Sub Split_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
Public Sub ShowScreen(ByVal strpLotID As String, ByVal strpOperationName As String)
Dim oInDateTime As New InTrack_Automation.InDateTime
Dim strComments As String = ""
Try
'** Make sure there is an active Intrack connection
If oKIntrackDB.CheckIntrackConnection = 0 Then
Exit Sub
End If
'** Reset errors
oKErrors.ResetError()
strpLotID = strpLotID.ToUpper
'** Reset objects
Me.cmbOperationName.Items.Clear()
Me.txtLotID.ResetText()
Me.txtNewLotID.ResetText()
Me.txtQty.ResetText()
Me.txtPriority.ResetText()
Me.txtDueDate.ResetText()
Me.txtComments.ResetText()
' Load Lot Key
ObjInLot.LotKey = strpLotID
iErrorNumber = ObjInLot.Load
If iErrorNumber = 0 Then
' Load SubLot Key
ObjInSubLot.SublotKey = SetSubLotKey(strpLotID, strpOperationName)
iErrorNumber = ObjInSubLot.Load
If iErrorNumber = 0 Then
'** Pull information and set objects
Me.cmbOperationName.Items.Add(strpOperationName)
Me.cmbOperationName.SelectedIndex = 0
Me.cmbOperationName.Enabled = False
Me.txtLotID.Text = strpLotID
Me.txtLotID.Enabled = False
Me.txtPriority.Text = ObjInLot.Priority
Me.txtQty.Text = ObjInSubLot.QueuedAmt.Quantity
oInDateTime = ObjInLot.DueDate
Me.txtDueDate.Text = Format(oInDateTime.date, "M/dd/yyyy HH:mm:ss")
Me.txtComments.Text = strComments
'** Clear comments
ObjInSubLot.Comment(strComments)
'** Assignation for check if perform Split Transaction for each Adjust Item
sTmpLotID = Me.txtNewLotID.Text
dblTmpQty = Me.txtQty.Text
iTmpPriority = Me.txtPriority.Text
sTmpDueDate = Me.txtDueDate.Text
sTmpComments = Me.txtComments.Text
Me.SBarSplit.Text = "Ready..."
Windows.Forms.Application.DoEvents()
Me.ShowDialog()
End If
End If
'** Show error message if any
If iErrorNumber <> 0 Then
InDBConnect.GetErrorMessage(iErrorNumber, sErrorDescription)
MsgBox(sErrorDescription, MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "SHOW_SCREEN_SPLIT")
Finally
oInDateTime = Nothing
End Try
End Sub
Private Function MesSplit() As Integer
Dim ObjInAmount As New InTrack_Automation.InAmount
Dim ObjSecondaryInAmount As New InTrack_Automation.InAmount
Dim ObjInDateTime As New InTrack_Automation.InDateTime
Dim varDate As Object
Dim varTime As Object
Try
If oKIntrackDB.CheckIntrackConnection <> 1 Then
Exit Function
End If
varDate = Split(Mid$(txtDueDate.Text, 1, InStr(1, txtDueDate.Text, Chr(32))), "/")
varTime = Split(Mid$(txtDueDate.Text, InStr(1, txtDueDate.Text, Chr(32)), 9), ":")
intRetCode = ObjInDateTime.SetDateTime(varDate(0), varDate(1), varDate(2), varTime(0), varTime(1), varTime(2))
If intRetCode <> 0 Then GoTo errHnd
ObjInAmount.Quantity = txtQty.Text
intRetCode = ObjInSubLot.Split(ObjInAmount, ObjSecondaryInAmount, txtNewLotID.Text, txtPriority.Text, ObjInDateTime)
If intRetCode <> 0 Then GoTo errHnd
If sTmpComments <> txtComments.Text Then
If Len(Trim$(txtComments.Text)) > 0 Then intRetCode = ObjInSubLot.Comment(txtComments.Text)
If intRetCode <> 0 Then GoTo errHnd
End If
InDBConnect.GetErrorMessage(intRetCode, strMsg)
Me.SBarSplit.Text = strMsg
MsgBox(strMsg, MsgBoxStyle.Information)
Me.Close()
MesSplit = 1
Exit Function
errHnd:
InDBConnect.GetErrorMessage(intRetCode, strMsg)
MsgBox(strMsg, MsgBoxStyle.Exclamation)
MesSplit = 0
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "SPLIT_TRANSACTION")
Finally
ObjInAmount = Nothing
ObjSecondaryInAmount = Nothing
ObjInDateTime = Nothing
sTmpLotID = ""
dblTmpQty = 0
iTmpPriority = 0
sTmpDueDate = ""
sTmpComments = ""
End Try
End Function
Private Sub lklblClose_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklblClose.LinkClicked
Me.Close()
End Sub
Private Sub btnSplit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSplit.Click
Call MesSplit()
End Sub
Private Sub frmSplit_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Disposed
ObjInLot = Nothing
ObjInSubLot = Nothing
End Sub