#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
If StartingIntent.HasExtra("barcode_string") Then
' see if we have a code
Dim sCode As String = StartingIntent.GetExtra("barcode_string")
' pass back to stock movement activity
CallSubDelayed2(MoveStock, "BarcodeScanned", sCode)
End If
Service.StopAutomaticForeground
End Sub
Sub Service_Destroy
End Sub