#
#######################################################################
+use SL::CT;
use SL::IC;
+use CGI::Ajax;
+use CGI;
require "$form->{path}/common.pl";
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") {
sub select_item {
$lxdebug->enter_sub();
- @column_index = qw(ndx partnumber description onhand sellprice);
+ @column_index = qw(ndx partnumber description onhand unit sellprice);
$column_data{ndx} = qq|<th> </th>|;
$column_data{partnumber} =
qq|<th class=listheading>| . $locale->text('Price') . qq|</th>|;
$column_data{onhand} =
qq|<th class=listheading>| . $locale->text('Qty') . qq|</th>|;
-
+ $column_data{unit} =
+ qq|<th class=listheading>| . $locale->text('Unit') . qq|</th>|;
# list items with radio button on a form
$form->header;
qq|<td align=right><input name="new_onhand_$i" type=hidden value=$ref->{onhand}>|
. $form->format_amount(\%myconfig, $ref->{onhand}, '', " ")
. qq|</td>|;
-
+ $column_data{unit} =
+ qq|<td>$ref->{unit}</td>|;
$j++;
$j %= 2;
print qq|
\%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";
sub print_options {
$lxdebug->enter_sub();
$form->{sendmode} = "attachment";
- $form->{copies} = 3 unless $form->{copies};
+
+ $form->{"format"} =
+ $form->{"format"} ? $form->{"format"} :
+ $myconfig{"template_format"} ? $myconfig{"template_format"} :
+ "pdf";
+
+ $form->{"copies"} =
+ $form->{"copies"} ? $form->{"copies"} :
+ $myconfig{"copies"} ? $myconfig{"copies"} :
+ 3;
$form->{PD}{ $form->{formname} } = "selected";
$form->{DF}{ $form->{format} } = "selected";
$lxdebug->leave_sub();
}
+
+
+sub set_duedate {
+ $lxdebug->enter_sub();
+
+ $form->get_duedate(\%myconfig);
+
+ my $q = new CGI;
+ $result = "$form->{duedate}";
+ print $q->header();
+ print $result;
+ $lxdebug->leave_sub();
+
+}
+