Revision 0fee52dd
Von Sven Schöling vor fast 18 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
|
}
|
||
|
|
||
|
sub follow_account_chain {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub(2);
|
||
|
|
||
|
my ($self, $form, $dbh, $transdate, $accno_id, $accno) = @_;
|
||
|
|
||
| ... | ... | |
|
push(@visited_accno_ids, $accno_id);
|
||
|
}
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub(2);
|
||
|
|
||
|
return ($accno_id, $accno);
|
||
|
}
|
||
|
|
||
|
sub retrieve_accounts {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub(2);
|
||
|
|
||
|
my ($self, $myconfig, $form, $parts_id, $index, $copy_accnos) = @_;
|
||
|
|
||
| ... | ... | |
|
|
||
|
if (!$ref) {
|
||
|
$dbh->disconnect();
|
||
|
return $main::lxdebug->leave_sub();
|
||
|
return $main::lxdebug->leave_sub(2);
|
||
|
}
|
||
|
|
||
|
$ref->{"inventory_accno_id"} = undef unless ($ref->{"is_part"});
|
||
| ... | ... | |
|
$dbh->disconnect();
|
||
|
|
||
|
unless ($ref) {
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub(2);
|
||
|
return;
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
# " || taxaccounts_$index " . $form->{"taxaccounts_$index"} .
|
||
|
# " || taxaccounts " . $form->{"taxaccounts"});
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub(2);
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
2 Funktionen auf trace level 2 gesetzt