Revision 38aac441
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| bin/mozilla/bp.pl | ||
|---|---|---|
| 59 | 59 |
if ($form->{type} && $access_map{$form->{type}}) {
|
| 60 | 60 |
$main::auth->assert($access_map{$form->{type}});
|
| 61 | 61 |
|
| 62 |
} elsif ($form->{type} eq 'packing_list') {
|
|
| 63 |
$main::lxdebug->message(0, "1"); |
|
| 64 |
if (!$main::auth->assert('sales_order_edit', 1)) {
|
|
| 65 |
$main::lxdebug->message(0, "2"); |
|
| 66 |
$main::auth->assert('invoice_edit') ;
|
|
| 67 |
} |
|
| 68 |
$main::lxdebug->message(0, "3"); |
|
| 69 |
|
|
| 70 | 62 |
} else {
|
| 71 | 63 |
$main::auth->assert('DOES_NOT_EXIST');
|
| 72 | 64 |
} |
| ... | ... | |
| 84 | 76 |
assert_bp_access(); |
| 85 | 77 |
|
| 86 | 78 |
# $locale->text('Sales Invoices')
|
| 87 |
# $locale->text('Packing Lists')
|
|
| 88 | 79 |
# $locale->text('Sales Orders')
|
| 89 | 80 |
# $locale->text('Purchase Orders')
|
| 90 | 81 |
# $locale->text('Quotations')
|
| ... | ... | |
| 109 | 100 |
my %label = ( |
| 110 | 101 |
invoice => |
| 111 | 102 |
{ title => 'Sales Invoices', name => 'Customer', l_invnumber => 'Y' },
|
| 112 |
packing_list => |
|
| 113 |
{ title => 'Packing Lists', name => 'Customer', l_invnumber => 'Y' },
|
|
| 114 | 103 |
sales_order => |
| 115 | 104 |
{ title => 'Sales Orders', name => 'Customer', l_ordnumber => 'Y' },
|
| 116 | 105 |
purchase_order => |
| ... | ... | |
| 148 | 137 |
</tr> |
| 149 | 138 |
|; |
| 150 | 139 |
|
| 151 |
$label{packing_list}{invnumber} = $label{invoice}{invnumber};
|
|
| 152 |
$label{packing_list}{ordnumber} = $label{invoice}{ordnumber};
|
|
| 153 | 140 |
$label{sales_order}{ordnumber} = $label{invoice}{ordnumber};
|
| 154 | 141 |
$label{purchase_order}{ordnumber} = $label{invoice}{ordnumber};
|
| 155 | 142 |
$label{request_quotation}{quonumber} = $label{sales_quotation}{quonumber};
|
| ... | ... | |
| 476 | 463 |
my $name = ucfirst $form->{vc};
|
| 477 | 464 |
|
| 478 | 465 |
my @columns = qw(transdate); |
| 479 |
if ($form->{type} =~ /(invoice|packing_list|check|receipt)/) {
|
|
| 480 |
push @columns, "invnumber"; |
|
| 481 |
} |
|
| 482 | 466 |
if ($form->{type} =~ /_order$/) {
|
| 483 | 467 |
push @columns, "ordnumber"; |
| 484 | 468 |
} |
Auch abrufbar als: Unified diff
Vorlagentyp "packing_list" gibt es nicht mehr
Wurde ursprünglich als Lieferschein aus Rechnung heraus
ausgedruckt. Wird von der Funktionalität her von Einkaufs- und
Verkaufslieferscheinen ersetzt.