Revision cbcbf5fa
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 3245 | 3245 |
return $var; |
| 3246 | 3246 |
} |
| 3247 | 3247 |
|
| 3248 |
=item update_business |
|
| 3249 |
|
|
| 3250 |
PARAMS (not named): |
|
| 3251 |
\%config, - config hashref |
|
| 3252 |
$business_id, - business id |
|
| 3253 |
$dbh - optional database handle |
|
| 3254 |
|
|
| 3255 |
handles business (thats customer/vendor types) sequences. |
|
| 3256 |
|
|
| 3257 |
special behaviour for empty strings in customerinitnumber field: |
|
| 3258 |
will in this case not increase the value, and return undef. |
|
| 3259 |
|
|
| 3260 |
=cut |
|
| 3248 | 3261 |
sub update_business {
|
| 3249 | 3262 |
$main::lxdebug->enter_sub(); |
| 3250 | 3263 |
|
| ... | ... | |
| 3261 | 3274 |
WHERE id = ? FOR UPDATE|; |
| 3262 | 3275 |
my ($var) = selectrow_query($self, $dbh, $query, $business_id); |
| 3263 | 3276 |
|
| 3277 |
return undef unless $var; |
|
| 3278 |
|
|
| 3264 | 3279 |
if ($var =~ m/\d+$/) {
|
| 3265 | 3280 |
my $new_var = (substr $var, $-[0]) * 1 + 1; |
| 3266 | 3281 |
my $len_diff = length($var) - $-[0] - length($new_var); |
Auch abrufbar als: Unified diff
Überraschend einfacher Fix für Numemrnkreisproblem in Kunden/Lieferantentypen.
Wenn ein Nummernkreis eines Kunden/Lieferantentyps leer ist, wird jetzt auf den STandardkreis ausgewichen.
Fix für Bug: 906