Revision 342c174c
Von Stephan Köhler vor etwa 19 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 67 | 67 |
|
| 68 | 68 |
sub edit {
|
| 69 | 69 |
$lxdebug->enter_sub(); |
| 70 |
print STDERR "is.pl-edit\n"; |
|
| 70 |
print STDERR "is.pl-edit\n";
|
|
| 71 | 71 |
$form->{title} = $locale->text('Edit Sales Invoice');
|
| 72 | 72 |
|
| 73 | 73 |
if ($myconfig{acs} =~ "AR--Add Sales Invoice" || $myconfig{acs} =~ "AR--AR")
|
| ... | ... | |
| 84 | 84 |
|
| 85 | 85 |
sub invoice_links {
|
| 86 | 86 |
$lxdebug->enter_sub(); |
| 87 |
print STDERR "is.pl-invoice_links\n"; |
|
| 87 |
print STDERR "is.pl-invoice_links\n";
|
|
| 88 | 88 |
$form->{vc} = 'customer';
|
| 89 | 89 |
|
| 90 | 90 |
# create links |
| ... | ... | |
| 184 | 184 |
|
| 185 | 185 |
sub prepare_invoice {
|
| 186 | 186 |
$lxdebug->enter_sub(); |
| 187 |
print STDERR "is.pl-prepare_invoice\n"; |
|
| 187 |
print STDERR "is.pl-prepare_invoice\n";
|
|
| 188 | 188 |
$form->{type} = "invoice";
|
| 189 | 189 |
$form->{formname} = "invoice";
|
| 190 | 190 |
$form->{format} = "html";
|
| ... | ... | |
| 195 | 195 |
map { $form->{$_} =~ s/\"/"/g }
|
| 196 | 196 |
qw(invnumber ordnumber quonumber shippingpoint shipvia notes intnotes); |
| 197 | 197 |
|
| 198 |
# # get pricegroups for parts |
|
| 199 |
# IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
|
| 198 |
# # get pricegroups for parts
|
|
| 199 |
# IS->get_pricegroups_for_parts(\%myconfig, \%$form);
|
|
| 200 | 200 |
|
| 201 | 201 |
foreach $ref (@{ $form->{invoice_details} }) {
|
| 202 | 202 |
$i++; |
| ... | ... | |
| 223 | 223 |
|
| 224 | 224 |
sub form_header {
|
| 225 | 225 |
$lxdebug->enter_sub(); |
| 226 |
print STDERR "is.pl-form_header\n"; |
|
| 226 |
print STDERR "is.pl-form_header\n"; |
|
| 227 |
|
|
| 227 | 228 |
# set option selected |
| 228 | 229 |
foreach $item (qw(AR customer currency department employee contact)) {
|
| 229 | 230 |
$form->{"select$item"} =~ s/ selected//;
|
| ... | ... | |
| 519 | 520 |
|
| 520 | 521 |
sub form_footer {
|
| 521 | 522 |
$lxdebug->enter_sub(); |
| 522 |
print STDERR "is.pl-form_footer\n"; |
|
| 523 |
print STDERR "is.pl-form_footer\n";
|
|
| 523 | 524 |
$form->{invtotal} = $form->{invsubtotal};
|
| 524 | 525 |
|
| 525 | 526 |
if (($rows = $form->numtextrows($form->{notes}, 26, 8)) < 2) {
|
| ... | ... | |
| 923 | 924 |
} else {
|
| 924 | 925 |
|
| 925 | 926 |
$sellprice = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
|
| 926 |
#print STDERR " SELLPRICE-111- $sellprice\n"; |
|
| 927 |
|
|
| 928 |
#print STDERR " SELLPRICE-111- $sellprice\n"; |
|
| 927 | 929 |
map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }
|
| 928 | 930 |
qw(partnumber description unit); |
| 929 | 931 |
map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
|
| ... | ... | |
| 981 | 983 |
} |
| 982 | 984 |
|
| 983 | 985 |
# get pricegroups for parts |
| 984 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form, "new");
|
|
| 986 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
|
| 985 | 987 |
|
| 986 | 988 |
# build up html code for prices_$i |
| 987 | 989 |
&set_pricegroup($i); |
Auch abrufbar als: Unified diff
Bugfix Preisgruppen - nach Update wurden die Preisgruppen nicht aufgebaut
und Perltidy