Medula fatura kayıt işlemlerinde faturaTeslimNo ya değer atayamadım.
Web serviste FaturaTeslimNo ;
property faturaTeslimNo: Array_Of_string Index (IS_UNBD or IS_UNQL) read FfaturaTeslimNo write FfaturaTeslimNo; şeklinde tanımlanmış.
Buna değer atayıp kullanamadım. Nasıl kullanılır onu da anlayamadım.
Yardımcı olabilecek olan varsa memnun olurum.
(Cemil Sunguray beyin yazdığı kodlar kullanılmıştır. Kendisine çok teşekkürler.)
Kod: Tümünü seç
procedure TForm2.Button3Click(Sender: TObject);
var
Giris: faturaIptalGirisDVO;
Sonuc: faturaIptalCevapDVO;
Servis: FaturaKayitIslemleri;
begin
Screen.Cursor := crSQLWait;
try
HTTPRIO1.WSDLLocation := faturaKayitIslemleriWS_URL;
HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName := EditTesisKodu.Text;
HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password := EditSifre.Text;
HTTPRIO1.HTTPWebNode.UseUTF8InHeader := True;
try
Servis := GetFaturaKayitIslemleri(False, FaturaKayitIslemleriWS_URL, HTTPRIO1);
Sonuc := nil;
Giris := faturaIptalGirisDVO.Create;
giris.saglikTesisKodu := StrToInt(EditTesisKodu.Text);
//EditTeslimNo daki teslim numarasını giris.faturaTeslimNo ya atayamadım!
giris.faturaTeslimNo ??????????????????? edit3.text;
SetSecurityHeader(Servis);
Sonuc := Servis.faturaIptal(giris);
if Sonuc.sonucKodu = '0000' then // Hata yoksa