Toshiba_Kanban_Issuance/Mounting Sequence/Forms/NewKitting.vb

Imports System.Text

Public Class NewKitting

    Private Sub NewKitting_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = mainForm
        Control.CheckForIllegalCrossThreadCalls = False
        getLines()
    End Sub

    Private Sub cmbLine_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbLine.SelectedIndexChanged
        cmbModel.Enabled = True
        getModels()
    End Sub

    Private Sub cmbModel_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbModel.SelectedIndexChanged
        cmbType.Enabled = True
        getTypes()
    End Sub

    Private Sub cmbType_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbType.SelectedIndexChanged
        cmbRev.Enabled = True
        getRevisions()
    End Sub

    Private Sub cmbRev_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbRev.SelectedIndexChanged
        If (cmbRev.Text = "") Then
            cmbRev.Focus()
        Else
            cmbSeq.Enabled = True
            getSequence()

            Dim seq As New Sequence
            txtSerial.Enabled = True
            txtSerial.Focus()
            ClearButton.Enabled = True
            'Dim feederval() As String
            'feederval = cmbSeq.Text.Split("-")
            'PartLabel.Text = seq.getPartno(cmbSeq.SelectedItem, feederval(0), feederval(1)
            cmbModel.Enabled = False
            cmbType.Enabled = False
            cmbRev.Enabled = False
            cmbSeq.Enabled = False
            cmbLine.Enabled = False
        End If
    End Sub

    Private Sub cmbSeq_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
        'cmbFeeder.Enabled = True
        'getFeeder()

        'If (cmbSeq.Text = "") Then
        '    cmbSeq.Focus()
        'Else
        '    Dim seq As New Sequence
        '    txtSerial.Enabled = True
        '    txtSerial.Focus()
        '    ClearButton.Enabled = True
        '    'Dim feederval() As String
        '    'feederval = cmbSeq.Text.Split("-")
        '    'PartLabel.Text = seq.getPartno(cmbSeq.SelectedItem, feederval(0), feederval(1)
        '    cmbModel.Enabled = False
        '    cmbType.Enabled = False
        '    cmbRev.Enabled = False
        '    cmbSeq.Enabled = False
        '    cmbLine.Enabled = False
        'End If
    End Sub

    Public Sub getLines()
        Dim rev As New Sequence
        Dim revList As New List(Of String)
        Dim i As Integer = 0

        revList = rev.getLines("Toshiba")
        cmbLine.Items.Clear()
        While i < revList.Count
            cmbLine.Items.Add(revList(i))
            i = i + 1
        End While
    End Sub

    Public Sub getModels()
        Dim rev As New Sequence
        Dim revList As New List(Of String)
        Dim i As Integer = 0

        revList = rev.getModel("Toshiba", cmbLine.SelectedItem)
        cmbModel.Items.Clear()
        While i < revList.Count
            cmbModel.Items.Add(revList(i))
            i = i + 1
        End While
    End Sub

    Public Sub getTypes()
        Dim rev As New Sequence
        Dim revList As New List(Of String)
        Dim i As Integer = 0

        revList = rev.getTypes("Toshiba", cmbLine.SelectedItem, cmbModel.SelectedItem)
        cmbType.Items.Clear()
        While i < revList.Count
            cmbType.Items.Add(revList(i))
            i = i + 1
        End While
    End Sub

    Public Sub getRevisions()
        Dim rev As New Sequence
        Dim revList As New List(Of String)
        Dim i As Integer = 0

        revList = rev.getRevisions("Toshiba", cmbLine.SelectedItem, cmbModel.SelectedItem, cmbType.SelectedItem)
        cmbRev.Items.Clear()
        While i < revList.Count
            cmbRev.Items.Add(revList(i))
            i = i + 1
        End While
    End Sub

    Public Sub getSequence()
        Dim rev As New Sequence
        Dim revList As String = ""
        Dim i As Integer = 0

        revList = rev.getSeq("Toshiba", cmbLine.SelectedItem, cmbModel.SelectedItem, cmbType.SelectedItem, cmbRev.SelectedItem)
        cmbSeq.Clear()
        'While i < revList.Count
        'cmbSeq.Items.Add(revList(i))
        cmbSeq.Text = revList
        i = i + 1
        'End While
        'cmbSeq.SelectedIndex = 0
    End Sub

    'Public Sub getFeeder()
    '    Dim rev As New Sequence
    '    Dim revList As New List(Of String)
    '    Dim i As Integer = 0

    '    revList = rev.getFeederno(cmbSeq.SelectedItem)
    '    cmbFeeder.Items.Clear()
    '    While i < revList.Count
    '        cmbFeeder.Items.Add(revList(i))
    '        i = i + 1
    '    End While
    'End Sub



    Private Sub btnReset_Click(sender As System.Object, e As System.EventArgs) Handles btnReset.Click
        cmbLine.SelectedIndex = -1
        getLines()
        cmbModel.SelectedIndex = -1
        cmbType.SelectedIndex = -1
        cmbRev.SelectedIndex = -1
        'cmbSeq.SelectedIndex = -1
        cmbSeq.Text = ""
        'cmbFeeder.SelectedIndex = -1
        txtSerial.Text = ""
        txtPN.Text = ""
        txtDesc.Text = ""
        txtLot.Text = ""
        txtQuantity.Text = ""
        txtMC.Text = ""
        SupplierTextBox.Text = ""
        lblStatus.Text = ""

        'lblMFGDate.Text = parts.MFGDate
        'lblRCVDate.Text = parts.RCVDate
        lblPDate.Text = ""
        lblBy.Text = ""
        lblFam.Text = ""
        txtMC.Text = ""
        btnKit.Enabled = False
        cmbLine.Enabled = True
        cmbModel.Enabled = False
        cmbType.Enabled = False
        cmbRev.Enabled = False
        cmbSeq.Enabled = False
        txtSerial.Enabled = False
        ClearButton.Enabled = False
        'cmbFeeder.Enabled = False
        txtfinalSerial.Text = ""
        StatusPanel.BackColor = Color.Transparent
        statuslabel.Text = "IDLE"
    End Sub



    Private Sub btnIssue_Click(sender As System.Object, e As System.EventArgs) Handles btnKit.Click

    End Sub


    Private Sub txtSerial_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerial.KeyPress
        If Asc(e.KeyChar) = 13 Then
            StatusPanel.BackColor = Color.Transparent
            statuslabel.Text = "IDLE"
            Dim fChar As String = String.Empty
            Dim entry As String = txtSerial.Text
            fChar = Mid(entry, 1, 1)
            If (txtSerial.Text <> "") Then

                If entry.Contains("*") Then
                    Dim str() As String
                    txtFeeder.Text = entry.Replace("*", "")
                    str = Split(txtFeeder.Text, "-")
                    Dim seq As New Sequence
                    Try
                        PartLabel.Text = seq.Part(cmbSeq.Text, str(0), str(1))
                    Catch ex As Exception
                        StatusPanel.BackColor = Color.Red
                        statuslabel.Text = "FEEDER NOT EXIST"
                        clear()
                    End Try

                    txtSerial.Text = String.Empty
                    txtSerial.Focus()
                ElseIf fChar = "@" Then
                    txtOperator.Text = Mid(entry, 2, Len(entry))
                    txtSerial.Text = String.Empty
                    txtSerial.Focus()
                Else
                    If (txtSerial.TextLength = 10 Or txtSerial.TextLength = 13) Then


                        If Not entry.StartsWith("LA") Then

                            txtSerial.Text = entry.Substring(0, 10)
                        Else

                            txtSerial.Text = entry
                        End If

                        Dim parts = New PartsRecords(txtSerial.Text)
                        If parts.Exist Then
                            txtPN.Text = parts.IonicsPN
                            txtDesc.Text = parts.Description
                            txtLot.Text = parts.LotNo
                            'txtLot.Text = parts.Rack
                            txtQuantity.Text = parts.Quantity
                            SupplierTextBox.Text = parts.SupplierPN
                            lblStatus.Text = parts.Status
                            'lblMFGDate.Text = parts.MFGDate
                            'lblRCVDate.Text = parts.RCVDate
                            lblPDate.Text = parts.PrintedDate
                            lblBy.Text = parts.PrintedBy
                            lblFam.Text = parts.Family
                            txtMC.Text = parts.MakerCode
                            txtfinalSerial.Text = txtSerial.Text


                            txtSerial.Text = ""
                        Else
                            StatusPanel.BackColor = Color.Red
                            statuslabel.Text = "DID NOT EXIST"
                            clear()
                        End If
                    Else
                        StatusPanel.BackColor = Color.Red
                        statuslabel.Text = "DID NOT EXIST"
                        clear()
                    End If
                    txtSerial.Text = ""
                    txtSerial.Focus()
                End If

                If (txtOperator.Text <> "" And txtFeeder.Text <> "" And txtfinalSerial.Text <> "") Then

                    If (txtPN.Text = PartLabel.Text) Then
                       
                        If (lblStatus.Text = "WHS") Then

                            If (lblFam.Text.Trim() = "Enterprise") Then

                                'Dim csvFilePath1 As String = "\\192.168.1.54\Material ID-Toshiba\" & txtfinalSerial.Text & ".csv"
                                Dim csvFilePath1 As String = "C:\Users\rito.balaquiao\Desktop\sample log\New folder\" & txtfinalSerial.Text & ".csv"
                                Dim outFile1 As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(csvFilePath1, False, Encoding.ASCII)
                                outFile1.WriteLine(txtfinalSerial.Text + "," + txtPN.Text + "," + SupplierTextBox.Text + "," + txtLot.Text + "," + txtDesc.Text.Trim() + "," + txtMC.Text + "," + " " + "," + " " + "," + " " + "," + txtQuantity.Text)
                                outFile1.Close()

                                'Dim csvFilePath3 As String = "\\192.168.1.81\Shared\MaterialID\" & txtfinalSerial.Text & ".csv"
                                Dim csvFilePath3 As String = "C:\Users\rito.balaquiao\Desktop\sample log\New folder (2)\" & txtfinalSerial.Text & ".csv"
                                Dim outFile3 As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(csvFilePath3, False, Encoding.ASCII)
                                outFile3.WriteLine(txtfinalSerial.Text + "," + txtPN.Text + "," + SupplierTextBox.Text + "," + txtLot.Text + "," + txtDesc.Text.Trim() + "," + txtMC.Text + "," + " " + "," + " " + "," + " " + "," + txtQuantity.Text)
                                outFile3.Close()
                            End If

                            Dim parts = New PartsRecords()

                            parts.issue3(txtfinalSerial.Text, txtPN.Text, DateTime.Parse(lblPDate.Text), loginForm.username, cmbLine.SelectedItem.ToString, cmbRev.SelectedItem.ToString, txtOperator.Text)


                            btnKit.Enabled = True
                            StatusPanel.BackColor = Color.Green
                            statuslabel.Text = "PASS"
                            MessageBox.Show("Parts Successfully Kit.", "Success")
                            clear2()

                        ElseIf (lblStatus.Text = "PDN") Then
                            StatusPanel.BackColor = Color.Red
                            statuslabel.Text = "PARTNO ALREADY ISSUED"
                        ElseIf (lblStatus.Text = "SMT") Then
                            StatusPanel.BackColor = Color.Red
                            statuslabel.Text = "PARTNO ALREADY MOUNTED"
                        End If
                    Else
                        StatusPanel.BackColor = Color.Red
                        statuslabel.Text = "PARTNO NOT EQUAL"
                    End If
                  
                End If
            Else
                txtSerial.Text = ""
                txtSerial.Focus()
            End If
        End If


    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles ClearButton.Click
        txtSerial.Text = ""
        txtPN.Text = ""
        txtDesc.Text = ""
        txtLot.Text = ""
        txtQuantity.Text = ""
        txtMC.Text = ""
        SupplierTextBox.Text = ""
        lblStatus.Text = ""
        'lblMFGDate.Text = parts.MFGDate
        'lblRCVDate.Text = parts.RCVDate
        lblPDate.Text = ""
        lblBy.Text = ""
        lblFam.Text = ""
        txtMC.Text = ""
        txtSerial.Enabled = True
        txtSerial.Focus()
        txtfinalSerial.Text = ""
        txtOperator.Text = ""
        txtFeeder.Text = ""
        btnKit.Enabled = False
        StatusPanel.BackColor = Color.Transparent
        statuslabel.Text = "IDLE"
    End Sub

    Private Sub clear()
        txtSerial.Text = ""
        txtPN.Text = ""
        txtDesc.Text = ""
        txtLot.Text = ""
        txtQuantity.Text = ""
        txtMC.Text = ""
        SupplierTextBox.Text = ""
        lblStatus.Text = ""
        'lblMFGDate.Text = parts.MFGDate
        'lblRCVDate.Text = parts.RCVDate
        lblPDate.Text = ""
        lblBy.Text = ""
        lblFam.Text = ""
        txtMC.Text = ""
        txtSerial.Enabled = True
        txtSerial.Focus()
        txtfinalSerial.Text = ""
        btnKit.Enabled = False

    End Sub


    Private Sub clear2()
        txtSerial.Text = ""
        txtPN.Text = ""
        txtDesc.Text = ""
        txtLot.Text = ""
        txtQuantity.Text = ""
        txtMC.Text = ""
        SupplierTextBox.Text = ""
        lblStatus.Text = ""
        'lblMFGDate.Text = parts.MFGDate
        'lblRCVDate.Text = parts.RCVDate
        lblPDate.Text = ""
        lblBy.Text = ""
        lblFam.Text = ""
        txtMC.Text = ""
        txtSerial.Enabled = True
        txtSerial.Focus()
        txtfinalSerial.Text = ""
        btnKit.Enabled = False
        txtFeeder.Text = ""
        txtOperator.Text = ""
        PartLabel.Text = ""

    End Sub
    'Private Sub cmbFeeder_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbFeeder.SelectedIndexChanged
    '    If (cmbFeeder.Text = "") Then
    '        cmbFeeder.Focus()
    '    Else
    '        Dim seq As New Sequence
    '        txtSerial.Enabled = True
    '        txtSerial.Focus()
    '        ClearButton.Enabled = True
    '        Dim feederval() As String
    '        feederval = cmbFeeder.Text.Split("-")
    '        PartLabel.Text = seq.getPartno(cmbSeq.SelectedItem, feederval(0), feederval(1))

    '    End If
    'End Sub


    Private Sub NewKitting_Click(sender As System.Object, e As System.EventArgs) Handles MyBase.Click
        txtSerial.Focus()
    End Sub
End Class