#===================================================================== # LX-Office ERP # Copyright (C) 2006 # Based on SQL-Ledger Version 2.1.9 # Web http://www.lx-office.org # #===================================================================== # SQL-Ledger Accounting # Copyright (c) 1998-2002 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org # Web: http://www.sql-ledger.org # # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== # # Dunning process module # #====================================================================== use SL::IS; use SL::PE; use SL::DN; use Data::Dumper; require "$form->{path}/io.pl"; require "$form->{path}/arap.pl"; 1; sub edit_config { $lxdebug->enter_sub(); # edit all dunning config data $form->header; DN->get_config(\%myconfig, \%$form); $form->{title} = $locale->text('Edit Dunning Process Config'); $form->{callback} = "$form->{script}?action=edit_config&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback}; @column_index = qw(dunning_level dunning_description active auto email payment_terms terms fee interest template); $column_header{dunning_level} = qq|| . $locale->text('Dunning Level') . qq||; $column_header{dunning_description} = qq|| . $locale->text('Dunning Description') . qq||; $column_header{active} = qq|| . $locale->text('Active?') . qq||; $column_header{auto} = qq|| . $locale->text('Auto Send?') . qq||; $column_header{email} = qq|| . $locale->text('eMail Send?') . qq||; $column_header{payment_terms} = qq|| . $locale->text('Fristsetzung') . qq||; $column_header{terms} = qq|| . $locale->text('Duedate +Days') . qq||; $column_header{fee} = qq|| . $locale->text('Fee') . qq||; $column_header{interest} = qq|| . $locale->text('Interest Rate') . qq||; $column_header{template} = qq|| . $locale->text('Template') . qq||; print qq|
{script}> |; map { print "$column_header{$_}\n" } @column_index; print qq| |; my $i = 0; foreach $ref (@{ $form->{DUNNING} }) { $i++; my $j = $i % 2; print qq| |; $column_data{dunning_level} = qq||; $column_data{dunning_description} = qq||; my $active = ($ref->{active}) ? "checked" : ""; $column_data{active} = qq||; my $email = ($ref->{email}) ? "checked" : ""; $column_data{email} = qq||; my $auto = ($ref->{auto}) ? "checked" : ""; $column_data{auto} = qq||; $column_data{payment_terms} = qq||; $column_data{terms} = qq||; $column_data{fee} = qq||; $column_data{interest} = qq||; $column_data{template} = qq||; map { print "$column_data{$_}\n" } @column_index; print qq| |; } $i++; my $j = $i % 2; print qq| |; $column_data{dunning_level} = qq||; $column_data{dunning_description} = qq||; my $active = ""; $column_data{active} = qq||; my $email = ""; $column_data{email} = qq||; my $auto = ""; $column_data{auto} = qq||; $column_data{payment_terms} = qq||; $column_data{terms} = qq||; $column_data{fee} = qq||; $column_data{interest} = qq||; $column_data{template} = qq||; $form->{rowcount} = $i; map { print "$column_data{$_}\n" } @column_index; print qq| |; print qq|
$form->{title}
$i%
$i%

{script}> {path}> {login}> {password}> |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; $lxdebug->leave_sub(); } sub add { $lxdebug->enter_sub(); # setup customer selection $form->all_vc(\%myconfig, "customer", "AR"); DN->get_config(\%myconfig, \%$form); if (@{ $form->{all_customer} }) { map { $customer .= "\n" } (@{ $form->{DUNNING} }); } $dunning_level = qq| | . $locale->text('Next Dunning Level') . qq| | if $form->{selectdunning_level}; # departments if (@{ $form->{all_departments} }) { $form->{selectdepartment} = ""; } } $form->{nextsub} = "save_dunning"; $form->{callback} = "$form->{script}?action=show_invoices&path=$form->{path}&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&paymentuntil=$form->{paymentuntil}&groupinvoices=$form->{groupinvoices}&minamount=$form->{minamount}&dunning_level=$form->{dunning_level}¬es=$form->{notes}" unless $form->{callback}; @column_index = qw(dunning_description active email customername invnumber invdate inv_duedate invamount next_duedate fee interest ); $column_header{dunning_description} = qq|| . $locale->text('Current / Next Level') . qq||; $column_header{active} = qq|| . $locale->text('Active?') . qq||; $column_header{email} = qq|| . $locale->text('eMail?') . qq||; $column_header{customername} = qq|| . $locale->text('Customername') . qq||; $column_header{invnumber} = qq|| . $locale->text('Invno.') . qq||; $column_header{inv_duedate} = qq|| . $locale->text('Inv. Duedate') . qq||; $column_header{next_duedate} = qq|| . $locale->text('Dunning Duedate') . qq||; $column_header{invdate} = qq|| . $locale->text('Invdate') . qq||; $column_header{invamount} = qq|| . $locale->text('Amount') . qq||; $column_header{fee} = qq|| . $locale->text('Total Fees') . qq||; $column_header{interest} = qq|| . $locale->text('Total Interest') . qq||; $form->header; print qq|
{script}> |; map { print "$column_header{$_}\n" } @column_index; print qq| |; my $i = 0; foreach $ref (@{ $form->{DUNNINGS} }) { $i++; my $j = $i % 2; print qq| |; $form->{selectdunning} =~ s/ selected//g; if ($ref->{next_dunning_id} ne "") { $form->{selectdunning} =~ s/value=$ref->{next_dunning_id}/value=$ref->{next_dunning_id} selected/; } $dunning = qq||; $column_data{dunning_description} = qq||; my $active = "checked"; $column_data{active} = qq||; my $email = "checked"; $column_data{email} = qq||; $column_data{next_duedate} = qq||; $column_data{inv_duedate} = qq||; $column_data{invdate} = qq||; $column_data{invnumber} = qq||; $column_data{customername} = qq||; $column_data{invamount} = qq||; $column_data{fee} = qq||; $column_data{interest} = qq||; map { print "$column_data{$_}\n" } @column_index; print qq| |; } $form->{rowcount} = $i; print qq|
$form->{title}
$ref->{dunning_level}: $dunning$ref->{next_duedate}$ref->{duedate}$ref->{transdate}$ref->{invnumber}$ref->{customername}$ref->{amount}$ref->{fee}$ref->{interest}
|; &print_options; print qq|
{script}> {path}> {login}> {password}> |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; $lxdebug->leave_sub(); } sub save { $lxdebug->enter_sub(); for my $i (1 .. $form->{rowcount}) { if ($form->{"dunning_description_$i"} ne "") { $form->isblank("dunning_level_$i", $locale->text('Dunning Level missing in row '). $i); $form->isblank("dunning_description_$i", $locale->text('Dunning Description missing in row '). $i); $form->isblank("terms_$i", $locale->text('Terms missing in row '). $i); $form->isblank("payment_terms_$i", $locale->text('Payment Terms missing in row '). $i); } } DN->save_config(\%myconfig, \%$form); $form->redirect($locale->text('Dunning Process Config saved!')); $lxdebug->leave_sub(); } sub save_dunning { $lxdebug->enter_sub(); my $active=1; my @rows = (); undef($form->{DUNNING_PDFS}); if ($form->{groupinvoices}) { while ($active) { $lastcustomer = 0; $form->{inv_ids} = ""; $active = 0; @rows = (); for my $i (1 .. $form->{rowcount}) { $form->{"active_$i"} *= 1; $lastcustomer = $form->{"customer_id_$i"} unless ($lastcustomer); if ($form->{"active_$i"} && ($form->{"customer_id_$i"} == $lastcustomer)) { if ($form->{inv_ids}) { $form->{inv_ids} .= qq|,$form->{"inv_id_$i"}|; } else { $form->{inv_ids} = qq|($form->{"inv_id_$i"}|; } $form->{"active_$i"} = 0; $form->{"customer_id_$i"} = 0; push(@rows, $i); } elsif ($form->{"active_$i"}) { $active = 1; } else { $form->{"customer_id_$i"} = 0; } } if ($form->{inv_ids} ne "") { $form->{inv_ids} .= ")"; DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail); } } } else { for my $i (1 .. $form->{rowcount}) { if ($form->{"active_$i"}) { @rows = (); $form->{inv_ids} = qq|($form->{"inv_id_$i"})|; push(@rows, $i); DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail); } } } if($form->{DUNNING_PDFS}) { DN->melt_pdfs(\%myconfig, \%$form,$spool); } $form->redirect($locale->text('Dunning Process started for selected invoices!')); $lxdebug->leave_sub(); } sub set_email { $lxdebug->enter_sub(); my $callback = "$form->{script}?action=set_email&"; map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" } (qw(login path password name input_subject input_body input_attachment email_subject email_body email_attachment), grep({ /^[fl]_/ } keys %$form))); if ($form->{email_attachment}) { $form->{email_attachment} = "checked"; } $form->{"title"} = $locale->text("Set eMail text"); $form->header(); print($form->parse_html_template("dunning/set_email")); $lxdebug->leave_sub(); } sub search { $lxdebug->enter_sub(); # setup customer selection $form->all_vc(\%myconfig, "customer", "AR"); DN->get_config(\%myconfig, \%$form); if (@{ $form->{all_customer} }) { map { $customer .= "\n" } (@{ $form->{DUNNING} }); } $dunning_level = qq| | . $locale->text('Next Dunning Level') . qq| | if $form->{selectdunning_level}; # departments if (@{ $form->{all_departments} }) { $form->{selectdepartment} = "