Daha önce buraya soru olarak yazdığım UETDS sistemi ile ilgili oldukça yol aldım ve son aşamada tıkandım kaldım.
Kod: Tümünü seç
https://servis.turkiye.gov.tr/services/g2g/kdgm/test/uetdsarizi?wsdl
personelEkle metodu;
- Sefere personel ekleme için Bakanlık tarafından sağlanan personelEkle servis metodu kullanılır.
- UETDS sistemine bildirilen bir sefere sonradan personel ataması işleminin yapılabildiği metottur.
- Bildirimde; UetdsYtsUser wsuser kullanıcıAdı, şifre ve uetdsSeferReferansNo ile seferPersonelBilgileriInput bilgileri verilen parametreler gönderilir.
- Sorgu sonucu başarılıysa sonucKodu parametresi 0 bilgisi döner.
- sonucMesaji; Hata durumunda hatanın açıklamasını döner.
- Sorgulamanın girdi ve çıktıları aşağıdaki gibidir;
Girdiler
Parametre adı :
UetdsYtsUser; kullaniciAdi, sifre, uetdsSeferReferansNo
UetdsSeferPersonelBilgileriInput; turKodu, uyrukUlke, tcKimlikPasaportno, cinsiyet, adi, soyadi, telefon, adres
Çıktılar
sonucKodu
sonucMesaji
Kod: Tümünü seç
var
PEkle : personelEkle;
PEkleSonuc : personelEkleResponse;
PKullanici : uetdsYtsUser;
PBilgiler : uetdsAriziSeferPersonelBilgileriInput;
PBilgiler2 : Array_Of_uetdsAriziSeferPersonelBilgileriInput;
Kod: Tümünü seç
PKullanici:=uetdsYtsUser.Create;
PKullanici.kullaniciAdi:=UETDSAdi;
PKullanici.sifre:=UETDSSifre;
PEkle:=personelEkle.Create;
PEkle.wsuser:=PKullanici;
PEkle.uetdsSeferReferansNo:=StrToInt64(SQLSeferPersonelSEFER_NO.Value);
PBilgiler:=uetdsAriziSeferPersonelBilgileriInput.Create;
PBilgiler.turKodu:=SQLSeferPersonelTURKODU.Value;
PBilgiler.uyrukUlke:=SQLSeferPersonelUYRUKULKE.Value;
PBilgiler.tcKimlikPasaportNo:=SQLSeferPersonelTCKIMLIK.Value;
PBilgiler.cinsiyet:=SQLSeferPersonelCINSIYET.Value;
PBilgiler.adi:=SQLSeferPersonelADI.Value;
PBilgiler.soyadi:=SQLSeferPersonelSOYADI.Value;
PBilgiler.telefon:=SQLSeferPersonelTELEFON.Value;
PBilgiler.adres:=SQLSeferPersonelADRES.Value;
PEkle.seferPersonelBilgileriInput[0]:=PBilgiler;
PEkleSonuc:=personelEkleResponse.Create;
try
PEkleSonuc:=Port.personelEkle(PEkle);
if PEkleSonuc.return.sonucKodu=0 then begin
Application.MessageBox('Seçili personel UEDTS sistemine eklendi.','UEDTS',MB_OK+MB_ICONERROR);
end
else begin
Application.MessageBox('Personel UETDS sistemine eklenemedi!!!!','Hata',MB_OK+MB_ICONERROR);
end;
except
end;
bu şekilde çalıştırdığımda program
Kod: Tümünü seç
PEkle.seferPersonelBilgileriInput[0]:=PBilgiler;
Elimdeki verileri hangi metodu kullanarak göndermem lazım?
Kod: Tümünü seç
PEkle.seferPersonelBilgileriInput:=PBilgiler;
Kod: Tümünü seç
[dcc32 Error] UPersonelListe.pas(330): E2010 Incompatible types: 'Array_Of_uetdsAriziSeferPersonelBilgileriInput' and 'uetdsAriziSeferPersonelBilgileriInput'