Revision 5e9cefa2
Von Martin Helmling martin.helmling@octosoft.eu vor mehr als 8 Jahren hinzugefügt
| SL/DB/Helper/FlattenToForm.pm | ||
|---|---|---|
| 20 | 20 |
|
| 21 | 21 |
if ( $vc eq 'customer' ) {
|
| 22 | 22 |
$form->{customer_id} = $self->customer_id;
|
| 23 |
$form->{customer} = $self->customer->name if $self->customer;
|
|
| 23 | 24 |
} else {
|
| 24 |
$form->{vendor_id} = $self->vendor_id;
|
|
| 25 |
$form->{vendor_id} = $self->vendor_id;
|
|
| 26 |
$form->{vendor} = $self->vendor->name if $self->vendor;
|
|
| 25 | 27 |
}; |
| 26 | 28 |
|
| 27 | 29 |
if (_has($self, 'transdate')) {
|
| ... | ... | |
| 31 | 33 |
$form->{$transdate_idx} = $self->transdate->to_lxoffice;
|
| 32 | 34 |
} |
| 33 | 35 |
|
| 34 |
$form->{vc} = $vc if ref($self) =~ m{^SL::DB::(?:.*Invoice|Order)};
|
|
| 36 |
$form->{vc} = $vc if ref($self) =~ m{^SL::DB::(?:.*Invoice|.*Order)};
|
|
| 35 | 37 |
|
| 36 | 38 |
my @vc_fields = (qw(account_number bank bank_code bic business city contact country creditlimit |
| 37 | 39 |
department_1 department_2 discount email fax gln homepage iban language name |
Auch abrufbar als: Unified diff
Vendor/Customer Name in FlattenToForm setzen
In For.pm wird bei der Druckvorbereitung Customer-/Vendorname gesetzt.
Damit z.B. bei Massendruck oder neuen Controllern diese Variable auch
zur Verfügung stehen werden sie , falls die Objekte vorhanden in die Form geladen