| 1349 |
1349 |
}
|
| 1350 |
1350 |
|
| 1351 |
1351 |
sub generate_tax_report {
|
| 1352 |
|
$main::lxdebug->enter_sub();
|
| 1353 |
|
|
| 1354 |
|
$main::auth->assert('report');
|
| 1355 |
|
|
| 1356 |
|
my $form = $main::form;
|
| 1357 |
|
my %myconfig = %main::myconfig;
|
| 1358 |
|
my $locale = $main::locale;
|
|
1352 |
$::lxdebug->enter_sub;
|
|
1353 |
$::auth->assert('report');
|
| 1359 |
1354 |
|
| 1360 |
|
RP->tax_report(\%myconfig, \%$form);
|
|
1355 |
RP->tax_report(\%::myconfig, $::form);
|
| 1361 |
1356 |
|
| 1362 |
|
my $descvar = "$form->{accno}_description";
|
| 1363 |
|
my $description = $form->escape($form->{$descvar});
|
| 1364 |
|
my $ratevar = "$form->{accno}_rate";
|
|
1357 |
my $descvar = "$::form->{accno}_description";
|
| 1365 |
1358 |
my ($subtotalnetamount, $subtotaltax, $subtotal) = (0, 0, 0);
|
| 1366 |
1359 |
|
| 1367 |
|
my $department = $form->escape($form->{department});
|
| 1368 |
|
|
| 1369 |
1360 |
# construct href
|
| 1370 |
|
my $href =
|
| 1371 |
|
"$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&report=$form->{report}";
|
| 1372 |
|
|
| 1373 |
|
# construct callback
|
| 1374 |
|
$description = $form->escape($form->{$descvar}, 1);
|
| 1375 |
|
$department = $form->escape($form->{department}, 1);
|
| 1376 |
|
my $callback =
|
| 1377 |
|
"$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&report=$form->{report}";
|
| 1378 |
|
|
| 1379 |
|
my $title = $form->escape($form->{title});
|
| 1380 |
|
$href .= "&title=$title";
|
| 1381 |
|
$title = $form->escape($form->{title}, 1);
|
| 1382 |
|
$callback .= "&title=$title";
|
|
1361 |
my $href =
|
|
1362 |
my $callback = build_std_url('action=generate_tax_report', $descvar,
|
|
1363 |
qw(fromdate todate db method accno department report title));
|
| 1383 |
1364 |
|
| 1384 |
|
$form->{title} = qq|$form->{title} $form->{"$form->{accno}_description"} |;
|
| 1385 |
|
|
| 1386 |
|
my @columns =
|
| 1387 |
|
$form->sort_columns(qw(id transdate invnumber name netamount tax amount));
|
|
1365 |
my @columns = $::form->sort_columns(qw(id transdate invnumber name netamount tax amount));
|
| 1388 |
1366 |
my @column_index;
|
| 1389 |
1367 |
|
| 1390 |
|
foreach my $item (@columns) {
|
| 1391 |
|
if ($form->{"l_$item"} eq "Y") {
|
| 1392 |
|
push @column_index, $item;
|
| 1393 |
|
|
| 1394 |
|
# add column to href and callback
|
|
1368 |
for my $item (@columns, 'subtotal') {
|
|
1369 |
if ($::form->{"l_$item"} eq "Y") {
|
| 1395 |
1370 |
$callback .= "&l_$item=Y";
|
| 1396 |
1371 |
$href .= "&l_$item=Y";
|
| 1397 |
1372 |
}
|
| 1398 |
1373 |
}
|
| 1399 |
1374 |
|
| 1400 |
|
if ($form->{l_subtotal} eq 'Y') {
|
| 1401 |
|
$callback .= "&l_subtotal=Y";
|
| 1402 |
|
$href .= "&l_subtotal=Y";
|
|
1375 |
for my $item (@columns) {
|
|
1376 |
if ($::form->{"l_$item"} eq "Y") {
|
|
1377 |
push @column_index, $item;
|
|
1378 |
}
|
| 1403 |
1379 |
}
|
| 1404 |
1380 |
|
| 1405 |
|
my $option;
|
| 1406 |
|
if ($form->{department}) {
|
| 1407 |
|
($department) = split /--/, $form->{department};
|
| 1408 |
|
$option = $locale->text('Department') . " : $department";
|
|
1381 |
my @options;
|
|
1382 |
if ($::form->{department}) {
|
|
1383 |
my ($department) = split /--/, $::form->{department};
|
|
1384 |
push @options, $::locale->text('Department') . " : $department";
|
| 1409 |
1385 |
}
|
| 1410 |
1386 |
|
| 1411 |
|
my ($fromdate, $todate);
|
| 1412 |
1387 |
# if there are any dates
|
| 1413 |
|
if ($form->{fromdate} || $form->{todate}) {
|
| 1414 |
|
if ($form->{fromdate}) {
|
| 1415 |
|
$fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
|
| 1416 |
|
}
|
| 1417 |
|
if ($form->{todate}) {
|
| 1418 |
|
$todate = $locale->date(\%myconfig, $form->{todate}, 1);
|
| 1419 |
|
}
|
| 1420 |
|
|
| 1421 |
|
$form->{period} = "$fromdate - $todate";
|
|
1388 |
if ($::form->{fromdate} || $::form->{todate}) {
|
|
1389 |
my $fromdate = $::locale->date(\%::myconfig, $::form->{fromdate}, 1) if $::form->{fromdate};
|
|
1390 |
my $todate = $::locale->date(\%::myconfig, $::form->{todate}, 1) if $::form->{todate};
|
|
1391 |
push @options, "$fromdate - $todate";
|
| 1422 |
1392 |
} else {
|
| 1423 |
|
$form->{period} =
|
| 1424 |
|
$locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
|
|
1393 |
push @options, $::locale->date(\%::myconfig, $::form->current_date, 1);
|
| 1425 |
1394 |
}
|
| 1426 |
1395 |
|
| 1427 |
1396 |
my ($name, $invoice, $arap);
|
| 1428 |
|
if ($form->{db} eq 'ar') {
|
| 1429 |
|
$name = $locale->text('Customer');
|
|
1397 |
if ($::form->{db} eq 'ar') {
|
|
1398 |
$name = $::locale->text('Customer');
|
| 1430 |
1399 |
$invoice = 'is.pl';
|
| 1431 |
1400 |
$arap = 'ar.pl';
|
| 1432 |
1401 |
}
|
| 1433 |
|
if ($form->{db} eq 'ap') {
|
| 1434 |
|
$name = $locale->text('Vendor');
|
|
1402 |
if ($::form->{db} eq 'ap') {
|
|
1403 |
$name = $::locale->text('Vendor');
|
| 1435 |
1404 |
$invoice = 'ir.pl';
|
| 1436 |
1405 |
$arap = 'ap.pl';
|
| 1437 |
1406 |
}
|
| 1438 |
1407 |
|
| 1439 |
|
$option .= "<br>" if $option;
|
| 1440 |
|
$option .= "$form->{period}";
|
| 1441 |
|
|
| 1442 |
|
my %column_header;
|
| 1443 |
|
$column_header{id} = qq|<th><a class=listheading href=$href&sort=id>| . $locale->text('ID') . qq|</th>|;
|
| 1444 |
|
$column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>| . $locale->text('Invoice') . qq|</th>|;
|
| 1445 |
|
$column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>| . $locale->text('Date') . qq|</th>|;
|
| 1446 |
|
$column_header{netamount} = qq|<th class=listheading>| . $locale->text('Amount') . qq|</th>|;
|
| 1447 |
|
$column_header{tax} = qq|<th class=listheading>| . $locale->text('Tax') . qq|</th>|;
|
| 1448 |
|
$column_header{amount} = qq|<th class=listheading>| . $locale->text('Total') . qq|</th>|;
|
| 1449 |
|
|
| 1450 |
|
$column_header{name} = qq|<th><a class=listheading href=$href&sort=name>$name</th>|;
|
| 1451 |
|
|
| 1452 |
|
$form->header;
|
| 1453 |
|
|
| 1454 |
|
print qq|
|
| 1455 |
|
<body>
|
| 1456 |
|
|
| 1457 |
|
<table width=100%>
|
| 1458 |
|
<tr>
|
| 1459 |
|
<th class=listtop>$form->{title}</th>
|
| 1460 |
|
</tr>
|
| 1461 |
|
<tr height="5"></tr>
|
| 1462 |
|
<tr>
|
| 1463 |
|
<td>$option</td>
|
| 1464 |
|
</tr>
|
| 1465 |
|
<tr>
|
| 1466 |
|
<td>
|
| 1467 |
|
<table width=100%>
|
| 1468 |
|
<tr class=listheading>
|
| 1469 |
|
|;
|
| 1470 |
|
|
| 1471 |
|
map { print "$column_header{$_}\n" } @column_index;
|
|
1408 |
my %column_header = (
|
|
1409 |
id => $::locale->text('ID'),
|
|
1410 |
invnumber => $::locale->text('Invoice'),
|
|
1411 |
transdate => $::locale->text('Date'),
|
|
1412 |
netamount => $::locale->text('Amount'),
|
|
1413 |
tax => $::locale->text('Tax'),
|
|
1414 |
amount => $::locale->text('Total'),
|
|
1415 |
name => $name,
|
|
1416 |
);
|
| 1472 |
1417 |
|
| 1473 |
|
print qq|
|
| 1474 |
|
</tr>
|
| 1475 |
|
|;
|
|
1418 |
my %column_sorted = map { $_ => 1 } qw(id invnumber transdate);
|
| 1476 |
1419 |
|
| 1477 |
|
# add sort and escape callback
|
| 1478 |
|
$callback = $form->escape($callback . "&sort=$form->{sort}");
|
|
1420 |
$callback .= "&sort=$::form->{sort}";
|
| 1479 |
1421 |
|
| 1480 |
1422 |
my $sameitem;
|
| 1481 |
|
if (@{ $form->{TR} }) {
|
| 1482 |
|
$sameitem = $form->{TR}->[0]->{ $form->{sort} };
|
|
1423 |
if (@{ $::form->{TR} }) {
|
|
1424 |
$sameitem = $::form->{TR}->[0]->{ $::form->{sort} };
|
| 1483 |
1425 |
}
|
| 1484 |
1426 |
|
| 1485 |
|
my ($totalnetamount, $totaltax);
|
| 1486 |
|
my ($i);
|
| 1487 |
|
foreach my $ref (@{ $form->{TR} }) {
|
|
1427 |
my ($totalnetamount, $totaltax, @data);
|
|
1428 |
for my $ref (@{ $::form->{TR} }) {
|
| 1488 |
1429 |
|
| 1489 |
1430 |
my $module = ($ref->{invoice}) ? $invoice : $arap;
|
| 1490 |
1431 |
|
| 1491 |
|
if ($form->{l_subtotal} eq 'Y') {
|
| 1492 |
|
if ($sameitem ne $ref->{ $form->{sort} }) {
|
| 1493 |
|
tax_subtotal(\@column_index, \$subtotalnetamount, \$subtotaltax, \$subtotal);
|
| 1494 |
|
$sameitem = $ref->{ $form->{sort} };
|
|
1432 |
if ($::form->{l_subtotal} eq 'Y') {
|
|
1433 |
if ($sameitem ne $ref->{ $::form->{sort} }) {
|
|
1434 |
push @data, {
|
|
1435 |
subtotal => 1,
|
|
1436 |
netamount => $subtotalnetamount,
|
|
1437 |
tax => $subtotaltax,
|
|
1438 |
amount => $subtotal,
|
|
1439 |
};
|
|
1440 |
$subtotalnetamount = 0;
|
|
1441 |
$subtotaltax = 0;
|
|
1442 |
$sameitem = $ref->{ $::form->{sort} };
|
| 1495 |
1443 |
}
|
| 1496 |
1444 |
}
|
| 1497 |
1445 |
|
| 1498 |
|
$totalnetamount += $ref->{netamount};
|
| 1499 |
|
$totaltax += $ref->{tax};
|
| 1500 |
|
$ref->{amount} = $ref->{netamount} + $ref->{tax};
|
| 1501 |
|
|
| 1502 |
1446 |
$subtotalnetamount += $ref->{netamount};
|
| 1503 |
1447 |
$subtotaltax += $ref->{tax};
|
|
1448 |
$totalnetamount += $ref->{netamount};
|
|
1449 |
$totaltax += $ref->{tax};
|
|
1450 |
$ref->{amount} = $ref->{netamount} + $ref->{tax};
|
| 1504 |
1451 |
|
| 1505 |
|
map {
|
| 1506 |
|
$ref->{$_} = $form->format_amount(\%myconfig, $ref->{$_}, 2, " ");
|
| 1507 |
|
} qw(netamount tax amount);
|
| 1508 |
|
|
| 1509 |
|
my %column_data;
|
| 1510 |
|
$column_data{id} = qq|<td>$ref->{id}</td>|;
|
| 1511 |
|
$column_data{invnumber} =
|
| 1512 |
|
qq|<td><a href=$module?action=edit&id=$ref->{id}&callback=$callback>$ref->{invnumber}</a></td>|;
|
| 1513 |
|
$column_data{transdate} = qq|<td>$ref->{transdate}</td>|;
|
| 1514 |
|
$column_data{name} = qq|<td>$ref->{name} </td>|;
|
| 1515 |
|
|
| 1516 |
|
map { $column_data{$_} = qq|<td align=right>$ref->{$_}</td>| }
|
| 1517 |
|
qw(netamount tax amount);
|
| 1518 |
|
|
| 1519 |
|
$i++;
|
| 1520 |
|
$i %= 2;
|
| 1521 |
|
print qq|
|
| 1522 |
|
<tr class=listrow$i>
|
| 1523 |
|
|;
|
| 1524 |
|
|
| 1525 |
|
map { print "$column_data{$_}\n" } @column_index;
|
| 1526 |
|
|
| 1527 |
|
print qq|
|
| 1528 |
|
</tr>
|
| 1529 |
|
|;
|
| 1530 |
|
|
|
1452 |
push @data, { map { $_ => { data => $ref->{$_} } } keys %$ref };
|
|
1453 |
$data[-1]{invnumber}{link} = "$module?action=edit&id=$ref->{id}&callback=$callback";
|
|
1454 |
$data[-1]{$_}{numeric} = 1 for qw(netamount tax amount);
|
| 1531 |
1455 |
}
|
| 1532 |
1456 |
|
| 1533 |
|
if ($form->{l_subtotal} eq 'Y') {
|
| 1534 |
|
tax_subtotal(\@column_index, \$subtotalnetamount, \$subtotaltax, \$subtotal);
|
|
1457 |
if ($::form->{l_subtotal} eq 'Y') {
|
|
1458 |
push @data, {
|
|
1459 |
subtotal => 1,
|
|
1460 |
netamount => $subtotalnetamount,
|
|
1461 |
tax => $subtotaltax,
|
|
1462 |
amount => $subtotal,
|
|
1463 |
};
|
| 1535 |
1464 |
}
|
| 1536 |
1465 |
|
| 1537 |
|
my %column_data;
|
| 1538 |
|
map { $column_data{$_} = qq|<th> </th>| } @column_index;
|
| 1539 |
|
|
| 1540 |
|
print qq|
|
| 1541 |
|
</tr>
|
| 1542 |
|
<tr class=listtotal>
|
| 1543 |
|
|;
|
| 1544 |
|
|
| 1545 |
|
my $total = $form->format_amount(\%myconfig, $totalnetamount + $totaltax, 2, " ");
|
| 1546 |
|
$totalnetamount = $form->format_amount(\%myconfig, $totalnetamount, 2, " ");
|
| 1547 |
|
$totaltax = $form->format_amount(\%myconfig, $totaltax, 2, " ");
|
| 1548 |
|
|
| 1549 |
|
$column_data{netamount} = qq|<th class=listtotal align=right>$totalnetamount</th>|;
|
| 1550 |
|
$column_data{tax} = qq|<th class=listtotal align=right>$totaltax</th>|;
|
| 1551 |
|
$column_data{amount} = qq|<th class=listtotal align=right>$total</th>|;
|
| 1552 |
|
|
| 1553 |
|
map { print "$column_data{$_}\n" } @column_index;
|
| 1554 |
|
|
| 1555 |
|
print qq|
|
| 1556 |
|
</tr>
|
| 1557 |
|
</table>
|
| 1558 |
|
</td>
|
| 1559 |
|
</tr>
|
| 1560 |
|
<tr>
|
| 1561 |
|
<td><hr size=3 noshade></td>
|
| 1562 |
|
</tr>
|
| 1563 |
|
</table>
|
| 1564 |
|
|
| 1565 |
|
</body>
|
| 1566 |
|
</html>
|
| 1567 |
|
|;
|
| 1568 |
|
|
| 1569 |
|
$main::lxdebug->leave_sub();
|
| 1570 |
|
}
|
| 1571 |
|
|
| 1572 |
|
sub tax_subtotal {
|
| 1573 |
|
$main::lxdebug->enter_sub();
|
| 1574 |
|
|
| 1575 |
|
my ($column_index, $subtotalnetamount, $subtotaltax, $subtotal) = @_;
|
| 1576 |
|
|
| 1577 |
|
my $form = $main::form;
|
| 1578 |
|
my %myconfig = %main::myconfig;
|
| 1579 |
|
my $locale = $main::locale;
|
| 1580 |
|
|
| 1581 |
|
my %column_data;
|
| 1582 |
|
map { $column_data{$_} = "<td> </td>" } @{ $column_index };
|
| 1583 |
|
|
| 1584 |
|
$$subtotalnetamount = $form->format_amount(\%myconfig, $$subtotalnetamount, 2, " ");
|
| 1585 |
|
$$subtotaltax = $form->format_amount(\%myconfig, $$subtotaltax, 2, " ");
|
| 1586 |
|
$$subtotal = $form->format_amount(\%myconfig, $$subtotalnetamount + $$subtotaltax, 2, " ");
|
| 1587 |
|
|
| 1588 |
|
$column_data{netamount} = "<th class=listsubtotal align=right>$$subtotalnetamount</th>";
|
| 1589 |
|
$column_data{tax} = "<th class=listsubtotal align=right>$$subtotaltax</th>";
|
| 1590 |
|
$column_data{amount} = "<th class=listsubtotal align=right>$$subtotal</th>";
|
| 1591 |
|
|
| 1592 |
|
$$subtotalnetamount = 0;
|
| 1593 |
|
$$subtotaltax = 0;
|
| 1594 |
|
|
| 1595 |
|
print qq|
|
| 1596 |
|
<tr class=listsubtotal>
|
| 1597 |
|
|;
|
| 1598 |
|
map { print "\n$column_data{$_}" } @{ $column_index };
|
|
1466 |
push @data, {
|
|
1467 |
total => 1,
|
|
1468 |
netamount => $totalnetamount,
|
|
1469 |
tax => $totaltax,
|
|
1470 |
amount => $totalnetamount + $totaltax,
|
|
1471 |
};
|
| 1599 |
1472 |
|
| 1600 |
|
print qq|
|
| 1601 |
|
</tr>
|
| 1602 |
|
|;
|
|
1473 |
$::form->header;
|
|
1474 |
print $::form->parse_html_template('rp/tax_report', {
|
|
1475 |
column_index => \@column_index,
|
|
1476 |
column_header => \%column_header,
|
|
1477 |
column_sorted => \%column_sorted,
|
|
1478 |
sort_base => $href,
|
|
1479 |
DATA => \@data,
|
|
1480 |
options => \@options,
|
|
1481 |
});
|
| 1603 |
1482 |
|
| 1604 |
|
$main::lxdebug->leave_sub();
|
|
1483 |
$::lxdebug->leave_sub;
|
| 1605 |
1484 |
}
|
| 1606 |
1485 |
|
| 1607 |
1486 |
sub list_payments {
|
rp.pl::tax_report nach template ausgelagert.