X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d629acd82a27e980899a044ca8b0f4becc8e94bb..95f3f4edc00d38ad56bc64b37c7f4bd4cb19f9f1:/bin/mozilla/dn.pl diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl index b91456aba..07830aabc 100644 --- a/bin/mozilla/dn.pl +++ b/bin/mozilla/dn.pl @@ -31,516 +31,121 @@ # #====================================================================== +use POSIX; + use SL::IS; use SL::PE; use SL::DN; -use Data::Dumper; +use SL::ReportGenerator; +require "bin/mozilla/common.pl"; +require "bin/mozilla/reportgenerator.pl"; require "bin/mozilla/io.pl"; -require "bin/mozilla/arap.pl"; 1; sub edit_config { $lxdebug->enter_sub(); - # edit all dunning config data + $auth->assert('config'); - $form->header; DN->get_config(\%myconfig, \%$form); - $form->{title} = $locale->text('Edit Dunning Process Config'); - - $form->{callback} = - "$form->{script}?action=edit_config&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||; + $form->get_lists('charts' => { 'key' => 'ALL_CHARTS', + 'transdate' => 'current_date' }); + $form->{SELECT_AR_AMOUNT} = []; + $form->{SELECT_AR} = []; + foreach my $chart (@{ $form->{ALL_CHARTS} }) { + $chart->{LINKS} = { map { $_, 1 } split m/:/, $chart->{link} }; - map { print "$column_data{$_}\n" } @column_index; + if ($chart->{LINKS}->{AR}) { + $chart->{AR_selected} = "selected" if $chart->{id} == $form->{AR}; + push @{ $form->{SELECT_AR} }, $chart; + } - print qq| - -|; + if ($chart->{LINKS}->{AR_amount}) { + $chart->{AR_amount_fee_selected} = "selected" if $chart->{id} == $form->{AR_amount_fee}; + $chart->{AR_amount_interest_selected} = "selected" if $chart->{id} == $form->{AR_amount_interest}; + push @{ $form->{SELECT_AR_AMOUNT} }, $chart; + } } - $i++; - my $j = $i % 2; - - print qq| - -|; - - - $column_data{dunning_level} = - qq||; - $column_data{dunning_description} = qq||; - $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| - -|; + $form->{title} = $locale->text('Edit Dunning Process Config'); + $form->{callback} ||= build_std_url("action=edit_config"); - print qq| -
$form->{title}
$i%
$i%
- - - -
- - - -
-{script}> - - - - -{login}> -{password}> - - - -
- - - -|; + $form->header(); + print $form->parse_html_template("dunning/edit_config"); $lxdebug->leave_sub(); } sub add { $lxdebug->enter_sub(); + + $auth->assert('dunning_edit'); + # 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&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_config_id} ne "") { - $form->{selectdunning} =~ s/value=$ref->{next_dunning_config_id}/value=$ref->{next_dunning_config_id} selected/; - } - - - $dunning = qq||; - - - $column_data{dunning_description} = qq||; - my $active = ($ref->{active}) ? "checked" : ""; - $column_data{active} = - qq||; - my $email = ($ref->{email}) ? "checked" : ""; - $column_data{email} = - qq||; - $column_data{next_duedate} = qq||; + foreach my $row (@{ $form->{DUNNINGS} }) { + $row->{DUNNING_CONFIG} = [ map +{ %{ $_ } }, @{ $form->{DUNNING_CONFIG} } ]; - $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| - -|; + if ($row->{next_dunning_config_id}) { + map { $_->{SELECTED} = $_->{id} == $row->{next_dunning_config_id} } @{ $row->{DUNNING_CONFIG } }; + } + map { $row->{$_} = $form->format_amount(\%myconfig, $row->{$_} * 1, -2) } qw(amount fee interest); } - $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}> - - - - - - + $form->get_lists('printers' => 'printers', + 'languages' => 'languages'); -{login}> -{password}> - - + $form->{type} = 'dunning'; + $form->{rowcount} = scalar @{ $form->{DUNNINGS} }; + $form->{jsscript} = 1; + $form->{callback} ||= build_std_url("action=show_invoices", qw(customer invnumber ordnumber groupinvoices minamount dunning_level notes)); -
- - - -|; + $form->{PRINT_OPTIONS} = print_options('inline' => 1, + 'no_queue' => 1, + 'no_postscript' => 1, + 'no_html' => 1, + 'no_opendocument' => 1,); + $form->header(); + print $form->parse_html_template("dunning/show_invoices"); $lxdebug->leave_sub(); - } sub save { $lxdebug->enter_sub(); + $auth->assert('config'); + 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); @@ -557,7 +162,7 @@ sub save { $form->{addition} = "SAVED FOR DUNNING"; $form->save_history($form->dbconnect(\%myconfig)); } - # /saving the history + # /saving the history $form->redirect($locale->text('Dunning Process Config saved!')); $lxdebug->leave_sub(); @@ -566,69 +171,77 @@ sub save { sub save_dunning { $lxdebug->enter_sub(); + $auth->assert('dunning_edit'); + 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)) { - push(@{ $form->{inv_ids} }, $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 (scalar(@{ $form->{inv_ids} }) != 0) { - DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath, $spool, $sendmail); + my %dunnings_for; + + for my $i (1 .. $form->{rowcount}) { + next unless ($form->{"active_$i"}); + + $dunnings_for{$form->{"customer_id_$i"}} ||= {}; + my $dunning_levels = $dunnings_for{$form->{"customer_id_$i"}}; + + $dunning_levels->{$form->{"next_dunning_config_id_$i"}} ||= []; + my $level = $dunning_levels->{$form->{"next_dunning_config_id_$i"}}; + + push @{ $level }, { "row" => $i, + "invoice_id" => $form->{"inv_id_$i"}, + "customer_id" => $form->{"customer_id_$i"}, + "next_dunning_config_id" => $form->{"next_dunning_config_id_$i"}, + "email" => $form->{"email_$i"}, }; + } + + foreach my $levels (values %dunnings_for) { + foreach my $level (values %{ $levels }) { + next unless scalar @{ $level }; + + DN->save_dunning(\%myconfig, $form, $level, $userspath, $spool); } } + } else { for my $i (1 .. $form->{rowcount}) { - if ($form->{"active_$i"}) { - @rows = (); - $form->{inv_ids} = [ $form->{"inv_id_$i"} ]; - push(@rows, $i); - DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath, $spool, $sendmail); - } + next unless $form->{"active_$i"}; + + my $level = [ { "row" => $i, + "invoice_id" => $form->{"inv_id_$i"}, + "customer_id" => $form->{"customer_id_$i"}, + "next_dunning_config_id" => $form->{"next_dunning_config_id_$i"}, + "email" => $form->{"email_$i"}, } ]; + DN->save_dunning(\%myconfig, $form, $level, $userspath, $spool); } } + if($form->{DUNNING_PDFS}) { - DN->melt_pdfs(\%myconfig, \%$form,$spool); + DN->melt_pdfs(\%myconfig, $form, $form->{copies}); } + # saving the history if(!exists $form->{addition} && $form->{id} ne "") { $form->{snumbers} = qq|dunning_id_| . $form->{"dunning_id"}; $form->{addition} = "DUNNING STARTED"; $form->save_history($form->dbconnect(\%myconfig)); } - # /saving the history - $form->redirect($locale->text('Dunning Process started for selected invoices!')); + # /saving the history + + if ($form->{media} eq 'printer') { + delete $form->{callback}; + $form->redirect($locale->text('Dunning Process started for selected invoices!')); + } $lxdebug->leave_sub(); } - + sub set_email { $lxdebug->enter_sub(); + $auth->assert('dunning_edit'); - my $callback = "$form->{script}?action=set_email&"; - map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" } - (qw(login 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")); @@ -638,178 +251,29 @@ sub set_email { sub search { $lxdebug->enter_sub(); - # setup customer selection - $form->all_vc(\%myconfig, "customer", "AR"); + + $auth->assert('dunning_edit'); + + $form->get_lists("customers" => "ALL_CUSTOMERS", + "departments" => "ALL_DEPARTMENTS"); 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} = "