procedure TForm1.Button15Click(Sender: TObject);
var
servis : IBildirimService;
istek :BaseRequestMessageOf_ListOf_BildirimKayitIstek;
sonuc :BaseResponseMessageOf_ListOf_BildirimKayitCevap;
i:integer;
istk : ArrayOfBildirimKayitIstek;
begin
servis:=GetIBildirimService(False,'',HTTPRIO3);
istek:=BaseRequestMessageOf_ListOf_BildirimKayitIs tek.Create;
sonuc:=BaseResponseMessageOf_ListOf_BildirimKayitC evap.Create;
istek.istek := ArrayOfBildirimKayitIstek.Create;
sonuc.Sonuc:=ArrayOfBildirimKayitCevap.Create;
istek.Password:=Trim(AdvEdit2.Text);
istek.UserName:=Trim(AdvEdit1.Text);
istek.ServicePassword:=Trim(AdvEdit3.Text);
istk:=ArrayOfBildirimKayitIstek.Create;
istk.SetBildirimKayitIstekArrayLength(1);
istk.BildirimKayitIstekArray[0]:=BildirimKayitIstek.Create;
istk.BildirimKayitIstekArray[0].IkinciKisiBilgileri:=IkinciKisiBilgileriDTO.Creat e;
istk.BildirimKayitIstekArray[0].BildirimciBilgileri:=BildirimciBilgileriDTO.Creat e;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri:=BildirimMalBilgileriDTO.Cre ate;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri:=MalinGidecekYerBilgiler iDTO.Create;
istk.SetBildirimKayitIstekArray(0,istk.BildirimKay itIstekArray[0]);
istk.BildirimKayitIstekArray[0].UniqueId:='9902030309191022032019';
istk.BildirimKayitIstekArray[0].BildirimciBilgileri.KisiSifat:=5; // Komisyoncu
istk.BildirimKayitIstekArray[0].BildirimTuru:=197; // 197 satis 206 urtc sevk alim
istk.BildirimKayitIstekArray[0].IkinciKisiBilgileri.KisiSifat := AdvEdit15.IntValue;
istk.BildirimKayitIstekArray[0].IkinciKisiBilgileri.TcKimlikVergiNo:=AdvEdit5.Tex t;
istk.BildirimKayitIstekArray[0].IkinciKisiBilgileri.AdSoyad:='FERHAN';
istk.BildirimKayitIstekArray[0].IkinciKisiBilgileri.Eposta:='[email protected]';
istk.BildirimKayitIstekArray[0].IkinciKisiBilgileri.CepTel:='555';
istk.BildirimKayitIstekArray[0].IkinciKisiBilgileri.YurtDisiMi:=False;
istk.BildirimKayitIstekArray[0].ReferansBildirimKunyeNo:=StrToInt64(AdvEdit4.Text ); // referansiz bildirimlerde 0 gonder
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.UretimIlId:=AdvEdit6.IntValu e;;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.UretimIlceId:=AdvEdit7.IntVa lue;;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.UretimBeldeId:=AdvEdit12.Int Value;;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.MalinNiteligi:=1; // 1 yerli 2 ithal 3 toplama mal
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.MalinKodNo:=AdvEdit8.IntValu e;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.UretimSekli:=AdvEdit9.IntVal ue; // 28 glnksl 29 organik 30 iyi tarim
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.MalinCinsiId:=AdvEdit10.IntV alue;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.MiktarBirimId:=AdvEdit14.Int Value; // 73 adet 74 kg 76 bag
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.MalinMiktari:=100;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.MalinSatisFiyat:=0.500;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.GelenUlkeId:=AdvEdit13.IntVa lue;
istk.BildirimKayitIstekArray[0].BildirimMalBilgileri.AnalizeGonderilecekMi:=False ;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri.GidecekYerIsletmeTuruId: =AdvEdit11.IntValue;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri.GidecekIsyeriId:=AdvEdit 16.IntValue;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri.GidecekUlkeId:=AdvEdit13 .IntValue;;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri.GidecekYerIlId:=AdvEdit6 .IntValue;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri.GidecekYerIlceId:=AdvEdi t7.IntValue;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri.GidecekYerBeldeId:=AdvEd it12.IntValue;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri.BelgeNo:=AdvEdit20.Text;
istk.BildirimKayitIstekArray[0].MalinGidecekYerBilgileri.BelgeTipi:=208; // fatura
istek.Istek:=istk;
// EXIT;
sonuc:=servis.BildirimServisBildirimKaydet(istek);
Memo1.lines.Add(inttostr(sonuc.Sonuc[0].YeniKunyeNo);
end;
sonuc eşitleme işleminde değerlerden biri set edilemedi hatası alıyorum.
Hata detayı ise ;
Object reference not set to an instance of an object
Yardımlarınızı bekliyorum. Değerli tecrubelerinizle yardımcı olanlara şimdiden teşekkur ederim.
__________________
Webservis wsdl değer boş hatası
Programlama0 Mesaj
●27 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Webservis wsdl değer boş hatası