Revision a8d9f325
Von Philip Reetz vor etwa 19 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 216 | 216 |
qw(partnumber description unit partnotes); |
| 217 | 217 |
$form->{rowcount} = $i;
|
| 218 | 218 |
|
| 219 |
# # build up html code for prices_$i |
|
| 220 |
# print STDERR "set_pricegroup aus is.pl-prepare_invoice\n"; |
|
| 221 |
# set_pricegroup(); |
|
| 222 | 219 |
} |
| 223 | 220 |
} |
| 224 | 221 |
$lxdebug->leave_sub(); |
| ... | ... | |
| 860 | 857 |
|
| 861 | 858 |
sub update {
|
| 862 | 859 |
$lxdebug->enter_sub(); |
| 863 |
print STDERR "is.pl-update\n"; |
|
| 860 |
|
|
| 864 | 861 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
| 865 | 862 |
qw(exchangerate creditlimit creditremaining); |
| 866 |
|
|
| 863 |
if ($form->{second_run}) {
|
|
| 864 |
$form->{print_and_post} = 0;
|
|
| 865 |
} |
|
| 867 | 866 |
&check_name(customer); |
| 868 | 867 |
|
| 869 | 868 |
&check_project; |
| ... | ... | |
| 985 | 984 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form, "new"); |
| 986 | 985 |
|
| 987 | 986 |
# build up html code for prices_$i |
| 988 |
set_pricegroup();
|
|
| 987 |
&set_pricegroup($i);
|
|
| 989 | 988 |
} |
| 990 | 989 |
|
| 991 | 990 |
&display_form; |
| ... | ... | |
| 1016 | 1015 |
|
| 1017 | 1016 |
sub post {
|
| 1018 | 1017 |
$lxdebug->enter_sub(); |
| 1019 |
print STDERR "is.pl-post\n"; |
|
| 1020 | 1018 |
$form->isblank("invdate", $locale->text('Invoice Date missing!'));
|
| 1021 | 1019 |
$form->isblank("customer", $locale->text('Customer missing!'));
|
| 1022 | 1020 |
|
| ... | ... | |
| 1025 | 1023 |
&update; |
| 1026 | 1024 |
exit; |
| 1027 | 1025 |
} |
| 1026 |
if ($form->{second_run}) {
|
|
| 1027 |
$form->{print_and_post} = 0;
|
|
| 1028 |
} |
|
| 1028 | 1029 |
|
| 1029 | 1030 |
&validate_items; |
| 1030 | 1031 |
|
| ... | ... | |
| 1085 | 1086 |
$print_post = 1; |
| 1086 | 1087 |
$form->{print_and_post} = 1;
|
| 1087 | 1088 |
&post(); |
| 1089 |
|
|
| 1088 | 1090 |
&display_form(); |
| 1089 | 1091 |
$lxdebug->leave_sub(); |
| 1090 | 1092 |
|
| ... | ... | |
| 1105 | 1107 |
|
| 1106 | 1108 |
sub delete {
|
| 1107 | 1109 |
$lxdebug->enter_sub(); |
| 1108 |
|
|
| 1110 |
if ($form->{second_run}) {
|
|
| 1111 |
$form->{print_and_post} = 0;
|
|
| 1112 |
} |
|
| 1109 | 1113 |
$form->header; |
| 1110 | 1114 |
|
| 1111 | 1115 |
print qq| |
Auch abrufbar als: Unified diff
Fehler bei Drucken und Buchen und Preisgruppen behoben, Preisgruppen Quelltext ein wenig modifiziert