|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
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: |
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
Call SaveINI(lblTillID.Text, lblIPAddress.Text)
Dim ByteArray As New System.Text.ASCIIEncoding
VBICR_COMMInit(ByteArray.GetBytes(""), ByteArray.GetBytes("PCHOS COMMS"))
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
'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
'Import files to corresponding tables
ICR_COMMClose()
FrmZRead.ShowDialog()
Next
End
|
Advertisement
| Hall of Fame |