"; - - my %formname_setup = - ( - "balance_sheet" => { "translation" => $locale->text('Balance Sheet'), "html" => 1 }, - "bin_list" => $locale->text('Bin List'), - "bwa" => { "translation" => $locale->text('BWA'), "html" => 1 }, - "check" => { "translation" => $locale->text('Check'), "html" => 1 }, - "credit_note" => $locale->text('Credit Note'), - "income_statement" => { "translation" => $locale->text('Income Statement'), "html" => 1 }, - "invoice" => $locale->text('Invoice'), - "packing_list" => $locale->text('Packing List'), - "pick_list" => $locale->text('Pick List'), - "proforma" => $locale->text('Proforma Invoice'), - "purchase_order" => $locale->text('Purchase Order'), - "receipt" => { "translation" => $locale->text('Receipt'), "tex" => 1 }, - "request_quotation" => $locale->text('RFQ'), - "sales_order" => $locale->text('Confirmation'), - "sales_quotation" => $locale->text('Quotation'), - "statement" => $locale->text('Statement'), - "storno_invoice" => $locale->text('Storno Invoice'), - "storno_packing_list" => $locale->text('Storno Packing List'), - "ustva-2004" => { "translation" => $locale->text("USTVA 2004"), "tex" => 1 }, - "ustva-2005" => { "translation" => $locale->text("USTVA 2005"), "tex" => 1 }, - "ustva-2006" => { "translation" => $locale->text("USTVA 2006"), "tex" => 1 }, - "ustva-2007" => { "translation" => $locale->text("USTVA 2007"), "tex" => 1 }, - "ustva" => $locale->text("USTVA"), - "zahlungserinnerung" => $locale->text('Payment Reminder'), - ); - - my (@values, %labels, $file, $setup); - - while (($file, $setup) = each(%formname_setup)) { - next unless (!ref($setup) || $setup->{$format}); - - push(@values, $file); - $labels{$file} = ref($setup) ? $setup->{translation} : $setup; - } - @values = sort({ $labels{$a} cmp $labels{$b} } @values); - - $edit_options .= - $locale->text("Template") . " " . - NTI($cgi->popup_menu("-name" => "formname", "-default" => $form->{formname}, - "-values" => \@values, "-labels" => \%labels)); - - $form->get_lists("printers" => "ALL_PRINTERS", - "languages" => "ALL_LANGUAGES"); - - @values = (""); - %labels = (); - - foreach my $item (@{ $form->{ALL_LANGUAGES} }) { - next unless ($item->{template_code}); - my $key = "$item->{id}--$item->{template_code}"; - push(@values, $key); - $labels{$key} = $item->{description}; - } - - if (1 != scalar(@values)) { - $edit_options .= - " " . $locale->text("Language") . " " . - NTI($cgi->popup_menu("-name" => "language", "-default" => $form->{language}, - "-values" => \@values, "-labels" => \%labels)); - } - - @values = (""); - %labels = (); - - foreach my $item (@{ $form->{ALL_PRINTERS} }) { - next unless ($item->{template_code}); - my $key = "$item->{id}--$item->{template_code}"; - push(@values, $key); - $labels{$key} = $item->{printer_description}; - } - - if (1 != scalar(@values)) { - $edit_options .= - " " . $locale->text("Printer") . " " . - NTI($cgi->popup_menu("-name" => "printer", "-default" => $form->{printer}, - "-values" => \@values, "-labels" => \%labels)); - } - - $edit_options .= qq| - - - - - -

-|; - - } else { - push(@hidden, qw(formname language printer)); - } - - if ($form->{formname} || ($form->{type} eq "stylesheet")) { - my ($filename, $display_filename) = AM->prepare_template_filename(\%myconfig, $form); - my ($content, $lines) = AM->load_template($filename); - - $body = qq| -|; - - if ($form->{edit}) { - $form->{fokus} = "Form.content"; - $body = qq|\n

| . $locale->text('Edit file') . " '" . H($display_filename) . qq|'

| - . NTI($cgi->textarea("-name" => "content", - "-id" => "content", - "-default" => $content, - "-columns" => 100, - "-rows" => 25)) - . qq|

- -

- - - -

-|; - - } else { - $content = "\n\n" unless ($content); - - $body = qq| -

| . $locale->text('Display file') . " '" . H($display_filename) . qq|'

- - - -

- -

| . H($content) . qq|

-|; - - if ($lines > 25) { - $body .= qq| - -|; - } - } - } - - $form->header; - - print qq| - - -

$title

- - - - - -|; - - $lxdebug->leave_sub(); -} - sub config { $lxdebug->enter_sub(); @@ -3032,7 +2781,6 @@ print qq| -{path}> {login}> {password}> @@ -3083,7 +2831,6 @@ sub audit_control {

{script}> -{path}> {login}> {password}> @@ -3149,14 +2896,6 @@ sub doclose { $lxdebug->leave_sub(); } -sub continue { - $lxdebug->enter_sub(); - - &{ $form->{nextsub} }; - - $lxdebug->leave_sub(); -} - sub edit_units { $lxdebug->enter_sub(); @@ -3385,33 +3124,36 @@ sub show_am_history { ); my $dbh = $form->dbconnect(\%myconfig); - + my $searchSNumber = $searchNo{$form->{'what2search'}} . qq|_| . $form->{'searchid'}; $restriction .= ($form->{mitarbeiter} eq "" ? "" : ($form->{mitarbeiter} =~ /^[0-9]*$/ ? " AND employee_id = " . $form->{mitarbeiter} : " AND employee_id = " . &get_employee_id($form->{mitarbeiter}, $dbh))); - - my $query = qq|SELECT id FROM $search{$form->{what2search}} - WHERE $searchNo{$form->{'what2search'}} ILIKE '$form->{"searchid"}' - |; - - my $sth = $dbh->prepare($query); + my $query = qq|SELECT trans_id AS id FROM history_erp WHERE sNumbers = '$searchSNumber' |; + + my $sth = $dbh->prepare($query); $sth->execute() || $form->dberror($query); + if($sth->fetch() <= 0) { + $sth->finish(); + my $query = qq|SELECT id FROM $search{$form->{what2search}} + WHERE $searchNo{$form->{'what2search'}} ILIKE '$form->{"searchid"}' + |; + } + $sth->execute() || $form->dberror($query); $form->{title} = $locale->text("History Search"); $form->header(); - + my $daten = ""; while(my $hash_ref = $sth->fetchrow_hashref()){ - print $form->parse_html_template("/common/show_history", - {"DATEN" => $form->get_history($dbh,$hash_ref->{id},$restriction), - "SUCCESS" => ($form->get_history($dbh,$hash_ref->{id},$restriction) != 0), - "NONEWWINDOW" => "1" - } - ); - } + $daten = $form->get_history($dbh,$hash_ref->{id},$restriction); + } $dbh->disconnect(); - + print $form->parse_html_template("/common/show_history", + {"DATEN" => $daten, + "SUCCESS" => ($daten != 0 ? 1 : 0), + "NONEWWINDOW" => 1 + }); $lxdebug->leave_sub(); }