Revision 0c472ce6
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 630 | 630 |
$where .= qq| AND NOT obsolete|; |
| 631 | 631 |
} |
| 632 | 632 |
|
| 633 |
if ($form->{business_id}) {
|
|
| 634 |
$where .= qq| AND (business_id = ?)|; |
|
| 635 |
push(@values, conv_i($form->{business_id}));
|
|
| 636 |
} |
|
| 637 |
|
|
| 633 | 638 |
my $query = |
| 634 | 639 |
qq|SELECT ct.*, b.description AS business | . |
| 635 | 640 |
qq|FROM $cv ct | . |
| bin/mozilla/ct.pl | ||
|---|---|---|
| 68 | 68 |
sub search {
|
| 69 | 69 |
$lxdebug->enter_sub(); |
| 70 | 70 |
|
| 71 |
my $vc_business_type = $form->{db} eq "customer" ?
|
|
| 72 |
$locale->text("Customer type") : $locale->text("Vendor type");
|
|
| 73 |
|
|
| 74 |
$form->get_lists("business_types" => "ALL_BUSINESS_TYPES");
|
|
| 75 |
my (%labels, @values); |
|
| 76 |
|
|
| 77 |
my $business_types; |
|
| 78 |
if (scalar(@{ $form->{ALL_BUSINESS_TYPES} }) != 0) {
|
|
| 79 |
push(@values, undef); |
|
| 80 |
foreach my $item (@{ $form->{ALL_BUSINESS_TYPES} }) {
|
|
| 81 |
push(@values, $item->{id});
|
|
| 82 |
$labels{$item->{id}} = $item->{description};
|
|
| 83 |
} |
|
| 84 |
|
|
| 85 |
$business_types = |
|
| 86 |
qq| <tr> |
|
| 87 |
<th align="right" nowrap>${vc_business_type}</th>
|
|
| 88 |
<td>| |
|
| 89 |
. NTI($cgi->popup_menu('-name' => 'business_id', '-values' => \@values,
|
|
| 90 |
'-labels' => \%labels)) |
|
| 91 |
. qq|</td> |
|
| 92 |
</tr> |
|
| 93 |
|; |
|
| 94 |
} |
|
| 95 |
|
|
| 71 | 96 |
$label = ucfirst $form->{db};
|
| 72 | 97 |
$form->{title} = $locale->text($label . "s");
|
| 73 | 98 |
|
| ... | ... | |
| 104 | 129 |
<th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
|
| 105 | 130 |
<td><input name=email size=35></td> |
| 106 | 131 |
</tr> |
| 132 |
$business_types |
|
| 107 | 133 |
<tr> |
| 108 | 134 |
<td></td> |
| 109 | 135 |
<td><input name=status class=radio type=radio value=all checked> | |
| ... | ... | |
| 150 | 176 |
<td><input name="l_sic_code" type=checkbox class=checkbox value=Y> | |
| 151 | 177 |
. $locale->text('SIC') . qq|</td>
|
| 152 | 178 |
<td><input name="l_business" type=checkbox class=checkbox value=Y> | |
| 153 |
. $locale->text('Type of Business') . qq|</td>
|
|
| 179 |
. $vc_business_type . qq|</td>
|
|
| 154 | 180 |
</tr> |
| 155 | 181 |
<tr> |
| 156 | 182 |
<td><input name="l_invnumber" type=checkbox class=checkbox value=Y> | |
| locale/de/all | ||
|---|---|---|
| 308 | 308 |
'Customer not on file or locked!' => 'Dieser Kunde existiert nicht oder ist gesperrt.', |
| 309 | 309 |
'Customer not on file!' => 'Kunde ist nicht in der Datenbank!', |
| 310 | 310 |
'Customer saved!' => 'Kunde gespeichert!', |
| 311 |
'Customer type' => 'Kundentyp', |
|
| 311 | 312 |
'Customername' => 'Kundenname', |
| 312 | 313 |
'Customernumberinit' => 'Kunden-/Lieferantennummernkreis', |
| 313 | 314 |
'Customers' => 'Kunden', |
| ... | ... | |
| 1159 | 1160 |
'Vendor not on file or locked!' => 'Dieser Lieferant existiert nicht oder ist gesperrt.', |
| 1160 | 1161 |
'Vendor not on file!' => 'Lieferant ist nicht in der Datenbank!', |
| 1161 | 1162 |
'Vendor saved!' => 'Lieferant gespeichert!', |
| 1163 |
'Vendor type' => 'Lieferantentyp', |
|
| 1162 | 1164 |
'Vendors' => 'Lieferanten', |
| 1163 | 1165 |
'Verrechnungseinheit' => 'Verrechnungseinheit', |
| 1164 | 1166 |
'Version' => 'Version', |
| locale/de/ct | ||
|---|---|---|
| 26 | 26 |
'Customer Number' => 'Kundennummer', |
| 27 | 27 |
'Customer deleted!' => 'Kunde gel?scht!', |
| 28 | 28 |
'Customer saved!' => 'Kunde gespeichert!', |
| 29 |
'Customer type' => 'Kundentyp', |
|
| 29 | 30 |
'Customers' => 'Kunden', |
| 30 | 31 |
'DELETED' => 'Gel?scht', |
| 31 | 32 |
'DUNNING STARTED' => 'DUNNING STARTED', |
| ... | ... | |
| 134 | 135 |
'Vendor Number' => 'Lieferantennummer', |
| 135 | 136 |
'Vendor deleted!' => 'Lieferant gel?scht!', |
| 136 | 137 |
'Vendor saved!' => 'Lieferant gespeichert!', |
| 138 |
'Vendor type' => 'Lieferantentyp', |
|
| 137 | 139 |
'Vendors' => 'Lieferanten', |
| 138 | 140 |
'Zipcode' => 'PLZ', |
| 139 | 141 |
'bin_list' => 'Lagerliste', |
Auch abrufbar als: Unified diff
Einen Filter für den Kunden-/Lieferantentypen bei Berichten über Kunden-/Lieferantenstammdaten implementiert.