Konu: medula
medula ile uğraşan varmı ?
teşekkürler
Re: medula
evet olmaz mı?
Re: medula
medulada
elinde web servisleri için foxda yazılmış bir örnek var mı ?
daha önce hiç web servisi kullanmadım da
teşekkürler
4 09.11.2007 16:33:38 Son düzenleyen, citil_mesut (09.11.2007 16:51:23)
Re: medula
Visual Fox Pro
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...
Re: medula
teşekkürler
Re: medula
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