From 12240c7924d5185c7a7c14db2614158c3f42289e Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Tue, 27 Nov 2007 17:17:18 +0000 Subject: [PATCH] Presiaktualisierung Schritt 1 auf Templates umgestellt --- SL/IC.pm | 2 + bin/mozilla/ic.pl | 173 ++-------------------------------------------- locale/de/ic | 5 -- 3 files changed, 9 insertions(+), 171 deletions(-) diff --git a/SL/IC.pm b/SL/IC.pm index 62af112ef..a84647fce 100644 --- a/SL/IC.pm +++ b/SL/IC.pm @@ -253,6 +253,8 @@ sub get_pricegroups { $dbh->disconnect; $main::lxdebug->leave_sub(); + + return $pricegroups; } sub retrieve_buchungsgruppen { diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl index 114da5839..95b5a2ae8 100644 --- a/bin/mozilla/ic.pl +++ b/bin/mozilla/ic.pl @@ -98,7 +98,9 @@ sub search { $form->header; - print $form->parse_html_template('ic/search', { is_assembly => $is_assembly, is_service => $is_service, dateformat => $myconfig{dateformat} }); + print $form->parse_html_template('ic/search', { is_assembly => $is_assembly, + is_service => $is_service, + dateformat => $myconfig{dateformat}, }); $lxdebug->leave_sub(); } #end search() @@ -106,170 +108,12 @@ sub search { sub search_update_prices { $lxdebug->enter_sub(); - my ($onhand, $makemodel, $serialnumber, $l_serialnumber, $toplevel, $bought); - - $form->{title} = $locale->text('Update prices'); - IC->get_pricegroups(\%myconfig, \%$form); - - # use JavaScript Calendar or not -# $form->{jsscript} = 1; -# $jsscript = ""; -# if ($form->{jsscript}) { -# -# # with JavaScript Calendar -# $button1 = qq| -# -# text('button') . qq|> -# |; -# $button2 = qq| -# -# text('button') . qq|> -# |; -# -# #write Trigger -# $jsscript = -# Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1", -# "transdateto", "BL", "trigger2"); -# } else { -# -# # without JavaScript Calendar -# $button1 = qq| -# |; -# $button2 = qq| -# |; -# } - - $onhand = qq| - | . $locale->text('On Hand') . qq| - | . $locale->text('Short') . qq| -|; - - $makemodel = qq| - - | . $locale->text('Make') . qq| - - | . $locale->text('Model') . qq| - - -|; - - $serialnumber = qq| - | . $locale->text('Serial Number') . qq| - -|; - - $l_serialnumber = qq| - | . $locale->text('Serial Number') . qq| -|; - - + my $pricegroups = IC->get_pricegroups(\%myconfig, \%$form); $form->header; - print qq| - - -

{script}> - - + print $form->parse_html_template('ic/search_update_prices', { PRICE_ROWS => $pricegroups }); - - - - -

$form->{title}

- - - - - - - - - - - - - $serialnumber - - $makemodel - - - - - - - $toplevel - - - - - $bought - - - - |; - print qq| - - - - - -

| . $locale->text('Part Number') . qq|

| . $locale->text('Part Description') . qq|

| . $locale->text('Group') . qq|

| . $locale->text('Drawing') . qq|

| . $locale->text('Microfiche') . qq|

- | . $locale->text('Active') . qq| - $onhand - | . $locale->text('Obsolete') . qq| - | . $locale->text('Orphaned') . qq| -

- - - - - - - - - - - - - - - - -|; - for my $i (1 .. $form->{price_rows}) { - print qq| - - - - - - -|; - } - - print qq| -

\| . $locale->text('Preisklasse') . qq\|	\| . $locale->text('Preis') . qq\|	\| . $locale->text('Prozentual/Absolut') . qq\|
\| . $locale->text('Sell Price') . qq\|		/
\| . $locale->text('List Price') . qq\|		/
$form->{"pricegroup_$i"}		/

- -{price_rows}> - -{login}> -{password}> - -
- - - - - -|; $lxdebug->leave_sub(); } #end search() @@ -297,13 +141,10 @@ sub confirm_price_update { print qq|

| . $locale->text('Confirm!') . qq|

| - . $locale->text('Are you sure you want to update the prices') -. qq|

| . $locale->text('Are you sure you want to update the prices') . qq|

- + |; diff --git a/locale/de/ic b/locale/de/ic index 3417d4d32..ffb0d9065 100644 --- a/locale/de/ic +++ b/locale/de/ic @@ -91,7 +91,6 @@ aktualisieren wollen?', 'If you see this message, you most likely just setup your LX-Office and haven\'t added any entry types. If this is the case, the option is accessible for administrators in the System menu.' => 'Wenn Sie diese Meldung sehen haben Sie wahrscheinlich ein frisches LX-Office Setup und noch keine Buchungsgruppen eingerichtet. Ein Administrator kann dies im Systemmenü erledigen.', 'Image' => 'Grafik', 'In-line' => 'im Text', - 'Include in Report' => 'In Bericht aufnehmen', 'Individual Items' => 'Einzelteile', 'Inventory' => 'Inventar', 'Inventory quantity must be zero before you can set this assembly obsolete!' => 'Bevor dieses Erzeugnis als ungültig markiert werden kann, muß das Inventar auf Null sein!', @@ -112,7 +111,6 @@ aktualisieren wollen?', 'Language Values' => 'Sprachübersetzungen', 'Last Cost' => 'Einkaufspreis', 'License' => 'Lizenz', - 'Line Total' => 'Zeilensumme', 'List Price' => 'Listenpreis', 'Long Description' => 'Langtext', 'MAILED' => 'Gesendet', @@ -194,7 +192,6 @@ aktualisieren wollen?', 'Project' => 'Projekt', 'Project Number' => 'Projektnummer', 'Project description' => 'Projektbeschreibung', - 'Prozentual/Absolut' => 'Prozentual/Absolut', 'Purchase Order' => 'Lieferantenauftrag', 'Qty' => 'Menge', 'Queue' => 'Warteschlange', @@ -255,14 +252,12 @@ aktualisieren wollen?', 'To (time)' => 'Bis', 'Top 100' => 'Top 100', 'Top 100 hinzufuegen' => 'Top 100 hinzufügen', - 'Top Level' => 'Hauptartikelbezeichnung', 'Total' => 'Summe', 'Trying to call a sub without a name' => 'Es wurde versucht, eine Unterfunktion ohne Namen aufzurufen.', 'Unit' => 'Einheit', 'Unit of measure' => 'Maßeinheit', 'Unknown dependency \'%s\'.' => 'Unbekannte Abhängigkeit \'%s\'.', 'Update' => 'Erneuern', - 'Update prices' => 'Preise aktualisieren', 'Updated' => 'Erneuert am', 'Value' => 'Wert', 'Variable' => 'Variable', -- 2.20.1