Visual Basic

Private Sub IncidentPartsArrivedEmail()<br />
        Dim incidentID As Integer = 0<br />
        Dim parts As List(Of String)<br />
        Dim sentIncident As New List(Of Integer)<br />
        Dim sendEmail As Boolean = False<br />
        Dim orderID As Integer = CInt(Me.cboOrders.Text)<br />
<br />
        Try<br />
            'Loop through finding all the incidents that are ready to be sent.<br />
            For Each outerRow As dsAddComponetAndEquipment.OrderDetailsRow In Me.DsAddComponetAndEquipment.OrderDetails<br />
                'check to ensure that all the orders are for the same order.<br />
                If (orderID = outerRow.OrderID) Then<br />
                    If (outerRow.Status = "Delivered") Then<br />
                        incidentID = outerRow.IncidentID<br />
                        'Ensure that the incident is not going to be repeated again.<br />
                        If Not (sentIncident.Contains(incidentID)) Then<br />
                            parts = New List(Of String)<br />
                            'Add the incident to the array to check later that this incident has already been done.<br />
                            sentIncident.Add(incidentID)<br />
                            For Each innerRow As dsAddComponetAndEquipment.OrderDetailsRow In Me.DsAddComponetAndEquipment.OrderDetails<br />
                                'check to ensure that all the orders are for the same order<br />
                                If (orderID = innerRow.OrderID) Then<br />
                                    'Only the incidents with the same incidentID <br />
                                    If (innerRow.IncidentID = incidentID) Then<br />
                                        If (innerRow.Status = "Delivered" AndAlso innerRow.EmailStatus = "Waiting") Then<br />
                                            parts.Add(String.Format("{0} - {1}", innerRow.Manufacturer, innerRow.Model))<br />
                                            sendEmail = True 'Everything ok so send the email<br />
                                        Else<br />
                                            sendEmail = False 'Not all parts have been delivered <br />
                                            Exit For<br />
                                        End If<br />
                                    End If<br />
                                End If<br />
                            Next innerRow<br />
                            If (sendEmail) Then<br />
                                Me.SendPartsEmail(Me.EngineersEmail(incidentID), parts, Me.CurrentUsersEmail())<br />
                      Me.TA_OrderDetails_dsCodeRed1.UpdateEmailSent(incidentID, orderID)<br />
                            End If<br />
                            sendEmail = False 'Set the flag back to false again to start the new incident<br />
                        End If<br />
                    End If<br />
                End If<br />
            Next outerRow<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try<br />
    End Sub