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

 

WebService address is :
http://43000210000:[EMAIL PROTECTED]/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>49000719000
</hastaTCKimlikNo><provizyonTarihi>22.12.2006</provizyonTarihi><provizyonTip
i>N</provizyonTipi><saglikTesisKodu>10662</saglikTesisKodu><sigortaliTuru>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:[EMAIL PROTECTED]/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

 

 



--- StripMime Report -- processed MIME parts ---
multipart/alternative
  text/plain (text body -- kept)
  text/html
---


_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to