ledger-smb - Unnamed repository; edit this file to name it for gitweb.

diff options

Diffstat (limited to 'templates/French-request_quotation.tex')

0 files changed, 0 insertions, 0 deletions

fork):

# Author: DWS Systems Inc.

# Web: http://www.sql-ledger.org

# Contributors:

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

# This file has NOT undergone whitespace cleanup.

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

# backend code for human resources and payroll

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

package HR;

sub get_employee {

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

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

  my $query;

  my $sth;

  my $ref;

  my $notid = "";

  if ($form->{id}) {

    $query = qq|SELECT e.*

FROM employee e

                WHERE e.id = $form->{id}|;

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

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

    $ref = $sth->fetchrow_hashref(NAME_lc);

# check if employee can be deleted, orphaned

    $form->{status} = "orphaned" unless $ref->{login};

$form->{status} = 'orphaned';   # leave orphaned for now until payroll is done

    $ref->{employeelogin} = $ref->{login};

    delete $ref->{login};

    for (keys %$ref) { $form->{$_} = $ref->{$_} }

    $sth->finish;

# get manager

    $form->{managerid} *= 1;

    $query = qq|SELECT name

FROM employee

        WHERE id = $form->{managerid}|;

    ($form->{manager}) = $dbh->selectrow_array($query);

######### disabled for now

if ($form->{deductions}) {

# get allowances

    $query = qq|SELECT d.id, d.description, da.before, da.after, da.rate

FROM employeededuction da

        JOIN deduction d ON (da.deduction_id = d.id)

        WHERE da.employee_id = $form->{id}|;

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

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

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

      $ref->{rate} *= 100;

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

}

    $sth->finish;

}

    $notid = qq|AND id != $form->{id}|;

  } else {

    $query = qq|SELECT current_date FROM defaults|;

    ($form->{startdate}) = $dbh->selectrow_array($query);

}

# get managers

  $query = qq|SELECT id, name

FROM employee

WHERE sales = '1'

          AND role = 'manager'

$notid

ORDER BY 2|;

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

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

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

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

}

  $sth->finish;

# get deductions