SEPA Komponente gesucht

[arnof]

Bugmeldung und Behebung:

hallo, leider ist mir ein kleiner Käfer unterlaufen in der Komponente, wenn man mehrere Belege (Sammler) ausführt.

Hier wurden Abschlußtags innerhalb der Belegscheife ausgegeben, dies muss nach der Schleife passieren.

in der Datei AFS_SEPA.PAS ab Zeile 750 ist wie folgt zu ändern (verschieben):

Code:

  //
  // noch ein Beleg?
  //
  dec(Beleg);
  if Beleg>-1 then mSepa:=S_Sepa[Beleg];
 end; // Belege while end
 //
 result:= result+'    </PmtInf>'+Zeile;
 if Art in [0] then begin        // Überweisung
  result:=result+'  </CstmrCdtTrfInitn>'+Zeile;;
 end;
 if Art in [10,11] then begin   // Lastschrift
  result:=result+'  </CstmrDrctDbtInitn>'+Zeile;
 end;

Also das </PmtInf> und </CstmrDrctDbtInitn> muss hinter dem While end ausgegeben werden.