Konu: Sağlık Bakanlığı Wsdl Yardım.
Merhaba ben sizden bir konuda yardım isteyecektim.
XML Web Service Manager ile
http://saglik.sgk.gov.tr/saglikws/servi … mleri.wsdl
http://saglik.sgk.gov.tr/saglikws/servi … mleri.wsdl
http://saglik.sgk.gov.tr/saglikws/servi … mleri.wsdl
http://saglik.sgk.gov.tr/saglikws/servi … mleri.wsdl
http://saglik.sgk.gov.tr/saglikws/servi … emler.wsdl
http://saglik.sgk.gov.tr/saglikws/servi … mleri.wsdl
http://saglik.sgk.gov.tr/saglikws/servi … mleri.wsdl
adresleri register ettim.
http://saglik.sgk.gov.tr/saglikws/servi … mleri.wsdl
Servisini kullanmak için;
*************************************************
LOCAL loOdemeBilgisiIslemleri AS "XML Web Service"
* LOCAL loOdemeBilgisiIslemleri AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
*__VFPWSDef__: loOdemeBilgisiIslemleri = http://saglik.sgk.gov.tr/saglikws/services/OdemeBilgisiIslemleri/wsdl/OdemeBilgisiIslemleri.wsdl , OdemeBilgisiIslemleriService , OdemeBilgisiIslemleri
LOCAL loException, lcErrorMsg, loWSHandler
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
loOdemeBilgisiIslemleri = loWSHandler.SetupClient("http://saglik.sgk.gov.tr/saglikws/services/OdemeBilgisiIslemleri/wsdl/OdemeBilgisiIslemleri.wsdl", "OdemeBilgisiIslemleriService", "OdemeBilgisiIslemleri")
* Call your XML Web service here. ex: leResult = loOdemeBilgisiIslemleri.SomeMethod()
* Private adetField As Int
* Private drTescilNoField As String
* Private hizmetSunucuRefNoField As String
* Private islemDurumField As String
* Private islemTarihiField As String
* Private raporTakipNoField As String
* Private saglikTesisKoduField As Int
* Private bransKoduField As String
* Private sutKoduField As String
* Private takipNoField As String
* loOdemeBilgisiIslemleri.digerIslemTalepGiris(ADET_CARP,DRTESCILNO,HSRN ,ISLEMDURUM,BASTARIH ,TAKIPNO ,STK ,BRANSKODU,KODU ,GSSNO)
loOdemeBilgisiIslemleri.digerIslemTalepGiris(1 ,'78590' ,'35451','1' ,'28.09.2007','1626642',11670017 ,'9901' ,'P704230','42Z1AW')
leResult = loOdemeBilgisiIslemleri.SomeMethod()
CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
DO CASE
CASE VARTYPE(loOdemeBilgisiIslemleri)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loOdemeBilgisiIslemleri.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+CHR(13)+loOdemeBilgisiIslemleri.Detail
OTHERWISE
* Handle other error
ENDCASE
* Use for debugging purposes
MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY
******************************
kodunu kullandım. Çalıştırmak nasip olmadı, Forumdaki ilgili konuları okudum diğer yöntemleride denedim, Ne yaptım ettiysem çalıştıramadım.
bu konuda bana yardımcı olabilir misiniz?