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
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…