my $filename= $::form->{ATTACHMENTS}{file}{filename};
# check name and first fields of CSV data
die t8("Wrong file name, expects name like: DTVF_*_LOHNBUCHUNG*.csv") unless $filename =~ /^DTVF_.*_LOHNBUCHUNGEN_LUG.*\.csv$/;
- die t8("not a valid DTVF file, expected first field in A1 'DTVF'") unless ($::form->{file} =~ m/^"DTVF";/);
+ die t8("not a valid DTVF file, expected first field in A1 'DTVF'") unless ($::form->{file} =~ m/^('|")?DTVF/);
die t8("not a valid DTVF file, expected field header start with 'Umsatz; (..) ;Konto;Gegenkonto'")
unless ($::form->{file} =~ m/Umsatz;S\/H;;;;;Konto;Gegenkonto.*;;Belegdatum;Belegfeld 1;Belegfeld 2;;Buchungstext/);
# optional KOST1 - KOST2 ?
$department_name = $row->[36];
- $department = SL::DB::Manager::Department->get_first(description => { like => $department_name . '%' });
+ if ($department_name) {
+ $department = SL::DB::Manager::Department->get_first(where => [ description => { ilike => $department_name . '%' } ]);
+ }
my $amount = $::form->parse_amount({ numberformat => '1000,00' }, $row->[0]);