Revision 21d995a6
Von Jan Büren vor mehr als 4 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 1448 | 1448 |
|
| 1449 | 1449 |
|
| 1450 | 1450 |
sub check_valid_length_of_accounts {
|
| 1451 |
my ($self) = @_; |
|
| 1451 |
my ($self, %params) = @_;
|
|
| 1452 | 1452 |
|
| 1453 | 1453 |
my $query = <<"SQL"; |
| 1454 | 1454 |
SELECT DISTINCT char_length (accno) FROM chart WHERE charttype='A' AND id in (select chart_id from acc_trans); |
| ... | ... | |
| 1460 | 1460 |
" Mismatch length of #1 with length of #2. Please check your account settings. ", |
| 1461 | 1461 |
$accno_length->[0]->{char_length}, $accno_length->[1]->{char_length}));
|
| 1462 | 1462 |
} |
| 1463 |
return 1; |
|
| 1463 |
return $params{return_length} ? $accno_length->[0]->{char_length} : 1;
|
|
| 1464 | 1464 |
} |
| 1465 | 1465 |
|
| 1466 | 1466 |
sub DESTROY {
|
Auch abrufbar als: Unified diff
Erweiterung Rückgabewert bei Nummernkreislänge um wirkliche Stellenlänge
Bei der Prüfung auf einen gültigen Sachkontennummernkreis alternativ
die Stellen des Nummernkreis (4,5 oder 6) zurückgeben