1 #=====================================================================
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
7 #=====================================================================
8 # SQL-Ledger Accounting
9 # Copyright (c) 1998-2002
11 # Author: Dieter Simader
12 # Email: dsimader@sql-ledger.org
13 # Web: http://www.sql-ledger.org
16 # This program is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 # GNU General Public License for more details.
25 # You should have received a copy of the GNU General Public License
26 # along with this program; if not, write to the Free Software
27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 #======================================================================
30 # Dunning process module
32 #======================================================================
40 require "bin/mozilla/common.pl";
41 require "bin/mozilla/io.pl";
42 require "bin/mozilla/arap.pl";
47 $lxdebug->enter_sub();
49 DN->get_config(\%myconfig, \%$form);
50 $form->get_lists('charts' => { 'key' => 'ALL_CHARTS',
51 'transdate' => 'current_date' });
53 $form->{SELECT_AR_AMOUNT} = [];
54 $form->{SELECT_AR} = [];
56 foreach my $chart (@{ $form->{ALL_CHARTS} }) {
57 $chart->{LINKS} = { map { $_, 1 } split m/:/, $chart->{link} };
59 if ($chart->{LINKS}->{AR}) {
60 $chart->{AR_selected} = "selected" if $chart->{id} == $form->{AR};
61 push @{ $form->{SELECT_AR} }, $chart;
64 if ($chart->{LINKS}->{AR_amount}) {
65 $chart->{AR_amount_fee_selected} = "selected" if $chart->{id} == $form->{AR_amount_fee};
66 $chart->{AR_amount_interest_selected} = "selected" if $chart->{id} == $form->{AR_amount_interest};
67 push @{ $form->{SELECT_AR_AMOUNT} }, $chart;
71 $form->{title} = $locale->text('Edit Dunning Process Config');
72 $form->{callback} ||= build_std_url("action=edit_config");
73 $form->{rowcount} = 1 + scalar @{ $form->{DUNNING} };
74 $form->{rowcount_odd} = $form->{rowcount} % 2;
77 print $form->parse_html_template("dunning/edit_config");
79 $lxdebug->leave_sub();
83 $lxdebug->enter_sub();
85 # setup customer selection
86 $form->all_vc(\%myconfig, "customer", "AR");
88 DN->get_config(\%myconfig, \%$form);
90 $form->{SHOW_CUSTOMER_SELECTION} = $form->{all_customer} && scalar @{ $form->{all_customer} };
91 $form->{SHOW_DUNNING_LEVEL_SELECTION} = $form->{DUNNING} && scalar @{ $form->{DUNNING} };
92 $form->{SHOW_DEPARTMENT_SELECTION} = $form->{all_departments} && scalar @{ $form->{all_departments} };
94 $form->{title} = $locale->text('Start Dunning Process');
95 $form->{jsscript} = 1;
96 $form->{fokus} = "search.customer";
99 print $form->parse_html_template("dunning/add");
101 $lxdebug->leave_sub();
105 $lxdebug->enter_sub();
107 DN->get_invoices(\%myconfig, \%$form);
108 $form->{title} = $locale->text('Start Dunning Process');
110 foreach my $row (@{ $form->{DUNNINGS} }) {
111 $row->{DUNNING_CONFIG} = [ map +{ %{ $_ } }, @{ $form->{DUNNING_CONFIG} } ];
113 if ($row->{next_dunning_config_id}) {
114 map { $_->{SELECTED} = $_->{id} == $row->{next_dunning_config_id} } @{ $row->{DUNNING_CONFIG } };
116 map { $row->{$_} = $form->format_amount(\%myconfig, $row->{$_} * 1, -2) } qw(amount fee interest);
119 $form->get_lists('printers' => 'printers',
120 'languages' => 'languages');
122 $form->{type} = 'dunning';
123 $form->{rowcount} = scalar @{ $form->{DUNNINGS} };
124 $form->{jsscript} = 1;
125 $form->{callback} ||= build_std_url("action=show_invoices", qw(login password customer invnumber ordnumber groupinvoices minamount dunning_level notes));
127 $form->{PRINT_OPTIONS} = print_options({ 'inline' => 1,
129 'no_postscript' => 1,
131 'no_opendocument' => 1, });
134 print $form->parse_html_template("dunning/show_invoices");
136 $lxdebug->leave_sub();
140 $lxdebug->enter_sub();
142 for my $i (1 .. $form->{rowcount}) {
143 if ($form->{"dunning_description_$i"} ne "") {
144 $form->isblank("dunning_level_$i", $locale->text('Dunning Level missing in row '). $i);
145 $form->isblank("dunning_description_$i", $locale->text('Dunning Description missing in row '). $i);
146 $form->isblank("terms_$i", $locale->text('Terms missing in row '). $i);
147 $form->isblank("payment_terms_$i", $locale->text('Payment Terms missing in row '). $i);
151 DN->save_config(\%myconfig, \%$form);
153 if(!exists $form->{addition} && $form->{id} ne "") {
154 $form->{snumbers} = qq|dunning_id_| . $form->{"dunning_id"};
155 $form->{addition} = "SAVED FOR DUNNING";
156 $form->save_history($form->dbconnect(\%myconfig));
158 # /saving the history
159 $form->redirect($locale->text('Dunning Process Config saved!'));
161 $lxdebug->leave_sub();
165 $lxdebug->enter_sub();
169 undef($form->{DUNNING_PDFS});
171 if ($form->{groupinvoices}) {
174 for my $i (1 .. $form->{rowcount}) {
175 next unless ($form->{"active_$i"});
177 $dunnings_for{$form->{"customer_id_$i"}} ||= {};
178 my $dunning_levels = $dunnings_for{$form->{"customer_id_$i"}};
180 $dunning_levels->{$form->{"next_dunning_config_id_$i"}} ||= [];
181 my $level = $dunning_levels->{$form->{"next_dunning_config_id_$i"}};
183 push @{ $level }, { "row" => $i,
184 "invoice_id" => $form->{"inv_id_$i"},
185 "customer_id" => $form->{"customer_id_$i"},
186 "next_dunning_config_id" => $form->{"next_dunning_config_id_$i"},
187 "email" => $form->{"email_$i"}, };
190 foreach my $levels (values %dunnings_for) {
191 foreach my $level (values %{ $levels }) {
192 next unless scalar @{ $level };
194 DN->save_dunning(\%myconfig, $form, $level, $userspath, $spool, $sendmail);
199 for my $i (1 .. $form->{rowcount}) {
200 next unless $form->{"active_$i"};
202 my $level = [ { "row" => $i,
203 "invoice_id" => $form->{"inv_id_$i"},
204 "customer_id" => $form->{"customer_id_$i"},
205 "next_dunning_config_id" => $form->{"next_dunning_config_id_$i"},
206 "email" => $form->{"email_$i"}, } ];
207 DN->save_dunning(\%myconfig, $form, $level, $userspath, $spool, $sendmail);
211 if($form->{DUNNING_PDFS}) {
212 DN->melt_pdfs(\%myconfig, $form, $form->{copies});
216 if(!exists $form->{addition} && $form->{id} ne "") {
217 $form->{snumbers} = qq|dunning_id_| . $form->{"dunning_id"};
218 $form->{addition} = "DUNNING STARTED";
219 $form->save_history($form->dbconnect(\%myconfig));
221 # /saving the history
223 if ($form->{media} eq 'printer') {
224 delete $form->{callback};
225 $form->redirect($locale->text('Dunning Process started for selected invoices!'));
228 $lxdebug->leave_sub();
232 $lxdebug->enter_sub();
234 $form->{"title"} = $locale->text("Set eMail text");
236 print($form->parse_html_template("dunning/set_email"));
238 $lxdebug->leave_sub();
242 $lxdebug->enter_sub();
244 $form->get_lists("customers" => "ALL_CUSTOMERS",
245 "departments" => "ALL_DEPARTMENTS");
247 DN->get_config(\%myconfig, \%$form);
249 $form->{SHOW_CUSTOMER_DDBOX} = scalar @{ $form->{ALL_CUSTOMERS} } <= $myconfig{vclimit};
250 $form->{SHOW_DEPARTMENT_DDBOX} = scalar @{ $form->{ALL_CUSTOMERS} };
251 $form->{SHOW_DUNNING_LEVELS} = scalar @{ $form->{DUNNING} };
253 $form->{jsscript} = 1;
254 $form->{title} = $locale->text('Search Dunning');
255 $form->{fokus} = "search.customer";
259 $form->{onload} = qq|focus()|
260 . qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|
261 . qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
263 print $form->parse_html_template("dunning/search");
265 $lxdebug->leave_sub();
270 $lxdebug->enter_sub();
272 DN->get_dunning(\%myconfig, \%$form);
275 my ($previous_dunning_id, $first_row_for_dunning);
277 foreach $ref (@{ $form->{DUNNINGS} }) {
278 if ($previous_dunning_id != $ref->{dunning_id}) {
279 $odd_even = ($odd_even + 1) % 2;
280 $ref->{first_row_for_dunning} = 1;
283 $ref->{first_row_for_dunning} = 0;
286 $previous_dunning_id = $ref->{dunning_id};
287 $ref->{listrow_odd_even} = $odd_even;
290 if (!$form->{callback}) {
292 build_std_url("action=show_dunning", qw(customer_id customer dunning_level department_id invnumber ordnumber
293 transdatefrom transdateto dunningfrom dunningto notes showold));
296 $form->get_lists('printers' => 'printers',
297 'languages' => 'languages');
299 $form->{type} = 'dunning';
300 $form->{PRINT_OPTIONS} = print_options({ 'inline' => 1,
302 'no_postscript' => 1,
304 'no_opendocument' => 1, });
305 $form->{title} = $locale->text('Dunning overview');
309 print $form->parse_html_template("dunning/show_dunning");
311 $lxdebug->leave_sub();
316 $lxdebug->enter_sub();
318 $form->{rowcount} = 1;
319 $form->{selected_1} = 1;
320 $form->{dunning_id_1} = $form->{dunning_id};
324 $lxdebug->leave_sub();
328 $lxdebug->enter_sub();
330 $form->{title} = $locale->text('Print dunnings');
332 my @dunning_ids = map { $form->{"dunning_id_$_"} } grep { $form->{"selected_$_"} } (1..$form->{rowcount});
334 if (!scalar @dunning_ids) {
335 $form->error($locale->text('No dunnings have been selected for printing.'));
338 $form->{DUNNING_PDFS} = [];
340 foreach my $dunning_id (@dunning_ids) {
341 DN->print_invoice_for_fees(\%myconfig, $form, $dunning_id);
342 DN->print_dunning(\%myconfig, $form, $dunning_id);
345 if (scalar @{ $form->{DUNNING_PDFS} }) {
346 $form->{dunning_id} = strftime("%Y%m%d", localtime time);
347 DN->melt_pdfs(\%myconfig, $form, $form->{copies});
349 if ($form->{media} eq 'printer') {
351 $form->info($locale->text('The dunnings have been printed.'));
355 $form->redirect($locale->text('Could not print dunning.'));
358 $lxdebug->leave_sub();