Eylül 2023 – AHMET AYDINLIK

Delphi, Vcl
delphi, delphi json, delphi json okuma, JSON

11Eyl

Delphi Json veri Alma

Qr-code lar da oluşan verileri okumak için aşağıdaki kodlar yardımcı olacaktır

aşağıdaki örnek bir e-irsaliye de bulunan qr-code verisinin içindeki almak için örneklendirilmiştir

uses System.JSON;

procedure TForm3.Button1Click(Sender: TObject);
var
  jsonData: TJSONObject;
begin
  // JSON veriyi bir TJSONObject nesnesine çözümle
  jsonData := TJSONObject.ParseJSONValue(Memo1.Lines.Text) as TJSONObject;

  if Assigned(jsonData) then
  begin
    try
      // ettn değerini al
      edit1.Text := jsonData.GetValue('ettn').Value;
      edit2.Text := jsonData.GetValue('vkntckn').Value;
      edit3.Text := jsonData.GetValue('avkntckn').Value;
      edit4.Text := jsonData.GetValue('senaryo').Value;
      edit5.Text := jsonData.GetValue('tip').Value;
      edit6.Text := jsonData.GetValue('tarih').Value;
      edit7.Text := jsonData.GetValue('no').Value;
      edit8.Text := jsonData.GetValue('sevktarihi').Value;
      edit9.Text := jsonData.GetValue('sevkzamani').Value;
      edit10.Text := jsonData.GetValue('tasiyicivkn').Value;
      edit11.Text := jsonData.GetValue('plaka').Value;


    finally
      jsonData.Free;
    end;
  end
  else
  begin
    ShowMessage('JSON Verisi Çözümlenemedi.');
  end;
end;

Örnek Programı İndirmek için aşağıdaki bağlantıyı kullanınız

Kaynak Kodları İndir

E-DEVLET, EFATURA
e-adisyon, e-doviz, e-fatura, e-irsaliye, e-mm, e-smm, qr-code

6Eyl

E-FATURA ,E-ARŞİV ,E-İRSALİYE, E-MUHTAHSİL , E-SMM KAREKOD STANDARDI KILAVUZU

E-Belge lerde yer alması gereken qr-code ların için de bulunması gereken veriler

E-FATURA

Qr-Code Okutulunca Çıkacak Bilgiler Aşağıdaki Gibi Olmalıdır

{"vkntckn":"1111111111",
"avkntckn":"1111111111",
"senaryo":"TEMELFATURA",
"tip":"SATIS",
"tarih":"2022-08-17",
"no":"GIB2022000000001",
"ettn":"04e26a62-7c00-46d0-878c-6f7c60834525",
"parabirimi":"TRY",
"malhizmettoplam":"1000.00",
"kdvmatrah(8)":"1000.00",
"hesaplanankdv(8)":"80.00",
"vergidahil":"1080.00",
"odenecek":"1080.00"}

E-ARŞİV FATURA

{"vkntckn":"1111111111",
"avkntckn":"1111111111",
"senaryo":"EARSIVFATURA",
"tip":"SATIS",
"tarih":"2022-08-17",
"no":"GIB2022000000011",
"ettn":"04e26a62-7c00-45d0-968c-6f7c60834525",
"parabirimi":"TRY",
"malhizmettoplam":"500.00",
"kdvmatrah(8)":"500.00",
"hesaplanankdv (8)":"40.00",
"vergidahil":"540.00",
"odenecek":"540.00"}

E-İRSALİYE

{"vkntckn":"1111111111",
"avkntckn":"1111111111",
"senaryo":"TEMELIRSALIYE",
"tip":"SEVK",
"tarih":"2022-08-17",
"no":"IRS2022000000001",
"ettn":"04e35a51-7c00-45d0-968c-6f7c60834525",
"sevktarihi":"2022-08-17",
"sevkzamani":"09:32:13",
"tasiyicivkn":"1111111111",
"plaka":"06AA0606"}

E-SMM

{"vkntckn":"1111111111",
"avkntckn":"1111111111",
"tarih":"2022-08-17",
"no":"GIB2022000000001",
"ettn":"05e37a73-8c10-46d0-878c-6f7c60834525",
"parabirimi":"TRY",
"brutucret":"1000.00",
"tahsilkdv":"90.00",
"kdvtevkifat":"90.00",
"gvstopaj":"200.00",
"kdvtutari":"180.00",
"netucret":"800.00",
"tahsilat":"890.00"}

E-MM MUHTAHSİL

{"vkntckn":"1111111111",
"avkntckn":"1111111111",
"senaryo":"EARSIVBELGE",
"tip":"MUHTAHSILMAKBUZU",
"tarih":"2022-08-17",
"no":"GIB2022000000001",
"ettn":"04e35a62-7c00-45d0-968c-6f7c60834525",
"parabirimi":"TRY",
"malhizmettoplam":"5000.00",
"gvstopaj":"200.00",
"merafonu":"100.00",
"borsatescilucreti":92.00",
"sgkprimkesintisi":"100.00",
"odenecek":"4508.00"}

e-Sigorta Komisyon Gider Belgesi

{"vkntckn": "1234567890",
"avkntckn": "1234567890",
"senaryo": "EARSIVBELGE",
"tip": "SIGORTAKOMISYONGIDERBELGESI",
"tarih": "2022-03-17",
"no": "GIB2022000000001",
"ettn": "7ef629d7-5fea-4102-86d4-6620c963b071",
"parabirimi": "TRY",
"istihsalkomisyon": "50",
"iptalkomisyon": "40",
"toplamkomisyon": "10" }

e-Döviz ve Kıymetli Maden Alım Satım Belgesi

EDOVIZBELGE Senaryosunda;

{"vkntckn":"1111111111",
"avkntckn":"1111111111",
"senaryo":"EDOVIZBELGE",
"tip":"ALIM",
"tarih":"2022-08-17",
"no":"GIB2022000000001",
"ettn":"04e26a62-7c00-46d0-878c-6f7c60834525",
"miktari(EUR)":"100.00",
"uygulanankur":"18.6543",
"dovizkarsiligi":"98.00",
"tlkarsiligi":"1865.43",
"ödenecek(TRY)":"1865.43"}

EKIYMETLIMADENBELGE Senaryosunda;

{"vkntckn":"1111111111",
"avkntckn":"1111111111",
"senaryo":" EKIYMETLIMADENBELGE",
"tip":"ALIM",
"tarih":"2022-08-17",
"no":"GIB2022000000001",
"ettn":"04e26a62-7c00-46d0-878c-6f7c60834525",
"miktari(22C_XAU)":"5",
"birimfiyat":" 1754.38596",
"ödenecek(TRY)":"8775.00"}

e-Adisyon Belgesi

{"vkntckn":"1111111111",
"avkntckn":"1111111111",
"senaryo":"EARSIVBELGE",
"tip":"ADISYON",
"tarih":"2022-08-17",
"no":"GIB2022000000001",
"ettn":"04e26a62-7c00-46d0-878c-6f7c60834525",
"ödenecek(TRY)":"1080.00"}

Karekod_veya_Barkod_Standardi_Kilavuzu_V10-1_230817_150656 İndir

üsteki bağlantıdan bakanlığın yayınladığı klavuzu indirebilirsiniz

AHMET AYDINLIK

Aylık arşivler: Eylül 2023

Delphi Json veri Alma

E-FATURA ,E-ARŞİV ,E-İRSALİYE, E-MUHTAHSİL , E-SMM KAREKOD STANDARDI KILAVUZU