Revision 5cb3cbb6
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| SL/BP.pm | ||
|---|---|---|
| 149 | 149 |
} else {
|
| 150 | 150 |
$arap = "ar"; |
| 151 | 151 |
my $invoice = "a.invoice"; |
| 152 |
my $quonumber = "a.quonumber"; |
|
| 152 | 153 |
|
| 153 | 154 |
if ($form->{type} =~ /_(order|quotation)$/) {
|
| 154 | 155 |
$invnumber = "ordnumber"; |
| ... | ... | |
| 156 | 157 |
$invoice = '0'; |
| 157 | 158 |
} |
| 158 | 159 |
|
| 160 |
if ($form->{type} eq 'packing_list') {
|
|
| 161 |
$invnumber = "donumber"; |
|
| 162 |
$arap = "delivery_orders"; |
|
| 163 |
$invoice = '0'; |
|
| 164 |
$quonumber = '0'; |
|
| 165 |
} |
|
| 166 |
|
|
| 159 | 167 |
$query = |
| 160 |
qq|SELECT a.id, a.$invnumber AS invnumber, a.ordnumber, a.quonumber, | .
|
|
| 168 |
qq|SELECT a.id, a.$invnumber AS invnumber, a.ordnumber, $quonumber, | .
|
|
| 161 | 169 |
qq| a.transdate, $invoice AS invoice, '$arap' AS module, vc.name, | . |
| 162 | 170 |
qq| s.spoolfile | . |
| 163 | 171 |
qq|FROM $arap a, ${vc} vc, status s | .
|
| 164 | 172 |
qq|WHERE s.trans_id = a.id | . |
| 165 | 173 |
qq| AND s.spoolfile IS NOT NULL | . |
| 166 |
qq| AND s.formname = ? | . |
|
| 174 |
($form->{type} eq 'packing_list'
|
|
| 175 |
? qq| AND s.formname IN (?, ?) | |
|
| 176 |
: qq| AND s.formname = ? |) . |
|
| 167 | 177 |
qq| AND a.${vc}_id = vc.id|;
|
| 168 | 178 |
@values = ($form->{type});
|
| 179 |
|
|
| 180 |
if ($form->{type} eq 'packing_list') {
|
|
| 181 |
@values = qw(sales_delivery_order purchase_delivery_order); |
|
| 182 |
} |
|
| 169 | 183 |
} |
| 170 | 184 |
|
| 171 | 185 |
if ($form->{"${vc}_id"}) {
|
| ... | ... | |
| 175 | 189 |
$query .= " AND vc.name ILIKE ?"; |
| 176 | 190 |
push(@values, $form->like($form->{ $vc }));
|
| 177 | 191 |
} |
| 178 |
foreach my $column (qw(invnumber ordnumber quonumber)) {
|
|
| 192 |
foreach my $column (qw(invnumber ordnumber quonumber donumber)) {
|
|
| 179 | 193 |
if ($form->{$column}) {
|
| 180 | 194 |
$query .= " AND a.$column ILIKE ?"; |
| 181 | 195 |
push(@values, $form->like($form->{$column}));
|
| 182 | 196 |
} |
| 183 | 197 |
} |
| 184 | 198 |
|
| 185 |
if ($form->{type} =~ /(invoice|sales_order|sales_quotation|puchase_order|request_quotation)$/) {
|
|
| 199 |
if ($form->{type} =~ /(invoice|sales_order|sales_quotation|puchase_order|request_quotation|packing_list)$/) {
|
|
| 186 | 200 |
if ($form->{transdatefrom}) {
|
| 187 | 201 |
$query .= " AND a.transdate >= ?"; |
| 188 | 202 |
push(@values, $form->{transdatefrom});
|
| ... | ... | |
| 197 | 211 |
my $sortorder = join ', ', $form->sort_columns(@a); |
| 198 | 212 |
|
| 199 | 213 |
if (grep({ $_ eq $form->{sort} }
|
| 200 |
qw(transdate invnumber ordnumber quonumber name))) {
|
|
| 214 |
qw(transdate invnumber ordnumber quonumber donumber name))) {
|
|
| 201 | 215 |
$sortorder = $form->{sort};
|
| 202 | 216 |
} |
| 203 | 217 |
|
| bin/mozilla/bp.pl | ||
|---|---|---|
| 49 | 49 |
'sales_order' => 'sales_order_edit', |
| 50 | 50 |
'sales_quotation' => 'sales_quotation_edit', |
| 51 | 51 |
'purchase_order' => 'purchase_order_edit', |
| 52 |
'packing_list' => 'sales_delivery_order_edit|purchase_delivery_order_edit', |
|
| 52 | 53 |
'request_quotation' => 'request_quotation_edit', |
| 53 | 54 |
'check' => 'cash', |
| 54 | 55 |
'receipt' => 'cash', |
| ... | ... | |
| 76 | 77 |
purchase_order => { title => $::locale->text('Purchase Orders'), ordnumber => 1, },
|
| 77 | 78 |
sales_quotation => { title => $::locale->text('Quotations'), quonumber => 1, },
|
| 78 | 79 |
request_quotation => { title => $::locale->text('RFQs'), quonumber => 1, },
|
| 80 |
packing_list => { title => $::locale->text('Delivery Orders'), donumber => 1, ordnumber => 1 },
|
|
| 79 | 81 |
check => { title => $::locale->text('Checks'), chknumber => 1, },
|
| 80 | 82 |
receipt => { title => $::locale->text('Receipts'), rctnumber => 1, },
|
| 81 | 83 |
); |
| ... | ... | |
| 161 | 163 |
invnumber => sub { $::locale->text('Invoice Number') . " : $::form->{invnumber}" },
|
| 162 | 164 |
ordnumber => sub { $::locale->text('Order Number') . " : $::form->{ordnumber}" },
|
| 163 | 165 |
quonumber => sub { $::locale->text('Quotation Number') . " : $::form->{quonumber}" },
|
| 166 |
donumber => sub { $::locale->text('Delivery Order Number') . " : $::form->{donumber}" },
|
|
| 164 | 167 |
transdatefrom => sub { $::locale->text('From') . " " . $::locale->date(\%::myconfig, $::form->{transdatefrom}, 1) },
|
| 165 | 168 |
transdateto => sub { $::locale->text('To') . " " . $::locale->date(\%::myconfig, $::form->{transdateto}, 1) },
|
| 166 | 169 |
); |
| 167 | 170 |
|
| 168 | 171 |
my @options; |
| 169 |
for my $key ($::form->{vc}, qw(account invnumber ordnumber quonumber transdatefrom transdateto)) {
|
|
| 172 |
for my $key ($::form->{vc}, qw(account invnumber ordnumber quonumber donumber transdatefrom transdateto)) {
|
|
| 170 | 173 |
next unless $::form->{$key};
|
| 171 | 174 |
push @href_options, $key; |
| 172 | 175 |
push @options, $option_texts{$key} ? $option_texts{$key}->() : '';
|
| templates/webpages/bp/search.html | ||
|---|---|---|
| 51 | 51 |
<td colspan=3>[% L.input_tag('quonumber', '', size=20) %]</td>
|
| 52 | 52 |
</tr> |
| 53 | 53 |
[%- END %] |
| 54 |
[%- IF label.$type.donumber %] |
|
| 55 |
<tr> |
|
| 56 |
<th align=right nowrap>[% 'Delivery Order Number' | $T8 %]</th> |
|
| 57 |
<td colspan=3>[% L.input_tag('donumber', '', size=20) %]</td>
|
|
| 58 |
</tr> |
|
| 59 |
[%- END %] |
|
| 54 | 60 |
[%- IF label.$type.chknumber %] |
| 55 | 61 |
<tr> |
| 56 | 62 |
<th align=right nowrap>[% 'Reference' | $T8 %]</th> |
Auch abrufbar als: Unified diff
Drucken von Lieferscheinen über die Warteschlange