Revision f2463a51
Von Tamino Steinert vor fast 2 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
|
$form->{"qty_$i"}, $baseqty,
|
||
|
$form->{"sellprice_$i"}, $form->{"discount_$i"} / 100,
|
||
|
$form->{"unit_$i"}, conv_date($items_reqdate), conv_i($form->{"project_id_$i"}),
|
||
|
$form->{"serialnumber_$i"},
|
||
|
trim($form->{"serialnumber_$i"}),
|
||
|
$form->{"lastcost_$i"},
|
||
|
conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),
|
||
|
conv_i($form->{"marge_price_factor_$i"}),
|
||
| SL/IR.pm | ||
|---|---|---|
|
use SL::Common;
|
||
|
use SL::CVar;
|
||
|
use SL::DATEV qw(:CONSTANTS);
|
||
|
use SL::Util qw(trim);
|
||
|
use SL::DBUtils;
|
||
|
use SL::DB::Draft;
|
||
|
use SL::DO;
|
||
| ... | ... | |
|
$form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}), $form->{"qty_$i"} * -1,
|
||
|
$baseqty * -1, $form->{"sellprice_$i"}, $fxsellprice, $form->{"discount_$i"}, $allocated,
|
||
|
$form->{"unit_$i"}, conv_date($form->{deliverydate}),
|
||
|
conv_i($form->{"project_id_$i"}), $form->{"serialnumber_$i"},
|
||
|
conv_i($form->{"project_id_$i"}), trim($form->{"serialnumber_$i"}),
|
||
|
conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"marge_price_factor_$i"}),
|
||
|
$form->{"active_price_source_$i"}, $form->{"active_discount_source_$i"},
|
||
|
$form->{"expense_chart_id_$i"}, $form->{"inventory_chart_id_$i"}, $form->{"tax_id_$i"}, $form->{"tax_chart_type_$i"},
|
||
| SL/IS.pm | ||
|---|---|---|
|
use SL::CVar;
|
||
|
use SL::Common;
|
||
|
use SL::DATEV qw(:CONSTANTS);
|
||
|
use SL::Util qw(trim);
|
||
|
use SL::DBUtils;
|
||
|
use SL::DO;
|
||
|
use SL::GenericTranslations;
|
||
| ... | ... | |
|
$form->{"sellprice_$i"}, $fxsellprice,
|
||
|
$form->{"discount_$i"}, $allocated, 'f',
|
||
|
$form->{"unit_$i"}, conv_date($form->{"reqdate_$i"}), conv_i($form->{"project_id_$i"}),
|
||
|
$form->{"serialnumber_$i"}, $pricegroup_id,
|
||
|
trim($form->{"serialnumber_$i"}), $pricegroup_id,
|
||
|
$baseqty, $form->{"subtotal_$i"} ? 't' : 'f',
|
||
|
$form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},
|
||
|
$form->{"lastcost_$i"},
|
||
| ... | ... | |
|
my ($err, $qty, $wh_id, $bin_id, $chargenumber);
|
||
|
|
||
|
if ($::instance_conf->get_sales_serial_eq_charge && $form->{"serialnumber_$i"}) {
|
||
|
my @serials = split(" ", $form->{"serialnumber_$i"});
|
||
|
my @serials = split(" ", trim($form->{"serialnumber_$i"}));
|
||
|
if (scalar @serials != $form->{"qty_$i"}) {
|
||
|
push @errors, $::locale->text("Cannot transfer #1 qty with #2 serial number(s)", $form->{"qty_$i"}, scalar @serials);
|
||
|
last;
|
||
| SL/OE.pm | ||
|---|---|---|
|
$form->{"qty_$i"}, $baseqty,
|
||
|
$fxsellprice, $form->{"discount_$i"},
|
||
|
$form->{"unit_$i"}, conv_date($reqdate), conv_i($form->{"project_id_$i"}),
|
||
|
$form->{"serialnumber_$i"}, $form->{"ship_$i"},
|
||
|
trim($form->{"serialnumber_$i"}), $form->{"ship_$i"},
|
||
|
$pricegroup_id, $form->{"subtotal_$i"} ? 't' : 'f', $form->{"recurring_billing_mode_$i"} || 'always',
|
||
|
$form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},
|
||
|
$form->{"lastcost_$i"}, conv_i($form->{"price_factor_id_$i"}),
|
||
| bin/mozilla/io.pl | ||
|---|---|---|
|
style => "width: 100px");
|
||
|
}
|
||
|
|
||
|
$column_data{serialnr} = qq|<input name="serialnumber_$i" size="15" value="$form->{"serialnumber_$i"}">|;
|
||
|
$column_data{serialnr} = qq|<input name="serialnumber_$i" size="15" value="$form->{"serialnumber_$i"}" data-validate="trimmed_whitespaces">|;
|
||
|
$column_data{projectnr} = NTI($cgi->popup_menu(
|
||
|
'-name' => "project_id_$i",
|
||
|
'-values' => \@projectnumber_values,
|
||
Auch abrufbar als: Unified diff
IO,DO,IR,IS,OE: Entferne Leerzeichen um Seriennummer