#===================================================================== # SQL-Ledger ERP # Copyright (c) 2006 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.com # #====================================================================== # # payroll module # #====================================================================== use SL::HR; use SL::User; use SL::AA; use SL::GL; require "$form->{path}/arap.pl"; require "$form->{path}/arapprn.pl"; 1; # end of main sub add { $label = "Add ".ucfirst $form->{db}; $form->{title} = $locale->text($label); $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}" unless $form->{callback}; &{ "prepare_$form->{db}" }; &display_form; } sub search { &{ "search_$form->{db}" } }; sub search_employee { $form->{title} = $locale->text('Employees'); $form->helpref("search_employee", $myconfig{countrycode}); @f = (); push @f, qq| |.$locale->text('Pos'); push @f, qq| |.$locale->text('ID'); push @f, qq| |.$locale->text('Employee Name'); push @f, qq| |.$locale->text('Employee Number'); push @f, qq| |.$locale->text('Address'); push @f, qq| |.$locale->text('City'); push @f, qq| |.$locale->text('State/Province'); push @f, qq| |.$locale->text('Zip/Postal Code'); push @f, qq| |.$locale->text('Country'); push @f, qq| |.$locale->text('Work Phone'); push @f, qq| |.$locale->text('Work Fax'); push @f, qq| |.$locale->text('Work Mobile'); push @f, qq| |.$locale->text('Home Phone'); push @f, qq| |.$locale->text('Home Mobile'); push @f, qq| |.$locale->text('Startdate'); push @f, qq| |.$locale->text('Enddate'); push @f, qq| |.$locale->text('Role'); push @f, qq| |.$locale->text('Sales'); push @f, qq| |.$locale->text('Login'); push @f, qq| |.$locale->text('E-mail'); push @f, qq| |.$locale->text('SSN'); push @f, qq| |.$locale->text('DOB'); push @f, qq| |.$locale->text('IBAN'); push @f, qq| |.$locale->text('BIC'); push @f, qq| |.$locale->text('Notes'); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Employee Name').qq|
|.$locale->text('Employee Number').qq|
|.$locale->text('Startdate').qq| |.$locale->text('From').qq| |.$locale->text('To').qq|
|.$locale->text('Notes').qq|
 |.$locale->text('All').qq|  |.$locale->text('Active').qq|  |.$locale->text('Inactive').qq|  |.$locale->text('Orphaned').qq|  |.$locale->text('Sales').qq|
|.$locale->text('Include in Report').qq| |; while (@f) { print qq|\n|; for (1 .. 5) { print qq|\n|; } print qq|\n|; } print qq|
|. shift @f; print qq|
|; $form->{nextsub} = "list_employees"; $form->hide_form(qw(nextsub db path login)); print qq|
|; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq| |; } sub list_employees { HR->employees(\%myconfig, \%$form); $href = "$form->{script}?action=list_employees"; for (qw(direction oldsort db path login status)) { $href .= "&$_=$form->{$_}" } $form->sort_order(); $callback = "$form->{script}?action=list_employees"; for (qw(direction oldsort db path login status)) { $callback .= "&$_=$form->{$_}" } @columns = $form->sort_columns(qw(id employeenumber name address city state zipcode country workphone workfax workmobile homephone homemobile email startdate enddate ssn dob iban bic sales acsrole login notes)); unshift @columns, "ndx"; for (@columns) { if ($form->{"l_$_"} eq "Y") { push @column_index, $_; # add column to href and callback $callback .= "&l_$_=Y"; $href .= "&l_$_=Y"; } } @columns = (); for (@column_index) { if ($_ eq 'address') { push @columns, ('address1', 'address2'); } else { push @columns, $_; } } @column_index = @columns; $option = $locale->text('All'); if ($form->{status} eq 'sales') { $option = $locale->text('Sales'); } if ($form->{status} eq 'orphaned') { $option = $locale->text('Orphaned'); } if ($form->{status} eq 'active') { $option = $locale->text('Active'); } if ($form->{status} eq 'inactive') { $option = $locale->text('Inactive'); } if ($form->{employeenumber}) { $callback .= "&employeenumber=".$form->escape($form->{employeenumber},1); $href .= "&employeenumber=".$form->escape($form->{employeenumber}); $option .= "\n
".$locale->text('Employee Number')." : $form->{employeenumber}"; } if ($form->{name}) { $callback .= "&name=".$form->escape($form->{name},1); $href .= "&name=".$form->escape($form->{name}); $option .= "\n
".$locale->text('Employee Name')." : $form->{name}"; } if ($form->{startdatefrom}) { $callback .= "&startdatefrom=$form->{startdatefrom}"; $href .= "&startdatefrom=$form->{startdatefrom}"; $fromdate = $locale->date(\%myconfig, $form->{startdatefrom}, 1); } if ($form->{startdateto}) { $callback .= "&startdateto=$form->{startdateto}"; $href .= "&startdateto=$form->{startdateto}"; $todate = $locale->date(\%myconfig, $form->{startdateto}, 1); } if ($fromdate || $todate) { $option .= "\n
".$locale->text('Startdate')." $fromdate - $todate"; } if ($form->{notes}) { $callback .= "¬es=".$form->escape($form->{notes},1); $href .= "¬es=".$form->escape($form->{notes}); $option .= "\n
" if $option; $option .= $locale->text('Notes')." : $form->{notes}"; } $form->helpref("list_employees", $myconfig{countrycode}); $href .= "&helpref=".$form->escape($form->{helpref}); $callback .= "&helpref=".$form->escape($form->{helpref},1); $form->{callback} = "$callback&sort=$form->{sort}"; $callback = $form->escape($form->{callback}); $column_header{ndx} = qq| |; $column_header{id} = qq||.$locale->text('ID').qq||; $column_header{employeenumber} = qq||.$locale->text('Number').qq||; $column_header{name} = qq||.$locale->text('Name').qq||; $column_header{address1} = qq||.$locale->text('Address').qq||; $column_header{address2} = qq| |; $column_header{city} = qq||.$locale->text('City').qq||; $column_header{state} = qq||.$locale->text('State/Province').qq||; $column_header{zipcode} = qq||.$locale->text('Zip/Postal Code').qq||; $column_header{country} = qq||.$locale->text('Country').qq||; $column_header{workphone} = qq||.$locale->text('Work Phone').qq||; $column_header{workfax} = qq||.$locale->text('Work Fax').qq||; $column_header{workmobile} = qq||.$locale->text('Work Mobile').qq||; $column_header{homephone} = qq||.$locale->text('Home Phone').qq||; $column_header{homemobile} = qq||.$locale->text('Home Mobile').qq||; $column_header{startdate} = qq||.$locale->text('Startdate').qq||; $column_header{enddate} = qq||.$locale->text('Enddate').qq||; $column_header{notes} = qq||.$locale->text('Notes').qq||; $column_header{acsrole} = qq||.$locale->text('Role').qq||; $column_header{login} = qq||.$locale->text('Login').qq||; $column_header{sales} = qq||.$locale->text('S').qq||; $column_header{email} = qq||.$locale->text('E-mail').qq||; $column_header{ssn} = qq||.$locale->text('SSN').qq||; $column_header{dob} = qq||.$locale->text('DOB').qq||; $column_header{iban} = qq||.$locale->text('IBAN').qq||; $column_header{bic} = qq||.$locale->text('BIC').qq||; $form->{title} = $locale->text('Employees') . " / $form->{company}"; $form->header; print qq|
$form->{helpref}$form->{title}
$option
|; for (@column_index) { print "$column_header{$_}\n" } print qq| |; $i = 0; foreach $ref (@{ $form->{all_employee} }) { $i++; $ref->{notes} =~ s/\r?\n/
/g; for (@column_index) { $column_data{$_} = "" } $column_data{ndx} = ""; $column_data{sales} = ($ref->{sales}) ? "" : ""; $column_data{acsrole} = qq||; $column_data{name} = ""; if ($ref->{email}) { $email = $ref->{email}; $email =~ s//\>/; $column_data{email} = qq||; } $j++; $j %= 2; print " "; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } $i = 1; $button{'HR--Employees--Add Employee'}{code} = qq| |; $button{'HR--Employees--Add Employee'}{order} = $i++; foreach $item (split /;/, $myconfig{acs}) { delete $button{$item}; } print qq|
$ref->{$_} $ix $ref->{acsrole} {script}?action=edit&db=employee&id=$ref->{id}&path=$form->{path}&login=$form->{login}&status=$form->{status}&callback=$callback>$ref->{name} $email

{script}> |; $form->hide_form(qw(callback db path login)); foreach $item (sort { $a->{order} <=> $b->{order} } %button) { print $item->{code}; } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub edit { # $locale->text('Edit Employee') # $locale->text('Edit Deduction') # $locale->text('Edit Payroll') $label = ucfirst $form->{db}; $form->{title} = $locale->text("Edit $label"); &{ "prepare_$form->{db}" }; &display_form; } sub new_number { $form->{employeenumber} = $form->update_defaults(\%myconfig, employeenumber); &display_form; } sub prepare_employee { HR->get_employee(\%myconfig, \%$form); for (keys %$form) { $form->{$_} = $form->quote($form->{$_}) } for $key (qw(wage deduction acsrole paymentmethod)) { if (@{ $form->{"all_$key"} }) { if ($form->{login} eq "admin\@$myconfig{dbname}") { $form->{"select$key"} = "\n"; } else { if ($form->{id}) { $form->{"select$key"} = ($key eq "acsrole") ? "" : "\n"; } else { $form->{"select$key"} = "\n"; } } for (@{ $form->{"all_$key"} }) { $form->{"select$key"} .= qq|$_->{description}--$_->{id}\n| } $form->{$key} = qq|$form->{$key}--$form->{"${key}_id"}|; } } for $key (qw(wage deduction)) { delete $form->{$key} } $form->{oldemployeelogin} = $form->{employeelogin}; if ($form->{id}) { if ($form->{employeelogin}) { open FH, $memberfile; @member = ; close FH; while (@member) { $_ = shift @member; next if ! /\[$form->{employeelogin}\@$myconfig{dbname}\]/; do { if (/pin/) { chomp; ($null, $form->{pin}) = split /=/, $_, 2; } if (/password/) { chomp; ($null, $form->{employeepassword}) = split /=/, $_, 2; } $_ = shift @member; } until /^\s/; } } } $i = 0; foreach $ref (@{ $form->{all_employeewage} }) { $i++; $form->{"wage_$i"} = "$ref->{description}--$ref->{id}" if $ref->{id}; } $form->{wage_rows} = $i; $i = 0; foreach $ref (sort { $a->{edid} <=> $b->{edid} } @{ $form->{all_employeededuction} }) { $i++; $form->{"deduction_$i"} = "$ref->{description}--$ref->{id}" if $ref->{id}; $form->{"exempt_$i"} = $ref->{exempt}; $form->{"maximum_$i"} = $ref->{maximum}; $form->{"withholding_$i"} = ($ref->{withholding}) ? 1 : 0; } $form->{deduction_rows} = $i; $i = 0; foreach $ref (@{ $form->{all_payrate} }) { $i++; for (qw(rate above)) { $form->{"${_}_$i"} = $ref->{$_} } } $form->{payrate_rows} = $i; $form->{payperiod} = "" unless $form->{payperiod} ; for $key (qw(ap expense payment)) { if (@{ $form->{"${key}_accounts"} }) { $form->{"select$key"} = "\n"; for (@{ $form->{"${key}_accounts"} }) { $form->{"select$key"} .= qq|$_->{accno}--$_->{description}\n| } } $form->{$key} = qq|$form->{$key}--$form->{"${key}_description"}|; } $i = 0; for (@{ $form->{all_reference} }) { $i++; $form->{"referencedescription_$i"} = $_->{description}; $form->{"referenceid_$i"} = $_->{id}; } $form->{reference_rows} = $i; for (qw(paymentmethod payment ap wage deduction acsrole)) { $form->{"select$_"} = $form->escape($form->{"select$_"},1) } if (! $form->{readonly}) { $form->{readonly} = 1 if $myconfig{acs} =~ /Add Employee/; } $form->helpref("employee", $myconfig{countrycode}); } sub employee_header { $reference_documents = &reference_documents; $form->{deduction_rows}++; $form->{payrate_rows}++; $form->{wage_rows}++; $form->header; print qq|
{script}> |; $form->hide_form(qw(acs payrate_rows wage_rows deduction_rows reference_rows referenceurl status title helpref oldemployeelogin company)); $form->hide_form(map { "select$_" } qw(paymentmethod payment ap wage deduction acsrole)); $login = ""; if ($form->{admin}) { $sales = ($form->{sales}) ? "checked" : ""; $pin = ($form->{pin}) ? "checked" : ""; if ($form->{selectacsrole}) { $login = qq| |.$locale->text('Role').qq| |; } $login .= qq| |.$locale->text('Login').qq| |.$locale->text('Password').qq| |.$locale->text('E-mail PIN').qq| |.$locale->text('Sales').qq| |; } else { ($acsrole) = split /--/, $form->{acsrole}; if ($form->{selectacsrole}) { $login = qq| |.$locale->text('Role').qq| $acsrole |; } if ($form->{employeelogin}) { $login .= qq| |.$locale->text('Login').qq| $form->{employeelogin} |; } if ($form->{pin}) { $login .= qq| |.$locale->text('E-mail PIN').qq| x |; } if ($form->{sales}) { $login .= qq| |.$locale->text('Sales').qq| x |; } $form->hide_form(qw(acsrole employeelogin sales pin employeepassword)); } print qq|
$form->{helpref}$form->{title}
$reference_documents
$login
|.$locale->text('Employee Number').qq|
|.$locale->text('Name').qq| *
|.$locale->text('Address').qq|
|.$locale->text('City').qq|
|.$locale->text('State/Province').qq|
|.$locale->text('Zip/Postal Code').qq|
|.$locale->text('Country').qq|
|.$locale->text('E-mail').qq|
|.$locale->text('Work Phone').qq|
|.$locale->text('Work Fax').qq|
|.$locale->text('Work Mobile').qq|
|.$locale->text('Home Phone').qq|
|.$locale->text('Home Mobile').qq|
|.$locale->text('Startdate').qq| {startdate}>
|.$locale->text('Enddate').qq| {enddate}>
|.$locale->text('SSN').qq|
|.$locale->text('DOB').qq| {dob}>
|.$locale->text('Notes').qq|
|.$locale->text('Bank').qq|
|.$locale->text('Address').qq|
|.$locale->text('City').qq|
|.$locale->text('State/Province').qq|
|.$locale->text('Zip/Postal Code').qq|
|.$locale->text('Country').qq|
|.$locale->text('IBAN').qq|
|.$locale->text('BIC').qq|
|.$locale->text('Member No.').qq|
|.$locale->text('Clearing No.').qq|
|; if ($form->{selectwage}) { print qq| |; } if ($form->{selectdeduction}) { print qq| |; } if ($form->{selectpaymentmethod}) { $paymentmethod = qq| |; } print qq|
|; for $i (1 .. $form->{wage_rows}) { print qq| |; } print qq|
|.$locale->text('Wages').qq|
|; for $i (1 .. $form->{deduction_rows}) { print qq| |; } print qq|
|.$locale->text('Payroll Deduction').qq| |.$locale->text('Exempt').qq| |.$locale->text('Maximum').qq|
format_amount(\%myconfig, $form->{"exempt_$i"}, $form->{precision}).qq|> format_amount(\%myconfig, $form->{"maximum_$i"}, $form->{precision}).qq|>
|.$locale->text('Method').qq|
$paymentmethod
|.$locale->text('AP').qq|
|.$locale->text('Payment').qq|
|.$locale->text('Pay Periods').qq| {payperiod}>
|; for $i (1 .. $form->{payrate_rows}) { print qq| |; } print qq|
|.$locale->text('Pay Rates').qq| |.$locale->text('Over').qq|
format_amount(\%myconfig, $form->{"rate_$i"}, $form->{precision}).qq|> format_amount(\%myconfig, $form->{"above_$i"}).qq|>
|; } sub employee_footer { $form->hide_form(qw(precision id db addressid path login callback)); if ($form->{readonly}) { &islocked; } else { %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, 'Save' => { ndx => 2, key => 'S', value => $locale->text('Save') }, 'Save as new' => { ndx => 5, key => 'N', value => $locale->text('Save as new') }, 'Access Control' => { ndx => 6, key => 'A', value => $locale->text('Access Control') }, 'New Number' => { ndx => 15, key => 'M', value => $locale->text('New Number') }, 'Delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') }, ); %f = (); for ("Update", "Save", "New Number") { $f{$_} = 1 } if ($form->{id}) { if ($form->{status} eq 'orphaned') { $f{'Delete'} = 1; } $f{'Save as new'} = 1; } $f{'Access Control'} = 1 if $form->{admin}; for (keys %button) { delete $button{$_} if ! $f{$_} } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub access_control { $menufile = "menu.ini"; $form->helpref("access_control", $myconfig{countrycode}); $form->header; print qq|
{script}> |; # access control open(FH, $menufile) or $form->error("$menufile : $!"); # scan for first menu level @f = ; close(FH); if (open(FH, "custom_$menufile")) { push @f, ; } close(FH); foreach $item (@f) { next unless $item =~ /\[\w+/; next if $item =~ /\#/; $item =~ s/(\[|\])//g; chop $item; if ($item =~ /--/) { ($level, $menuitem) = split /--/, $item, 2; } else { $level = $item; $menuitem = $item; push @acsorder, $item; } push @{ $acs{$level} }, $menuitem; } foreach $item (split /;/, $form->{acs}) { ($key, $value) = split /--/, $item, 2; $excl{$key}{$value} = 1; } foreach $key (@acsorder) { $checked = ($excl{$key}{$key}) ? "" : "checked"; # can't have variable names with & and spaces $item = $form->escape("${key}--$key",1); $acsheading = $key; $acsheading =~ s/ / /g; $acsheading = qq| \n|; $menuitems .= "$item;"; $acsdata = qq| |; print qq| $acsheading $acsdata |; } $form->{access} = "$menuitems"; print qq|
$form->{name}
 $acsheading|; foreach $item (@{ $acs{$key} }) { next if ($key eq $item); $checked = ($excl{$key}{$item}) ? "" : "checked"; $acsitem = $form->escape("${key}--$item",1); $acsdata .= qq|
 $item|; $menuitems .= "$acsitem;"; } $acsdata .= qq|
|; delete $form->{action}; $form->{nextsub} = "save_acs"; $form->hide_form; %button = ('Continue' => { ndx => 1, key => 'C', value => $locale->text('Continue') } ); for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } print qq|
|; } sub save_acs { $form->{acs} = ""; for (split /;/, $form->{access}) { $item = $form->escape($_,1); if (!$form->{$item}) { $item = $form->unescape($_); $form->{acs} .= "${item};"; } } &display_form; } sub display_form { &{ "$form->{db}_header" }; &{ "$form->{db}_footer" }; } sub save { &{ "save_$form->{db}" } }; sub save_employee { $form->isblank("name", $locale->text("Name missing!")); $form->error("$memberfile : ".$locale->text('locked!')) if (-f ${memberfile}.LCK); if (HR->save_employee(\%myconfig, \%$form)) { &save_memberfile; } $form->redirect($locale->text('Employee saved!')); } sub save_memberfile { # change memberfile open(FH, ">${memberfile}.LCK") or $form->error("${memberfile}.LCK : $!"); close(FH); if (! open(FH, "+<$memberfile")) { unlink "${memberfile}.LCK"; $form->error("$memberfile : $!"); } $login = ""; while () { if (/^\[/) { s/(\[|\])//g; chomp; $login = $_; next; } if ($login) { push @{ $member{$login} }, $_; } else { push @member, $_; } } if ($form->{employeelogin}) { $employeelogin = "$form->{employeelogin}\@$myconfig{dbname}"; # assign values from old entries $oldlogin = "$form->{oldemployeelogin}\@$myconfig{dbname}"; srand( time() ^ ($$ + ($$ << 15)) ); if (@{ $member{$oldlogin} }) { @memberlogin = grep !/^(name=|email=|password=|pin=)/, @{ $member{$oldlogin} }; ($oldemployeepassword) = grep /^password=/, @{ $member{$oldlogin} }; pop @memberlogin; $oldemployeepassword =~ s/password=//; chomp $oldemployeepassword; $form->{employeepassword} = $oldemployeepassword if $form->{nochange}; if ($form->{employeepassword} ne $oldemployeepassword) { if ($form->{employeepassword}) { $password = crypt $form->{employeepassword}, substr($form->{employeelogin}, 0, 2); push @memberlogin, "password=$password\n"; } } else { if ($oldemployeepassword) { push @memberlogin, "password=$oldemployeepassword\n"; } } for (qw(name email pin)) { push @memberlogin, "$_=$form->{$_}\n" if $form->{$_} } @{ $member{$employeelogin} } = (); for (@memberlogin) { push @{ $member{$employeelogin} }, $_; } } else { for (qw(company dateformat dbconnect dbdriver dbname dbhost dboptions dbpasswd dbuser numberformat)) { $m{$_} = $myconfig{$_} } for (qw(name email pin)) { $m{$_} = $form->{$_} } $m{dbpasswd} = pack 'u', $myconfig{dbpasswd}; chop $m{dbpasswd}; $m{stylesheet} = 'sql-ledger.css'; $m{timeout} = 86400; if ($form->{employeepassword}) { $m{password} = crypt $form->{employeepassword}, substr($form->{employeelogin}, 0, 2); } @{ $member{$employeelogin} } = (); for (sort keys %m) { push @{ $member{$employeelogin} }, "$_=$m{$_}\n" if $m{$_}; } } push @{ $member{$employeelogin} }, "\n"; } if ($form->{employeelogin} ne $form->{oldemployeelogin}) { delete $member{$form->{oldemployeelogin}}; # old format delete $member{"$form->{oldemployeelogin}\@$myconfig{dbname}"}; } seek(FH, 0, 0); truncate(FH, 0); # create header for (@member) { print FH $_; } for (sort keys %member) { print FH "\[$_\]\n"; for $line (@{ $member{$_} }) { print FH $line; } } close(FH); if ($form->{employeelogin} ne $form->{oldemployeelogin}) { if ($form->{oldemployeelogin}) { for ("$form->{oldemployeelogin}.conf", "$form->{oldemployeelogin}\@$myconfig{dbname}.conf") { $filename = "$userspath/$_"; if (-f $filename) { unlink "$filename"; } } } } unlink "${memberfile}.LCK"; } sub delete { &{ "delete_$form->{db}" } }; sub delete_payroll { $form->{title} = $locale->text('Confirm!'); $form->header; print qq|
{script}> |; $form->{action} = "yes"; $form->hide_form; print qq|

$form->{title}

|.$locale->text('Are you sure you want to delete Transaction').qq| $form->{invnumber}

|; } sub yes { if (AA->delete_transaction(\%myconfig, \%$form)) { $form->redirect($locale->text('Transaction deleted!')); } $form->error($locale->text('Cannot delete transaction!')); } sub delete_employee { $form->error("$memberfile : ".$locale->text('locked!')) if (-f ${memberfile}.LCK); if (HR->delete_employee(\%myconfig, \%$form)) { delete $form->{employeelogin}; &save_memberfile; $form->redirect($locale->text('Employee deleted!')); } $form->error($locale->text('Cannot delete employee!')); } sub continue { &{ $form->{nextsub} } }; sub add_employee { &add }; sub add_deduction { &add }; sub add_wage { &add }; sub add_transaction { &add }; sub prepare_payroll { HR->payroll_links(\%myconfig, \%$form); if (@{ $form->{all_language} }) { $form->{selectlanguage} = "\n"; for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|$_->{code}--$_->{description}\n| } } for $key (qw(ap payment)) { if (@{ $form->{"all_$key"} }) { for (@{ $form->{"all_$key"} }) { $form->{"select$key"} .= qq|$_->{accno}--$_->{description}\n| } } } if (@{ $form->{all_paymentmethod} }) { $form->{selectpaymentmethod} = "\n"; for (@{ $form->{all_paymentmethod} }) { $form->{selectpaymentmethod} .= qq|$_->{description}--$_->{id}\n| } } if (@{ $form->{all_department} }) { $form->{selectdepartment} = "\n"; for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|$_->{description}--$_->{id}\n| } } if (@{ $form->{all_project} }) { $form->{selectproject} = "\n"; for (@{ $form->{all_project} }) { $form->{selectproject} .= qq|$_->{projectnumber}--$_->{id}\n| } } $i = 0; for (@{ $form->{all_reference} }) { $i++; $form->{"referencedescription_$i"} = $_->{description}; $form->{"referenceid_$i"} = $_->{id}; } $form->{reference_rows} = $i; $form->{selectprinter} = ""; for (@{ $form->{all_printer} }) { $form->{selectprinter} .= "$_->{printer}\n" } chomp $form->{selectprinter}; $form->{formname} = 'payslip'; $form->{format} ||= $myconfig{outputformat}; if ($myconfig{printer}) { $form->{format} ||= "postscript"; } else { $form->{format} ||= "pdf"; } $form->{media} ||= $myconfig{printer}; $form->{selectformname} = qq|payslip--|.$locale->text('Pay Slip'); if (@{ $form->{all_employee} }) { $form->{selectemployee} = "\n"; for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|$_->{name}--$_->{id}\n| } } if (! $form->{readonly}) { $form->{readonly} = 1 if $myconfig{acs} =~ /Payroll--Add Transaction/; } for (qw(formname language employee ap payment paymentmethod printer department project)) { $form->{"select$_"} = $form->escape($form->{"select$_"},1) } $form->helpref("payrolltransaction", $myconfig{countrycode}); if ($form->{id}) { $form->{oldemployee} = $form->{employee}; for $i (1 .. $form->{wage_rows}) { $form->{"pay_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"} * $form->{"amount_$i"}, $form->{precision}); $form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, $form->{precision}); $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); } for $i (1 .. $form->{payrate_rows}) { $form->{"rate_$i"} = $form->format_amount(\%myconfig, $form->{"rate_$i"}, $form->{precision}); $form->{"above_$i"} = $form->format_amount(\%myconfig, $form->{"above_$i"}); } $form->{paid} = $form->format_amount(\%myconfig, $form->{paid}, $form->{precision}); &update_payroll; } } sub payroll_header { $paymentmethod = qq| |.$locale->text('Method').qq| | if $form->{selectpaymentmethod}; $project = qq| |.$locale->text('Project').qq| | if $form->{selectproject}; $department = qq| |.$locale->text('Department').qq| | if $form->{selectdepartment}; $reference_documents = &reference_documents; $form->header; print qq|
{script}> |; $form->{ARAP} = "AP"; $form->hide_form(qw(id invnumber helpref title precision ARAP reference_rows referenceurl)); $form->hide_form(map { "select$_" } qw(formname language employee ap payment paymentmethod printer department project)); print qq|
$form->{helpref}$form->{title}
$reference_documents
|; if ($form->{payrate_rows}) { print qq| |; for $i (2 .. $form->{payrate_rows}) { print qq| |; } } print qq| |; $exemptlabel = $locale->text('Exempt'); $deferlabel = $locale->text('Deferred'); if ($form->{wage_rows}) { for $i (1 .. $form->{wage_rows}) { $exempt = ($form->{"exempt_$i"}) ? $exemptlabel : ""; if ($form->{"defer_$i"}) { $exempt .= " / " if $exempt; $exempt .= $deferlabel; } print qq| |; } } print qq| $department $project $paymentmethod
|.$locale->text('Employee').qq| *
|.$locale->text('Pay Periods').qq| $form->{payperiod}
|.$locale->text('Pay Rates').qq| $form->{"rate_1"}
$form->{"rate_$i"} > $form->{"above_$i"}
|.$locale->text('Pay Period Ending').qq| {transdate}>
$form->{"wage_$i"} {"qty_$i"}> x {"amount_$i"}> $exempt
|.$locale->text('Description').qq|
|.$locale->text('Source').qq|
|.$locale->text('Memo').qq|
|.$locale->text('Paid').qq|
|.$locale->text('Date').qq| {datepaid}>
|.$locale->text('Payment').qq|
|.$locale->text('AP').qq|
$gross |; for $i (1 .. $form->{wage_rows}) { if ($form->{"pay_$i"}) { print qq| |; $form->hide_form(map { "${_}_$i" } qw(wage wage_id pay)); } } for $i (1 .. $form->{deduction_rows}) { if ($form->{"deduct_$i"}) { print qq| |; $form->hide_form(map { "${_}_$i" } qw(deduction deduction_id deduct)); } } if ($form->{net}) { print qq| |; } $form->hide_form(qw(gross net withheld deduction_rows wage_rows)); print qq|
$form->{"wage_$i"} $form->{"pay_$i"}
$form->{"deduction_$i"} $form->{"deduct_$i"}
|.$locale->text('Net').qq| $form->{net}
|; } sub payroll_footer { $form->hide_form(qw(oldemployee db path login callback)); if ($form->{readonly}) { &islocked; } else { &print_options; print qq|
|; %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, 'Preview' => { ndx => 2, key => 'V', value => $locale->text('Preview') }, 'Print' => { ndx => 3, key => 'P', value => $locale->text('Print') }, 'Post' => { ndx => 4, key => 'O', value => $locale->text('Post') }, 'Print and Post' => { ndx => 5, key => 'R', value => $locale->text('Print and Post') }, 'Post as new' => { ndx => 6, key => 'N', value => $locale->text('Post as new') }, 'Print and Post as new' => { ndx => 7, key => 'W', value => $locale->text('Print and Post as new') }, 'Delete' => { ndx => 8, key => 'D', value => $locale->text('Delete') } ); if (! $form->{id}) { for ('Delete', 'Post as new', 'Print and Post as new') { delete $button{$_} } } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub update_payroll { $upd = 1 if $form->{oldemployee} ne $form->{employee}; $ap = $form->{ap}; $pa = $form->{payment}; $pm = $form->{paymentmethod}; $id = $form->{id}; ($employee, $form->{id}) = split /--/, $form->{employee}; HR->get_employee(\%myconfig, \%$form, 1); $form->{oldemployee} = $form->{employee}; $form->{id} = $id; $form->{paid} = $form->parse_amount(\%myconfig, $form->{paid}); if ($upd) { for (qw(ap payment)) { $form->{$_} = qq|$form->{$_}--$form->{"${_}_description"}| } $form->{paymentmethod} = qq|$form->{paymentmethod}--$form->{paymentmethod_id}|; $form->{paid} = 0; for (qw(description source memo)) { $form->{$_} = ""; } for $i (1 .. $form->{wage_rows}) { for (qw(wage pay wage_id qty amount)) { delete $form->{"${_}_$i"} } } } else { $form->{ap} = $ap; $form->{payment} = $pa; $form->{paymentmethod} = $pm; } $i = 1; for $ref (@{ $form->{all_employeewage} }) { $form->{"exempt_$i"} = ($ref->{exempt}) ? 1 : 0; $form->{"defer_$i"} = ($ref->{defer}) ? 1 : 0; $form->{"wage_$i"} = $ref->{description}; $form->{"wage_id_$i"} = $ref->{id}; $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"}); $form->{"amount_$i"} = $form->parse_amount(\%myconfig, $form->{"amount_$i"}); if ($upd) { if ($ref->{amount}) { $form->{"amount_$i"} = $ref->{amount}; $form->{"qty_$i"} = 1; } } $amount = $form->round_amount($form->{"qty_$i"} * $form->{"amount_$i"}, 10); $temp{gross} += $amount unless $ref->{exempt}; $temp{net} += $amount unless $ref->{defer}; $form->{"pay_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"} * $form->{"amount_$i"}, $form->{precision}); $form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, $form->{precision}); $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); $i++; } $form->{wage_rows} = $i - 1; $form->{gross} = $form->format_amount(\%myconfig, $temp{gross}, $form->{precision}); $form->{withheld} = 0; $i = 0; $amount = 0; if ($temp{gross}) { for $ed (@{ $form->{all_employeededuction} }) { $i++; $ok = 1; $form->{"deduction_$i"} = $ed->{description}; $form->{"deduction_id_$i"} = $ed->{id}; $form->{"deduct_$i"} = 0; if ($form->{payrolldeduction}{$ed->{id}}{employeepays}) { for $ref (@{ $form->{all_deductionrate} }) { if (($ref->{trans_id} == $ed->{id}) && $ok) { $fromwithholding = 0; $fromincome = 0; if ($#{$form->{deduct}{$ref->{trans_id}}}) { $j = 0; for (@{ $form->{deduct}{$ref->{trans_id}} }) { if ($form->{deduct}{$ed->{id}}[$j]{trans_id} == $ref->{trans_id}) { $form->{deduct}{$ed->{id}}[$j]{percent} ||= 1; if ($form->{deduct}{$ed->{id}}[$j]{withholding}) { $fromwithholding += $temp{$form->{deduct}{$ed->{id}}[$j]{id}} * $form->{deduct}{$ed->{id}}[$j]{percent}; } else { $fromincome += $temp{$form->{deduct}{$ed->{id}}[$j]{id}} * $form->{deduct}{$ed->{id}}[$j]{percent}; } } $j++; } } if ($form->{payrolldeduction}{$ed->{id}}{basedon}) { $amount = $temp{$form->{payrolldeduction}{$ed->{id}}{basedon}} - $fromincome; } else { $amount = $temp{gross} - $fromincome; } if (($amount * $form->{payperiod}) > $ref->{above}) { if (($amount * $form->{payperiod}) < $ref->{below}) { $form->{"deduct_$i"} += (($amount * $form->{payperiod}) - $ref->{above}) * $ref->{rate} / $form->{payperiod}; $ok = 0; } else { if ($ref->{below}) { $form->{"deduct_$i"} += ($ref->{below} - $ref->{above}) * $ref->{rate} / $form->{payperiod}; } else { $form->{"deduct_$i"} += (($amount * $form->{payperiod}) - $ref->{above}) * $ref->{rate} / $form->{payperiod}; } } } } } $amount = ($form->{"deduct_$i"} - $fromwithholding - $ed->{exempt} / $form->{payperiod}) * $form->{payrolldeduction}{$ed->{id}}{employeepays}; $amount = 0 if $amount < 0; # check if amount is over maximum if ($ed->{maximum}) { if (($amount + $form->{total}{$ed->{id}}) > $ed->{maximum}) { $amount = $ed->{maximum} - $form->{total}{$ed->{id}}; } } # check for age restrictions if ($form->{payrolldeduction}{$ed->{id}}{fromage} || $form->{payrolldeduction}{$ed->{id}}{toage}) { $dob = $form->datetonum(\%myconfig, $form->{dob}); if ($form->{payrolldeduction}{$ed->{id}}{agedob}) { $transdate = $form->datetonum(\%myconfig, $form->{transdate}); } else { $transdate = substr($form->datetonum(\%myconfig, $form->{transdate}),0,4)."1231"; } if ($transdate && dob) { if ($form->{payrolldeduction}{$ed->{id}}{fromage}) { $d = $dob + ($form->{payrolldeduction}{$ed->{id}}{fromage} * 10000); $amount = 0 if $transdate <= $d; } if ($form->{payrolldeduction}{$ed->{id}}{toage}) { $d = $dob + ($form->{payrolldeduction}{$ed->{id}}{toage} * 10000); $transdate = substr($form->datetonum(\%myconfig, $form->{transdate}),0,4)."0101" unless $form->{payrolldeduction}{$ed->{id}}{agedob}; $amount = 0 if $transdate > $d; } } } $form->{"deduct_$i"} = $form->round_amount($amount, $form->{precision}); $temp{$ed->{id}} = $form->{"deduct_$i"}; $temp{net} -= $form->{"deduct_$i"}; } } } $form->{deduction_rows} = $i; $form->{net} = $form->format_amount(\%myconfig, $temp{net}, $form->{precision}); for $i (1 .. $form->{deduction_rows}) { $form->{withheld} += $form->{"deduct_$i"}; $form->{"deduct_$i"} = $form->format_amount(\%myconfig, $form->{"deduct_$i"} * -1, $form->{precision}); } for (qw(paid withheld)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, $form->{precision}) } $i = 0; for $ref (@{ $form->{all_payrate} }) { $i++; $form->{"rate_$i"} = $form->format_amount(\%myconfig, $ref->{rate}, $form->{precision}); $form->{"above_$i"} = $form->format_amount(\%myconfig, $ref->{above}); } $form->{payrate_rows} = $i; } sub post { ($null, $employee_id) = split /--/, $form->{employee}; $form->error($locale->text('Employee missing!')) unless $employee_id; $form->isblank("transdate", $locale->text('Date missing!')); if (! $form->{repost}) { if ($form->{id}) { &repost; exit; } } if (HR->post_transaction(\%myconfig, \%$form)) { $form->redirect($locale->text('Transaction posted!')); } $form->error($locale->text('Posting failed!')); } sub search_payroll { $form->{reportcode} = 'payroll'; HR->search_payroll(\%myconfig, \%$form); $form->{title} = $locale->text('Payroll Transactions'); $form->helpref("payroll_transactions", $myconfig{countrycode}); $employeelabel = $locale->text('Employee'); if (@{ $form->{all_employee} }) { $form->{selectemployee} = "\n"; for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|$_->{name}--$_->{id}\n| } $employee = qq| $employeelabel |; } else { $employee = qq| $employeelabel |.$locale->text('Employee Number').qq| |; } # departments if (@{ $form->{all_department} }) { $form->{selectdepartment} = "\n"; for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|$_->{description}--$_->{id}\n| } $department = qq| |.$locale->text('Department').qq| |; } # projects if (@{ $form->{all_project} }) { $form->{selectprojectnumber} = "\n"; for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|$_->{projectnumber}--$_->{id}\n| } $project = qq| |.$locale->text('Project').qq| |; } if (@{ $form->{all_years} }) { $selectaccountingyear = "\n"; for (@{ $form->{all_years} }) { $selectaccountingyear .= qq|$_\n| } $selectaccountingmonth = "\n"; for (sort keys %{ $form->{all_month} }) { $selectaccountingmonth .= qq|$_--|.$locale->text($form->{all_month}{$_}).qq|\n| } $selectfrom = qq| |.$locale->text('Period').qq|  |.$locale->text('Current').qq|  |.$locale->text('Month').qq|  |.$locale->text('Quarter').qq|  |.$locale->text('Year').qq| |; } if (@{ $form->{all_report} }) { $form->{selectreportform} = "\n"; for (@{ $form->{all_report} }) { $form->{selectreportform} .= qq|$_->{reportdescription}--$_->{reportid}\n| } $reportform = qq| |.$locale->text('Report').qq| |; } if (@{ $form->{all_paymentmethod} }) { $form->{selectpaymentmethod} = "\n"; for (@{ $form->{all_paymentmethod} }) { $form->{selectpaymentmethod} .= qq|$_->{description}--$_->{id}\n| } $paymentmethod = qq| |.$locale->text('Method').qq| |; } @checked = qw(l_subtotal); @input = qw(employee paymentmethod transdatefrom transdateto month year sort direction reportlogin); %radio = ( interval => { 0 => 0, 1 => 1, 3 => 2, 12 => 3 }, summary => { 1 => 1, 0 => 1 } ); $form->{sort} = "employee"; $form->{summary} = 1; $form->header; JS->change_report(\%$form, \@input, \@checked, \%radio); print qq|
{script}>
$form->{helpref}$form->{title}
$reportform $employee $department $project $selectfrom $paymentmethod
|.$locale->text('Date').qq| |.$locale->text('From').qq| |.$locale->text('To').qq|
|.$locale->text('Summary').qq| |.$locale->text('Detail').qq|
|.$locale->text('Subtotal').qq|
|; $form->{nextsub} = "payroll_transactions"; $form->hide_form(qw(sort direction reportlogin helpref nextsub db path login)); print qq|
|; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq| |; } sub payroll_transactions { ($form->{reportdescription}, $form->{reportid}) = split /--/, $form->{report}; $form->{sort} ||= "employee"; $form->{reportcode} = 'payroll'; HR->payroll_transactions(\%myconfig, \%$form); $form->{title} = $locale->text('Payroll Transactions'); $href = "$form->{script}?action=payroll_transactions"; for (qw(path login summary db)) { $href .= qq|&$_=$form->{$_}| } $href .= "&helpref=".$form->escape($form->{helpref}); $callback = "$form->{script}?action=payroll_transactions"; for (qw(path login summary db)) { $callback .= qq|&$_=$form->{$_}| } $callback .= "&helpref=".$form->escape($form->{helpref},1); if ($form->{employee}) { $callback .= "&employee=".$form->escape($form->{employee},1); $href .= "&employee=".$form->escape($form->{employee}); ($employee) = split /--/, $form->{employee}; $option .= "\n
" if ($option); $option .= $locale->text('Employee'); $option .= " : $employee"; } if ($form->{department}) { $callback .= "&department=".$form->escape($form->{department},1); $href .= "&department=".$form->escape($form->{department}); ($department) = split /--/, $form->{department}; $option .= "\n
" if ($option); $option .= $locale->text('Department')." : $department"; } if ($form->{projectnumber}) { $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1); $href .= "&projectnumber=".$form->escape($form->{projectnumber}); ($projectnumber) = split /--/, $form->{projectnumber}; $option .= "\n
" if ($option); $option .= $locale->text('Project')." : $projectnumber"; } if ($form->{transdatefrom}) { $callback .= "&transdatefrom=$form->{transdatefrom}"; $href .= "&transdatefrom=$form->{transdatefrom}"; $option .= "\n
" if ($option); $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1); } if ($form->{transdateto}) { $callback .= "&transdateto=$form->{transdateto}"; $href .= "&transdateto=$form->{transdateto}"; $option .= "\n
" if ($option); $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1); } @column_index = qw(employee transdate payslip invnumber reference paid); $column_data{employee} = "".$locale->text('Employee').""; $column_data{transdate} = "".$locale->text('Date').""; $column_data{invnumber} = "".$locale->text('AP').""; $column_data{reference} = "".$locale->text('GL').""; $column_data{payslip} = "".$locale->text('Pay Slip').""; $column_data{paid} = "" . $locale->text('Paid') . ""; for (@{ $form->{all_wage} }) { $column_data{$_->{id}} = "$_->{description}"; push @column_index, $_->{id}; } for (@{ $form->{all_deduction} }) { $column_data{$_->{id}} = "$_->{description}"; push @column_index, $_->{id}; } $form->{title} = ($form->{title}) ? $form->{title} : $locale->text('Payroll Transactions'); $form->{title} .= " / $form->{company}"; $form->header; print qq|
$form->{helpref}$form->{title}
$option
|; for (@column_index) { print "\n$column_data{$_}" } print qq| |; # add sort and escape callback, this one we use for the add sub $form->{callback} = $callback .= "&sort=$form->{sort}"; # escape callback for href $callback = $form->escape($callback); $l = $#{$form->{transactions}}; $i = 0; foreach $ref (@{ $form->{transactions} }) { for (qw(paid)) { $column_data{$_} = ""; $form->{"subtotal$_"} += $ref->{$_}; $form->{"total$_"} += $ref->{$_}; } for (@{ $form->{all_wage} }) { $column_data{$_->{id}} = ""; $form->{"subtotal$_->{id}"} += $ref->{$_->{id}}; $form->{"total$_->{id}"} += $ref->{$_->{id}}; } for (@{ $form->{all_deduction} }) { $column_data{$_->{id}} = ""; $form->{"subtotal$_->{id}"} += $ref->{$_->{id}}; $form->{"total$_->{id}"} += $ref->{$_->{id}}; } $column_data{invnumber} = ""; $column_data{reference} = ""; $column_data{payslip} = ""; $column_data{transdate} = ""; $column_data{employee} = ""; if ($ref->{$form->{sort}} eq $sameitem) { $column_data{$form->{sort}} = ""; } $j++; $j %= 2; print " "; for (@column_index) { print "\n$column_data{$_}" } print qq| |; if ($form->{l_subtotal} eq 'Y') { if ($i < $l) { if ($ref->{$form->{sort}} ne $form->{transactions}->[$i+1]->{$form->{sort}}) { &payroll_subtotal; } } else { &payroll_subtotal; } } $sameitem = $ref->{$form->{sort}}; $i++; } # total for (@column_index) { $column_data{$_} = "" } $column_data{paid} = ""; for (@{ $form->{all_wage} }) { $column_data{$_->{id}} = ""; } for (@{ $form->{all_deduction} }) { $column_data{$_->{id}} = ""; } print " "; for (@column_index) { print "\n$column_data{$_}" } print qq|
".$form->format_amount(\%myconfig, $ref->{$_}, $form->{precision}, " ")."".$form->format_amount(\%myconfig, $ref->{$_->{id}}, $form->{precision}, " ")."".$form->format_amount(\%myconfig, $ref->{$_->{id}}, $form->{precision}, " ")."{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{invnumber} {glid}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{reference} {script}?action=edit&id=$ref->{id}&db=payroll&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{invnumber} $ref->{transdate}$ref->{employee} 
 ".$form->format_amount(\%myconfig, $form->{"totalpaid"}, $form->{precision}, " ")."".$form->format_amount(\%myconfig, $form->{"total$_->{id}"}, $form->{precision}, " ")."".$form->format_amount(\%myconfig, $form->{"total$_->{id}"}, $form->{precision}, " ")."

{script}> |; if ($form->{year} && $form->{month}) { for (qw(transdatefrom transdateto)) { delete $form->{$_} } } $form->hide_form(qw(employee paymentmethod transdatefrom transdateto month year interval summary l_subtotal)); $form->hide_form(qw(callback path login report reportcode reportlogin db sort direction)); %button = ('Add Transaction' => { ndx => 1, key => 'A', value => $locale->text('Add Transaction') }, 'Save Report' => { ndx => 8, key => 'S', value => $locale->text('Save Report') } ); if ($myconfig{acs} =~ /HR--HR/) { delete $button{'AR--Add Transaction'}; } if (!$form->{admin}) { delete $button{'Save Report'} unless $form->{savereport}; } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub payroll_subtotal { for (@column_index) { $column_data{$_} = " format_amount(\%myconfig, $form->{"subtotalpaid"}, $form->{precision}, " ").""; for (@{ $form->{all_wage} }) { $column_data{$_->{id}} = "".$form->format_amount(\%myconfig, $form->{"subtotal$_->{id}"}, $form->{precision}, " ").""; $form->{"subtotal$_->{id}"} = 0; } for (@{ $form->{all_deduction} }) { $column_data{$_->{id}} = "".$form->format_amount(\%myconfig, $form->{"subtotal$_->{id}"}, $form->{precision}, " ").""; $form->{"subtotal$_->{id}"} = 0; } print " "; for (@column_index) { print "\n$column_data{$_}" } print qq| |; } sub search_deduction { HR->deductions(\%myconfig, \%$form); $callback = "$form->{script}?action=search_deduction"; for (qw(db path login)) { $callback .= "&$_=$form->{$_}" } @column_index = qw(description rate amount above below basedon employeepays employee_accno employerpays employer_accno); $form->helpref("deductions", $myconfig{countrycode}); $form->{callback} = $callback; $callback = $form->escape($form->{callback}); $column_header{description} = qq||.$locale->text('Description').qq||; $column_header{rate} = qq||.$locale->text('Rate %').qq||; $column_header{amount} = qq||.$locale->text('Amount').qq||; $column_header{above} = qq||.$locale->text('Above').qq||; $column_header{below} = qq||.$locale->text('Below').qq||; $column_header{basedon} = qq||.$locale->text('Based on').qq||; $column_header{employerpays} = qq||.$locale->text('Employer').qq||; $column_header{employeepays} = qq||.$locale->text('Employee').qq||; $column_header{employee_accno} = qq||.$locale->text('Account').qq||; $column_header{employer_accno} = qq||.$locale->text('Account').qq||; $form->{title} = $locale->text('Deductions') . " / $form->{company}"; $form->header; print qq|
$form->{helpref}$form->{title}
$option
|; for (@column_index) { print "$column_header{$_}\n" } print qq| |; foreach $ref (@{ $form->{all_deduction} }) { $rate = $form->format_amount(\%myconfig, $ref->{rate} * 100, undef, " "); $column_data{rate} = ""; for (qw(amount above below)) { $column_data{$_} = "" } for (qw(basedon employee_accno employer_accno)) { $column_data{$_} = "" } for (qw(employerpays employeepays)) { $column_data{$_} = "" } if ($ref->{description} ne $sameitem) { $column_data{description} = ""; } else { $column_data{description} = ""; } $i++; $i %= 2; print " "; for (@column_index) { print "$column_data{$_}\n" } print qq| |; $sameitem = $ref->{description}; } $i = 1; %button = ('Add Deduction' => { ndx => 1, key => 'A', value => $locale->text('Add Deduction') } ); foreach $item (split /;/, $myconfig{acs}) { delete $button{$item}; } print qq|
$rate".$form->format_amount(\%myconfig, $ref->{$_}, $form->{precision}, " ")."$ref->{$_} ".$form->format_amount(\%myconfig, $ref->{$_}, undef, " ")."{script}?action=edit&db=$form->{db}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{description} 

{script}> |; $form->hide_form(qw(db callback path login)); for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub prepare_deduction { HR->get_deduction(\%myconfig, \%$form); $i = 1; foreach $ref (@{ $form->{deductionrate} }) { for (keys %$ref) { $form->{"${_}_$i"} = $ref->{$_} } $i++; } $form->{rate_rows} = $i; $i = 1; foreach $ref (@{ $form->{deduct} }) { $form->{"deduct_$i"} = "$ref->{description}--$ref->{id}"; $form->{"withholding_$i"} = ($ref->{withholding}) ? 1 : 0; $form->{"percent_$i"} = $ref->{percent} * 100; $i++; } $form->{deduct_rows} = $i; $form->{selectaccounts} = "\n"; for (@{ $form->{accounts} }) { $form->{selectaccounts} .= "$_->{accno}--$_->{description}\n" } for (qw(employee employer)) { $form->{"${_}_accno"} = qq|$form->{"${_}_accno"}--$form->{"${_}_accno_description"}| } $form->{basedon} = qq|$form->{basedesc}--$form->{basedon}|; for (1 .. $form->{rate_rows}) { $form->{"rate_$_"} *= 100 } $form->{selectbasedon} = "\n"; for (@{ $form->{all_deduction} }) { $form->{selectbasedon} .= qq|$_->{description}--$_->{id}\n|; $form->{showbasedon} = 1; } if (! $form->{readonly}) { $form->{readonly} = 1 if $myconfig{acs} =~ /Add Deduction/; } for (qw(accounts basedon)) { $form->{"select$_"} = $form->escape($form->{"select$_"},1) } $form->helpref("deduction", $myconfig{countrycode}); } sub deduction_header { $agedob{$form->{agedob}} = "checked"; $form->header; print qq|
{script}> |; $form->hide_form(qw(helpref title rate_rows deduct_rows precision showbasedon)); $form->hide_form(map { "select$_" } qw(basedon accounts)); print qq| |; if ($form->{showbasedon}) { print qq| |; } print qq|
$form->{helpref}$form->{title}
|.$locale->text('Description').qq| *
|.$locale->text('Employee pays').qq| x format_amount(\%myconfig, $form->{employeepays}).qq|>
|.$locale->text('Employer pays').qq| x format_amount(\%myconfig, $form->{employerpays}).qq|>
|.$locale->text('Exempt age <').qq| format_amount(\%myconfig, $form->{fromage}).qq|> > format_amount(\%myconfig, $form->{toage}).qq|>  |.$locale->text('DOB').qq|
|; for $i (1 .. $form->{rate_rows}) { print qq| |; } print qq|
|.$locale->text('Rate %').qq| |.$locale->text('Amount').qq| |.$locale->text('Above').qq| |.$locale->text('Below').qq|
format_amount(\%myconfig, $form->{"rate_$i"}).qq|> format_amount(\%myconfig, $form->{"amount_$i"}, $form->{precision}).qq|> format_amount(\%myconfig, $form->{"above_$i"}, $form->{precision}).qq|> format_amount(\%myconfig, $form->{"below_$i"}, $form->{precision}).qq|>
|.$locale->text('Based on').qq|
|; for $i (1 .. $form->{deduct_rows}) { $checked = ($form->{"withholding_$i"}) ? "checked" : ""; print qq| |; } print qq|
|.$locale->text('Deduct').qq| |.$locale->text('Withholding').qq| |.$locale->text('%').qq|
format_amount(\%myconfig, $form->{"percent_$i"}).qq|>
|; } sub deduction_footer { $form->hide_form(qw(status id db path login callback)); if ($form->{readonly}) { &islocked; } else { %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, 'Save' => { ndx => 3, key => 'S', value => $locale->text('Save') }, 'Save as new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') }, 'Delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') }, ); %f = (); for ('Update', 'Save') { $f{$_} = 1 } if ($form->{id}) { if ($form->{status} eq 'orphaned') { $f{'Delete'} = 1; } $f{'Save as new'} = 1; } for (keys %button) { delete $button{$_} if ! $f{$_} } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub search_wage { HR->wages(\%myconfig, \%$form); $callback = "$form->{script}?action=search_wage"; for (qw(db path login)) { $callback .= "&$_=$form->{$_}" } @column_index = qw(description amount accno defer exempt); $form->helpref("wages", $myconfig{countrycode}); $form->{callback} = $callback; $callback = $form->escape($form->{callback}); $column_data{description} = qq||.$locale->text('Description').qq||; $column_data{amount} = qq||.$locale->text('Amount').qq||; $column_data{accno} = qq||.$locale->text('Account').qq||; $column_data{defer} = qq||.$locale->text('Defer').qq||; $column_data{exempt} = qq||.$locale->text('Exempt').qq||; $form->{title} = $locale->text('Wages') . " / $form->{company}"; $form->header; print qq|
$form->{helpref}$form->{title}
$option
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; foreach $ref (@{ $form->{all_wage} }) { $column_data{amount} = ""; $column_data{accno} = ""; $column_data{defer} = ""; $column_data{exempt} = ($ref->{exempt}) ? "" : ""; $column_data{description} = ""; $i++; $i %= 2; print " "; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } $i = 1; %button = ('Add Wage' => { ndx => 1, key => 'A', value => $locale->text('Add Wage') } ); foreach $item (split /;/, $myconfig{acs}) { delete $button{$item}; } print qq|
".$form->format_amount(\%myconfig, $ref->{amount}, $form->{precision}, " ")."$ref->{accno} $ref->{defer} x{script}?action=edit&db=$form->{db}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{description}

{script}> |; $form->hide_form(qw(db callback path login)); for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub prepare_wage { HR->get_wage(\%myconfig, \%$form); $form->{selectaccounts} = ""; for (@{ $form->{accounts} }) { $form->{selectaccounts} .= "$_->{accno}--$_->{description}\n" } $form->{accno} = qq|$form->{accno}--$form->{accno_description}|; $form->{defer} = qq|$form->{defer}--$form->{defer_description}|; if (! $form->{readonly}) { $form->{readonly} = 1 if $myconfig{acs} =~ /Add Wage/; } $form->helpref("wage", $myconfig{countrycode}); } sub wage_header { $form->header; $checked{exempt} = ($form->{exempt}) ? "checked" : ""; print qq|
{script}> |; $form->hide_form(qw(helpref title precision)); $form->hide_form(map { "select$_" } qw(accounts)); print qq|
$form->{helpref}$form->{title}
|.$locale->text('Description').qq| *
|.$locale->text('Account').qq| *
|.$locale->text('Defer Payout').qq|
|.$locale->text('Amount').qq| format_amount(\%myconfig, $form->{amount}, $form->{precision}).qq|>
|.$locale->text('Exempt').qq|
|; } sub wage_footer { $form->hide_form(qw(status id db path login callback)); if ($form->{readonly}) { &islocked; } else { %button = ( 'Save' => { ndx => 3, key => 'S', value => $locale->text('Save') }, 'Save as new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') }, 'Delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') }, ); %f = (); for ('Update', 'Save') { $f{$_} = 1 } if ($form->{id}) { if ($form->{status} eq 'orphaned') { $f{'Delete'} = 1; } $f{'Save as new'} = 1; } for (keys %button) { delete $button{$_} if ! $f{$_} } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub update { &{ "update_$form->{db}" }; &display_form; } sub save { &{ "save_$form->{db}" } }; sub update_deduction { # if rate or amount is blank remove row @flds = qw(rate amount above below); $count = 0; @f = (); for $i (1 .. $form->{rate_rows}) { for (qw(rate amount above below)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } if ($form->{"rate_$i"} + $form->{"amount_$i"} + $form->{"above_$i"} + $form->{"below_$i"}) { push @f, {}; $j = $#f; for (@flds) { $f[$j]->{$_} = $form->{"${_}_$i"} } $count++; } } $form->redo_rows(\@flds, \@f, $count, $form->{rate_rows}); $form->{rate_rows} = $count + 1; @flds = qw(deduct withholding percent); $count = 0; @f = (); for $i (1 .. $form->{deduct_rows}) { if ($form->{"deduct_$i"}) { $form->{"percent_$i"} = $form->parse_amount(\%myconfig, $form->{"percent_$i"}); push @f, {}; $j = $#f; for (@flds) { $f[$j]->{$_} = $form->{"${_}_$i"} } $count++; } } $form->redo_rows(\@flds, \@f, $count, $form->{deduct_rows}); $form->{deduct_rows} = $count + 1; } sub update_employee { # if rate or amount is blank remove row @flds = qw(deduction exempt maximum); $count = 0; @f = (); for $i (1 .. $form->{deduction_rows}) { for (qw(exempt maximum)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } if ($form->{"deduction_$i"}) { push @f, {}; $j = $#f; for (@flds) { $f[$j]->{$_} = $form->{"${_}_$i"} } $count++; } } $form->redo_rows(\@flds, \@f, $count, $form->{deduction_rows}); $form->{deduction_rows} = $count; @flds = qw(rate above); $count = 0; @f = (); for $i (1 .. $form->{payrate_rows}) { for (@flds) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } if ($form->{"rate_$i"}) { push @f, {}; $j = $#f; for (@flds) { $f[$j]->{$_} = $form->{"${_}_$i"} } $count++; } } $form->redo_rows(\@flds, \@f, $count, $form->{payrate_rows}); $form->{payrate_rows} = $count; @flds = qw(wage); $count = 0; @f = (); for $i (1 .. $form->{wage_rows}) { if ($form->{"wage_$i"}) { push @f, {}; $j = $#f; for (@flds) { $f[$j]->{$_} = $form->{"${_}_$i"} } $count++; } } $form->redo_rows(\@flds, \@f, $count, $form->{wage_rows}); $form->{wage_rows} = $count; } sub save_as_new { for (qw(id addressid)) { delete $form->{$_} } &save; } sub save_deduction { $form->isblank("description", $locale->text("Description missing!")); unless ($form->{"rate_1"} || $form->{"amount_1"}) { $form->isblank("rate_1", $locale->text("Rate missing!")) unless $form->{"amount_1"}; $form->isblank("amount_1", $locale->text("Amount missing!")); } HR->save_deduction(\%myconfig, \%$form); $form->redirect($locale->text('Deduction saved!')); } sub delete_deduction { HR->delete_deduction(\%myconfig, \%$form); $form->redirect($locale->text('Deduction deleted!')); } sub save_wage { $form->isblank("description", $locale->text("Description missing!")); HR->save_wage(\%myconfig, \%$form); $form->redirect($locale->text('Wage saved!')); } sub delete_wage { HR->delete_wage(\%myconfig, \%$form); $form->redirect($locale->text('Wage deleted!')); } sub preview { $form->{format} = "pdf"; $form->{media} = "screen"; &print; }