Visual Basic

Delegate Sub AbortDelegate()

Public Class ReportProcesser

    Private _reportThreadID As Integer

    Friend Abort As New AbortDelegate(AddressOf AbortReport)
    Public WithEvents CheckForAbortTimer As New Timers.Timer(500)
    Public ReadOnly Property ManagedThreadID() As Integer
        Get
            Return _reportThreadID
        End Get
    End Property

    Public Sub New()
        _reportThreadID = Threading.Thread.CurrentThread.ManagedThreadId
    End Sub

    Public Sub AbortReport()

        MsgBox("Report Thread ID: " & Me.ManagedThreadID & vbCrLf & _
                "Abort Report On Thread ID: " & Threading.Thread.CurrentThread.ManagedThreadId & vbCrLf)

    End Sub

    Private Sub CheckForAbortTimer_Elapsed() Handles CheckForAbortTimer.Elapsed
        Static alreadyProcessing As Boolean = False

        If Not alreadyProcessing Then
            alreadyProcessing = True

            Me.Abort.Invoke()

            alreadyProcessing = False
        End If
    End Sub

End Class

Module Main
    Sub main()

        Dim report As New ReportProcesser
        report.CheckForAbortTimer.Start()

        Dim startTime As Date = Now
        Do Until DateDiff(DateInterval.Minute, startTime, Now) >= 5
            'end in 5 min or when stopped from Visual studio
        Loop

    End Sub
End Module

Function Add_Orders_Row() As Boolean
        Try
            Dim RowISAdded As Boolean = False
            If txtQuantity.Text <> "" And txtProductionNo.Text <> "" _
            And txtWeek.Text <> "" And txtPart.Text <> "" _
            And cboProductCode.Text <> "" And txtPart.Text <> "" _
            And txtWorksOrderNo.Text <> "" Then
                Dim dt As DataTable = MAIN.data.DS.Tables("Orders")
                Dim dr As DataRow = dt.NewRow
                dr.Item("OrderStatus") = cboOrderStatus.Text
                dr.Item("SamsungRef") = "NA"
                dr.Item("ProductCode") = cboProductCode.Text
                dr.Item("ProductSerialNo") = txtProductSerialNo.Text
                dr.Item("ProductionNo") = txtProductionNo.Text
                dr.Item("WeekNo") = txtWeek.Text
                dr.Item("PartNo") = CType(txtPart.Text, Integer)
                dr.Item("OrderDate") = dtpOrderDate.Text
                dr.Item("QuantityOrder") = CType(txtQuantity.Text, Integer)
                dr.Item("QuantityScanned") = 0
                dr.Item("WorksOrderNo") = txtWorksOrderNo.Text
                If txtFirstSerial.Text = "" Then
                    dr.Item("FirstSerialNo") = "<SCAN>"
                    dr.Item("LastSerialNo") = "<CALC>"
                Else
                    dr.Item("FirstSerialNo") = txtFirstSerial.Text
                    dr.Item("LastSerialNo") = txtLastSerial.Text
                End If

                dr.Item("timenow") = Date.Now
                dt.Rows.Add(dr)
                'Update new row to database
                Dim qry As String = "SELECT * FROM Orders"
                If MAIN.data.Conn.State = ConnectionState.Closed Then MAIN.data.Conn.Open()
                Dim da1 As New SqlClient.SqlDataAdapter
                da1.SelectCommand = New SqlClient.SqlCommand(qry, MAIN.data.Conn)
                Dim cb1 As SqlClient.SqlCommandBuilder = New System.Data.SqlClient.SqlCommandBuilder(da1)
                da1.Update(MAIN.data.DS, "Orders")
                MAIN.data.DS.Tables.Remove("Orders")
                'Reatach datatable to dataset. Refresh primary keys
                MAIN.data.Load_Table("SELECT * FROM Orders", "Orders")
                Dim findrow As DataRow() = dt.Select("ProductionNo= '" & txtProductionNo.Text & "'")
                If findrow.Length = 1 Then
                    RowISAdded = True
                Else
                    RowISAdded = False
                End If
            Else
                MessageBox.Show("Cannot add record, as some fields are blank. Please add all relevant data.")
                RowISAdded = False
            End If

            Return RowISAdded
        Catch ex As Exception
            MessageBox.Show("Add_Orders_Row, " & ex.Message)
            Return False
        End Try
 End Function

Function UNIT_Add_New() As Boolean
        Try
            Dim UnitIsAdded As Boolean = False
            
            Dim strSQL As String = "INSERT INTO UNITS " & _
                                    "(ScanCount,OrderID,SerialNo,ScanStatus,Description,ScanDate, " & _
                                    "SamsungRef, ProductCode,ProductSerialNo,ProductionNo,WeekNo," & _
                                    "PartNo,OrderDate,QuantityOrder,FirstSerialNo,LastSerialNo,WorksOrderNo)" & _
                                    "VALUES" & _
                                    "(@ScanCount,@OrderID,@SerialNo,@ScanStatus,@Description,@ScanDate,@SamsungRef, " & _
                                    "@Productcode,@ProductSerialNo,@ProductionNo,@WeekNo,@PartNo,@OrderDate,@QuantityOrder, " & _
                                    "@FirstSerialNo,@LastSerialNo,@WorksOrderNo); "
            Dim da As New SqlClient.SqlDataAdapter
            da.SelectCommand = New SqlClient.SqlCommand("SELECT * FROM UNTIS", MAIN.data.Conn)

            Dim cmdAddNew As New SqlClient.SqlCommand(strSQL, MAIN.data.Conn)
            cmdAddNew.Parameters.Add("@OrderID", SqlDbType.Int).Value = Me.drFoundOrder.Item("OrderID")
            cmdAddNew.Parameters.Add("@ScanCount", SqlDbType.Int).Value = Units_Scanned()
            cmdAddNew.Parameters.Add("@SerialNo", SqlDbType.VarChar, 50).Value = txtSerialNo.Text
            cmdAddNew.Parameters.Add("@ScanStatus", SqlDbType.VarChar, 50).Value = txtScanStatus.Text
            cmdAddNew.Parameters.Add("@Description", SqlDbType.VarChar, 255).Value = txtDescription.Text
            cmdAddNew.Parameters.Add("@ScanDate", SqlDbType.DateTime).Value = Date.Now
            cmdAddNew.Parameters.Add("@SamsungRef", SqlDbType.VarChar, 50).Value = "NA"
            cmdAddNew.Parameters.Add("@ProductCode", SqlDbType.VarChar, 50).Value = Me.drFoundOrder.Item("ProductCode")
            cmdAddNew.Parameters.Add("@ProductSerialNo", SqlDbType.VarChar, 50).Value = Me.drOrder.Item("ProductSerialNo")
            cmdAddNew.Parameters.Add("@ProductionNo", SqlDbType.VarChar, 50).Value = Me.drOrder.Item("ProductionNo")
            cmdAddNew.Parameters.Add("@WeekNo", SqlDbType.VarChar, 3).Value = Me.drOrder.Item("WeekNo")
            cmdAddNew.Parameters.Add("@PartNo", SqlDbType.SmallInt).Value = CType(Me.drOrder.Item("PartNo"), Integer)
            cmdAddNew.Parameters.Add("@OrderDate", SqlDbType.DateTime).Value = Me.drFoundOrder.Item("OrderDate")
            cmdAddNew.Parameters.Add("@QuantityOrder", SqlDbType.SmallInt).Value = CType(Me.drFoundOrder.Item("QuantityOrder"), Integer)
            cmdAddNew.Parameters.Add("@FirstSerialNo", SqlDbType.VarChar, 50).Value = Me.drFoundOrder.Item("FirstSerialNo")
            cmdAddNew.Parameters.Add("@LastSerialNo", SqlDbType.VarChar, 50).Value = Me.drFoundOrder.Item("LastSerialNo")
            cmdAddNew.Parameters.Add("@WorksOrderNo", SqlDbType.VarChar, 50).Value = Me.drFoundOrder.Item("WorksOrderNo")

            If MAIN.data.Conn.State = ConnectionState.Closed Then MAIN.data.Conn.Open()
            Dim itest As Integer = cmdAddNew.ExecuteNonQuery()
            'da.InsertCommand = cmdAddNew
            'da.Update(MAIN.data.DS, "UNITS")
            MAIN.data.DS.Tables("UNITS").AcceptChanges()
            If MAIN.data.Conn.State = ConnectionState.Open Then MAIN.data.Conn.Close()

            If itest = 1 Then
                UnitIsAdded = True
            Else
                UnitIsAdded = False
            End If
            Return UnitIsAdded
        Catch ex As Exception
            MessageBox.Show("UNIT_Add_New, " & ex.Message)
            Return False
        End Try

    End Function