projekt kivitendo

require "bin/mozilla/common.pl";

require "bin/mozilla/reportgenerator.pl";

1;

# end of main

'balance_sheet' => 'report',

};

sub check_rp_access {

my $right = $rp_access_map->{$form->{report}};

$right ||= 'DOES_NOT_EXIST';

}

sub report {

check_rp_access();

'income_statement' => 'Income Statement',

'trial_balance' => 'Trial Balance',

'ar_aging' => 'AR Aging',

'receipts' => 'Receipts',

'payments' => 'Payments',

'projects' => 'Project Transactions',

$form->{title} = $locale->text($title{ $form->{report} });

# get departments

$form->all_departments(\%myconfig);

map { $form->{selectdepartment} .= "<option>$_->{description}--$_->{id}\n" } @{ $form->{all_departments} };

}

<tr>

<th align=right nowrap>| . $locale->text('Department') . qq|</th>

<td colspan=3><select name=department>$form->{selectdepartment}</select></td>

}

my $projectnumber =

# use JavaScript Calendar or not

$form->{jsscript} = 1;

if ($form->{report} eq "balance_sheet") {

$name_1 = "asofdate";

$id_1 = "asofdate";

$trigger_2 = "trigger2";

}

# with JavaScript Calendar

if ($form->{jsscript}) {

if ($name_1 eq "") {

}

$form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;

$form->header;

$onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;

$onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;

print qq|

|;

$checked = "checked";

print

qq|<input name=accno class=radio type=radio value=$ref->{accno} $checked>&nbsp;$ref->{description}

}

if (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) {

if ($form->{report} eq 'ar_aging') {

$label = $locale->text('Customer');

# above action can be removed if there is more than one input field

if ($form->{report} =~ /(receipts|payments)$/) {

$form->{db} = ($form->{report} =~ /payments$/) ? "ap" : "ar";

RP->paymentaccounts(\%myconfig, \%$form);

$selection = "<option>\n";

$paymentaccounts .= "$ref->{accno} ";

$selection .= "<option>$ref->{accno}--$ref->{description}\n";

}

</html>

|;

}

sub get_project {

my $nextsub = shift;

$form->{project_id} = $form->{project_id_1};

}

}

sub generate_income_statement {

$form->{padding} = "&nbsp;&nbsp;";

$form->{bold} = "<b>";

$form->{fromdate} = "1.2.$form->{year}";

#this works from 1901 to 2099, 1900 and 2100 fail.

$form->{todate} = "$leap.2.$form->{year}";

last SWITCH;

};

$form->{todate} = $form->current_date(\%myconfig);

}

$form->{this_period} = "$shortfromdate\n$shorttodate";

$form->{period} =

}

if ($form->{comparefromdate} || $form->{comparetodate}) {

$form->{last_period} = "$shortcomparefromdate\n$shortcomparetodate";

$form->{period} .=

}

# setup variables for the form

map { $form->{$_} = $myconfig{$_} } @a;

$form->{templates} = $myconfig{templates};

$form->parse_template;

}

sub generate_balance_sheet {

$form->{decimalplaces} = $form->{decimalplaces} * 1 || 2;

$form->{padding} = "&nbsp;&nbsp;";

($form->{department}) = split /--/, $form->{department};

# define Current Earnings account

push(@{ $form->{equity_account} }, $padding . $locale->text('Current Earnings'));

$form->{this_period} = $locale->date(\%myconfig, $form->{asofdate}, 0);

print $form->parse_html_template('rp/balance_sheet', $data);

# $form->parse_template();

}

sub generate_projects {

$form->{projectnumber} = $form->{projectnumber_1};

$form->{nextsub} = "generate_projects";

list_accounts('generate_projects');

}

# Antonio Gallardo

# added headers and subtotals

#

sub generate_trial_balance {

if ($form->{reporttype} eq "custom") {

$form->{fromdate} = "1.2.$form->{year}";

#this works from 1901 to 2099, 1900 and 2100 fail.

$form->{todate} = "$leap.2.$form->{year}";

last SWITCH;

};

$form->{callback} = $href .= "&sort=$form->{sort}";

# escape callback for href

my @subtotal_columns = qw(soll_eb haben_eb soll haben soll_kumuliert haben_kumuliert soll_saldo haben_saldo);

my $edit_url = build_std_url('action=edit', 'type', 'vc');

$accno->{soll} = $accno->{debit};

$accno->{haben} = $accno->{credit};

};

}

$row->{accno}->{link} = build_std_url('script=ca.pl', 'action=list_transactions', 'accno=' . E($accno->{accno}), 'description=' . E($accno->{description}), 'fromdate=' . E($form->{fromdate}), 'todate=' . E($form->{todate}), 'method=' . E($form->{method}));

my $row_set = [ $row ];

$report->generate_with_headers();

}

sub create_subtotal_row {

my ($totals, $columns, $column_alignment, $subtotal_columns, $class) = @_;

my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => $column_alignment->{$_}, } } @{ $columns } };

map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } @{ $subtotal_columns };

map { $totals->{$_} = 0 } @{ $subtotal_columns };

return $row;

}

sub create_list_accounts_subtotal_row {

my ($subtotals, $columns, $fields, $class) = @_;

my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => 'right' } } @{ $columns } };

map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $subtotals->{$_}, 2) } @{ $fields };

return $row;

}

sub list_accounts {

my ($action) = @_;

my @options;

if ($form->{department}) {

my ($department) = split /--/, $form->{department};

$report->generate_with_headers();

}

sub generate_ar_aging {

# split customer

($form->{customer}) = split(/--/, $form->{customer});

RP->aging(\%myconfig, \%$form);

aging();

}

sub generate_ap_aging {

# split vendor

($form->{vendor}) = split(/--/, $form->{vendor});

RP->aging(\%myconfig, \%$form);

aging();

}

sub create_aging_subtotal_row {

my ($subtotals, $columns, $periods, $class) = @_;

my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => 'right' } } @{ $columns } };

foreach (@{ $periods }) {

$subtotals->{$_} = 0;

}

return $row;

}

sub aging {

my $report = SL::ReportGenerator->new(\%myconfig, $form);

push @options, $locale->text('for Period') . " " . $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);

}

$report->set_options('top_info_text' => join("\n", @options),

'output_format' => 'HTML',

my %subtotals = map { $_ => 0 } @periods;

my %totals = map { $_ => 0 } @periods;

if ($row_idx && ($previous_ctid != $ref->{ctid})) {

$report->add_data(create_aging_subtotal_row(\%subtotals, \@columns, \@periods, 'listsubtotal'));

}

$report->add_data(create_aging_subtotal_row(\%totals, \@columns, \@periods, 'listtotal'));

if ($form->{arap} eq 'ar') {

'PRINT_OPTIONS' => print_options(inline => 1), });

$report->set_options('raw_top_info_text' => $raw_top_info_text,

'raw_bottom_info_text' => $raw_bottom_info_text);

$report->generate_with_headers();

}

sub select_all {

RP->aging(\%myconfig, \%$form);

&aging;

}

sub e_mail {

# get name and email addresses

if ($form->{"statement_$i"}) {

$form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"};

RP->get_customer(\%myconfig, \%$form);

$form->error($locale->text('Nothing selected!')) unless $selected;

if ($myconfig{role} eq 'admin') {

$bcc = qq|

<th align=right nowrap=true>| . $locale->text('Bcc') . qq|</th>

|;

}

$form->{media} = "email";

qw(action email cc bcc subject message type sendmode format header);

# save all other variables

next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));

$form->{$key} =~ s/\"/&quot;/g;

print qq|<input type=hidden name=$key value="$form->{$key}">\n|;

</html>

|;

}

sub send_email {

$form->{subject} = $locale->text('Statement') . qq| - $form->{todate}|

unless $form->{subject};

$form->redirect($locale->text('Statement sent to') . " $form->{$form->{ct}}");

}

sub print {

if ($form->{media} eq 'printer') {

$form->error($locale->text('Select postscript or PDF!'))

if ($form->{format} !~ /(postscript|pdf)/);

}

if ($form->{"statement_$i"}) {

$form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"};

$selected = 1;

$form->redirect($locale->text('Statements sent to printer!'))

if ($form->{media} eq 'printer');

}

sub print_form {

$form->{statementdate} = $locale->date(\%myconfig, $form->{todate}, 1);

# Save $form->{email} because it will be overwritten.

$form->{EMAIL_RECIPIENT} = $form->{email};

while (@{ $form->{AG} }) {

if ($ctid != $ref->{ctid}) {

if ($form->{"statement_$i"}) {

"$form->{ct}phone", "$form->{ct}fax");

map { $form->{$_} = $ref->{$_} } @a;

map { $form->{$_} = () } qw(invnumber invdate duedate);

$form->{total} = 0;

$form->{$item} = ();

$form->{"${item}total"} = 0;

}

map {

$form->{"${_}total"} =

$form->format_amount(\%myconfig, $form->{"${_}total"}, 2)

$form->{attachment_filename} = $locale->quote_special_chars('filenames', $locale->text("Statement") . "_$form->{todate}.$attachment_suffix");

$form->{attachment_filename} =~ s/\s+/_/g;

}

}

$form->save_history($form->dbconnect(\%myconfig));

}

# /saving the history

}

sub statement_details {

my ($ref) = @_;

push @{ $form->{invdate} }, $ref->{transdate};

push @{ $form->{duedate} }, $ref->{duedate};

if ($ref->{exchangerate} * 1) {

$ref->{$item} =

$form->round_amount($ref->{$item} / $ref->{exchangerate}, 2);

$form->format_amount(\%myconfig, $ref->{$item}, 2);

}

}

sub generate_tax_report {

RP->tax_report(\%myconfig, \%$form);

# construct href

"$form->{script}?&action=generate_tax_report&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}";

# construct callback

$description = $form->escape($form->{$descvar}, 1);

$department = $form->escape($form->{department}, 1);

"$form->{script}?&action=generate_tax_report&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}";

$href .= "&title=$title";

$title = $form->escape($form->{title}, 1);

$callback .= "&title=$title";

$form->{title} = qq|$form->{title} $form->{"$form->{accno}_description"} |;

$form->sort_columns(qw(id transdate invnumber name netamount tax amount));

if ($form->{"l_$item"} eq "Y") {

push @column_index, $item;

$href .= "&l_subtotal=Y";

}

if ($form->{department}) {

($department) = split /--/, $form->{department};

$option = $locale->text('Department') . " : $department";

}

# if there are any dates

if ($form->{fromdate} || $form->{todate}) {

if ($form->{fromdate}) {

$locale->date(\%myconfig, $form->current_date(\%myconfig), 1);

}

if ($form->{db} eq 'ar') {

$name = $locale->text('Customer');

$invoice = 'is.pl';

$option .= "<br>" if $option;

$option .= "$form->{period}";

$column_header{id} = qq|<th><a class=listheading href=$href&sort=id>| . $locale->text('ID') . qq|</th>|;

$column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>| . $locale->text('Invoice') . qq|</th>|;

$column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>| . $locale->text('Date') . qq|</th>|;

<table width=100%>

<tr>

</tr>

<tr height="5"></tr>

<tr>

# add sort and escape callback

$callback = $form->escape($callback . "&sort=$form->{sort}");

if (@{ $form->{TR} }) {

$sameitem = $form->{TR}->[0]->{ $form->{sort} };

}

if ($form->{l_subtotal} eq 'Y') {

if ($sameitem ne $ref->{ $form->{sort} }) {

<tr class=listtotal>

|;

$column_data{tax} = qq|<th class=listtotal align=right>$totaltax</th>|;

$column_data{amount} = qq|<th class=listtotal align=right>$total</th>|;

</html>

|;

}

sub tax_subtotal {

map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;

$subtotalnetamount = 0;

$subtotaltax = 0;

</tr>

|;

}

sub list_payments {

if ($form->{account}) {

($form->{paymentaccounts}) = split /--/, $form->{account};

}

if ($form->{department}) {

$option = $locale->text('Department') . " : $department";

}

$report->generate_with_headers();

}

sub print_options {

my ($dont_print) = @_;

$form->{sendmode} = "attachment";

$form->{"format"} =

$form->{OP}{ $form->{media} } = "selected";

$form->{SM}{ $form->{sendmode} } = "selected";

<option value=statement $form->{PD}{statement}>|

. $locale->text('Statement');

} else {

$media = qq|

<option value=screen $form->{OP}{screen}>| . $locale->text('Screen');

$media .= qq|

<option value=printer $form->{OP}{printer}>|

. $locale->text('Printer');

}

}

$format .= qq|

<option value=html $form->{DF}{html}>| . $locale->text('HTML')

. qq| <option value=pdf $form->{DF}{pdf}>| . $locale->text('PDF')

<td><select name=media>$media</select></td>

|;

$output .= qq|

<td>| . $locale->text('Copies') . qq|

<input name=copies size=2 value=$form->{copies}></td>

print $output unless $dont_print;

return $output;

}

sub generate_bwa {

$form->{padding} = "&nbsp;&nbsp;";

$form->{bold} = "<b>";

$form->{fromdate} = "1.2.$form->{year}";

#this works from 1901 to 2099, 1900 and 2100 fail.

$form->{todate} = "$leap.2.$form->{year}";

$form->{comparefromdate} = "1.01.$form->{year}";

$form->{comparetodate} = "$leap.02.$form->{year}";

};

}

} else {

$form->{fromdate} = "${dd}.${mm}.${yy}";

($yy, $mm, $dd) = $locale->parse_date(\%myconfig, $form->{todate});

$form->{todate} = "${dd}.${mm}.${yy}";

my %germandate = ("dateformat" => "dd.mm.yyyy");

$form->{this_period} = "$shortfromdate\n$shorttodate";

$form->{period} =

}

# setup variables for the form

map { $form->{$_} = $myconfig{$_} } @a;

$form->{templates} = $myconfig{templates};

$form->parse_template;

}