X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fdn.pl;h=4be221f12c9f22a4446f0fa54a22eb5560437dae;hb=dc45f08f06586e0e6edc5a88f808d60daf0ba266;hp=c67e37e040b8905552ea69096a532558a33ef958;hpb=d7f060429e809653d45e93e86b3c5c8d7129e0a9;p=kivitendo-erp.git
diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl
index c67e37e04..4be221f12 100644
--- a/bin/mozilla/dn.pl
+++ b/bin/mozilla/dn.pl
@@ -95,11 +95,12 @@ sub show_invoices {
map { $row->{$_} = $form->format_amount(\%myconfig, $row->{$_} * 1, -2) } qw(amount fee interest);
}
+ $form->{type} = 'dunning';
$form->{rowcount} = scalar @{ $form->{DUNNINGS} };
$form->{jsscript} = 1;
$form->{callback} ||= build_std_url("action=show_invoices", qw(login password customer invnumber ordnumber groupinvoices minamount dunning_level notes));
- $form->{PRINT_OPTIONS} = print_options(1);
+ $form->{PRINT_OPTIONS} = print_options({ 'inline' => 1 });
$form->header();
print $form->parse_html_template("dunning/show_invoices");
@@ -216,178 +217,27 @@ sub set_email {
sub search {
$lxdebug->enter_sub();
- # setup customer selection
- $form->all_vc(\%myconfig, "customer", "AR");
+
+ $form->get_lists("customers" => "ALL_CUSTOMERS",
+ "departments" => "ALL_DEPARTMENTS");
DN->get_config(\%myconfig, \%$form);
- if (@{ $form->{all_customer} }) {
- map { $customer .= "{selectdunning_level} .=
- "{id}>$_->{dunning_description}\n"
- } (@{ $form->{DUNNING} });
- }
- $dunning_level = qq|
-
- | . $locale->text('Next Dunning Level') . qq| |
- |
-
- | if $form->{selectdunning_level};
-
- # departments
- if (@{ $form->{all_departments} }) {
- $form->{selectdepartment} = "\n";
- map {
- $form->{selectdepartment} .=
- "$_->{description}--$_->{id}\n"
- } (@{ $form->{all_departments} });
- }
- $department = qq|
-
- | . $locale->text('Department') . qq| |
- |
-
- | if $form->{selectdepartment};
- $form->{title} = $locale->text('Search Dunning');
- $form->{nextsub} = "show_dunning";
-
- # 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|> |
- |;
- $button3 = qq|
-
- text('button') . qq|> |
- |;
- $button4 = qq|
-
- text('button') . qq|> |
- |;
-
- #write Trigger
- $jsscript =
- Form->write_trigger(\%myconfig, "4", "transdatefrom", "BR", "trigger1", "transdateto", "BR", "trigger2", "dunningfrom", "BR", "trigger3", "dunningto", "BR", "trigger4");
- } else {
+ $form->{jsscript} = 1;
+ $form->{title} = $locale->text('Search Dunning');
+ $form->{fokus} = "search.customer";
+ $form->{javascript} .= qq||;
+ $form->header;
- # without JavaScript Calendar
- $button1 =
- qq| | |;
- $button2 =
- qq| | |;
- $button3 =
- qq| | |;
- $button4 =
- qq| | |;
- }
+ $form->{onload} = qq|focus()|
+ . qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|
+ . qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
- $form->{fokus} = "search.customer";
- $form->{javascript} .= qq||;
- $form->header;
- $onload = qq|focus()|;
- $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
- $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
-
- print qq|
-
-
-
-
-
-
-$jsscript
-
-