Revision d5642bca
Von Jan Büren vor etwa 3 Jahren hinzugefügt
| SL/Controller/PayPostingImport.pm | ||
|---|---|---|
| 28 | 28 |
my $filename= $::form->{ATTACHMENTS}{file}{filename};
|
| 29 | 29 |
# check name and first fields of CSV data |
| 30 | 30 |
die t8("Wrong file name, expects name like: DTVF_*_LOHNBUCHUNG*.csv") unless $filename =~ /^DTVF_.*_LOHNBUCHUNGEN_LUG.*\.csv$/;
|
| 31 |
die t8("not a valid DTVF file, expected first field in A1 'DTVF'") unless ($::form->{file} =~ m/^"DTVF";/);
|
|
| 31 |
die t8("not a valid DTVF file, expected first field in A1 'DTVF': ") unless ($::form->{file} =~ m/^('|")?DTVF/);
|
|
| 32 | 32 |
die t8("not a valid DTVF file, expected field header start with 'Umsatz; (..) ;Konto;Gegenkonto'")
|
| 33 | 33 |
unless ($::form->{file} =~ m/Umsatz;S\/H;;;;;Konto;Gegenkonto.*;;Belegdatum;Belegfeld 1;Belegfeld 2;;Buchungstext/);
|
| 34 | 34 |
|
Auch abrufbar als: Unified diff
PPI: Auch escapte DTVF Namen erkennen
Scheinbar kann die Kopfzeile des CSV-Format noch Hochkommatas enthalten
oder ggf. wurde diese mit einer Tabellenkalkulation geöffnet.