İŞ GÖREMEZLİK SERVİSİ DOKTOR BİLGİSİ DELPHİ VE C# FARKI

[Celalettin Karagul]

Merhaba

 

C# ile array olmadan tanıtamıyorum,Delphi 7 de doktor eklerken array tanıtmadan kullanabiliyorum,böyle oluncada sanırım serverda sorun veriyor.

 

Sorum Array tanıtarak delphi 7 ile kullanabilen varmı ?

Delphi 2010 ile wsdl import eden arkadaşlardan,import neticesinde oluşan sorgulaws1.pas paylaşma imkanı olabilirmi ?

 

iki kodu da atıyorum örnek olarak

 

Delphi 7 KODU

 

Yontem 1)

 

     DokBilDVO        : DoktorBilgisiDVO;
     DokBilArr        : Array of DoktorBilgisiDVO;

   

     DokBilDVO:=DoktorBilgisiDVO.Create;

    

    DokBilDVO.drTescilNo:='XXXX';
    DokBilDVO.drBransKodu := 'ZZZZ';
    DokBilDVO.tipi:= '2';

 

     SetLength(DokBilArr,1);
     DokBilArr[0]:=DokBilDVO.Create;
     DokBilArr[0]:=DokBilDVO;

 

    // IsGoremezRapor.doktorArr:=DokBilArr; //bu satırı kabul etmiyor

 

     IsGoremezRapor.doktorArr:=DokBilArr[0];

 

Yontem 2)

 

     DokBilDVO        : DoktorBilgisiDVO;
     //DokBilArr        : Array of DoktorBilgisiDVO;

     //SetLength(DokBilArr,1);
     //DokBilArr[0]:=DokBilDVO.Create;
     //DokBilArr[0]:=DokBilDVO;

    

     DokBilDVO:=DoktorBilgisiDVO.Create;

     DokBilDVO.drTescilNo:='XXXX';
     DokBilDVO.drBransKodu := 'ZZZZ';
     DokBilDVO.tipi:= '2';

 

     IsGoremezRapor.doktorArr:=DokBilDVO;       

 

Aslında birinci  yöntemde de array atamıyorum delphide  ama c# direkt array istiyor 

 

 

C# KODU

 

DoktorBilgisiDVO DokBilDVO = new tr.gov.sgk.test4.DoktorBilgisiDVO();

DoktorBilgisiDVO[] DrArr = new tr.gov.sgk.test4.DoktorBilgisiDVO[1];

DokBilDVO.drTescilNo = "XXXXX"DokBilDVO.drBransKodu ="ZZZZ";

DokBilDVO.tipi="2";

DrArr[0] = DokBilDVO;

IsGoremezRapor.doktorArr = DrArr;

 

 

[Demir]

İş göremezlik servisinden bende C# ile null pointer hatası alıyorum belki serviste sorun vardır bilemiyorum..

[Celalettin Karagul]

Ben c# ta hata almıyorum,sonuc kodu sıfır geliyor ama takipno vs boş dönüyor, delphide alıyorum.

 

url adresiniz nedir ?

SorgulaWSService ig = new tr.gov.sgk.test4.SorgulaWSService();

ig.Url="http://gss.sgk.gov.tr/WS_isGoremezlik2011/services/SorgulaWS";

 

6 Temmuz 2012 Cuma 15:45:25 UTC+3 tarihinde Demir yazdı:

[Demir]

ttp://gss.sgk.gov.tr/WS_isGoremezlik2011/services/SorgulaWS  adresinden raporOnSecim metodunun  dönen hataMesaji alannda null pointer hatası alıyorum. takip no vs bende de 0 oluyor farklı raporlar denedim hastalık,analık gibi ama hep aynı siz null pointer hatasını acaba nasıl çözdünüz..

[Bedri Sönmez]

6 Temmuz 2012 Cuma 15:45:25 UTC+3 tarihinde Demir yazdı:

İş göremezlik servisinden bende C# ile null pointer hatası alıyorum belki serviste sorun vardır bilemiyorum..

 

bütün alanları doldurman gerekiyor za ten bugün servis ne eksikse söylüyor onun dedikleri doldurursan işlem başarılı oluyor.

[Demir]

adres  http://gss.sgk.gov.tr/WS_isGoremezlik2011/services/SorgulaWS  bu değil mi bende hata devam ediyorda..

[Celalettin Karagul]

Ben aslında delphi7 ile cebelleşiyordum.

C# ile nasıl oluyor diye geçerken bir baktım.
Kodum aşağıdaki gibi , proje olarakda attach ediyorum.

 

 

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Web.Services.Protocols;
using isgoremez = WindowsFormsApplication4.tr.gov.sgk.test4;
using System.Globalization;
using System.Configuration;

 

namespace WindowsFormsApplication4
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

       
        private void button3_Click(object sender, EventArgs e)
        {
            int RapTur=Convert.ToInt32(textBox1.Text);
            string hatamsj = "";
 
            //tr.gov.sgk.test4
            isgoremez.SorgulaWSService ig = new WindowsFormsApplication4.tr.gov.sgk.test4.SorgulaWSService();
           
            isgoremez.AnalikRaporDVO  AnaRapDVO = new WindowsFormsApplication4.tr.gov.sgk.test4.AnalikRaporDVO();
            isgoremez.DoktorBilgisiDVO DokBilDVO = new WindowsFormsApplication4.tr.gov.sgk.test4.DoktorBilgisiDVO();
           
            isgoremez.EmzirmeRaporDVO EmzirRapDVO = new WindowsFormsApplication4.tr.gov.sgk.test4.EmzirmeRaporDVO();
            isgoremez.HakSahibiBilgisiDVO HakSahDvo = new WindowsFormsApplication4.tr.gov.sgk.test4.HakSahibiBilgisiDVO();
            isgoremez.HastalikRaporDVO HasRapDVO= new WindowsFormsApplication4.tr.gov.sgk.test4.HastalikRaporDVO();
            isgoremez.IsgoremezlikRaporDVO IsGoremezRapor = new WindowsFormsApplication4.tr.gov.sgk.test4.IsgoremezlikRaporDVO();
            isgoremez.IsKazasiRaporDVO IsKazaDVO = new WindowsFormsApplication4.tr.gov.sgk.test4.IsKazasiRaporDVO();
            isgoremez.MeslekHastaligiRaporDVO MslkHstDVO = new WindowsFormsApplication4.tr.gov.sgk.test4.MeslekHastaligiRaporDVO();
            isgoremez.RaporBilgisiDVO RprDvo = new WindowsFormsApplication4.tr.gov.sgk.test4.RaporBilgisiDVO();
           
            isgoremez.CevapDTO cvpdto = new WindowsFormsApplication4.tr.gov.sgk.test4.CevapDTO();
            isgoremez.DoktorBilgisiDTO drdto = new WindowsFormsApplication4.tr.gov.sgk.test4.DoktorBilgisiDTO();
            isgoremez.HaksahibiBilgisiDTO hakdto = new WindowsFormsApplication4.tr.gov.sgk.test4.HaksahibiBilgisiDTO();
            isgoremez.IgorAnalikEmzirmeDTO anemdto = new WindowsFormsApplication4.tr.gov.sgk.test4.IgorAnalikEmzirmeDTO();
            isgoremez.IgorIsKazasiMeslekHastalikDTO mshasdto = new WindowsFormsApplication4.tr.gov.sgk.test4.IgorIsKazasiMeslekHastalikDTO();
            isgoremez.IgorMedulaRaporDTO medrpdto = new WindowsFormsApplication4.tr.gov.sgk.test4.IgorMedulaRaporDTO();
            isgoremez.IsgoremezlikRaporDTO isrpdto = new WindowsFormsApplication4.tr.gov.sgk.test4.IsgoremezlikRaporDTO();
            isgoremez.KullaniciDTO kuldto = new WindowsFormsApplication4.tr.gov.sgk.test4.KullaniciDTO();
            isgoremez.RaporBilgisiDTO rapDTO = new WindowsFormsApplication4.tr.gov.sgk.test4.RaporBilgisiDTO();
           
            ig.Url="http://gss.sgk.gov.tr/WS_isGoremezlik2011/services/SorgulaWS";
            ig.PreAuthenticate = true;
            ig.Credentials = new System.Net.NetworkCredential("user", "password");
            ig.Timeout = 1800000;

           
            IsGoremezRapor.isGoremezlikRaporTuru=RapTur;
            IsGoremezRapor.bransKodu=1100;           
            IsGoremezRapor.protokolNo="A-900048-1100-001-A-190612-00000001";
            IsGoremezRapor.protokolTarihi="19.06.2012";
            IsGoremezRapor.duzenlemeTuru= "2";
            IsGoremezRapor.teshis="M54.2-BOYUN AĞRISI";
            IsGoremezRapor.olum="1";
            IsGoremezRapor.yatisDevam="1";
           

            isgoremez.DoktorBilgisiDVO[] DrArr = new WindowsFormsApplication4.tr.gov.sgk.test4.DoktorBilgisiDVO[1];
           
            DokBilDVO.drTescilNo  ="TESCIL";
            DokBilDVO.drBransKodu ="1100";
            DokBilDVO.tipi= "2";

            DrArr[0] = DokBilDVO;

            IsGoremezRapor.doktorArr = DrArr;

            HakSahDvo.tckimlikNo="HASTATCNO";
            HakSahDvo.sigortaliTuru="1";
            HakSahDvo.provizyonTipi="N";
            HakSahDvo.provizyonTarihi="19.06.2012";
            IsGoremezRapor.hakSahibi=HakSahDvo;

            RprDvo.raporTesisKodu =11349999;
            RprDvo.tarih="19.06.2012";
            RprDvo.no="2012-123456";
            RprDvo.AVakaTKaza = 3;          

            IsGoremezRapor.raporBilgisi = RprDvo;
           
            if (RapTur==1)
            {
                      IsKazaDVO.baslangicTarihi="20/06/2012";
                      IsKazaDVO.bitisTarihi="30.06.2012";
                      IsKazaDVO.raporDurumu="2";
                      IsKazaDVO.isKontTarihi="30.06.2012";
//                      IsKazaDVO.hastaneYatisTarihi:='';
//                      IsKazaDVO.hastaneCikisTarihi:='';
                      IsKazaDVO.nuks="";                    
                      IsKazaDVO.yaraninTuru="00";   //ESAW kodlar
                      IsKazaDVO.yaraninYeri="00";   //ESAW kodlar
                      IsKazaDVO.taburcuKodu=2;
                      IsKazaDVO.isKazasiTarihi="19.06.2012";
             
            }
            else if (RapTur==2)
            {
                        MslkHstDVO.baslangicTarihi="20.06.2012";
                        MslkHstDVO.bitisTarihi="30.06.2012";
                        MslkHstDVO.raporDurumu ="2";
                        MslkHstDVO.isKontTarihi ="30.06.2012";
//                        MslkHstDVO.hastaneYatisTarihi:='';
//                        MslkHstDVO.hastaneCikisTarihi:='';
                        MslkHstDVO.nuks ="";
                        MslkHstDVO.yaraninTuru="00";
                        MslkHstDVO.yaraninYeri="00";
                        MslkHstDVO.taburcuTarihi="20.06.2012";
                        MslkHstDVO.taburcuKodu=2;

            }
            else if (RapTur==3)
            {
            }
            else if (RapTur==4)
            {              
            }
            else if (RapTur==5)
            {
                        HasRapDVO.baslangicTarihi="20.06.2012";
                        HasRapDVO.bitisTarihi="30.06.2012";
                        HasRapDVO.raporDurumu ="2";
                        HasRapDVO.isKontTarihi ="30.06.2012";             
            }

            IsGoremezRapor.isKazasiRaporu=IsKazaDVO;
            IsGoremezRapor.meslekHastaligiRaporu=MslkHstDVO;
            IsGoremezRapor.emzirmeRaporu=EmzirRapDVO;
            IsGoremezRapor.analikRaporu=AnaRapDVO;
            IsGoremezRapor.hastalikRaporu=HasRapDVO;           

            cvpdto = ig.raporOnSecim(IsGoremezRapor);

           
            if (cvpdto.sonucKodu.ToString().Trim() == "0")
            {  
                long rapid = cvpdto.raporID;
                int rapsno =cvpdto.raporSiraNo;
                string raptkpno=cvpdto.raporTakipNo;
            }
            else
            {
                MessageBox.Show(cvpdto.hataMesaji.ToString());
            }
           
        }

        private void Form1_Load(object sender, EventArgs e)
        {

        }
    }
}

6 Temmuz 2012 Cuma 17:13:23 UTC+3 tarihinde Demir yazdı:

[selcukaktas]

Merhaba. İş göremezlik ön seçim methodunda bunların hepsini doldurmanız gerekmiyor.Zorunlu-gerekli alanlar aşağıdaki delphi kodunda mevcut. Ön seçim servisinde herhangi bir sorun yok cevap alınabiliyor. Eğer o hastaya ait ilk rapor ise cevap nesnesinde rapor sıra no ve rapor no 0 dönüyor. Bu sorun değil , hazırladıkları servisin mantığı. Ön seçimden cevap aldıktan sonra normal medula servislerine rapor kayıt yapılıyor. Orada rapor takip no sıfır dönüyor. Şuan bunu düzeltmeye çalışıyorlar.

İyi çalışmalar.

   Giris:=IsgoremezlikRaporDVO.Create;

   Giris.raporBilgisi:=RaporBilgisiDVO.Create;

   Giris.hakSahibi:=HakSahibiBilgisiDVO.Create;

   Giris.hakSahibi.tckimlikNo:=DM.QrKimTC_KIMLIK_NO.AsString;

   Giris.protokolTarihi:=DateTar.Text;

   Giris.duzenlemeTuru:=inttostr(RadioRaporTipi.ItemIndex+1);

   Giris.isGoremezlikRaporTuru:=strtoint(ComboIsgoremezTuru.Value);

   Giris.bransKodu:=dm.TbPrtklKLINIK_KODU.AsInteger;

   Giris.yatisDevam:=inttostr(RadioYatisDurumu.itemindex+1);

   Giris.raporBilgisi.raporTesisKodu:=dm.QrHastaneGSS_TESIS_KODU.AsInteger;

   Giris.raporBilgisi.AVakaTKaza:=(RadioAdli.ItemIndex+1);

   gssservis:=GetSorgulaWS(false,'',dm.QrHastaneGSS_USERNAME.Text,dm.QrHastaneGSS_SIFRE.Text,HTTPRIO1);

   cevap:=gssservis.raporOnSecim(giris);

Selçuk AKTAŞ
MeDData Bilişim İletişim Ltd.Şti.
Yazılım Müdürü
03122650181
Cyberpark B blok BZ02 Bilkent ANKARA
www.meddata.com.tr
www.meddatapacs.com 

[Celalettin Karagul]

Merhaba Selçuk Bey

 

Gönderdiğiniz koda uygun olarak gerekli düzenlemeyi yaptım ancak servisten hatasız bir dönüş alamadım gelen mesajları ve kodumu gönderiyorum.Daha önceki delphi kodumla servisten hata dönmüyordu gelen xml dosyasına erişebiliyordum ama sonucu cevapdto ya aktarırken hataya düşüyordu.

 

Siz Delphi7 mi kullanıyorsunuz,bir örnek kaydın response ve request xml dosyalarını paylaşma imkanınız varmı acaba ?

    Giris : IsgoremezlikRaporDVO;
     {
     IsKazaDVO        : IsKazasiRaporDVO;
     MslkHstDVO       : MeslekHastaligiRaporDVO;
     AnaRapDVO        : AnalikRaporDVO;
     EmzirRapDVO      : EmzirmeRaporDVO;
     HasRapDVO        : HastalikRaporDVO;
     }
     cevap : CevapDTO;
     gssservis : SorgulaWS;

   

 

    SOAP :=THTTPRIO.Create(NIL);

    SOAP.HTTPWebNode.UserName := X2;

    SOAP.HTTPWebNode.Password := X3;

 

    SOAP.HTTPWebNode.UseUTF8InHeader :=true;
    SOAP.HTTPWebNode.ConnectTimeout:=1800000;
    SOAP.HTTPWebNode.SendTimeout:=1800000;
    SOAP.HTTPWebNode.ReceiveTimeout:=1800000;
       

     RapTur:=1;

          Giris:=IsgoremezlikRaporDVO.Create;
          Giris.raporBilgisi:=RaporBilgisiDVO.Create;
          Giris.hakSahibi:=HakSahibiBilgisiDVO.Create;

          {
          IsKazaDVO := IsKazasiRaporDVO.Create;
          MslkHstDVO:=MeslekHastaligiRaporDVO.Create;
          AnaRapDVO:=AnalikRaporDVO.Create;
          EmzirRapDVO:=EmzirmeRaporDVO.Create;
          HasRapDVO:=HastalikRaporDVO.Create;
          }

          Giris.hakSahibi.tckimlikNo:='xxxxxxxxxxx';
          Giris.protokolTarihi:='19.06.2012';
          Giris.duzenlemeTuru:='2';
          Giris.isGoremezlikRaporTuru:=RapTur;
          Giris.bransKodu:=1100;
          Giris.yatisDevam:='1';

          Giris.raporBilgisi.raporTesisKodu:=11349999;
          Giris.raporBilgisi.AVakaTKaza:=3;

          {
          IsKazaDVO.baslangicTarihi:='20/06/2012';
          IsKazaDVO.bitisTarihi:='30.06.2012';
          IsKazaDVO.raporDurumu:='2';
          IsKazaDVO.isKontTarihi:='30.06.2012';

          Giris.isKazasiRaporu:=IsKazaDVO;
          Giris.meslekHastaligiRaporu:=MslkHstDVO;
          Giris.emzirmeRaporu:=EmzirRapDVO;
          Giris.analikRaporu:=AnaRapDVO;
          Giris.hastalikRaporu:=HasRapDVO;
          }
          gssservis:=GetSorgulaWS(false,'',SOAP);
          cevap:=gssservis.raporOnSecim(giris);

6 Temmuz 2012 21:56 tarihinde selcukaktas <selcuk...@gmail.com> yazdı:

[Celalettin Karagul]

7 Temmuz 2012 Cumartesi 10:37:37 UTC+3 tarihinde Celalettin Karagul yazdı:

[selcukaktas]

Merhaba. Giden ve gelen xml örneklerini ekledim.

Ben sonuç kodu,devammı , rapor sıra no , rapor takip no alanlarını kontrol edip ona göre işleme devam ediyorum.Diğer tüm alanlar boş dönüyor.

      Sonuç kodu 0 ise başarılı rapor kaydına geçebilirsiniz diye algılayıp devam ediyorum.(ilk rapor olduğu için rapor sıra ve rapor no sıfır dönüyor)

      Raporu medula servislerine kaydederken Sorun var. Orada rapor takip no dönmesi gerek ama o sıfır dönüyor.

[Celalettin Karagul]

Merhaba Selçük Bey,

 

SGK'nın dökümanlarını tekrar gözden geçirdim.Ama sizin anlattığınız şekilde olacağına dair bir görüş oluşmadı bende.Bakın direkt bu durumu özetleyecek sgk sunumundan bir paragraf sizde okumuşssunuzdur,bu bilginin değiştiğine dair bir yazışma vs direkt sgk ile yazışarak, görüşerek mi elde ettiniz yoksa oluşan duruma göre kendi yorumunuz mu böyle ? Yani olsa olsa böyle olmalımı diye düşünüyorsunuz?

 

CevapDTO nun SonucKodu (0) ise Sorun yok , yeni rapor verilebilir. CevapDTO ile hastaneye gönderilen RaporTakipNo  ve RaporSıraNo  yu alarak bir sonraki Yeni Rapor Kaydet ekranına geçiniz. Bu ekrana  Hasta TC Kimlik No, Vaka, Tesis Kodu, PoliklinikNo ,Rapor Takip No ve Rapor Sıra No read only olarak set edilecektir.

 

Diğer alanlar hekim tarafından doldurulduktan sonra Kaydet butonu tıklanacaktır. İşte medula bu aşamada devreye girer. Hem Ön Seçim ekranında hem de Rapor Kaydet ekranında girilen tüm bilgiler Medula Web Servis üzerinden İş göremezlik sistemine gönderilecektir.  Özetlemek gerekirse;

Önseçim ekranında herhangi bir uygunsuzluk yoksa Yeni Rapor Kaydet ekranı açılacak ve diğer rapor bilgileri girilecek. Kaydet butonu tıklanınca medula web servisinde yer alan raporBilgisiKaydet  metodu çağırılacak.

7 Temmuz 2012 14:27 tarihinde selcukaktas <selcuk...@gmail.com> yazdı:

[selcukaktas]

Celalattin bey merhaba. 

Zorunlu alanların listesini sunumları yapan berna hanımdan aldım. Kendisine ön seçimde tüm bu bilgileri doldurmamızın anlamsız olacağını söylediğimde zaten hepsini doldurmamıza gerek olmadığını sadece listesini verdiğim alanların doldurulmasının yeterli olduğunu belirtti. 

Ön seçimden sonuç kodu 0,-1 veya -2 gelebiliyor bu sunumlarda var. 0 ise sorun yok devam edin,-1 ve -2 de ise gitmediği kontrolü var yine de devam mı, açık raporu var yine de devam mı soruları geliyor.

Buraya kadar hemfikiriz sanırım. Bu aşamaya kadar sistemdeki tek sorun,-1 veya -2 geldiğinde bunun bir hata mı yoksa kullanıcıya sormamız gereken bir sorumu olduğunu anlayamıyoruz,çünkü hatalarda da -1 geliyor(örneğin sigortalı kaydı bulunamadı).Bunun sonraki sürümlerde düzeltileceğini berna hanım iletti.

Buradan sonra benim görüşmelerimden ve dökümanlardan anladığım ;

a)ilk rapor ise rapor sıra no ve rapor takip no sıfır gelecek

b)daha önce raporu var ise o raporun takip numarası gelecek ve rapor sıra no 2 gelecek

sonra 2.rapor oluşturulup medula servislerine kaydedilip süreç devam edecek.

Şu aşamada medulaya rapor kayıttan rapor takip no sıfır döndüğü için 2. veya 3.adımları(2.rapor ver,sağlık kuruluna sevket) deneyemiyoruz.

Benim yukarda anlattığım senaryo ile sizin bildiğiniz senaryo arasındaki fark nedir ?

İyi çalışmalar.

 

 

[selcukaktas]

Ayrıca berna hanım ön seçim servisinde , hastanın daha önce rapor yok ise  rapor takip no ve rapor sıra numarasının sıfır döneceğini,firmaların bunu bir hata olarak algıladıklarını ama ön seçimde sadece müstehaklık ve raporu var mı kontrollerinin yapıldığını sıfır dönmesinin normal olduğunu iletmişti.

Sgknın ppt sunumları var ise orada da ilk raporda bu iki bilginin ilk raporda sıfır olduğu ekranlarda görülüyor.

Benim bilgilerim bu şekilde ne kadar doğrudur bilmiyorum ama ankarada yapılan son iş göremezlik toplantısında ve yüz yüze yaptığım görüşmelerde bu şekilde bilgiler verildi.

İyi çalışmalar dilerim.

[Celalettin Karagul]

Selçuk bey,

 

Sizden sonra yeniden gözden geçirdim evet arada bir müstehaklık kontrolu var ben o aşamayı farklı algılamışım.Müstehaklık kontrolunde raporOnSecim methodunda sadece tc nosunu vererek sonuckodunu sıfır olarak aldım.Daha sonra SorgulaWSService içindeki raporKaydet methodunu ise zorunlu dolu olan rapor bilgileriyle test ettim, sonuckodu  1 olarak hatalı geldi "Rapor Takip No Alinamadi! " bu aşamada raportakipno vs bilgiler gelse idi sonraki aşamada rapor2Ver sonrada medula web service raporkaydet mi kullanacaktık.

 

Bu arada SorgulaWSService içindeki  aşağıdaki methodlar ne için kullanılacak hiç bir dökümanda açıklama bulamadım. raporGetir,raporGuncelle,raporKaydet,raporListeGetir,raporOnayla

iyi çalışmalar,

Medipro Yazılım,

Celalettin Karagül
 

7 Temmuz 2012 18:36 tarihinde selcukaktas <selcuk...@gmail.com> yazdı:

[Celalettin Karagul]

Selçuk bey,

 

İşgöremezlik servisi altındaki raporKaydet methodunu bu sefer uydurma bir rapor no , takipno vs girerek tekrar çağırdım yeni hata aşağıdaki gibi,şimdi burdan şunu anlıyorum bu servise RaporTakipno,sirano bizim vermemiz gerekiyor vermeden gönderince direkt hata verip geri çeviriyor,peki biz bu servise rapor takip noyu nerden alıp gönderecez,ön seçimi sadece tc no ile çağırıncada cevap veriyor full doldurup çağırıncada aynı cevabı veriyor.

 

java.sql.SQLException: DB2 SQL error: SQLCODE: -407, SQLSTATE: 23502, SQLERRMC: Query: INSERT INTO SIGTBP01.IGOR_MEDULARAPOR(RAPORTAKIPNO,RAPORSIRANO,GIPSUBENO,TCKIMLIKNO,SIGORTANO,SIGORTALITURU,AD,SOYAD,VAKA,YATISDEVAM,ABASTAR,ABITTAR,YBASTAR,YBITTAR,ISBASKONTTAR,POLDEFTERSIRANO,POLIKLINIKTAR,TABURCUTARIHI,TABURCUKODU,RAPORDUZENTURU,BELGENO,BELGETARIHI,TESISKODU,BRANSKODU,OLUM,BASHEKIMTCKIMLIKNO,BASHEKIMONAY,BASHEKIMONAYTARIHI,BASHEKIMONAYZAMANI,BASHEKIMDIPTESTNO,ACIKLAMA,ISLEM_TARIHI,ISLEM_ZAMANI,RAPORDURUMU,CINSIYET) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) Parameters: [121, 1, 3469999, 99999999999, 999999999999, 1, CELALETTİN, KARAGÜL, 1, 2, null, 2012-06-30, null, null, 2012-06-30, 1, 2012-06-19, 0001-01-01, 2, 2, 123, 2012-06-19, 113499999, 1100, , 0, 0, 2012-07-08, 2012-07-08 10:58:16.208, 0, , 2012-07-08, 2012-07-08 10:58:16.208, 2, 1]

7 Temmuz 2012 Cumartesi 19:57:35 UTC+3 tarihinde Celalettin Karagul yazdı:

[Demir]

bilgiler için çok teşekkürler önSecim metodundan sonra medula servisinin rapor bilgisi ile kaydetme metodunu çağırıyorum bu defa veritabanı hatası alıyorum bilgisi olan var mı?

[selcukaktas]

Tekrar merhaba.

 Celalettin bey iş göremezlik servisi altındaki rapor kaydet methodunu hiç bir şartta kullanmıyoruz. Raporu medula servislerine yollamamız gerekiyor. Dün berna hanımla ve bugün medula ekibi ile yine görüştük. 

java.sql.SQLException: DB2 SQL error ile başlayan hata mesajı ve rapor takip numarasının sıfır dönme sorunları devam ediyor.

Çözmeye çalışıyorlar.

İyi çalışmalar. 

[Murat Karatekin]

Gönderdiğiniz raporları sorgulaya biliyormusunuz biz şuan gönderdiğimiz raporlaru medula web ekranında görüyoruz fakat web servisten sorguladığımızda
rapor bilgisine ulaşılamadı mesajı alıyoruz.

10 Temmuz 2012 Salı 15:19:19 UTC+3 tarihinde selcukaktas yazdı:

[Demir]

Evet aynı sorunu yaşıyoruz. Ayrıca başhekim onayından geçmiş işgörmezlik raporunda rapor başlangıç bitiş tarihini de göremedim..

[Fatih KARACA]

Delphi 2010 için Ön seçim servisinin WSDL Delphi 7 de gönderince yine sıkıntı oluyor delphi 2010 da hiç sıkıntı çıkmadan gönderilebiliryor. anlamadım WSDL gönderim size.

[Celalettin Karagul]

Merhaba Fatih Bey

 

Ben ön seçim kısmıyla birlikte mecburen gelen cevaba göre işlem yapılacak medulanın İşGöremezlik servisini c# ile yeniden yazdım.İlginiz için teşekkür ederim.

 

Yukardaki hatayı c# kodundan aldım doktor adı ve soyadı zorunlu saha değil bende göndermiyorum onunlamı ilgili yada bir arkadaşımız aynı servise raporu ikinci defa kaydet deyince aldığını söylemiş başkar bir arkadaşımız takipno ve sırano alanına sıfır yaz demiş başka bir arkadaşımız TakipNo ile rapor kaydet demiş doğru senaryo hangisi bilmiyorum deniyorum bakalım şans eseri birinden yakalarsam buradan bildiririm yine,ancak gerçek serviste bu deneme yaptığımız kayıtları nasıl sileceğiz oda ayrı bir sorun

18 Temmuz 2012 Çarşamba 12:37:45 UTC+3 tarihinde Fatih KARACA yazdı:

[Fatih KARACA]

Ben yaptığımı sana anlatim

1 - Rapor ön seçime gönder Sana 0 cevabı gelirse sıkıntı yok demektir. (bunu c# gönderdim, Delphi 2010 dada sonuç 0 alabiliryorum.)

2 - TakipNoIleRaporKayit metodunu kullan ve gönderirken hakSahipliği kısmına hastanın T.C. kimlik bilgisini ekle. raporTakipNo ve raporSiraNo alanlarına 0 yaz gönder benim forumda arkdaşların yazdıklarından ortak çıkardığım bu denedim bu şekilde kayıt yaptım. (Delphi 7 de gönderdim.)

benim sıkıntım Delphi 7 de ön seçimi çalıştıramıyorum. Delphi 2010 ve c# da sıkıntı çıkmıyor ama proje delphi 7 olduğu için onu sorunu çözmem gerekiyor. bunu nasıl çözerim onu bilmiyorum. bulumadım daha.

[Celalettin Karagul]

Fatih bey,

 

Delphi 7 medula servislerini bende sorunsuz kullanıyorum,Ilac ve Tedavi raporları şu an kullanılıyor ama İşgöremezliğin medula servislerini Delphi7 de hiç kullanmadım,ön seçimde sıkıntı çıkınca tırstım Delphi7 buraya kadar herhalde dedim. 

Benim önerim c# ile dll oluşturup Delphi7 üzerinden kullanmak olur Import Library diyerek c# daki dll adıyla TLB ve pas uzantılı dosya oluşuyor delphi kodundan hem paramatre geçirip hem return değerine ulaşabilirsiniz

 

Bu raportakipno string bir alan oraya yinede sıfır yazacakmıyız birde doktor adı ve soyadını dolu gönderiyormusunuz

18 Temmuz 2012 13:08 tarihinde Fatih KARACA <fatihk...@gmail.com> yazdı:

[Murat Karatekin]

Merhabalar,

iş göremezlik rapor silme işlemini gerçekleştirebilen var mı ?

medula yeni versiona da mail attım ama sonuç çıkmadı.

şimdiden teşekkürler.

2012/7/18 Celalettin Karagul <cela...@gmail.com>

--