Web Servis (WDSL) veri çekmeye çalışıyorum

[KUNTAY]

Web servis dökümanında örnek olarak fatura kayıtlarını çekmek için bir örnek vermişler bu örnek ve WDSL import ettiğim şekle göre. 


 Döküman da verilen örnek :

Kod: (Select All)

SalesPurchase sService=new SalesPurchase();
InvoiceSearchParameter sSearchParam=new InvoiceSearchParameter();
sSearchParam.InvoiceNumber =”1234567”;
SalesPurchaseService.InvoiceParameter[] sParams= sService.SalesInvoiceSearch (sSearchParam,”Authorization_Key_Değeri”, ”Active_Company_Kodu”,”Active_Branch_Kodu”);

  Kendi Yazdığım Delphi 10.4 kodlarım :

Kod: (Select All)

var
SearchParam : InvoiceSearchParameter;
Fatura_List : ArrayOfInvoiceParameter2;
ilktarih,sontarih : TXSDateTime;

begin

ilktarih:=TXSDateTime.Create;
sontarih:=TXSDateTime.Create;
ilktarih.AsDateTime:=StrToDate('01.01.2022');
sontarih.AsDateTime:=StrToDate('31.01.2022');
SearchParam.BeginDate:=ilktarih;
SearchParam.EndDate:=sontarih;
Fatura_List:= GetSalesPurchaseSoap.SalesInvoiceSearch(SearchParam, Key, 'XXXX','XXXXX');

end;

Çalıştırınca hata alıyorum direk. istediğim fatura_list dizesine faturaları eklemek.

Aşağıda WDSL importtan gelen değerler.

Kod: (Select All)

function  SalesInvoiceSearch(const SearchParameter: InvoiceSearchParameter; const AuthorizationKey: string; const ActiveCompany: string; const ActiveBranch: string): ArrayOfInvoiceParameter2; stdcall;

Kod: (Select All)

// ************************************************************************ //
 // XML       : InvoiceSearchParameter, global, <complexType>
 // Namespace : http://tempuri.org/
 // ************************************************************************ //
 InvoiceSearchParameter = class(InvoiceParameter2)
 private
   FBeginDate: TXSDateTime;
   FEndDate: TXSDateTime;
   FBeginDateTime: TXSDateTime;
   FEndDateTime: TXSDateTime;
   FBeginDocumentDate: TXSDateTime;
   FEndDocumentDate: TXSDateTime;
 public
   destructor Destroy; override;
 published
   property BeginDate:         TXSDateTime  Index (IS_NLBL) read FBeginDate write FBeginDate;
   property EndDate:           TXSDateTime  Index (IS_NLBL) read FEndDate write FEndDate;
   property BeginDateTime:     TXSDateTime  Index (IS_NLBL) read FBeginDateTime write FBeginDateTime;
   property EndDateTime:       TXSDateTime  Index (IS_NLBL) read FEndDateTime write FEndDateTime;
   property BeginDocumentDate: TXSDateTime  Index (IS_NLBL) read FBeginDocumentDate write FBeginDocumentDate;
   property EndDocumentDate:   TXSDateTime  Index (IS_NLBL) read FEndDocumentDate write FEndDocumentDate;
 end;

 ArrayOfInvoiceParameter2 = array of InvoiceParameter2;   { "http://tempuri.org/"[GblCplx] }
 ArrayOfInvoiceParameter =  type ArrayOfInvoiceParameter2;      { "http://tempuri.org/"[GblElm] }

Kod: (Select All)

// ************************************************************************ //
 // XML       : InvoiceParameter, global, <complexType>
 // Namespace : http://tempuri.org/
 // ************************************************************************ //
 InvoiceParameter2 = class(BaseParameter)
 private
   FLines: ArrayOfInvoiceLineParameter;
   FLines_Specified: boolean;
   FDiscounts: ArrayOfInvoiceDiscountParameter;
   FDiscounts_Specified: boolean;
   FRefDocuments: ArrayOfInvoiceRefDocumentParameter;
   FRefDocuments_Specified: boolean;
   FDiscountItemDetails: ArrayOfInvoiceDiscountItemDetailParameter;
   FDiscountItemDetails_Specified: boolean;
   FPaymentPlans: ArrayOfInvoicePaymentPlanParameter;
   FPaymentPlans_Specified: boolean;
   FDiscountPrints: ArrayOfInvoiceDiscountPrintParameter;
   FDiscountPrints_Specified: boolean;
   FProgressPayments: InvoiceProgressPaymentParameter;
   FProgressPayments_Specified: boolean;
   FInvoiceNumber: string;
   FInvoiceNumber_Specified: boolean;

   Çok uzun bir liste burada kestim ben..

[3ddark]

Ne hatası aldığını yazmamışsın. Ayrıca gördüğüm kadarıyla SearchParam : InvoiceSearchParameter; sınıfını create etmemişsin bundan olabilir mi?
SearchParam := InvoiceSearchParameter.Create(); gibi

[KUNTAY]

(31-01-2022, Saat: 08:54)3ddark Adlı Kullanıcıdan Alıntı: Ne hatası aldığını yazmamışsın. Ayrıca gördüğüm kadarıyla SearchParam : InvoiceSearchParameter; sınıfını create etmemişsin bundan olabilir mi?
SearchParam := InvoiceSearchParameter.Create(); gibi

Sınıfı create edince çalıştı, 
 
dizeye verileri çekmeyi başardımmı onuda bilmiyorum bir hata almıyorum

test etmek için 

Kod: (Select All)

Edit1.Text:=Fatura_List[0].InvoiceNumber;

   

access vialation şeklinde bir hata alıyorum.

[3ddark]

Dönen sonucunuzu (Fatura_List) debug edin. Inspect ile bakın bence birşeyler geliyor fakat farklı erişim kısmında sorununuz olabilir veya tip hatanız olabilir.
Sonuç içinde hata mesajı veya uyarı gönderilmiş olabilir. InvoiceParameter2 -> BaseParameter sınıfından miras almış. Belki sunucu yanıtı bu BaseParameter içinde ortak olan mesaj hata uyarıları gönderiyor olabilir.

En uygunu sizin bunu Debug ile gelen sonucu ayrıntılı olarak incelemenizdir.

[KUNTAY]

(01-02-2022, Saat: 08:27)3ddark Adlı Kullanıcıdan Alıntı: Dönen sonucunuzu (Fatura_List) debug edin. Inspect ile bakın bence birşeyler geliyor fakat farklı erişim kısmında sorununuz olabilir veya tip hatanız olabilir.
Sonuç içinde hata mesajı veya uyarı gönderilmiş olabilir. InvoiceParameter2 -> BaseParameter sınıfından miras almış. Belki sunucu yanıtı bu BaseParameter içinde ortak olan mesaj hata uyarıları gönderiyor olabilir.

En uygunu sizin bunu Debug ile gelen sonucu ayrıntılı olarak incelemenizdir.

Debug edip Inspect ile bakınca boş  Evaluate ile bakınca 0 değeri var. 

Baseparameter  bu sınıftan miras almış ama ben bu sınıfı nasıl kontrol edebilirim fatura_list bomboş geliyor.

Kod: (Select All)

 BaseParameter = class(TRemotable)
 private
   FRecordState: string;
   FRecordState_Specified: boolean;
   FCode: string;
   FCode_Specified: boolean;
   FDescription1: string;
   FDescription1_Specified: boolean;
   FBranchId: string;
   FBranchId_Specified: boolean;
   FCompanyId: string;
   FCompanyId_Specified: boolean;
   FCreatedDateTime: TXSDateTime;
   procedure SetRecordState(Index: Integer; const Astring: string);
   function  RecordState_Specified(Index: Integer): boolean;
   procedure SetCode(Index: Integer; const Astring: string);
   function  Code_Specified(Index: Integer): boolean;
   procedure SetDescription1(Index: Integer; const Astring: string);
   function  Description1_Specified(Index: Integer): boolean;
   procedure SetBranchId(Index: Integer; const Astring: string);
   function  BranchId_Specified(Index: Integer): boolean;
   procedure SetCompanyId(Index: Integer; const Astring: string);
   function  CompanyId_Specified(Index: Integer): boolean;
 public
   destructor Destroy; override;
 published
   property RecordState:     string       Index (IS_OPTN) read FRecordState write SetRecordState stored RecordState_Specified;
   property Code:            string       Index (IS_OPTN) read FCode write SetCode stored Code_Specified;
   property Description1:    string       Index (IS_OPTN) read FDescription1 write SetDescription1 stored Description1_Specified;
   property BranchId:        string       Index (IS_OPTN) read FBranchId write SetBranchId stored BranchId_Specified;
   property CompanyId:       string       Index (IS_OPTN) read FCompanyId write SetCompanyId stored CompanyId_Specified;
   property CreatedDateTime: TXSDateTime  Index (IS_NLBL) read FCreatedDateTime write FCreatedDateTime;
 end;

[3ddark]

Dışarıdan küçük bir kod parçası üzerinden yorum yapması zor. Ama hatasız sonuç alıyorsanız.
Parametre kısmında hatanız veya girdiğiniz parametreye uyan sunucu tarafından kayıt olmayabilir.
Tarih formatını sunucu farklı kullanıyor olabilir.
Ayrıca sunucu üzerinden bildiğiniz bir kaydı fatura numarası ile çağırın.

Bunun için SOAP Servis dokümanı varsa bunu iyice okuyun.

[KUNTAY]

(02-02-2022, Saat: 08:07)3ddark Adlı Kullanıcıdan Alıntı: Dışarıdan küçük bir kod parçası üzerinden yorum yapması zor. Ama hatasız sonuç alıyorsanız.
Parametre kısmında hatanız veya girdiğiniz parametreye uyan sunucu tarafından kayıt olmayabilir.
Tarih formatını sunucu farklı kullanıyor olabilir.
Ayrıca sunucu üzerinden bildiğiniz bir kaydı fatura numarası ile çağırın.

Bunun için SOAP Servis dokümanı varsa bunu iyice okuyun.

Bende sizinle aynı fikirdeyim şuan acaba girdiğim paramatredeki tarih de bir hata var ve boş kayıt mı dönüyor bana diye düşündüm. 

bu gün firmadan fatura numrası alıp dediğiniz gibi bir test yapacağım sonuç gelirse parametre değerlerinde bir hata yapıyor olabilirim. 

SAP programı üzerinde işlem yapan bir web servis bu parametre hatası olabilir dediğiniz gibi.

[mkysoft]

SAP tarafinda tarih formati genelde 2022-02-03 seklindedir, bazen de direk 20220203 seklinde yayinlanir.

[KUNTAY]

(02-02-2022, Saat: 08:07)3ddark Adlı Kullanıcıdan Alıntı: Dışarıdan küçük bir kod parçası üzerinden yorum yapması zor. Ama hatasız sonuç alıyorsanız.
Parametre kısmında hatanız veya girdiğiniz parametreye uyan sunucu tarafından kayıt olmayabilir.
Tarih formatını sunucu farklı kullanıyor olabilir.
Ayrıca sunucu üzerinden bildiğiniz bir kaydı fatura numarası ile çağırın.

Bunun için SOAP Servis dokümanı varsa bunu iyice okuyun.

Direk bir fatura numarası ile veri çekmeyi denedim hata vermiyor ama kaydın içi boş geliyor. 
Servis adresi incelmek isterseniz : https://vp.golfdondurma.com.tr/SAASWebSe...chase.asmx

Kod: (Select All)

var
SParams : InvoiceParameter2;
begin

SParams := InvoiceParameter.Create;
SParams := GetSalesPurchaseSoap.SalesGet('2022020111588959', Key, 'XXXXX','XXXX');
Edit2.Text := sparams.InvoiceNumber;
end;

yukarıdaki tek fatura kaydı sorgulamak için servis dökümanında yazan 

SalesGet() fonksiyonu ise, parametre olarak fatura numarası, AuthorizationKey, ActiveCompany ve ActiveBranch parametrelerini almaktadır. Bu fonksiyon, sadece fatura numarası ile arama yapılabildiği için tek bir satış verisini tutan InvoiceParameter classı döndürmektedir. 

Örnek Kod: 
SalesPurchase sService=new SalesPurchase(); 
SalesPurchaseService.InvoiceParameter iParam= sService. SalesGet(“Verisi_Aranacak_Satış_Verisi_Fatura_Numarası”,”Authorization_Key_Değeri”, ”Active_Company_Kodu”,”Active_Branch_Kodu”);