projekt kivitendo

sub save_dunning {

$main::lxdebug->enter_sub();

# connect to database

my $dbh = $form->dbconnect_noauto($myconfig);

my ($query, @values);

foreach my $row (@{ $rows }) {

$form->{"interest_$row"} = $form->parse_amount($myconfig,$form->{"interest_$row"});

$form->{"fee_$row"} = $form->parse_amount($myconfig,$form->{"fee_$row"});

$form->{send_email} = $form->{"email_$row"};

do_query($form, $dbh, $query, @values);

$query =

?, ?, ?, current_date, ?)|;

conv_i($form->{"inv_id_$row"}), $form->{"fee_$row"},

$form->{"interest_$row"},

conv_date($form->{"next_duedate_$row"}));

template AS formname, email_subject, email_body, email_attachment,

da.fee, da.interest, da.transdate AS dunning_date,

da.duedate AS dunning_duedate

LEFT JOIN dunning da ON (ar.id = da.trans_id AND dunning_config.dunning_level = da.dunning_level)

WHERE ar.id IN (|

. join(", ", map("?", @{ $form->{"inv_ids"} })) . qq|)|;

$form->{keep_tmpfile} = 1;

}

$form->parse_template($myconfig, $userspath);

$dbh->commit;

WHERE dunning_level >

(SELECT

CASE

THEN 0

END

FROM dunning_config LIMIT 1)

LIMIT 1)) |;

}

if ($form->{dunning_level}) {

push(@values, conv_i($form->{dunning_level}));

}

a.duedate + dnn.terms - current_date AS nextlevel,

$paymentdate - a.duedate AS pastdue, dn.dunning_level,

current_date + dnn.payment_terms AS next_duedate,

dnn.interest AS interest_rate, dnn.terms

FROM dunning_config dnn, ar a

JOIN customer ct ON (a.customer_id = ct.id)

LEFT JOIN dunning da ON ((da.trans_id = a.id) AND (dn.dunning_level = da.dunning_level))

$where

ORDER BY a.id, transdate, duedate, name|;

}

if ($form->{dunning_level}) {

push(@values, conv_i($form->{dunning_level}));

}

}

if (!$form->{showold}) {

}

if ($form->{transdatefrom}) {

$query =

qq|SELECT a.id, a.ordnumber, a.invoice, a.transdate, a.invnumber, a.amount,

$form->{DUNNINGS} = selectall_hashref_query($form, $dbh, $query, @values);

my ($self, $myconfig, $form, $userspath) = @_;

foreach my $file (@{ $form->{DUNNING_PDFS} }) {

$inputfiles .= " $userspath/$file ";

}

sub print_dunning {

$main::lxdebug->enter_sub();

# connect to database

my $dbh = $form->dbconnect_noauto($myconfig);

ar.transdate, ar.duedate, paid, amount - paid AS open_amount,

template AS formname, email_subject, email_body, email_attachment,

da.fee, da.interest, da.transdate AS dunning_date, da.duedate AS dunning_duedate

my $first = 1;

while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {

if ($first) {

map { $form->{$_} = $ref->{$_} } keys %$ref;

my $query = qq|SELECT sum(a.amount - a.paid) AS dunning_amount FROM ar a

$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});

map { $form->{$_} = $ref->{$_} } keys %$ref;

my $query = qq|SELECT dnn.dunning_description AS max_dunning_level FROM dunning_config dnn

ORDER BY dunning_level DESC LIMIT 1|;

$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});

map { $form->{$_} = $ref->{$_} } keys %$ref;

$column_data{dunning_level} =

qq|<td><input type=hidden size=2 name=dunning_level_$i value=$i>$i</td>|;

$column_data{dunning_description} = qq|<td><input name=dunning_description_$i ></td>|;

$column_data{active} =

my $email = "";

$column_data{email} =

qq|<td><input type=checkbox name=email_$i value=1 $email><button type="button" onclick="set_email_window('email_subject_$i', 'email_body_$i', 'email_attachment_$i')">| . $locale->text('L') . qq|</button><input type=hidden name=email_body_$i><input type=hidden name=email_subject_$i><input type=hidden name=email_attachment_$i></td>|;

|;

$form->{selectdunning} =~ s/ selected//g;

}

$column_data{dunning_description} = qq|<td><input type=hidden name=inv_id_$i size=2 value="$ref->{id}"><input type=hidden name=customer_id_$i size=2 value="$ref->{customer_id}">$ref->{dunning_level}:&nbsp;$dunning</td>|;

}

}

if (scalar(@{ $form->{inv_ids} }) != 0) {

}

}

} else {

@rows = ();

$form->{inv_ids} = [ $form->{"inv_id_$i"} ];

push(@rows, $i);

}

}

}

print qq|

</tr>

|;

my $i = 0;

my $j = 0;

foreach $ref (@{ $form->{DUNNINGS} }) {

$i++;

print qq|

<tr valign=top class=listrow$j>

}

map { print "$column_data{$_}\n" } @column_index;

sub print_dunning {

$lxdebug->enter_sub();

if($form->{DUNNING_PDFS}) {

DN->melt_pdfs(\%myconfig, \%$form,$spool);

#

# Beipiel:

# $LXDebug::global_level = LXDebug::TRACE | LXDebug::QUERY;

1;