>oWS = Createobject("MSSOAP.SoapClient30") >oWS.MSSoapInit("http://43000210000:43000210000@test.sgk.gov.tr/saglikws/services/ProvizyonIslemleri/wsdl/ProvizyonIslemleri.wsdl") >ows.ConnectorProperty("AuthUser")="43000210000" >ows.ConnectorProperty("AuthPassword")="43000210000" > >TEXT TO m.lcXML noshow ><provizyonGiris> ><devredilenKurum>3</devredilenKurum> ><hastaKarneNo>111111216</hastaKarneNo> ><hastaSosyalGuvNo>1111111111126</hastaSosyalGuvNo> ><hastaTCKimlikNo>49000719000</hastaTCKimlikNo> ><provizyonTarihi>22.12.2006</provizyonTarihi> ><provizyonTipi>N</provizyonTipi> ><saglikTesisKodu>10662</saglikTesisKodu> ><sigortaliTuru>u>2</sigortaliTuru> ><takipNo></takipNo> ><takipTuru>1</takipTuru> ><yakinlikKodu></yakinlikKodu> ></provizyonGiris> >ENDTEXT >leResult = oWS.hastaKabul(m.lcXml) >Cetin
>><?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 >>