Revision 2ceb6719
Von Philip Reetz vor mehr als 19 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
|
sub display_row {
|
||
|
$lxdebug->enter_sub();
|
||
|
my $numrows = shift;
|
||
|
print STDERR "io.pl-display_row\n";
|
||
|
if ($lizenzen && $form->{vc} eq "customer") {
|
||
|
if ($form->{type} =~ /sales_order/) {
|
||
|
@column_index = (runningnumber, partnumber, description, ship, qty);
|
||
| ... | ... | |
|
|
||
|
|
||
|
|
||
|
#print (STDERR "io.pl---111-i-$i", Dumper($form->{PRICES}));
|
||
|
# build in dragdrop for pricesgroups
|
||
|
if ($form->{"prices_$i"}) {
|
||
|
print STDERR " YES prices\n";
|
||
|
$price_tmp = $form->format_amount(\%myconfig, $form->{"price_new_$i"}, 2);
|
||
|
|
||
|
$column_data{sellprice_drag} =
|
||
| ... | ... | |
|
$column_data{sellprice} =
|
||
|
qq|<td><input name="sellprice_$i" size=5 value=$price_tmp></td>|;
|
||
|
} else {
|
||
|
print STDERR " NO prices\n";
|
||
|
# for last row and report
|
||
|
# set pricegroup dragdrop from report menu
|
||
|
if ($form->{"sellprice_$i"} != 0) {
|
||
|
print STDERR " HIER NOCH F?R RECHNUNGSAUFRUFE\n";
|
||
|
print (STDERR "sellprice_$i ", Dumper($form->{"sellprice_$i"}), " pricegroup_id_$i ", Dumper($form->{"pricegroup_id_$i"}));
|
||
|
Dumper($form->{"pricegroup_id_$i"}));
|
||
|
$prices =
|
||
|
qq|<option value="$form->{"sellprice_$i"}--$form->{"pricegroup_id_$i"}" selected>$form->{"pricegroup_$i"}</option>\n|;
|
||
|
|
||
| ... | ... | |
|
$decimalplaces)
|
||
|
. qq|></td>|;
|
||
|
}
|
||
|
#print (STDERR "io.pl---555-i-$i", Dumper($form->{"price_old_$i"}));
|
||
|
$column_data{discount} =
|
||
|
qq|<td align=right><input name="discount_$i" size=3 value=|
|
||
|
. $form->format_amount(\%myconfig, $form->{"discount_$i"})
|
||
| ... | ... | |
|
$prices = '';
|
||
|
$price = 0;
|
||
|
foreach $item (@{ $form->{PRICES}{ $j } }) {
|
||
|
# print STDERR "-VOR PREIS--$item->{price}--PREISGRUOP-$item->{pricegroup_id}\n";
|
||
|
$price = $form->round_amount($myconfig, $item->{price},5);
|
||
|
$price = $form->format_amount($myconfig, $item->{price},2);
|
||
|
$price = $item->{price};
|
||
|
# print STDERR "-NACH PREIS--$price--PREISGRUOP-$item->{pricegroup_id}\n";
|
||
|
$pricegroup_id = $item->{pricegroup_id};
|
||
|
$pricegroup = $item->{pricegroup};
|
||
|
# build dragdrop for pricegroups
|
||
| ... | ... | |
|
qq|<option value="$price--$pricegroup_id"$item->{selected}>$pricegroup</option>\n|;
|
||
|
|
||
|
$len += 1;
|
||
|
# print STDERR "prices---$prices\n";
|
||
|
# set new selectedpricegroup_id and prices for "Preis"
|
||
|
if ($item->{selected}) {
|
||
|
$form->{"pricegroup_old_$j"} = $pricegroup_id;
|
||
| ... | ... | |
|
|
||
|
sub select_item {
|
||
|
$lxdebug->enter_sub();
|
||
|
print STDERR "io.pl-select_item\n";
|
||
|
@column_index = qw(ndx partnumber description onhand sellprice);
|
||
|
|
||
|
$column_data{ndx} = qq|<th> </th>|;
|
||
| ... | ... | |
|
|
||
|
map { $ref->{$_} =~ s/\"/"/g } qw(partnumber description unit);
|
||
|
#sk tradediscount
|
||
|
print STDERR "TRADEDISCOUNT $ref->{sellprice}\n";
|
||
|
$ref->{sellprice} =
|
||
|
$form->round_amount($ref->{sellprice} * (1 - $form->{tradediscount}), 2);
|
||
|
print STDERR "TRADEDISCOUNT $ref->{sellprice}\n";
|
||
|
$column_data{ndx} =
|
||
|
qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
|
||
|
$column_data{partnumber} =
|
||
| ... | ... | |
|
|
||
|
sub item_selected {
|
||
|
$lxdebug->enter_sub();
|
||
|
print STDERR "io.pl-item_selected\n";
|
||
|
# replace the last row with the checked row
|
||
|
$i = $form->{rowcount};
|
||
|
$i = $form->{assembly_rows} if ($form->{item} eq 'assembly');
|
||
| ... | ... | |
|
|
||
|
sub check_form {
|
||
|
$lxdebug->enter_sub();
|
||
|
print STDERR "io.pl-check_form\n";
|
||
|
my @a = ();
|
||
|
my $count = 0;
|
||
|
my @flds = (
|
||
| ... | ... | |
|
|
||
|
sub validate_items {
|
||
|
$lxdebug->enter_sub();
|
||
|
print STDERR "io.pl-validate_items\n";
|
||
|
# check if items are valid
|
||
|
if ($form->{rowcount} == 1) {
|
||
|
&update;
|
||
| ... | ... | |
|
$form->{ordnumber} = $form->{invnumber};
|
||
|
|
||
|
map { delete $form->{$_} } qw(id printed emailed queued);
|
||
|
|
||
|
if ($form->{script} eq 'ir.pl' || $form->{type} eq 'request_quotation') {
|
||
|
$form->{title} = $locale->text('Add Purchase Order');
|
||
|
$form->{vc} = 'vendor';
|
||
| ... | ... | |
|
|
||
|
sub print_options {
|
||
|
$lxdebug->enter_sub();
|
||
|
print STDERR "io.pl-print_options\n";
|
||
|
$form->{sendmode} = "attachment";
|
||
|
$form->{copies} = 3 unless $form->{copies};
|
||
|
|
||
| ... | ... | |
|
|
||
|
sub customer_details {
|
||
|
$lxdebug->enter_sub();
|
||
|
print STDERR "io.pl-customer_details\n";
|
||
|
IS->customer_details(\%myconfig, \%$form);
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
| bin/mozilla/oe.pl | ||
|---|---|---|
|
# retrieve order/quotation
|
||
|
$form->{webdav} = $webdav;
|
||
|
|
||
|
|
||
|
# set jscalendar
|
||
|
$form->{jscalendar} = $jscalendar;
|
||
|
|
||
| ... | ... | |
|
qw(partnumber description unit);
|
||
|
$form->{rowcount} = $i;
|
||
|
}
|
||
|
} elsif ($form->{rowcount}) {
|
||
|
for my $i (1 .. $form->{rowcount}) {
|
||
|
$form->{"discount_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
|
||
|
|
||
|
($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
|
||
|
$dec = length $dec;
|
||
|
$decimalplaces = ($dec > 2) ? $dec : 2;
|
||
|
|
||
|
$form->{"sellprice_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
||
|
$decimalplaces);
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
|
||
|
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
||
|
qw(partnumber description unit);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Fehler bei der Umwandlung von Angeboten in Auftraege, Preise mit nur einer Nachkommastelle wurden falsch formatiert