Revision 7748fe8e
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
|
}
|
||
|
|
||
|
# get rest for the customer
|
||
|
my $query = qq|SELECT ct.*, cp.*, ct.notes as customernotes
|
||
|
my $query = qq|SELECT ct.*, cp.*, ct.notes as customernotes, ct.phone AS customerphone, ct.fax AS customerfax, ct.email AS customeremail
|
||
|
FROM customer ct
|
||
|
LEFT JOIN contacts cp on ct.id = cp.cp_cv_id
|
||
|
WHERE ct.id = $form->{customer_id} $contact order by cp.cp_id limit 1|;
|
||
| SL/OE.pm | ||
|---|---|---|
|
$form->set_payment_options($myconfig, $form->{orddate});
|
||
|
}
|
||
|
|
||
|
# myconfig variables
|
||
|
map { $form->{$_} = $myconfig->{$_} }
|
||
|
(qw(company address tel fax signature businessnumber));
|
||
|
$form->{username} = $myconfig->{name};
|
||
|
|
||
|
$dbh->disconnect;
|
||
| doc/dokumentenvorlagen-und-variablen.html | ||
|---|---|---|
|
<td>Kreditlimit</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><code>customernumber</code></td>
|
||
|
<td>Kundennummer; nur für Kunden</td>
|
||
|
<td><code>customeremail</code></td>
|
||
|
<td>Email des Kunden; nur für Kunden</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><code>customerfax</code></td>
|
||
|
<td>Faxnummer des Kunden; nur für Kunden</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><code>customernotes</code></td>
|
||
|
<td>Bemerkungen beim Kunden; nur für Kunden</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><code>customernumber</code></td>
|
||
|
<td>Kundennummer; nur für Kunden</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><code>customerphone</code></td>
|
||
|
<td>Telefonnummer des Kunden; nur für Kunden</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><code>discount</code></td>
|
||
|
<td>Rabatt</td>
|
||
Auch abrufbar als: Unified diff
Die Variablen aus %myconfig beim Drucken nicht einfach so nach $form kopieren -- dafür gibt es später ja employee_* in Form::parse_template(). Zusätzlich einige weitere Kundenvariablen als customer* zur Verfügung stellen (analog zu den Lieferantenvariablen).