Spanish (Resuelto) Servicio en app que funciona en algun dispositivo y en otros no

#Region  Project Attributes

    #ApplicationLabel: Bomberos

    #VersionCode: 1

    #VersionName:

    'SupportedOrientations possible values: unspecified, landscape or portrait.

    #SupportedOrientations: portrait

    'unspecified

    #CanInstallToExternalStorage: False

#End Region


#Region  Activity Attributes

    #FullScreen: False

    #IncludeTitle: True

#End Region


Sub Process_Globals

    'These global variables will be declared once when the application starts.

    'These variables can be accessed from all modules.

 

    Public SQL1 As SQL

    Public FTP1 As FTP

    Dim List1 As List

 

End Sub


Sub Globals

    'These global variables will be redeclared each time the activity is created.

    'These variables can only be accessed from this module.

 

    Dim Label1 As Label

    Dim Label2 As Label

    Private EditText1 As EditText

    Private EditText2 As EditText

End Sub


Sub Activity_Create(FirstTime As Boolean)

    'Do not forget to load the layout file created with the visual designer. For example:

     Activity.LoadLayout("1")


    File.MakeDir(servicio.DBFilePath,"bomberos")


    If File.Exists(servicio.DBFilePath&servicio.GLOCarpetaLocal, servicio.DBFileName)=False Then


        SQLCreateTable


    End If

  

    EditText1.Text=""

    EditText2.Text=""

 

    List1 = File.ReadList(servicio.DBFilePath&servicio.GLOCarpetaLocal, servicio.DBFileName)

    'Msgbox("List1.Size = " & List1.Size & CRLF & "The third item is: " & List1.Get(2), "")

    EditText1.Text= List1.Get(1)

    EditText2.Text= List1.Get(2)

    servicio.GloSeudonimo = List1.Get(2)

      

    StartService(servicio)


End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Button1_Click

    StartService(servicio)

End Sub


Sub Button2_Click

    CancelScheduledService(servicio)  ' Para el  StartServiceAt

    StopService(servicio)

End Sub


Sub muestra

    Label1.Text = servicio.hora

    Label2.Text = servicio.current_min

End Sub


Sub SQLCreateTable


    List1.Initialize

    List1.Add("") 'id del alerta

    List1.Add("") 'id del bombero

    List1.Add("") 'nombre del bombero

    File.WriteList(servicio.DBFilePath&servicio.GLOCarpetaLocal, servicio.DBFileName, List1)


End Sub

#Region  Service Attributes

 

    #StartAtBoot: True


#End Region


Sub Process_Globals

    'These global variables will be declared once when the application starts.

    'These variables can be accessed from all modules.

  

    Public SQL1 As SQL

    Public FTP1 As FTP

    Dim DBFileName As String                    : DBFileName="bombetxt.txt"

    Dim DBFilePath As String                    : DBFilePath=File.DirInternal

    Public Notif1 As Notification

  

    Public CabeceraEditMode As String

    Public ClienteEditMode As String

    Public ArticuloEditMode As String

    Public SelectedClienteID As String

    Public SelectedClienteNOMBRE As String

    Public SelectedClienteRESP As String

    Public SelectedClientePrec As Int

    Public SelectedArticuloID As String

    Public SelectedArticuloNOMBRE As String

    Public SelectedArticuloUNITARIO As Float

    Public SelectedCabeceraID As Long

    Public SelectedMovimientoID As Long

    Public GLOVendedor As String

    Public GLOPathServidor As String  :GLOPathServidor="https://www.miservidor.com"

    Public GLOIPServidor As String

    Public GLOPuertoServidor As Int

    Public GLOUsuarioServidor As String

    Public GLOClaveServidor As String

    Public GLOCarpetaServidor As String   :GLOCarpetaServidor="bomberos"

    Public GLOCarpetaLocal As String   :GLOCarpetaLocal="/bomberos/"

    Public GLOTxtArt As String  :GLOTxtArt="txtavi.txt"

    Public GLOTxtCli As String

    Public GLOTxtCab As String

    Public GLOTxtMov As String  :GLOTxtMov="tbom.php"

    Public GloTxtVen As String

    Public GloSeudonimo As String

  

  

    Dim cuenta As Int

    cuenta = 0

    Dim hora As String

    Dim N As Notification

  

    Dim current_min, current_dia,current_control,current_actual,current_dif,current_par As Int

    Dim current_hor As Int'String

    Dim gloCelular,gloMensaje As String

    Dim gloTiempo As Int

      

     Type TwoLines (First As String, Second As String)

    Dim List1 As List

  

End Sub


Sub Service_Create 

    'Entra la 1era vez que inicia el servicio

    'Aqui se pueden inicializar los procesos y las variables globales

    'Este se mantiene en marcha hasta que se llame a StopService o se destruya

    'Establecimiento de las Propiedades de Notificación

    N.Initialize

    N.Icon = "icon"

    N.Sound = False

    N.Vibrate = False

    N.Light = False

    N.OnGoingEvent=True

    N.SetInfo("Bomberos", "Activa", Main) 'N.SetInfo("Contador", cuenta, Main)

    N.Notify(1)

    hora = DateTime.Time(DateTime.Now)

End Sub


Sub Service_Start (StartingIntent As Intent)

  

    Dim LocId As String

  

    cuenta = cuenta + 1

  

    hora = DateTime.Time(DateTime.Now)

    current_hor = NumberFormat(DateTime.GetHour(DateTime.Now),2,0)

    current_min = NumberFormat(DateTime.GetMinute(DateTime.Now),2,0)

    current_dia = DateTime.GetDayOfWeek(DateTime.Now) 'dom=7 lun=1 mar=2

  

    current_par = (DateTime.Now/1000)

    current_actual = current_par

            

            Dim j As HttpJob

            j.Initialize("j",Me)

            j.Download(GLOPathServidor&"/"&GLOCarpetaServidor&"/"&GLOTxtArt)

        

            Wait For (j) JobDone(j1 As HttpJob)


        If j1.Success Then

                

                Dim parser As JSONParser

                parser.Initialize(j.GetString)

  

                Dim quotes As List = parser.NextArray

                For Each quot As Map In quotes

                    gloCelular = quot.Get("_id") 'texto

                    gloMensaje = quot.Get("_tipo") 'texto

                    gloTiempo = quot.Get("_tiempo") 'numero

              

                    current_dif = current_actual-gloTiempo

                    Log("dife:"&current_dif)

                If gloCelular <> " " Then

                        Log("row: "&", "&gloCelular&" "&gloMensaje)

                                          

            '    If (current_dif >=0) And (current_dif <10) Then 'si ocurrio el alerta hace 5 segundos

                                        

                        Try

                          

                        LocId=""

                        List1 = File.ReadList(DBFilePath&GLOCarpetaLocal,DBFileName)

                        LocId= List1.Get(0)

                          

                        If LocId = gloCelular Then

                            Log("tiene registro local")

                        Else

                            Log("NO lo tiene") ''"&(quot.Get("_id"))&"'

                                            

                            StartActivity(aviso) 'aqui abro una pantalla como aviso

                          

                                                

                        End If

                                      

                        Catch

                        Log("error")

                            ToastMessageShow("Error: "&LastException, True)

                        End Try

                      

                'End If   'si ocurrio algo hace 5 segundos

                      

                End If 'gloCelular <> " "

      

                Next

              

            Else

                Log("Error: "& j.ErrorMessage)

            End If

          

            j.Release

  

                

    StartServiceAt("", DateTime.Now + 1 * (DateTime.TicksPerSecond * 5), True) 'DateTime.TicksPerSecond

      

    CallSub(Main, "muestra")

    'Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)

End Sub


Sub Service_Destroy

    N.Cancel(1)

End Sub

AddManifestText(

<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="26"/>

<supports-screens android:largeScreens="true"

    android:normalScreens="true"

    android:smallScreens="true"

    android:anyDensity="true"/>)

SetApplicationAttribute(android:icon, "@drawable/icon")

SetApplicationAttribute(android:label, "$LABEL$")

CreateResourceFromFile(Macro, Themes.LightTheme)

AddPermission(android.permission.MANAGE_DOCUMENTS)

AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)

AddPermission(android.permission.READ_EXTERNAL_STORAGE)