wrong zugferd bank account readed #18

LandrixSoftware · Oct 9, 2024 · 1d274d6 · 1d274d6
1 parent e55c267
commit 1d274d6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/intf.XRechnung.pas b/intf.XRechnung.pas
@@ -1390,11 +1390,11 @@ class function TZUGFeRDInvoiceAdapter.LoadFromInvoiceDescriptor(
   if _InvoiceDescriptor.PaymentMeans <> nil then
     _Invoice.AccountingSupplierParty.BankAssignedCreditorIdentifier := _InvoiceDescriptor.PaymentMeans.SEPACreditorIdentifier;
   //TODO Mehrere Bankverbindungen
-  if _InvoiceDescriptor.CreditorBankAccounts.Count > 0 then
+  if _InvoiceDescriptor.DebitorBankAccounts.Count > 0 then
   begin
-    _Invoice.PaymentFinancialAccount := _InvoiceDescriptor.CreditorBankAccounts[0].IBAN;
-    _Invoice.PaymentFinancialAccountName := _InvoiceDescriptor.CreditorBankAccounts[0].Name;
-    _Invoice.PaymentFinancialInstitutionBranch := _InvoiceDescriptor.CreditorBankAccounts[0].BIC;
+    _Invoice.PaymentFinancialAccount := _InvoiceDescriptor.DebitorBankAccounts[0].IBAN;
+    _Invoice.PaymentFinancialAccountName := _InvoiceDescriptor.DebitorBankAccounts[0].Name;
+    _Invoice.PaymentFinancialInstitutionBranch := _InvoiceDescriptor.DebitorBankAccounts[0].BIC;
   end;
 
   //TODO #SKONTO Type