Revision 408a65ca
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
|
$uid = substr($uid, 2, 75);
|
||
|
|
||
|
$query = qq|INSERT INTO ap (invnumber, employee_id)
|
||
|
VALUES ('$uid', '$form->{employee}')|;
|
||
|
VALUES ('$uid', '$form->{employee_id}')|;
|
||
|
$dbh->do($query) || $form->dberror($query);
|
||
|
|
||
|
$query = qq|SELECT a.id FROM ap a
|
||
| bin/mozilla/ir.pl | ||
|---|---|---|
|
$lxdebug->enter_sub();
|
||
|
|
||
|
# set option selected
|
||
|
foreach $item (qw(AP vendor currency department employee)) {
|
||
|
foreach $item (qw(AP vendor currency department)) {
|
||
|
$form->{"select$item"} =~ s/ selected//;
|
||
|
$form->{"select$item"} =~
|
||
|
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
||
| ... | ... | |
|
<tr>
|
||
|
<th align="right">| . $locale->text('Employee') . qq|</th>
|
||
|
<td>| .
|
||
|
NTI($cgi->popup_menu('-name' => 'employee', '-default' => $form->{"employee"},
|
||
|
NTI($cgi->popup_menu('-name' => 'employee_id', '-default' => $form->{"employee_id"},
|
||
|
'-values' => \@values, '-labels' => \%labels)) . qq|
|
||
|
</td>
|
||
|
</tr>|;
|
||
| ... | ... | |
|
$form->error($locale->text("Invoice has already been storno'd!"));
|
||
|
}
|
||
|
|
||
|
my $employee_id = $form->{employee_id};
|
||
|
invoice_links();
|
||
|
prepare_invoice();
|
||
|
relink_accounts();
|
||
| ... | ... | |
|
$form->{id} = "";
|
||
|
$form->{invnumber} = "Storno zu " . $form->{invnumber};
|
||
|
$form->{rowcount}++;
|
||
|
&post();
|
||
|
$form->{employee_id} = $employee_id;
|
||
|
post();
|
||
|
$lxdebug->leave_sub();
|
||
|
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Beim Buchen von Eingangsrechnungen den ausgewählten Bearbeiter honorieren und speichern. Bugfix für 640.