Konu: medula
medula ile uğraşan varmı ?
teşekkürler
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
medula ile uğraşan varmı ?
teşekkürler
evet olmaz mı?
medulada
elinde web servisleri için foxda yazılmış bir örnek var mı ?
daha önce hiç web servisi kullanmadım da
teşekkürler
Clear
Public lcHastaXML, loProvizyonIslemleri AS "XML Web Service", lor
* Özel Tanı ve Görüntüleme Merkezi
* Tesis kodu : 10922
* Kullanıcı : 43000517000
* Şifre : 43000517000
loProvizyonIslemleri = CreateObject("MSSOAP.SoapClient30")
loProvizyonIslemleri.MSSoapInit ;
("http://test.sgk.gov.tr/saglikws/services/" + ;
"ProvizyonIslemleri/wsdl/ProvizyonIslemleri.wsdl", ;
"ProvizyonIslemleriService", "ProvizyonIslemleri")
loProvizyonIslemleri.ConnectorProperty("AuthUser") = "43000517000"
loProvizyonIslemleri.ConnectorProperty("AuthPassword") = "43000517000"
loProvizyonIslemleri.ConnectorProperty("WinHTTPAuthScheme") = 0x1
Text to m.lcHastaXML textmerge noshow
<devredilenKurum>1</devredilenKurum>
<hastaKarneNo></hastaKarneNo>
<hastaSosyalGuvNo></hastaSosyalGuvNo>
<hastaTCKimlikNo>27535375984</hastaTCKimlikNo>
<provizyonTarihi><<Dtoc(Date())>></provizyonTarihi>
<provizyonTipi>N</provizyonTipi>
<saglikTesisKodu>10922</saglikTesisKodu>
<sigortaliTuru>1</sigortaliTuru>
<takipNo></takipNo>
<takipTuru>1</takipTuru>
<yakinlikKodu></yakinlikKodu>
EndText
lor = loProvizyonIslemleri.hastaKabul(m.lcHastaXML)
For ix=0 to lor.Length-1
? lor.item(m.ix).nodeName, " : ", lor.item(m.ix).nodeTypedValue
EndFor
?
?
For ix=0 to lor.item(0).childNodes.Length-1
? lor.item(0).childNodes.item(m.ix).nodeName, ;
lor.item(0).childNodes.item(m.ix).nodeTypedValue
EndFor
Bu örnekde MSSOAP ile...
Bir ara MEDULA test ortamının servisleri çalıştığı halde WDSL linkleri çalışmıyordu, bu örnekteki MSSOAP.SoapClient30 nesnesi de WDSL linkleri ile çalıştığı için nihayetinde bu yöntemi kullanamamıştım. Ama şu an çalışıyor...
.Net ile hazırladığım COM objectlerle hallediyorum şu an medula servisleriyle konuşma işlerini. Ara yüzü ise VFP ile...
teşekkürler
Sayın citil_mesut, yazmış oldugunuz makaleyi http://www.vb-forum.net/showthread.php? … =1#post291 adlı sitemde yayınlamış bulunmaktayım. Eger izin verirseniz yazımın altına sizinde adınızı belirterek devamlılıgı saglanacaktır. İzin vermediginiz takdirde makalenizi sitemde kaldıracagım.
Bilginize
İyi çalışmalar