Revision b65a230d
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/bp.pl | ||
|---|---|---|
| 123 | 123 |
receipt => { title => 'Receipts', name => 'Customer' });
|
| 124 | 124 |
|
| 125 | 125 |
$label{invoice}{invnumber} = qq|
|
| 126 |
<tr>
|
|
| 127 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 128 |
<td colspan=3><input name=invnumber size=20></td>
|
|
| 129 |
</tr>
|
|
| 126 |
<tr>
|
|
| 127 |
<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
|
|
| 128 |
<td colspan=3><input name=invnumber size=20></td>
|
|
| 129 |
</tr>
|
|
| 130 | 130 |
|; |
| 131 | 131 |
$label{invoice}{ordnumber} = qq|
|
| 132 |
<tr>
|
|
| 133 |
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
|
|
| 134 |
<td colspan=3><input name=ordnumber size=20></td>
|
|
| 135 |
</tr>
|
|
| 132 |
<tr>
|
|
| 133 |
<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
|
|
| 134 |
<td colspan=3><input name=ordnumber size=20></td>
|
|
| 135 |
</tr>
|
|
| 136 | 136 |
|; |
| 137 | 137 |
$label{sales_quotation}{quonumber} = qq|
|
| 138 |
<tr>
|
|
| 139 |
<th align=right nowrap>| . $locale->text('Quotation Number') . qq|</th>
|
|
| 140 |
<td colspan=3><input name=quonumber size=20></td>
|
|
| 141 |
</tr>
|
|
| 138 |
<tr>
|
|
| 139 |
<th align=right nowrap>| . $locale->text('Quotation Number') . qq|</th>
|
|
| 140 |
<td colspan=3><input name=quonumber size=20></td>
|
|
| 141 |
</tr>
|
|
| 142 | 142 |
|; |
| 143 | 143 |
|
| 144 | 144 |
$label{check}{chknumber} = qq|
|
| 145 |
<tr>
|
|
| 146 |
<th align=right nowrap>| . $locale->text('Reference') . qq|</th>
|
|
| 147 |
<td colspan=3><input name=chknumber size=20></td>
|
|
| 148 |
</tr>
|
|
| 145 |
<tr>
|
|
| 146 |
<th align=right nowrap>| . $locale->text('Reference') . qq|</th>
|
|
| 147 |
<td colspan=3><input name=chknumber size=20></td>
|
|
| 148 |
</tr>
|
|
| 149 | 149 |
|; |
| 150 | 150 |
|
| 151 | 151 |
$label{packing_list}{invnumber} = $label{invoice}{invnumber};
|
| ... | ... | |
| 164 | 164 |
if (BP->payment_accounts(\%myconfig, \%$form)) {
|
| 165 | 165 |
$account = qq| |
| 166 | 166 |
<tr> |
| 167 |
<th align=right>| . $locale->text('Account') . qq|</th>
|
|
| 167 |
<th align=right>| . $locale->text('Account') . qq|</th>
|
|
| 168 | 168 |
|; |
| 169 | 169 |
|
| 170 | 170 |
if ($form->{accounts}) {
|
| 171 | 171 |
$account .= qq| |
| 172 |
<td colspan=3><select name=account>
|
|
| 172 |
<td colspan=3><select name=account>
|
|
| 173 | 173 |
|; |
| 174 | 174 |
foreach my $ref (@{ $form->{accounts} }) {
|
| 175 | 175 |
$account .= qq| |
| ... | ... | |
| 182 | 182 |
|; |
| 183 | 183 |
} else {
|
| 184 | 184 |
$account .= qq| |
| 185 |
<td colspan=3><input name=account></td>
|
|
| 185 |
<td colspan=3><input name=account></td>
|
|
| 186 | 186 |
|; |
| 187 | 187 |
|
| 188 | 188 |
} |
| 189 | 189 |
|
| 190 | 190 |
$account .= qq| |
| 191 |
</tr>
|
|
| 191 |
</tr>
|
|
| 192 | 192 |
|; |
| 193 | 193 |
|
| 194 | 194 |
} |
| ... | ... | |
| 243 | 243 |
<tr> |
| 244 | 244 |
<td> |
| 245 | 245 |
<table> |
| 246 |
<tr>
|
|
| 247 |
<th align=right>Kunde</th>
|
|
| 248 |
<td colspan=3>$name</td>
|
|
| 249 |
</tr>
|
|
| 250 |
$account
|
|
| 251 |
$label{$form->{type}}{invnumber}
|
|
| 252 |
$label{$form->{type}}{ordnumber}
|
|
| 253 |
$label{$form->{type}}{quonumber}
|
|
| 254 |
$label{$form->{type}}{chknumber}
|
|
| 255 |
$label{$form->{type}}{rctnumber}
|
|
| 256 |
<tr>
|
|
| 257 |
<th align=right nowrap>| . $locale->text('From') . qq|</th>
|
|
| 246 |
<tr>
|
|
| 247 |
<th align=right>Kunde</th>
|
|
| 248 |
<td colspan=3>$name</td>
|
|
| 249 |
</tr>
|
|
| 250 |
$account
|
|
| 251 |
$label{$form->{type}}{invnumber}
|
|
| 252 |
$label{$form->{type}}{ordnumber}
|
|
| 253 |
$label{$form->{type}}{quonumber}
|
|
| 254 |
$label{$form->{type}}{chknumber}
|
|
| 255 |
$label{$form->{type}}{rctnumber}
|
|
| 256 |
<tr>
|
|
| 257 |
<th align=right nowrap>| . $locale->text('From') . qq|</th>
|
|
| 258 | 258 |
$button1 |
| 259 |
<th align=right>| . $locale->text('Bis') . qq|</th>
|
|
| 259 |
<th align=right>| . $locale->text('Bis') . qq|</th>
|
|
| 260 | 260 |
$button2 |
| 261 |
</tr>
|
|
| 262 |
<input type=hidden name=sort value=transdate>
|
|
| 261 |
</tr>
|
|
| 262 |
<input type=hidden name=sort value=transdate>
|
|
| 263 | 263 |
</table> |
| 264 | 264 |
</td> |
| 265 | 265 |
</tr> |
| ... | ... | |
| 535 | 535 |
<tr> |
| 536 | 536 |
<td> |
| 537 | 537 |
<table width=100%> |
| 538 |
<tr class=listheading>
|
|
| 538 |
<tr class=listheading>
|
|
| 539 | 539 |
|; |
| 540 | 540 |
|
| 541 | 541 |
map { print "\n$column_header{$_}" } @column_index;
|
| 542 | 542 |
|
| 543 | 543 |
print qq| |
| 544 |
</tr>
|
|
| 544 |
</tr>
|
|
| 545 | 545 |
|; |
| 546 | 546 |
|
| 547 | 547 |
# add sort and escape callback, this one we use for the add sub |
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.