I tried so many different configuration, but I couldn't obtain return object from a webservice.

WebService address is :
http://43000210000:43000210000@test.sgk.gov.tr/saglikws/services/ProvizyonIs
lemleri/wsdl/ProvizyonIslemleri.wsdl

43000210000:43000210000 are username and password.

I need to call HastaKabul method.

Input parameter of this method as SOAP message is:

<?xml version="1.0" encoding="utf-8"?>

<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:enc="http://schemas.xmlsoap.org/soap/encoding" >

<soap:Body>

<impl:hastaKabul xmlns:impl="http://servisler.ws.gss.sgk.gov.tr">

<provizyonGiris>

<devredilenKurum>3</devredilenKurum><hastaKarneNo>111111216</hastaKarneNo><h
astaSosyalGuvNo>1111111111126</hastaSosyalGuvNo><hastaTCKimlikNo>4900071
astaSosyalGuvNo>9000
</hastaTCKimlikNo><provizyonTarihi>22.12.2006</provizyonTarihi><provizyonTip
i>N</provizyonTipi><saglikTesisKodu>10662</saglikTesisKodu><sigortaliTur
i>u>2<
/sigortaliTuru><takipNo></takipNo><takipTuru>1</takipTuru><yakinlikKodu></ya
kinlikKodu>

</provizyonGiris>

</impl:hastaKabul>

</soap:Body>

</soap:Envelope>

I obtain this SOAP message by using StrikeIron Web Services Analyzer. With this analyzer, I can call the WS easly.

How should I call this method?


lcXml = ??

LOCAL loProvizyonIslemleri AS "XML Web Service"
LOCAL loException, lcErrorMsg, loWSHandler TRY
        loWSHandler =
NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
        loProvizyonIslemleri =
loWSHandler.SetupClient("http://43000210000:43000210000@test.sgk.gov.tr/sagl
ikws/services/ProvizyonIslemleri/wsdl/ProvizyonIslemleri.wsdl",
"ProvizyonIslemleriService", "ProvizyonIslemleri")
        
        leResult = loProvizyonIslemleri.hastaKabul(lcXml)
        
CATCH TO loException
        lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
        DO CASE
        CASE VARTYPE(loProvizyonIslemleri)#"O"
               * Handle SOAP error connecting to web service
        CASE !EMPTY(loProvizyonIslemleri.FaultCode)
               * Handle SOAP error calling method
               lcErrorMsg=lcErrorMsg+CHR(13)+loProvizyonIslemleri.Detail
        OTHERWISE
               * Handle other error
        ENDCASE
        * Use for debugging purposes
        MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY