Continuing On

If strResult > 0 Then
   Messagebox.Show("Message here")
End If

                                              

1:
2:
3:

For i As Integer = 0 To ListBox1.Items.Count - 1
                Dim strOutputFile As String = ConfigurationManager.AppSettings("ZRead") & "\" & ListBox1.Items(i).ToString & "-" & lblSiteID.Text & "-" & lblTillID.Text & ".icr"
                Dim strFileNumber As String = ListBox1.Items(i)
                Dim strResult As Int16 = VBICR_COMMSalesCollect(lblTillID.Text, strFileNumber, 0, 0, ByteArray.GetBytes(strOutputFile), 1)
                Logger.ZReadEvents(lblSiteID.Text, lblTillID.Text, strResult)
 
'Here is where I need to check strResult for the result and if 0 then carry on if not then move to the next row in the listview.
 
            Next i
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:

        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
 
        Call GetSites()
 
        ListBox1.Items.Add("1") 'PLU File
        ListBox2.Items.Add("tblZPLUSales")
        'ListBox1.Items.Add("2") 'PLU Group
        'ListBox2.Items.Add("tblZGroups")
        'ListBox1.Items.Add("6") 'Clerk Detail
        'ListBox2.Items.Add("tblZClerkSales")
        'ListBox1.Items.Add("50") 'Fixed Totals
        'ListBox2.Items.Add("tblZFixedSales")
        'ListBox1.Items.Add("51") 'Finalise Key
        'ListBox2.Items.Add("tblZFinalize")
        'ListBox1.Items.Add("52") 'Transaction Key
        'ListBox2.Items.Add("tblZTransaction")
        'ListBox1.Items.Add("55") 'Departments
        'ListBox2.Items.Add("tblZDepartments")
        ListBox1.Items.Add("105")
        ListBox2.Items.Add("tblEmployeeHours")
        ListBox1.Items.Add("261") 'Customer Points
        ListBox2.Items.Add("tblZCustPoints")
        ListBox1.Items.Add("263") 'Customer Spend To Date
        ListBox2.Items.Add("tblZCustSpend")
        ListBox1.Items.Add("265") 'Customer Credit
        ListBox2.Items.Add("tblZCustCredit")
        ListBox1.Items.Add("266") 'Customer Debit
        ListBox2.Items.Add("tblZCustDebit")
        ListBox1.Items.Add("267") 'Customer Balance
        ListBox2.Items.Add("tblZCustBalance")
        ListBox1.Items.Add("268") 'Customer Balance
        ListBox2.Items.Add("tblZCustDebt")
        ListBox1.Items.Add("269") 'Customer Balance
        ListBox2.Items.Add("tblZCustBanned")
 
        For Each lvItem As ListViewItem In ListView1.Items
 
            lblSiteID.Text = lvItem.Text
            lblTillID.Text = lvItem.SubItems(1).Text
            lblTAMAster.Text = lvItem.SubItems(4).Text
            lblIPAddress.Text = lvItem.SubItems(2).Text
 
            'Get T&A results
            If lvItem.SubItems(5).Text = "0" Then
                ListBox1.Items.Remove("105")
                ListBox2.Items.Remove("tblEmployeeHours")
            End If
 
            'Get customer points
            If lvItem.SubItems(6).Text = "0" Then
                ListBox1.Items.Remove("261") 'Customer Points
                ListBox2.Items.Remove("tblZCustPoints")
                ListBox1.Items.Remove("263") 'Customer Spend To Date
                ListBox2.Items.Remove("tblZCustSpend")
                ListBox1.Items.Remove("265") 'Customer Credit
                ListBox2.Items.Remove("tblZCustCredit")
                ListBox1.Items.Remove("266") 'Customer Debit
                ListBox2.Items.Remove("tblZCustDebit")
                ListBox1.Items.Remove("267") 'Customer Balance
                ListBox2.Items.Remove("tblZCustBalance")
                ListBox1.Items.Remove("268") 'Customer Balance
                ListBox2.Items.Remove("tblZCustDebt")
                ListBox1.Items.Remove("269") 'Customer Balance
                ListBox2.Items.Remove("tblZCustBanned")
            End If
 
            Call SaveINI(lblTillID.Text, lblIPAddress.Text)
 
            Dim ByteArray As New System.Text.ASCIIEncoding
            VBICR_COMMInit(ByteArray.GetBytes(""), ByteArray.GetBytes("PCHOS TILL COMMS"))
 
            'Lock the till
            VBICR_COMMJob(lblTillID.Text, 1, 0, 0, 0, ByteArray.GetBytes(""))
 
            'Collect the file but not Z resetting them yet
            Dim skip As Boolean = False
            For i As Integer = 0 To ListBox1.Items.Count - 1
                Dim strOutputFile As String = ConfigurationManager.AppSettings("ZRead") & "\" & ListBox1.Items(i).ToString & "-" & lblSiteID.Text & "-" & lblTillID.Text & ".icr"
                Dim strFileNumber As String = ListBox1.Items(i)
                Dim strResult As Int16 = VBICR_COMMSalesCollect(lblTillID.Text, strFileNumber, 0, 0, ByteArray.GetBytes(strOutputFile), 0)
                Logger.ZReadEvents(lblSiteID.Text, lblTillID.Text, " Collected Sales File: " & ListBox1.Items(i).ToString & " " & strResult)
 
                'Check Status if till was unreadable show error and carry on
                If strResult > 0 Then
                    FrmReadStatus.ListBox1.Items.Add("Site: " & lblSiteID.Text & " Till: " & lblTillID.Text & " Status: Failed")
                    skip = True
                    Exit For
                End If
 
            Next i
 
            'Now z reset the files
            If Not skip Then
                For i As Integer = 0 To ListBox1.Items.Count - 1
                    Dim strResult As Int16 = VBICR_COMMJob(lblTillID.Text, 3, ListBox1.Items(i).ToString, 0, 0, ByteArray.GetBytes(""))
                    Logger.ZReadEvents(lblSiteID.Text, lblTillID.Text, " Reset sales file: " & ListBox1.Items(i).ToString & " " & strResult)
                Next i
 
                'Collect the journal from the till
                If lvItem.SubItems(7).Text = "0" Then
 
                Else
 
                    Dim strJournal As String = ConfigurationManager.AppSettings("Journal") & "\" & DateTime.Today.ToString("ddMMyyyy") & "-" & lblSiteID.Text & "-" & lblTillID.Text & ".txt"
                    VBICR_COMMReceiveFile(lblTillID.Text, 900, 0, 0, ByteArray.GetBytes(strJournal))
 
                    'Reset the T&A File
                    VBICR_COMMJob(lblTillID.Text, 3, 1052, 0, 0, ByteArray.GetBytes(""))
 
                End If
 
            Else
 
                'Import files to corresponding tables
                VBICR_COMMJob(lblTillID.Text, 2, 0, 0, 0, ByteArray.GetBytes(""))
                ICR_COMMClose()
                FrmZRead.ShowDialog()
            End If
 
        Next
 
        FrmReadStatus.ShowDialog()
 
            End

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125: