Revision 30783388
| SL/BackgroundJob/SetBankAccountsMasterData.pm | ||
|---|---|---|
| 51 | 51 |
sub _get_bank_data_vc {
|
| 52 | 52 |
my (%params) = @_; |
| 53 | 53 |
|
| 54 |
die "Need valid vc param, got:" . $params{vc} unless $params{vc} && $params{vc} =~ /^(customer|vendor)$/;
|
|
| 55 |
die "Need valid months param, got:" . $params{months} unless $params{months} && $params{months} =~ /^[1-9][0-9]*$/;
|
|
| 54 |
die "Need a defined value for params(vc)" unless $params{vc};
|
|
| 55 |
die "Need a defined value for params(months)" unless $params{months};
|
|
| 56 |
|
|
| 57 |
die "Need valid vc param, got:" . $params{vc} unless $params{vc} =~ /^(customer|vendor)$/;
|
|
| 58 |
die "Need valid months param, got:" . $params{months} unless $params{months} =~ /^[1-9][0-9]*$/;
|
|
| 56 | 59 |
|
| 57 | 60 |
my $vc_id = $params{vc} . '_id';
|
| 58 | 61 |
|
Auch abrufbar als: Unified diff
parameter auf undef prüfen und danach erst auf den richtigen wert