Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ENTEGRATOR ile E-FATURA (elektronik dönüşüm) UYGULAMASI
#31
(09-04-2021, Saat: 12:49)MuhammedYasir Adlı Kullanıcıdan Alıntı: Arkadaşlar gelen faturaların arşivle/çıkar, okundu/okunmadı, kabul/red ve faturayı aktarma gibi çalışma yapanımız oldu mu?
Bu konuda var ise örnek kodlarınızı rica ediyorum.


OskeQ8.jpg

Bu kısmı yaptım, ilerleyen günlerde kodlarını da paylaşacağım.

qMUsQ1.jpg
Cevapla
#32
Merhaba arkadaşlar.
Hızlı Bilişimin efatura web servisini kullanırken bir noktaya takıldım:

CevapKontrol := Servis.SendApplicationResponse( ... ) 
Bu kodun içeriğini nasıl dolduracağım?
Servisin ilgili bölümlerinin kodlarıda şunlar:

// Fatura Red-Kabul
   function  SendApplicationResponse(
               const sendApplicationResponse: SendApplicationResponse2):
               ResponseMessage2; stdcall;

SendApplicationResponse2 = class(TRemotable)
 private
   FAppType: Integer;
   FAppType_Specified: boolean;
   FDocuments: ArrayOfApplicationReponseDocumentInfo;
   FDocuments_Specified: boolean;
   FResponseCode: string;
   FResponseCode_Specified: boolean;
   FResponseDescription: string;
   FResponseDescription_Specified: boolean;
   procedure SetAppType(Index: Integer; const AInteger: Integer);
   function  AppType_Specified(Index: Integer): boolean;
   procedure SetDocuments(Index: Integer; const AArrayOfApplicationReponseDocumentInfo: ArrayOfApplicationReponseDocumentInfo);
   function  Documents_Specified(Index: Integer): boolean;
   procedure SetResponseCode(Index: Integer; const Astring: string);
   function  ResponseCode_Specified(Index: Integer): boolean;
   procedure SetResponseDescription(Index: Integer; const Astring: string);
   function  ResponseDescription_Specified(Index: Integer): boolean;

Servis Dökümanı

Yardımcı olabilirseniz memnun olurum.
Cevapla
#33
Bu başlığın altına artık kimse cevap yazmıyor Sad
Cevapla
#34
Cevap yaziliyor ancak sorunuz pascaldan daha cok kullandiniz ozel entegratore ozgu bir soru. Kodlar elinizdeyse zaten hangi tipte veri kabul ettigini gorebilirsiniz koddan. Tavsiyem ozel entegratore ozgu yapilari kullanmayin. Ticari cevap verecekseniz xml'i sizin olusuturup gonderebileceginiz metodu tercih edin. Bu ileride ozel entegratoru degistirmenizi kolaylasitirir.
Cevapla
#35
(16-04-2021, Saat: 10:04)MuhammedYasir Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar.
Hızlı Bilişimin efatura web servisini kullanırken bir noktaya takıldım:

CevapKontrol := Servis.SendApplicationResponse( ... ) 
Bu kodun içeriğini nasıl dolduracağım?
Servisin ilgili bölümlerinin kodlarıda şunlar:

// Fatura Red-Kabul
   function  SendApplicationResponse(
               const sendApplicationResponse: SendApplicationResponse2):
               ResponseMessage2; stdcall;

SendApplicationResponse2 = class(TRemotable)
 private
   FAppType: Integer;
   FAppType_Specified: boolean;
   FDocuments: ArrayOfApplicationReponseDocumentInfo;
   FDocuments_Specified: boolean;
   FResponseCode: string;
   FResponseCode_Specified: boolean;
   FResponseDescription: string;
   FResponseDescription_Specified: boolean;
   procedure SetAppType(Index: Integer; const AInteger: Integer);
   function  AppType_Specified(Index: Integer): boolean;
   procedure SetDocuments(Index: Integer; const AArrayOfApplicationReponseDocumentInfo: ArrayOfApplicationReponseDocumentInfo);
   function  Documents_Specified(Index: Integer): boolean;
   procedure SetResponseCode(Index: Integer; const Astring: string);
   function  ResponseCode_Specified(Index: Integer): boolean;
   procedure SetResponseDescription(Index: Integer; const Astring: string);
   function  ResponseDescription_Specified(Index: Integer): boolean;

Servis Dökümanı

Yardımcı olabilirseniz memnun olurum.

Sorunu şu kod ile çözdüm, benden sonrakilerin ihtiyacı olur düşüncesi ile paylaşıyorum:
Var
 Sorgu : SendApplicationResponse2;
 CevapKodu: string;
 ResponseDescription: string;
 Dokuman : ArrayOfApplicationReponseDocumentInfo;
 Tarih : TXSDateTime;
begin
 if  CekilenVeriTablosu.RecordCount>0 then
 Begin
   if CekilenVeriTablosuStatus.AsInteger = 4 then
     CevapKodu :='KABUL' else CevapKodu :='RED';

   Tarih := TXSDateTime.Create;
   Tarih.AsDateTime := CekilenVeriTablosuIssueDate.AsDateTime;

   Setlength(Dokuman, 1);
   Dokuman[0] := ApplicationReponseDocumentInfo2.Create;
   Dokuman[0].DocumentDate := Tarih;
   Dokuman[0].DocumentId := CekilenVeriTablosuDocumentId.AsString;
   Dokuman[0].DocumentUUID := CekilenVeriTablosuUUID.AsString;

   Sorgu := SendApplicationResponse2.Create;
   Sorgu.AppType := CekilenVeriTablosuAppType.AsInteger;
   sorgu.ResponseCode := CevapKodu;
   Sorgu.ResponseDescription := '... Sebebi';
   Sorgu.Documents := Dokuman;

   CevapKontrol := Servis.SendApplicationResponse(Sorgu);
   ShowMessage(CevapKontrol.Message_);
end;
Cevapla
#36
(13-04-2021, Saat: 06:52)MuhammedYasir Adlı Kullanıcıdan Alıntı:
(09-04-2021, Saat: 12:49)MuhammedYasir Adlı Kullanıcıdan Alıntı: Arkadaşlar gelen faturaların arşivle/çıkar, okundu/okunmadı, kabul/red ve faturayı aktarma gibi çalışma yapanımız oldu mu?
Bu konuda var ise örnek kodlarınızı rica ediyorum.


OskeQ8.jpg

Bu kısmı yaptım, ilerleyen günlerde kodlarını da paylaşacağım.

qMUsQ1.jpg

Bu kısmın çözebildiğim kodları:

Var
 Servis: IHizliService;
 RIO: THTTPRIO;
 CevapKontrol: ResponseMessage2;
 isaretturu: String;
 isaretturudeger: integer;
 islemturu : integer;
 FaturaNo: string;

begin
 MemoLog.Lines.Clear;

 DMislemler.HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName :=
   DMHizli.FQHizliKULLANICI.AsString;
 DMislemler.HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password :=
   DMHizli.FQHizliSIFRE.AsString;
 Servis := GetIHizliService(false, DMHizli.FQHizliSERVIS.AsString,
   DMislemler.HTTPRIO1);

 FaturaNo := VTGonderilenlerEnvelopeUUID.AsString;
 islemturu := VTGonderilenlerAppType.AsInteger;

 if Cbxislemler.Text = 'OKUNDU' then
 Begin
   isaretturu := 'OKUNDU';
   isaretturudeger := 1;
 End
 else if Cbxislemler.Text = 'OKUNMADI' then
 Begin
   isaretturu := 'OKUNDU';
   isaretturudeger := 0;
 End
 else if Cbxislemler.Text = 'ARSIVLENDI' then
 Begin
   isaretturu := 'ARSIVLENDI';
   isaretturudeger := 1;
 End
 else if Cbxislemler.Text = 'ARSIVLENMEDI' then
 Begin
   isaretturu := 'ARSIVLENDI';
   isaretturudeger := 0;
 End
 else if Cbxislemler.Text = 'AKTARILDI' then
 Begin
   isaretturu := 'AKTARILDI';
   isaretturudeger := 1;
 End
 else if Cbxislemler.Text = 'AKTARILMADI' then
 Begin
   isaretturu := 'AKTARILDI';
   isaretturudeger := 0;
 End
 else if Cbxislemler.Text = 'YAZDIRILDI' then
 Begin
   isaretturu := 'YAZDIRILDI';
   isaretturudeger := 1;
 End
 else if Cbxislemler.Text = 'YAZDIRILMADI' then
 Begin
   isaretturu := 'YAZDIRILDI';
   isaretturudeger := 0;
 End
 else if Cbxislemler.Text = 'TASLAK' then
 Begin
   isaretturu := 'TASLAKIPTAL';
   isaretturudeger := 1;
 End
 else if Cbxislemler.Text = 'TASLAKIPTAL' then
 Begin
   isaretturu := 'TASLAKIPTAL';
   isaretturudeger := 0;
 End
 else if Cbxislemler.Text = 'MUHASEBELESTIRILDI' then
 Begin
   isaretturu := 'MUHASEBELESTIRILDI';
   isaretturudeger := 1;
 End
 else if Cbxislemler.Text = 'MUHASEBELESTIRILMEDI' then
 Begin
   isaretturu := 'MUHASEBELESTIRILDI';
   isaretturudeger := 0;
 End;

 CevapKontrol := Servis.SetDocumentFlag(islemturu, FaturaNo, isaretturu,
   isaretturudeger);
end;
Cevapla
#37
(05-04-2021, Saat: 23:06)MuhammedYasir Adlı Kullanıcıdan Alıntı: Mehmet Hocam @guverdik,
Gelen faturaların stok adı, birim fiyat vb. gibi satır detaylarını gösteren bir örneğimiz var mı?
Bilgilendirirseniz memnun olurum.

Gelen e-Fatura detaylarını XML dosyasını çekerek TXMLDocument  ile mi almalıyım, yoksa başka bir yöntem mi kullanmalıyım?
Sizler nasıl yapıyorsunuz?
Cevapla
#38
(05-05-2021, Saat: 02:42)MuhammedYasir Adlı Kullanıcıdan Alıntı:
(05-04-2021, Saat: 23:06)MuhammedYasir Adlı Kullanıcıdan Alıntı: Mehmet Hocam @guverdik,
Gelen faturaların stok adı, birim fiyat vb. gibi satır detaylarını gösteren bir örneğimiz var mı?
Bilgilendirirseniz memnun olurum.

Gelen e-Fatura detaylarını XML dosyasını çekerek TXMLDocument  ile mi almalıyım, yoksa başka bir yöntem mi kullanmalıyım?
Sizler nasıl yapıyorsunuz?

Hayır @MuhammedYasir bey o kadar ileri giden bir uygulama yazmadım. Ama siz gerçekten epey yol kat ettiniz ve paylaştınız ellerinize sağlık.
Teknik Öğretmen
Bilgisayar Formatörü
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Multi Device uygulaması ile WEB SİTE'sinin html içerik bilgisini almak guverdik 0 159 24-04-2021, Saat: 11:59
Son Yorum: guverdik
  eFatura Entegratör Firmaları MuhammedYasir 6 768 05-04-2021, Saat: 21:41
Son Yorum: MuhammedYasir
  Fastreport e-fatura dizaynı yapmak btnClick 4 1.406 16-10-2020, Saat: 14:12
Son Yorum: delphicim
  Delphi ile e-Fatura Entegrasyon guverdik 37 11.065 29-06-2020, Saat: 21:04
Son Yorum: engerex
  Microsoft Outlook Takvim Uygulaması itsmylife38 2 1.337 05-12-2019, Saat: 16:08
Son Yorum: itsmylife38



Konuyu Okuyanlar: 1 Ziyaretçi