X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Fic.pl;h=bcd1405c55ff8c000d130696baca38374c52e4fa;hb=d05b351d2f468dfcf111178cc482a99a9d734a10;hp=6d49eab28470e98fb81eb0a15f6a0610b2c1cdc6;hpb=69c4afb76eaafbbe668a66775e6072df5ce5bd49;p=kivitendo-erp.git
diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index 6d49eab28..bcd1405c5 100644
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -30,9 +30,12 @@
# Inventory Control module
#
#======================================================================
+#$locale->text('ea');
use SL::IC;
+#use SL::PE;
+
require "$form->{path}/io.pl";
1;
@@ -50,7 +53,7 @@ sub add {
$form->{unit} =
($form->{item} eq 'service') ? $locale->text('hr') : $locale->text('ea');
-
+ IC->get_pricegroups(\%myconfig, \%$form);
&link_part;
&display_form;
@@ -84,14 +87,12 @@ sub search {
$button1 = qq|
|
text('button')
- . qq|> |
+ . $locale->text('button') . qq|>
|;
$button2 = qq|
|
text('button')
- . qq|> |
+ . $locale->text('button') . qq|>
|;
#write Trigger
@@ -132,8 +133,7 @@ sub search {
$l_serialnumber = qq|
|
- . $locale->text('Serial Number')
- . qq| |
+ . $locale->text('Serial Number') . qq|
|;
}
@@ -272,8 +272,7 @@ sub search {
|
- . $locale->text('Part Description')
- . qq| |
+ . $locale->text('Part Description') . qq|
|
@@ -310,71 +309,53 @@ sub search {
|
- . $locale->text('Include in Report')
- . qq| |
+ . $locale->text('Include in Report') . qq|
|
@@ -433,11 +414,9 @@ sub choice {
|
- . $locale->text('Part Number')
- . qq| |
+ . $locale->text('Part Number') . qq|
|
- . $locale->text('Part Description')
- . qq| |
+ . $locale->text('Part Description') . qq|
|
@@ -858,10 +837,9 @@ sub addtop100 {
$option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}
|;
}
- @columns =
- $form->sort_columns(
+ @columns = $form->sort_columns(
qw(number partnumber description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal)
- );
+ );
if ($form->{l_linetotal}) {
$form->{l_onhand} = "Y";
@@ -1441,10 +1419,9 @@ sub generate_report {
$option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}
|;
}
- @columns =
- $form->sort_columns(
+ @columns = $form->sort_columns(
qw(partnumber description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal)
- );
+ );
if ($form->{l_linetotal}) {
$form->{l_onhand} = "Y";
@@ -1921,7 +1898,9 @@ sub link_part {
delete $form->{amount};
$form->get_partsgroup(\%myconfig, { all => 1 });
+
$form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
+
if (@{ $form->{all_partsgroup} }) {
$form->{selectpartsgroup} = qq|