#
#######################################################################
+use SL::CT;
use SL::IC;
use CGI::Ajax;
use CGI;
sub display_row {
$lxdebug->enter_sub();
my $numrows = shift;
+
if ($lizenzen && $form->{vc} eq "customer") {
if ($form->{type} =~ /sales_order/) {
@column_index = (runningnumber, partnumber, description, ship, qty);
. qq|</th>|;
############## ENDE Neueintrag ##################
+ $myconfig{"show_form_details"} = 1
+ unless (defined($myconfig{"show_form_details"}));
+ $form->{"show_details"} = $myconfig{"show_form_details"}
+ unless (defined($form->{"show_details"}));
+ $form->{"show_details"} = $form->{"show_details"} ? 1 : 0;
+ my $show_details_new = 1 - $form->{"show_details"};
+ my $show_details_checked = $form->{"show_details"} ? "checked" : "";
+
print qq|
<tr>
<td>
+ <input type="hidden" name="show_details" value="$form->{show_details}">
+ <input type="checkbox" id="cb_show_details" onclick="show_form_details($show_details_new);" $show_details_checked>
+ <label for="cb_show_details">| . $locale->text("Show details") . qq|</label><br>
<table width=100%>
<tr class=listheading>|;
# Eintrag fuer Version 2.2.0 geaendert #
# neue Optik im Rechnungsformular #
########################################
+
+ my $row_style_attr =
+ 'style="display:none;"' if (!$form->{"show_details"});
+
# print second row
print qq|
- <tr class=listrow$j>
+ <tr class=listrow$j $row_style_attr>
<td colspan=$colspan>
|;
if ($lizenzen && $form->{type} eq "invoice" && $form->{vc} eq "customer") {
\%myconfig, $form->{currency}, $form->{transdate}, $buysell
)));
+ for $i (1 .. $form->{rowcount}) {
+ map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
+ $form->{"${_}_${i}"})
+ if ($form->{"${_}_${i}"}) }
+ qw(ship qty sellprice listprice basefactor));
+ }
+
&prepare_order;
&display_form;
\%myconfig, $form->{currency}, $form->{transdate}, $buysell
)));
+ for $i (1 .. $form->{rowcount}) {
+ map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
+ $form->{"${_}_${i}"})
+ if ($form->{"${_}_${i}"}) }
+ qw(ship qty sellprice listprice basefactor));
+ }
+
&prepare_order;
&display_form;
$form->{email} = $form->{shiptoemail} if $form->{shiptoemail};
}
+ if ($form->{"cp_id"} && !$form->{"email"}) {
+ CT->get_contact(\%myconfig, $form);
+ $form->{"email"} = $form->{"cp_email"};
+ }
+
$name = $form->{ $form->{vc} };
$name =~ s/--.*//g;
$title = $locale->text('E-mail') . " $name";