Sağlık Bakanlığı Wsdl Yardım.

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