From: Sven Schöling Date: Thu, 29 Oct 2009 15:44:33 +0000 (+0100) Subject: is.pl: alten code entfernt X-Git-Tag: release-2.6.1beta1~113^2~6 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9d7c784cbec4b2d0281148376f8c287c3cd58d61;p=kivitendo-erp.git is.pl: alten code entfernt --- diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index 60d6f933e..258e62048 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -446,296 +446,6 @@ sub form_footer { ##print $form->parse_html_template('is/_payments'); # parser ##print $form->parse_html_template('webdav/_list'); # parser - - -# print qq| -# -# -# -# -# -# -# -# -#
-# -# -# -# -# -# -# -# -# -# -# -# $follow_ups_block -#
| . $locale->text('Notes') . qq|| . $locale->text('Internal Notes') . qq|| . $locale->text('Payment Terms') . qq|
$notes$intnotes
-#
-# -# -# -# -# -# -# -# -# -# -# -#
| . $locale->text('Ertrag') . qq|| . $form->format_amount(\%myconfig, $form->{marge_total}, 2, 0) . qq|
| . $locale->text('Ertrag prozentual') . qq|| . $form->format_amount(\%myconfig, $form->{marge_percent}, 2, 0) . qq| %
-#
-# $taxincluded -# -# $subtotal -# $tax -# -# -# -# -#
| . $locale->text('Total') . qq|$form->{invtotal}
-#
-# -# -#|; -# my $webdav_list; -# if ($main::webdav) { -# $webdav_list = qq| -# -#
-# -# -# Dokumente im Webdav-Repository -# -# -# -# -#|; -# foreach my $file (@{ $form->{WEBDAV} }) { -# $webdav_list .= qq| -# -# -# -# -#|; -# } -# $webdav_list .= qq| -#
DateinameWebdavlink
$file->{name}$file->{type}
-# -#|; -# -# print $webdav_list; -# } -#if ($form->{type} eq "credit_note") { -# print qq| -# -# -# -# -# -# -#|; -#} else { -# print qq| -# -# -# -# -# -# -# -# -# -#
| -# . $locale->text('Payments') . qq|
-# -# -# -# -#|; -#} -# -# my @column_index; -# if ($form->{currency} eq $form->{defaultcurrency}) { -# @column_index = qw(datepaid source memo paid AR_paid); -# } else { -# @column_index = qw(datepaid source memo paid exchangerate AR_paid); -# } -# -# my %column_data; -# $column_data{datepaid} = ""; -# $column_data{paid} = ""; -# $column_data{exchangerate} = ""; -# $column_data{AR_paid} = ""; -# $column_data{source} = ""; -# $column_data{memo} = ""; -# -# print " -# -#"; -# map { print "$column_data{$_}\n" } @column_index; -# print " -# -#"; -# -# my @triggers = (); -# my $totalpaid = 0; -# -# $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"}); -# for my $i (1 .. $form->{paidaccounts}) { -# -# print " -# \n"; -# -# $form->{"selectAR_paid_$i"} = $form->{selectAR_paid}; -# $form->{"selectAR_paid_$i"} =~ -# s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/; -# -# # format amounts -# $totalpaid += $form->{"paid_$i"}; -# if ($form->{"paid_$i"}) { -# $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2); -# } -# $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"}); -# -# if ($form->{"exchangerate_$i"} == 0) { -# $form->{"exchangerate_$i"} = ""; -# } -# my $exchangerate = qq| |; -# if ($form->{currency} ne $form->{defaultcurrency}) { -# if ($form->{"forex_$i"}) { -# $exchangerate = qq|$form->{"exchangerate_$i"}|; -# } else { -# $exchangerate = qq||; -# } -# } -# -# $exchangerate .= qq||; -# -# $column_data{"paid_$i"} = -# qq||; -# $column_data{"exchangerate_$i"} = qq||; -# $column_data{"AR_paid_$i"} = -# qq||; -# $column_data{"datepaid_$i"} = -# qq||; -# $column_data{"source_$i"} = -# qq||; -# $column_data{"memo_$i"} = -# qq||; -# -# map { print qq|$column_data{"${_}_$i"}\n| } @column_index; -# print " -# \n"; -# push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i"); -# } -# -# my $paid_missing = $form->{oldinvtotal} - $totalpaid; -# -# print qq| -# -# -# -# -# -# -# -# -# -# -# -# -#|; -# -# map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); } qw(paidaccounts selectAR_paid oldinvtotal)); -# print qq| -#
| -# . $locale->text('Incoming Payments') . qq|
" . $locale->text('Date') . "" . $locale->text('Amount') . "" . $locale->text('Exch') . "" . $locale->text('Account') . "" . $locale->text('Source') . "" . $locale->text('Memo') . "
$exchangerate -#
| . $locale->text('Total') . qq|| . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|
| . $locale->text('Missing amount') . qq|| . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|
-#

-#|; -# -# print_options(); -# -# print qq| -#
-#|; -# -# my $invdate = $form->datetonum($form->{invdate}, \%myconfig); -# my $closedto = $form->datetonum($form->{closedto}, \%myconfig); -# -# if ($form->{id}) { -# my $show_storno = !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ar") && (($totalpaid == 0) || ($totalpaid eq "")); -# -# print qq| -# -# -# -# |; -# print qq| | if ($show_storno); -# print qq| |; -# print qq| |; -# if ($form->{id} && !($form->{type} eq "credit_note")) { -# print qq| |; -# } -# if ($form->{radier}) { -# print qq| |; -# } -# -# -# if ($invdate > $closedto) { -# print qq| |; -# } -# -# print qq| |; -# -# } else { -# if ($invdate > $closedto) { -# print qq| -# -# -# -# -# -# | . -# NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'), '-class' => 'submit')); -# } -# } -# -# # button for saving history -# if($form->{id} ne "") { -# print qq| -# |; -# } -# # /button for saving history -# -# # mark_as_paid button -# if($form->{id} ne "") { -# print qq||; -# } -# # /mark_as_paid button -# print $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) . -# qq| -# -# -#| . -#$cgi->hidden("-name" => "callback", "-value" => $form->{callback}) -#. $cgi->hidden('-name' => 'draft_id', '-default' => [$form->{draft_id}]) -#. $cgi->hidden('-name' => 'draft_description', '-default' => [$form->{draft_description}]) -#. $cgi->hidden('-name' => 'customer_discount', '-value' => [$form->{customer_discount}]) -#. qq| -# -# -# -# -# -#|; - $main::lxdebug->leave_sub(); }