B4J Question Problem with Httpjob and Java.io.FileNotFoundException

edgar_ortiz

Active Member
Licensed User
Longtime User
Hi,

In a Windows Server 2016, I'm tring to consume a web-service it gives me the following error:

Note log: "Antes del Wait de: lcCertRequest"

The code is:
B4X:
Sub Procesar_Documento(ParData As String) As ResumableSub
    Dim lcResultado As Boolean = True
    Dim lcUrl As String
    Dim lcMensaje As String
    Dim lcCertRequest As HttpJob
    Dim lcFileName As String
    Dim lcPosError As Int
    Dim lcCampos()    As String
    '
    Dim lcHayError As String = ""
    '
    FEL_Data    = ""
    lcCampos    = Regex.Split("\|", ParData)
    '
    lcMensaje    = FEL_wsCall
    '
    If FEL_Param = "1020" Then
        lcFileName    = "Log_Send_" & lcCampos(0).Replace("-","_") & ".txt"
        File.WriteString(File.DirApp, lcFileName, lcMensaje)           
    End If
    '
    lcCertRequest.Initialize("",Me)
    HttpUtils2Service.TempFolder = File.Combine(File.DirApp, "httptemp")
    lcCertRequest.PostString(lcUrl, lcMensaje)
    lcCertRequest.GetRequest.SetContentType("text/xml;charset=utf-8")
    '
    If lcCampos(1) = "A" Then
        lcCertRequest.GetRequest.SetHeader("SOAPAction", "Anulacion")
    Else
        lcCertRequest.GetRequest.SetHeader("SOAPAction", "Nuevo")
    End If
    lcCertRequest.GetRequest.Timeout    = 30000
    '
    If lcCertRequest.IsInitialized = False Then
        lcFileName    = "Log_Error_Initialized_" & lcCampos(0).Replace("-","_") & ".txt"
        File.WriteString(File.DirApp, lcFileName, "NO esta inicializado: lcCertRequest")
    End If
    '
    Log("Antes del Wait de: lcCertRequest")
    Wait For (lcCertRequest) JobDone(lcCertRequest As HttpJob)
    If lcCertRequest.Success Then
        Log("lcCertReques = Success")
        '
        FEL_Data    = lcCertRequest.GetString
        Log("Despues de: FEL_Data    = lcCertRequest.GetString")
        Log("Despues de Sleep(1000)")
        FEL_Data    = JS.RunMethod("unescapeEntities",Array(FEL_Data,True))
        FEL_Data    = FEL_Data.Replace($"" "$,$"""$).Replace($" ""$,$"""$)
        '
    Else        ' Fallo el Request
        Log("Fallo lcCertRequest")
        '
        lcResultado    = False
    End If
    '
    lcCertRequest.Release
    '
    Return lcResultado
End Sub

I guess the error is in the 'Wait For', but I do NOT know the reason or the way to fix it

Any help is appreciated

Regards,

Edgar