ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

summary refs log tree commit diff

path: root/doc/plugins/contrib/googlemaps

diff options

Diffstat (limited to 'doc/plugins/contrib/googlemaps')

0 files changed, 0 insertions, 0 deletions

lass="hl slc"># This file has undergone whitespace cleanup.

#======================================================================

# backend code for reports

#======================================================================

package RP;

sub inventory_activity {

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

    ($form->{fromdate}, $form->{todate}) = 

        $form->from_to($form->{fromyear}, $form->{frommonth}, 

        $form->{interval}) 

            if $form->{fromyear} && $form->{frommonth};

    my $dbh = $form->{dbh};

    unless ($form->{sort_col}){

        $form->{sort_col} = 'partnumber';

}

    my $where = '';

    if ($form->{fromdate}){

         $where .= "AND coalesce(ar.duedate, ap.duedate) >= ".

            $dbh->quote($form->{fromdate});

}

    if ($form->{todate}){

         $where .= "AND coalesce(ar.duedate, ap.duedate) < ".

            $dbh->quote($form->{todate}). " ";

}

    if ($form->{partnumber}){

        $where .= qq| AND p.partnumber ILIKE |.

            $dbh->quote('%'."$form->{partnumber}%"); 

}

    if ($form->{description}){

        $where .= q| AND p.description ILIKE |

            .$dbh->quote('%'."$form->{description}%");

}

    $where =~ s/^\s?AND/WHERE/;

    my $query = qq|

           SELECT min(p.description) AS description, 

                  min(p.partnumber) AS partnumber, sum(

                  CASE WHEN i.qty > 0 THEN i.qty ELSE 0 END) AS sold, 

                  sum (CASE WHEN i.qty > 0 

                            THEN i.sellprice * i.qty 

                            ELSE 0 END) AS revenue, 

                  sum(CASE WHEN i.qty < 0 THEN i.qty * -1 ELSE 0 END) 

                  AS received, sum(CASE WHEN i.qty < 0 

                                        THEN i.sellprice * i.qty * -1

                                        ELSE 0 END) as expenses, 

                  min(p.id) as id

FROM invoice i

             JOIN parts p ON (i.parts_id = p.id)

        LEFT JOIN ar ON (ar.id = i.trans_id)

        LEFT JOIN ap ON (ap.id = i.trans_id)

$where

GROUP BY i.parts_id

         ORDER BY $form->{sort_col}|;

    my $sth = $dbh->prepare($query) || $form->dberror($query);

    $sth->execute() || $form->dberror($query);

    @cols = qw(description sold revenue partnumber received expense);

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

        $ref->{net_income} = $ref->{revenue} - $ref->{expense}; 

        map {$ref->{$_} =~ s/^\s*//} @cols;

        map {$ref->{$_} =~ s/\s*$//} @cols;

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

}

    $sth->finish;

    $dbh->commit;

}

sub yearend_statement {

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

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

# if todate < existing yearends, delete GL and yearends

    my $query = qq|SELECT trans_id FROM yearend WHERE transdate >= ?|;

    my $sth = $dbh->prepare($query);

    $sth->execute($form->{todate}) || $form->dberror($query);

    my @trans_id = ();

    my $id;

    while (($id) = $sth->fetchrow_array) {

        push @trans_id, $id;

}

    $sth->finish;

    $query = qq|DELETE FROM gl WHERE id = ?|;

    $sth = $dbh->prepare($query) || $form->dberror($query);

    $query = qq|DELETE FROM acc_trans WHERE trans_id = ?|;

    my $ath = $dbh->prepare($query) || $form->dberror($query);

    foreach $id (@trans_id) {

        $sth->execute($id);

        $ath->execute($id);

        $sth->finish;

        $ath->finish;

}

    my $last_period = 0;

    my @categories = qw(I E);

    my $category;

    $form->{decimalplaces} *= 1;

    &get_accounts($dbh, 0, $form->{fromdate}, $form->{todate}, $form, \@categories);

    $dbh->commit;

# now we got $form->{I}{accno}{ }

# and $form->{E}{accno}{ }

    my %account = ( 

'I' => {

            'label' => 'income',

            'labels' => 'income',

            'ml' => 1 },

'E' => {

            'label' => 'expense',

            'labels' => 'expenses',

            'ml' => -1 }

);

    foreach $category (@categories) {

        foreach $key (sort keys %{ $form->{$category} }) {

            if ($form->{$category}{$key}{charttype} eq 'A') {

                $form->{"total_$account{$category}{labels}_this_period"} 

                    += $form->{$category}{$key}{this} 

                    * $account{$category}{ml};

}

# totals for income and expenses

    $form->{total_income_this_period} = $form->round_amount(

        $form->{total_income_this_period}, $form->{decimalplaces});

    $form->{total_expenses_this_period} = $form->round_amount(

        $form->{total_expenses_this_period}, $form->{decimalplaces});

# total for income/loss

    $form->{total_this_period} 

        = $form->{total_income_this_period} 

            - $form->{total_expenses_this_period};

}

sub income_statement {

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

    my $dbh = $form->{dbh};

    my $last_period = 0;

    my @categories = qw(I E);

    my $category;

    $form->{decimalplaces} *= 1;

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

        if ($form->{fromyear} && $form->{frommonth}) {

            ($form->{fromdate}, $form->{todate}) 

                = $form->from_to(

                    $form->{fromyear}, 

                    $form->{frommonth}, $form->{interval});

}

&get_accounts(

        $dbh, $last_period, $form->{fromdate}, $form->{todate}, 

        $form, \@categories, 1);

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

        if ($form->{compareyear} && $form->{comparemonth}) {

            ($form->{comparefromdate}, $form->{comparetodate}) 

                = $form->from_to(

                    $form->{compareyear}, 

                    $form->{comparemonth}, 

                    $form->{interval});

}

# if there are any compare dates

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

        $last_period = 1;

&get_accounts(

            $dbh, $last_period, $form->{comparefromdate}, 

            $form->{comparetodate}, $form, \@categories, 1);

}

    $dbh->commit;

# now we got $form->{I}{accno}{ }

# and $form->{E}{accno}{ }

    my %account = ( 

'I' => {

            'label' => 'income',

            'labels' => 'income',

            'ml' => 1 },

'E' => {

            'label' => 'expense',

            'labels' => 'expenses',

            'ml' => -1 }

);

    my $str;

    foreach $category (@categories) {

        foreach $key (sort keys %{ $form->{$category} }) {

# push description onto array

            $str = ($form->{l_heading}) ? $form->{padding} : "";

            if ($form->{$category}{$key}{charttype} eq "A") {

$str .=

                    ($form->{l_accno}) 

                    ? "$form->{$category}{$key}{accno} - $form->{$category}{$key}{description}" 

                    : "$form->{$category}{$key}{description}";

}

            if ($form->{$category}{$key}{charttype} eq "H") {

                if ($account{$category}{subtotal} 

                        && $form->{l_subtotal}) {

                    $dash = "- ";

                    push(@{$form->{"$account{$category}{label}_account"}}, 

                        "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}");

                    push(@{$form->{"$account{$category}{labels}_this_period"}}, 

                        $form->format_amount(

$myconfig,

                            $account{$category}{subthis} 

                                * $account{$category}{ml}, 

                            $form->{decimalplaces}, 

$dash));

                    if ($last_period) {

# Chris T: Giving up on

# Formatting this one :-(

                        push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash));

}

                $str = "$form->{br}$form->{bold}$form->{$category}{$key}{description}$form->{endbold}";

                $account{$category}{subthis} 

                    = $form->{$category}{$key}{this};

                $account{$category}{sublast} 

                    = $form->{$category}{$key}{last};

                $account{$category}{subdescription} 

                    = $form->{$category}{$key}{description};

                $account{$category}{subtotal} = 1;

                $form->{$category}{$key}{this} = 0;

                $form->{$category}{$key}{last} = 0;

                next unless $form->{l_heading};

                $dash = " ";

}

            push(@{$form->{"$account{$category}{label}_account"}}, 

$str);

            if ($form->{$category}{$key}{charttype} eq 'A') {

                    $form->{"total_$account{$category}{labels}_this_period"} += $form->{$category}{$key}{this} * $account{$category}{ml};

                    $dash = "- ";

}

            push(@{$form->{"$account{$category}{labels}_this_period"}}, $form->format_amount($myconfig, $form->{$category}{$key}{this} * $account{$category}{ml}, $form->{decimalplaces}, $dash));

# add amount or - for last period

            if ($last_period) {

                $form->{"total_$account{$category}{labels}_last_period"} += $form->{$category}{$key}{last} * $account{$category}{ml};

                push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig,$form->{$category}{$key}{last} * $account{$category}{ml}, $form->{decimalplaces}, $dash));

}

        $str = ($form->{l_heading}) ? $form->{padding} : "";

        if ($account{$category}{subtotal} && $form->{l_subtotal}) {

            push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}");

            push(@{$form->{"$account{$category}{labels}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash));

            if ($last_period) {

                push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash));

}

# totals for income and expenses

    $form->{total_income_this_period} = $form->round_amount($form->{total_income_this_period}, $form->{decimalplaces});

    $form->{total_expenses_this_period} = $form->round_amount($form->{total_expenses_this_period}, $form->{decimalplaces});

# total for income/loss

    $form->{total_this_period} = $form->{total_income_this_period} - $form->{total_expenses_this_period};

    if ($last_period) {

# total for income/loss

        $form->{total_last_period} = $form->format_amount($myconfig, $form->{total_income_last_period} - $form->{total_expenses_last_period}, $form->{decimalplaces}, "- ");

# totals for income and expenses for last_period

        $form->{total_income_last_period} = $form->format_amount($myconfig, $form->{total_income_last_period}, $form->{decimalplaces}, "- ");

        $form->{total_expenses_last_period} = $form->format_amount($myconfig, $form->{total_expenses_last_period}, $form->{decimalplaces}, "- ");

}

    $form->{total_income_this_period} = $form->format_amount($myconfig,$form->{total_income_this_period}, $form->{decimalplaces}, "- ");

    $form->{total_expenses_this_period} = $form->format_amount($myconfig,$form->{total_expenses_this_period}, $form->{decimalplaces}, "- ");

    $form->{total_this_period} = $form->format_amount($myconfig,$form->{total_this_period}, $form->{decimalplaces}, "- ");

}

sub balance_sheet {

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

    my $dbh = $form->{dbh};

    my $last_period = 0;

    my @categories = qw(A L Q);

    my $null;

    if ($form->{asofdate}) {

        if ($form->{asofyear} && $form->{asofmonth}) {

            if ($form->{asofdate} !~ /\W/) {

                $form->{asofdate} 

                    = "$form->{asofyear}$form->{asofmonth}$form->{asofdate}";

}

    } else {

        if ($form->{asofyear} && $form->{asofmonth}) {

            ($null, $form->{asofdate}) 

                = $form->from_to(

                    $form->{asofyear}, $form->{asofmonth});

}

# if there are any dates construct a where

    if ($form->{asofdate}) {

        $form->{this_period} = "$form->{asofdate}";

        $form->{period} = "$form->{asofdate}";

}

    $form->{decimalplaces} *= 1;

&get_accounts(

        $dbh, $last_period, "", $form->{asofdate}, $form, 

        \@categories, 1);

    if ($form->{compareasofdate}) {

        if ($form->{compareasofyear} && $form->{compareasofmonth}) {

            if ($form->{compareasofdate} !~ /\W/) {

                $form->{compareasofdate} = "$form->{compareasofyear}$form->{compareasofmonth}$form->{compareasofdate}";

}

    } else {

        if ($form->{compareasofyear} && $form->{compareasofmonth}) {

            ($null, $form->{compareasofdate}) = $form->from_to(

                $form->{compareasofyear}, 

                $form->{compareasofmonth});

}

# if there are any compare dates

    if ($form->{compareasofdate}) {

        $last_period = 1;

&get_accounts(

            $dbh, $last_period, "", $form->{compareasofdate}, 

            $form, \@categories, 1);

        $form->{last_period} = "$form->{compareasofdate}";

}

    $dbh->commit;

# now we got $form->{A}{accno}{ } assets

# and $form->{L}{accno}{ } liabilities

# and $form->{Q}{accno}{ } equity

# build asset accounts

    my $str;

    my $key;

    my %account  = ( 

'A' => {

            'label' => 'asset',

            'labels' => 'assets',

            'ml' => -1 },

'L' => {

            'label' => 'liability',

            'labels' => 'liabilities',

            'ml' => 1 },

'Q' => {

            'label' => 'equity',

            'labels' => 'equity',

            'ml' => 1 }

);

    foreach $category (@categories) {               

        foreach $key (sort keys %{ $form->{$category} }) {

            $str = ($form->{l_heading}) ? $form->{padding} : "";

            if ($form->{$category}{$key}{charttype} eq "A") {

$str .=

                    ($form->{l_accno}) 

                    ? "$form->{$category}{$key}{accno} - $form->{$category}{$key}{description}" 

                    : "$form->{$category}{$key}{description}";

}

            if ($form->{$category}{$key}{charttype} eq "H") {

                if ($account{$category}{subtotal} 

                        && $form->{l_subtotal}) {

                    $dash = "- ";

                    push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}");

                    push(@{$form->{"$account{$category}{label}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash));

                    if ($last_period) {

                        push(@{$form->{"$account{$category}{label}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash));

}


context:
space:
mode: