X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FHelper%2FMT940.pm;h=63f637eed56b31ef213574253e5f8971dd19ee80;hb=14d905e5a6bdc95c13bf7575deb5f79f6e34fb2c;hp=b4d7fe5b37a3840786b2f51228eeb795501ee60b;hpb=14304a6a27f1057646fc088364fd4625c24860dd;p=kivitendo-erp.git diff --git a/SL/Helper/MT940.pm b/SL/Helper/MT940.pm index b4d7fe5b3..63f637eed 100644 --- a/SL/Helper/MT940.pm +++ b/SL/Helper/MT940.pm @@ -26,7 +26,7 @@ sub convert_mt940_data { my $converted_data = '"empty";"local_bank_code";"local_account_number";"remote_bank_code";"remote_account_number";"transdate";"valutadate";"amount";'. '"currency";"remote_name";"remote_name_1";"purpose";"purpose1";"purpose2";"purpose3";"purpose4";"purpose5";"purpose6";"purpose7";"purpose8";"purpose9";'. - '"purpose10";"purpose11";"transactionKey";"customerReference";"bankReference";"transactionCode";"transactionText"'."\n"; + '"purpose10";"purpose11";"transaction_key";"customer_reference";"bank_reference";"transaction_code";"transaction_text"'."\n"; open my $mt, "-|", "$cmd" || die "Problem with executing aqbanking\n"; my $headerline = <$mt>; # discard original aqbanking header line