> <devredilenKurum>3</devredilenKurum> > <hastaKarneNo>111111216</hastaKarneNo> > <hastaSosyalGuvNo>1111111111126</hastaSosyalGuvNo> > <hastaTCKimlikNo>49000719000</hastaTCKimlikNo> > <provizyonTarihi>22.12.2006</provizyonTarihi> > <provizyonTipi>N</provizyonTipi> > <saglikTesisKodu>10662</saglikTesisKodu> > <sigortaliTuru>2</sigortaliTuru> > <takipNo></takipNo> > <takipTuru>1</takipTuru> > <yakinlikKodu></yakinlikKodu> >>I don't sure, if I put this xml to a string and I send this string as a parameter to the method?
>>><?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> >>>>>>
>>>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 >>>