Revision b65a230d
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 624 | 624 |
# saving the history |
| 625 | 625 |
if(!exists $form->{addition}) {
|
| 626 | 626 |
$form->{snumbers} = qq|donumber_| . $form->{donumber};
|
| 627 |
$form->{addition} = "SAVED";
|
|
| 628 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 627 |
$form->{addition} = "SAVED";
|
|
| 628 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 629 | 629 |
} |
| 630 | 630 |
# /saving the history |
| 631 | 631 |
|
| ... | ... | |
| 670 | 670 |
# saving the history |
| 671 | 671 |
if(!exists $form->{addition}) {
|
| 672 | 672 |
$form->{snumbers} = qq|donumber_| . $form->{donumber};
|
| 673 |
$form->{addition} = "DELETED";
|
|
| 674 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 673 |
$form->{addition} = "DELETED";
|
|
| 674 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 675 | 675 |
} |
| 676 | 676 |
# /saving the history |
| 677 | 677 |
|
| ... | ... | |
| 799 | 799 |
# zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben |
| 800 | 800 |
# Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach) |
| 801 | 801 |
# $shell: perldoc perlunc; /delete EXPR |
| 802 |
$form->{donumber} = delete $form->{donumber_array};
|
|
| 802 |
$form->{donumber} = delete $form->{donumber_array};
|
|
| 803 | 803 |
$form->{deliverydate} = $form->{transdate};
|
| 804 | 804 |
$form->{transdate} = $form->current_date(\%myconfig);
|
| 805 | 805 |
$form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
|
| ... | ... | |
| 829 | 829 |
$ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
|
| 830 | 830 |
map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
|
| 831 | 831 |
map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice discount lastcost);
|
| 832 |
$form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
|
|
| 833 |
# Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
|
|
| 834 |
# Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
|
|
| 832 |
$form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
|
|
| 833 |
# Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
|
|
| 834 |
# Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
|
|
| 835 | 835 |
} |
| 836 | 836 |
delete $form->{form_details};
|
| 837 | 837 |
|
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.