Revision 0bb0eb67
Von Stephan Köhler vor fast 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 |
|
|
| 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 |
|
|
| 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 |
|
|
| 188 | 188 |
$form->{type} = "invoice";
|
| 189 | 189 |
$form->{formname} = "invoice";
|
| 190 | 190 |
$form->{format} = "html";
|
| ... | ... | |
| 210 | 210 |
$form->{"sellprice_$i"} =
|
| 211 | 211 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 212 | 212 |
$decimalplaces); |
| 213 |
|
|
| 213 |
|
|
| 214 | 214 |
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
| 215 |
$dec_qty = length $dec_qty;
|
|
| 216 |
|
|
| 217 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"},
|
|
| 218 |
$dec_qty); |
|
| 215 |
$dec_qty = length $dec_qty; |
|
| 216 |
|
|
| 217 |
$form->{"qty_$i"} =
|
|
| 218 |
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
|
| 219 | 219 |
|
| 220 | 220 |
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
| 221 | 221 |
qw(partnumber description unit partnotes); |
| ... | ... | |
| 228 | 228 |
|
| 229 | 229 |
sub form_header {
|
| 230 | 230 |
$lxdebug->enter_sub(); |
| 231 |
print STDERR "is.pl-form_header\n"; |
|
| 232 | 231 |
|
| 233 | 232 |
# set option selected |
| 234 | 233 |
foreach $item (qw(AR customer currency department employee contact)) {
|
| ... | ... | |
| 525 | 524 |
|
| 526 | 525 |
sub form_footer {
|
| 527 | 526 |
$lxdebug->enter_sub(); |
| 528 |
print STDERR "is.pl-form_footer\n"; |
|
| 527 |
|
|
| 529 | 528 |
$form->{invtotal} = $form->{invsubtotal};
|
| 530 | 529 |
|
| 531 | 530 |
if (($rows = $form->numtextrows($form->{notes}, 26, 8)) < 2) {
|
| ... | ... | |
| 930 | 929 |
|
| 931 | 930 |
$sellprice = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
|
| 932 | 931 |
|
| 933 |
#print STDERR " SELLPRICE-111- $sellprice\n"; |
|
| 934 | 932 |
map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }
|
| 935 | 933 |
qw(partnumber description unit); |
| 936 | 934 |
map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
|
Auch abrufbar als: Unified diff
Merge von 641,653 aus unstable: Preisgruppen Teil 3
-Preisgruppen Kommentar entfernt, nach Perltidy formatiert
-Menue Berichte Preisgruppen verschoben, Hola raus & locales angepasst