<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 >>