Revision 5427e094
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub post_as_new {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
|
||
|
$main::auth->assert('ap_transactions');
|
||
|
|
||
|
$form->{postasnew} = 1;
|
||
|
# saving the history
|
||
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
||
|
# does this work? post_as_new for ap doesn't immediately save the
|
||
|
# invoice, because the invnumber has to be entered by hand.
|
||
|
# And the value of $form->{postasnew} isn't checked when calling post
|
||
|
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
||
|
$form->{addition} = "POSTED AS NEW";
|
||
|
$form->{what_done} = "invoice";
|
||
|
$form->save_history;
|
||
|
}
|
||
|
# /saving the history
|
||
|
&post;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub use_as_new {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| bin/mozilla/ar.pl | ||
|---|---|---|
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub post_as_new {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('ar_transactions');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
|
||
|
$form->{postasnew} = 1;
|
||
|
# saving the history
|
||
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
||
|
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
||
|
$form->{what_done} = "invoice";
|
||
|
$form->{addition} = "POSTED AS NEW";
|
||
|
$form->save_history;
|
||
|
}
|
||
|
# /saving the history
|
||
|
&post;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub use_as_new {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| bin/mozilla/gl.pl | ||
|---|---|---|
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub post_as_new {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('gl_transactions');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
|
||
|
$form->{id} = 0;
|
||
|
&add;
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
}
|
||
|
|
||
|
sub storno {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| bin/mozilla/io.pl | ||
|---|---|---|
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub post_as_new {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
|
||
|
_check_io_auth();
|
||
|
|
||
|
$form->{postasnew} = 1;
|
||
|
map { delete $form->{$_} } qw(printed emailed queued);
|
||
|
|
||
|
&post;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub relink_accounts {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
Auch abrufbar als: Unified diff
ap/ar/gl/io.pl: nicht benutzte Routine post_as_new entfernt