genel sağlık sigortası provizyon.(çözüldü)

[kamuran48]

selam,
genel sağlık sigortasının test ortamından (http://hastane.emekli.gov.tr/TestGSS/ws ... pligi.wsdl) aşağıdaki kodu gönderiyorum .sonucunda hiç bir şey dönmüyor.konuyu bilen arkadaş varsa paylaşırsa sevinirim.iyi çalışmalar.

Kod: Tümünü seç

implementation
uses haksahipligi1,xsbuiltins;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 Service : Haksahipligi;
 Input : ProvizyonInputDVO;
 OutPut : ProvizyonOutputDVO;

 begin
  Service := GetHaksahipligi;
  Input := ProvizyonInputDVO.Create;
  Input.drKimlikNo:='55555555555';
  Input.gidecegiTesisTuru:='H';
  Input.saglikTesisKodu:=99999999;
  Input.sevkEdilenKlinik:='1000';
  input.sifre:='12345678';
  input.sozlesmeNo:=9;
  input.sozlesmeTuru:= 'H';
  input.karneNo:= edit1.Text;
  input.kimlikNo:=edit2.Text;
  input.sicilNo:=edit3.Text;
  Input.devredilenKurum:='E';
  Input.yakinlikKodu:='CK';
  input.provizyonTarihi:= DateTimeToXSDateTime(now);
  OutPut := Service.hakSahipligiService(Input);
  SHOWMESSAGE(OUTPUT.ad+ ' '+OUTPUT.soyad+',  '+OUTPUT.provizyonNo+',  '+OUTPUT.cinsiyet+',  '+OUTPUT.mesaj+',  '+OUTPUT.takipNo+',  '+OUTPUT.ilKodu);
  Input.Free;
  Output.Free;
  Service := nil;

[faithfull]

Kod: Tümünü seç

procedure Tfrm_GSS_HakSahipligi.prcd_GSS_Sorgula;
var
  servis  : Haksahipligi;
  giris   : ProvizyonInputDVO;
  sonuc   : ProvizyonOutputDVO;
begin

    try
       servis:=GetHaksahipligi(False,'',soap_A00);
       giris:=ProvizyonInputDVO.Create;
       with giris do
       begin
          drKimlikNo          :=  txi_drKimlikNo.Text;
          gidecegiTesisTuru   :=  txi_gidecegiTesisTuru.EditValue;
          karneNo             :=  txi_karneNo.Text;
          kimlikNo            :=  txi_kimlikNo.Text;
          saglikTesisKodu     :=  StrToInt(txi_saglikTesisKodu.Text);
          sevkEdilenKlinik    :=  txi_sevkEdilenKlinik.Text;
          sicilNo             :=  txi_sicilNo.Text;
          sifre               :=  txi_sifre.Text;
          sozlesmeNo          :=  StrToInt(txi_sozlesmeNo.EditValue);
          sozlesmeTuru        :=  txi_sozlesmeTuru.EditValue;
          devredilenKurum     :=  txi_DevredilenKurum.EditValue;
       end;

       sonuc:=(soap_A00 as Haksahipligi).hakSahipligiService(giris);
       sonuc:=servis.hakSahipligiService(giris);
       txo_durumKod1.Text       :=  sonuc.durumKod;
       txo_durumKod2.EditValue  :=  sonuc.durumKod;
       txo_takipNo.Text         :=  sonuc.takipNo;
       txo_ad.Text              :=  sonuc.ad;
       txo_soyad.Text           :=  sonuc.soyad;
       txo_cinsiyet.Text        :=  sonuc.cinsiyet;
       txo_yas.Text             :=  sonuc.yas;
       txo_tarih.Text           :=  sonuc.tarih;
       txo_mesaj.Text           :=  sonuc.mesaj;
		except
      On E:Exception do
      begin
			  raise Exception.Create(E.Message+#13+'Oluşan hata nedeniyle sorgu yapılamıyor...');
      end;
		end;
end;

bu şekilde sonuc döndürdüğüne göre servis atarken parametre göndermemişsin

Kod: Tümünü seç

  Service := GetHaksahipligi; 

şeklinde yazmışsın fonksiyona bakarsan

Kod: Tümünü seç

function GetHaksahipligi(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): Haksahipligi;

şeklinde parametreler alıyor. bundan olması gerekir. dene istersen

[kamuran48]

selam,
ilginize teşekkür ederim.sorun çözüldü.iyi ki varsınız.iyi çalışmalar.

[deltas]

İyi günler kamuran bey.
Aynı sorunu bende yaşıyorum ve cevap alamıyorum. gelen ekran boş geliyor . Sorunu nasıl çözdüğünüz hakkında bilgi verirseniz memun olurum.


Teşekkür ederim..

[kamuran48]

buradaki kodları aynen yazdım, boş gelmesinin sebebi gerçek karne no ve tcno kullanmamanız olabilir.form üzerine bir tane soap komponenti koyun.mesajınızı yeni farkettim.kolay gelsin.

[cuneyt22]

s.a arkadaşlar bende yaptım ama sürekli durumkodu 20 geliyor sözleşmesi yok diye lütfen bi örnek verirmisiniz. yani karneno şu sicil bu diye ondan olabilir diye düşünüyorum. değiştirdiğimde verileri

denizmavi33@hotmail.com bu adrese bir örnek ile yollarsanız çok sevinirim. yada sadece örnek bir hasta yollarsanızda olur. ben yaptım ama dediğim gibi hep durumkodu=20 dönüyor..

[davut]

@faithfull hocam A00 için güzel bir örnek vermişsiniz, çok teşekkürler. C00 (Ödeme Sorgulama Servisi) içinde bir örnek verebilir misiniz?

kolay gelsin..

[nitro]

çözüldü denmiş ama çözüm burda yer almıyor.
konunun çözümü forumla paylaşılırsa daha iyi olur.
saygılarımla

[davut]

@FaithFull arkadaşın verdiği kodlar çalışıyor. Burada herhangi bir şahsın karne ve tcnumarasını vermek doğru olmaz sanırım. Herhangi bir emekli sandığı karnesinin tc ve karne numarasını yazarsanız çok rahat provizyon veriyor.

Sağlık bakanlığının dökümanları tam ayrıntılı hazırlanmamış. C00 servisinin mantığını gösterecek bir örnek olursa çok faydalı olacaktır.

kolay gelsin.

[oktaymumcu]

Benim sorunum
Ödeme Sorgulama Servisi (C00) servisi ile ilgili.
Test ortamında doğru çalışıyorken gerçek ortamda ;
org.xml.sax.SAXException:WSWS3047E:Error:Cannot deserialize element tedaviTarihi of bean tr.gov.emekli.gss.modelInputTeshisBilgisi.Message being parsed:

hata mesajı gelmekte???