Revision 65e5f16a
Von Peter Schulgin vor fast 11 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 491 | 491 |
my @columns = qw( |
| 492 | 492 |
ids transdate reqdate |
| 493 | 493 |
id donumber |
| 494 |
ordnumber customernumber |
|
| 494 |
ordnumber customernumber cusordnumber
|
|
| 495 | 495 |
name employee salesman |
| 496 | 496 |
shipvia globalprojectnumber |
| 497 | 497 |
transaction_description department |
| ... | ... | |
| 508 | 508 |
my $report = SL::ReportGenerator->new(\%myconfig, $form); |
| 509 | 509 |
|
| 510 | 510 |
my @hidden_variables = map { "l_${_}" } @columns;
|
| 511 |
push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber serialnumber
|
|
| 511 |
push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber serialnumber cusordnumber
|
|
| 512 | 512 |
transaction_description transdatefrom transdateto reqdatefrom reqdateto |
| 513 | 513 |
type vc employee_id salesman_id project_id); |
| 514 | 514 |
|
| ... | ... | |
| 522 | 522 |
'donumber' => { 'text' => $locale->text('Delivery Order'), },
|
| 523 | 523 |
'ordnumber' => { 'text' => $locale->text('Order'), },
|
| 524 | 524 |
'customernumber' => { 'text' => $locale->text('Customer Number'), },
|
| 525 |
'cusordnumber' => { 'text' => $locale->text('Customer Order Number'), },
|
|
| 525 | 526 |
'name' => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
|
| 526 | 527 |
'employee' => { 'text' => $locale->text('Employee'), },
|
| 527 | 528 |
'salesman' => { 'text' => $locale->text('Salesman'), },
|
| ... | ... | |
| 867 | 868 |
# Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach) |
| 868 | 869 |
# $shell: perldoc perlunc; /delete EXPR |
| 869 | 870 |
$form->{donumber} = delete $form->{donumber_array};
|
| 871 |
$form->{ordnumber} = delete $form->{ordnumber_array};
|
|
| 872 |
$form->{cusordnumber} = delete $form->{cusordnumber_array};
|
|
| 870 | 873 |
$form->{deliverydate} = $form->{transdate};
|
| 871 | 874 |
$form->{transdate} = $form->current_date(\%myconfig);
|
| 872 | 875 |
$form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
|
Auch abrufbar als: Unified diff
Sammelrechnung: Auftragsnummer und Bestelnummer aus Lieferscheinen übernehmen
Behebt #1784
Beim erstellen einer Rechnung aus mehreren Lieferscheinen werden nun die jeweiligen
Auftragsnummern und "Bestellnummer der Kunden" als Leerzeichengetrennte Liste
in die Rechnung übernommen (analog zu Lieferscheinnummern).