#===================================================================== # LedgerSMB Small Medium Business Accounting # http://www.ledgersmb.org/ # # Copyright (C) 2006 # This work contains copyrighted information from a number of sources all used # with permission. # # This file contains source code included with or based on SQL-Ledger which # is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed # under the GNU General Public License version 2 or, at your option, any later # version. For a full list including contact information of contributors, # maintainers, and copyright holders, see the CONTRIBUTORS file. # # Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork): # Copyright (c) 2005 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.org # # # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== # # Job Costing module # #====================================================================== use LedgerSMB::JC; 1; # end of main sub add { if ($form->{type} eq 'timecard') { $form->{title} = $locale->text('Add Time Card'); } if ($form->{type} eq 'storescard') { $form->{title} = $locale->text('Add Stores Card'); } $form->{callback} = "$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&project=$form->{project}" unless $form->{callback}; &{ "prepare_$form->{type}" }; $form->{orphaned} = 1; &display_form; } sub edit { if ($form->{type} eq 'timecard') { $form->{title} = $locale->text('Edit Time Card'); } if ($form->{type} eq 'storescard') { $form->{title} = $locale->text('Add Stores Card'); } &{ "prepare_$form->{type}" }; &display_form; } sub jcitems_links { if (@{ $form->{all_project} }) { $form->{selectprojectnumber} = "<option>\n"; foreach $ref (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$ref->{projectnumber}--$ref->{id}">$ref->{projectnumber}\n|; if ($form->{projectnumber} eq "$ref->{projectnumber}--$ref->{id}") { $form->{projectdescription} = $ref->{description}; } } } else { if ($form->{project} eq 'job') { $form->error($locale->text('No open Jobs!')); } else { $form->error($locale->text('No open Projects!')); } } if (@{ $form->{all_parts} }) { $form->{selectpartnumber} = "<option>\n"; foreach $ref (@{ $form->{all_parts} }) { $form->{selectpartnumber} .= qq|<option value="$ref->{partnumber}--$ref->{id}">$ref->{partnumber}\n|; if ($form->{partnumber} eq "$ref->{partnumber}--$ref->{id}") { if ($form->{partnumber} ne $form->{oldpartnumber}) { for (qw(description unit sellprice pricematrix)) { $form->{$_} = $ref->{$_} } } } } } else { if ($form->{type} eq 'timecard') { if ($form->{project} eq 'job') { $form->error($locale->text('No Labor codes on file!')); } else { $form->error($locale->text('No Services on file!')); } } else { $form->error($locale->text('No Parts on file!')); } } # employees if (@{ $form->{all_employee} }) { $form->{selectemployee} = "<option>\n"; for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } } else { $form->error($locale->text('No Employees on file!')); } } sub search { # accounting years $form->all_years(\%myconfig); if (@{ $form->{all_years} }) { $form->{selectaccountingyear} = "<option>\n"; for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|<option>$_\n| } $form->{selectaccountingmonth} = "<option>\n"; for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } $selectfrom = qq| <tr> <th align=right>|.$locale->text('Period').qq|</th> <td colspan=3> <select name=month>$form->{selectaccountingmonth}</select> <select name=year>$form->{selectaccountingyear}</select> <input name=interval class=radio type=radio value=0 checked> |.$locale->text('Current').qq| <input name=interval class=radio type=radio value=1> |.$locale->text('Month').qq| <input name=interval class=radio type=radio value=3> |.$locale->text('Quarter').qq| <input name=interval class=radio type=radio value=12> |.$locale->text('Year').qq| </td> </tr> |; } $fromto = qq| <tr> <th align=right nowrap>|.$locale->text('Startdate').qq|</th> <td>|.$locale->text('From').qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}"> |.$locale->text('To').qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td> </tr> $selectfrom |; if ($form->{type} eq 'timecard') { $form->{title} = $locale->text('Time Cards'); JC->jcitems_links(\%myconfig, \%$form); } if ($form->{type} eq 'storescard') { $form->{title} = $locale->text('Stores Cards'); JC->jcitems_links(\%myconfig, \%$form); } if (@{ $form->{all_project} }) { $form->{selectprojectnumber} = "<option>\n"; for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } } if (@{ $form->{all_parts} }) { $form->{selectpartnumber} = "<option>\n"; foreach $ref (@{ $form->{all_parts} }) { $form->{selectpartnumber} .= qq|<option value="$ref->{partnumber}--$ref->{id}">$ref->{partnumber}\n|; } } if ($form->{project} eq 'job') { $joblabel = $locale->text('Job Number'); $laborlabel = $locale->text('Labor Code'); } elsif ($form->{project} eq 'project') { $joblabel = $locale->text('Project Number'); $laborlabel = $locale->text('Service Code'); } else { $joblabel = $locale->text('Project/Job Number'); $laborlabel = $locale->text('Service/Labor Code'); } if ($form->{selectprojectnumber}) { $jobnumber = qq| <tr> <th align=right nowrap>$joblabel</th> <td colspan=3><select name=projectnumber>$form->{selectprojectnumber}</select></td> </tr> |; } if ($form->{type} eq 'timecard') { # employees if (@{ $form->{all_employee} }) { $form->{selectemployee} = "<option>\n"; for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } } else { $form->error($locale->text('No Employees on file!')); } if ($form->{selectpartnumber}) { $partnumber = qq| <tr> <th align=right nowrap>$laborlabel</th> <td colspan=3><select name=partnumber>$form->{selectpartnumber}</select></td> </tr> |; } $employee = qq| <tr> <th align=right nowrap>|.$locale->text('Employee').qq|</th> <td colspan=3><select name=employee>$form->{selectemployee}</select></td> </tr> |; $l_time = qq|<td nowrap><input name=l_time class=checkbox type=checkbox value=Y> |.$locale->text('Time').qq|</td>|; } $form->header; print qq| <body> <form method=post action=$form->{script}> <table width=100%> <tr> <th class=listtop>$form->{title}</th> </tr> <tr height="5"></tr> <tr valign=top> <td> <table> $jobnumber $partnumber $employee $fromto <tr> <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> <td> <table> <tr> <td nowrap><input name=open class=checkbox type=checkbox value=Y checked> |.$locale->text('Open').qq|</td> <td nowrap><input name=closed class=checkbox type=checkbox value=Y> |.$locale->text('Closed').qq|</td> </tr> <tr> $l_time <td nowrap><input name=l_allocated class=checkbox type=checkbox value=Y> |.$locale->text('Allocated').qq|</td> </tr> <tr> <td><input name=l_subtotal class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq|</td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td><hr size=3 noshade></td> </tr> </table> <input type=hidden name=nextsub value="list_$form->{type}"> <input type=hidden name=sort value="transdate"> |; $form->hide_form(qw(db path login sessionid project type)); print qq| <br> <input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> </form> |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq| </body> </html> |; } sub display_form { &{ "$form->{type}_header" }; &{ "$form->{type}_footer" }; } sub form_header { &{ "$form->{type}_header" }; } sub form_footer { &{ "form->{type}_footer" }; } sub prepare_timecard { $form->{formname} = "timecard"; $form->{format} = "postscript" if $myconfig{printer}; $form->{media} = $myconfig{printer}; JC->get_jcitems(\%myconfig, \%$form); $form->{selectformname} = qq|<option value="timecard">|.$locale->text('Time Card'); foreach $item (qw(in out)) { ($form->{"${item}hour"}, $form->{"${item}min"}, $form->{"${item}sec"}) = split /:/, $form->{"checked$item"}; for (qw(hour min sec)) { if (($form->{"$item$_"} *= 1) > 0) { $form->{"$item$_"} = substr(qq|0$form->{"$item$_"}|,-2); } else { $form->{"$item$_"} ||= ""; } } } $form->{checkedin} = $form->{inhour} * 3600 + $form->{inmin} * 60 + $form->{insec}; $form->{checkedout} = $form->{outhour} * 3600 + $form->{outmin} * 60 + $form->{outsec}; if ($form->{checkedin} > $form->{checkedout}) { $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout}); $form->{checkedin} = 0; } $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600; if ($form->{clocked}) { $form->{oldnoncharge} = $form->{clocked} - $form->{qty}; } $form->{oldqty} = $form->{qty}; $form->{noncharge} = $form->format_amount(\%myconfig, $form->{clocked} - $form->{qty}, 4) if $form->{checkedin} != $form->{checkedout}; $form->{clocked} = $form->format_amount(\%myconfig, $form->{clocked}, 4); $form->{amount} = $form->{sellprice} * $form->{qty}; for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) } $form->{qty} = $form->format_amount(\%myconfig, $form->{qty}, 4); $form->{allocated} = $form->format_amount(\%myconfig, $form->{allocated}); $form->{employee} .= "--$form->{employee_id}"; $form->{projectnumber} .= "--$form->{project_id}"; $form->{partnumber} .= "--$form->{parts_id}"; $form->{oldpartnumber} = $form->{partnumber}; if (@{ $form->{all_language} }) { $form->{selectlanguage} = "<option>\n"; for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } } &jcitems_links; $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto})); $form->{readonly} = 1 if $myconfig{acs} =~ /Production--Add Time Card/; if ($form->{income_accno_id}) { $form->{locked} = 1 if $form->{production} == $form->{completed}; } } sub timecard_header { # set option selected for (qw(employee projectnumber partnumber)) { $form->{"select$_"} =~ s/ selected//; $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/; } $rows = $form->numtextrows($form->{description}, 50, 8); for (qw(transdate checkedin checkedout partnumber)) { $form->{"old$_"} = $form->{$_} } for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) } if ($rows > 1) { $description = qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}</textarea>|; } else { $description = qq|<input name=description size=48 value="$form->{description}">|; } if ($form->{project} eq 'job') { $projectlabel = $locale->text('Job Number'); $laborlabel = $locale->text('Labor Code'); $rate = qq|<input type=hidden name=sellprice value=$form->{sellprice}>|; } else { if ($form->{project} eq 'project') { $projectlabel = $locale->text('Project Number'); $laborlabel = $locale->text('Service Code'); } else { $projectlabel = $locale->text('Project/Job Number'); $laborlabel = $locale->text('Service/Labor Code'); } if ($myconfig{role} ne 'user') { $rate = qq| <tr> <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th> <td><input name=sellprice value=$form->{sellprice}></td> <th align=right nowrap>|.$locale->text('Total').qq|</th> <td>$form->{amount}</td> </tr> <tr> <th align=right nowrap>|.$locale->text('Allocated').qq|</th> <td><input name=allocated value=$form->{allocated}></td> </tr> |; } else { $rate = qq| <tr> <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th> <td>$form->{sellprice}</td> <th align=right nowrap>|.$locale->text('Total').qq|</th> <td>$form->{amount}</td> </tr> <tr> <th align=right nowrap>|.$locale->text('Allocated').qq|</th> <td>$form->{allocated}</td> </tr> <input type=hidden name=sellprice value=$form->{sellprice}> <input type=hidden name=allocated value=$form->{allocated}> |; } } if ($myconfig{role} eq 'user') { $charge = qq|<input type=hidden name=qty value=$form->{qty}>$form->{qty}|; } else { $charge = qq|<input name=qty value=$form->{qty}>|; } if (($rows = $form->numtextrows($form->{notes}, 40, 6)) < 2) { $rows = 2; } $notes = qq|<tr> <th align=right>|.$locale->text('Notes').qq|</th> <td colspan=3><textarea name="notes" rows=$rows cols=46 wrap=soft>$form->{notes}</textarea> </td> </tr> |; ################## ($null, $form->{oldproject_id}) = split /--/, $form->{projectnumber}; $form->header; print qq| <body> <form method=post action="$form->{script}"> |; $form->hide_form(qw(id type media format printed queued title closedto locked oldtransdate oldcheckedin oldcheckedout oldpartnumber project oldqty oldnoncharge pricematrix oldproject_id)); print qq| <table width=100%> <tr class=listtop> <th class=listtop>$form->{title}</th> </tr> <tr height="5"></tr> <tr> <td> <table> <tr> <td> <table> <tr> <th align=right nowrap>|.$locale->text('Employee').qq|</th> <td><select name=employee>$form->{selectemployee}</select></td> </tr> <tr> <th align=right nowrap>$projectlabel</th> <td><select name=projectnumber>$form->{selectprojectnumber}</select> </td> <td></td> <td>$form->{projectdescription}</td> <input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|"> </tr> <tr> <th align=right nowrap>|.$locale->text('Date worked').qq|</th> <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> </tr> <tr> <th align=right nowrap>$laborlabel</th> <td><select name=partnumber>$form->{selectpartnumber}</select></td> </tr> <tr valign=top> <th align=right nowrap>|.$locale->text('Description').qq|</th> <td colspan=3>$description</td> </tr> <tr> <th align=right nowrap>|.$locale->text('Time In').qq|</th> <td> <table> <tr> <td><input name=inhour title="hh" size=3 maxlength=2 value=$form->{inhour}></td> <td><input name=inmin title="mm" size=3 maxlength=2 value=$form->{inmin}></td> <td><input name=insec title="ss" size=3 maxlength=2 value=$form->{insec}></td> </tr> </table> </td> <th align=right nowrap>|.$locale->text('Time Out').qq|</th> <td> <table> <tr> <td><input name=outhour title="hh" size=3 maxlength=2 value=$form->{outhour}></td> <td><input name=outmin title="mm" size=3 maxlength=2 value=$form->{outmin}></td> <td><input name=outsec title="ss" size=3 maxlength=2 value=$form->{outsec}></td> </tr> </table> </td> </tr> <tr> <th align=right nowrap>|.$locale->text('Clocked').qq|</th> <td>$form->{clocked}</td> </tr> <tr> <th align=right nowrap>|.$locale->text('Non-chargeable').qq|</th> <td><input name=noncharge value=$form->{noncharge}></td> </tr> <tr> <th align=right nowrap>|.$locale->text('Chargeable').qq|</th> <td>$charge</td> </tr> $rate $notes </table> </td> </tr> |; } sub timecard_footer { print qq| </table> </td> </tr> <tr> <td><hr size=3 noshade></td> </tr> <tr> <td> |; &print_options; print qq| </td> </tr> </table> <br> |; $transdate = $form->datetonum(\%myconfig, $form->{transdate}); $closedto = $form->datetonum(\%myconfig, $form->{closedto}); if (! $form->{readonly}) { # type=submit $locale->text('Update') # type=submit $locale->text('Print') # type=submit $locale->text('Save') # type=submit $locale->text('Print and Save') # type=submit $locale->text('Save as new') # type=submit $locale->text('Print and Save as new') # type=submit $locale->text('Delete') %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, 'Print' => { ndx => 2, key => 'P', value => $locale->text('Print') }, 'Save' => { ndx => 3, key => 'S', value => $locale->text('Save') }, 'Print and Save' => { ndx => 6, key => 'R', value => $locale->text('Print and Save') }, 'Save as new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') }, 'Print and Save as new' => { ndx => 8, key => 'W', value => $locale->text('Print and Save as new') }, 'Delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') }, ); %a = (); if ($form->{id}) { if (!$form->{locked}) { for ('Update', 'Print', 'Save', 'Save as new') { $a{$_} = 1 } if ($latex) { for ('Print and Save', 'Print and Save as new') { $a{$_} = 1 } } if ($form->{orphaned}) { $a{'Delete'} = 1; } } } else { if ($transdate > $closedto) { for ('Update', 'Print', 'Save') { $a{$_} = 1 } if ($latex) { $a{'Print and Save'} = 1; } } } } for (keys %button) { delete $button{$_} if ! $a{$_} } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } $form->hide_form(qw(callback path login sessionid)); print qq| </form> </body> </html> |; } sub prepare_storescard { $form->{formname} = "storescard"; $form->{format} = "postscript" if $myconfig{printer}; $form->{media} = $myconfig{printer}; JC->get_jcitems(\%myconfig, \%$form); $form->{selectformname} = qq|<option value="storescard">|.$locale->text('Stores Card'); $form->{amount} = $form->{sellprice} * $form->{qty}; for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) } $form->{qty} = $form->format_amount(\%myconfig, $form->{qty}, 4); $form->{employee} .= "--$form->{employee_id}"; $form->{projectnumber} .= "--$form->{project_id}"; $form->{partnumber} .= "--$form->{parts_id}"; $form->{oldpartnumber} = $form->{partnumber}; if (@{ $form->{all_language} }) { $form->{selectlanguage} = "<option>\n"; for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } } &jcitems_links; $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto})); $form->{readonly} = 1 if $myconfig{acs} =~ /Production--Add Time Card/; if ($form->{income_accno_id}) { $form->{locked} = 1 if $form->{production} == $form->{completed}; } } sub storescard_header { # set option selected for (qw(employee projectnumber partnumber)) { $form->{"select$_"} =~ s/ selected//; $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/; } $rows = $form->numtextrows($form->{description}, 50, 8); for (qw(transdate partnumber)) { $form->{"old$_"} = $form->{$_} } for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) } if ($rows > 1) { $description = qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}</textarea>|; } else { $description = qq|<input name=description size=48 value="$form->{description}">|; } $form->header; print qq| <body> <form method=post action="$form->{script}"> |; $form->hide_form(qw(id type media format printed queued title closedto locked oldtransdate oldpartnumber project)); print qq| <table width=100%> <tr class=listtop> <th class=listtop>$form->{title}</th> </tr> <tr height="5"></tr> <tr> <td> <table> <tr> <td> <table> <tr> <th align=right nowrap>|.$locale->text('Job Number').qq|</th> <td><select name=projectnumber>$form->{selectprojectnumber}</select> </td> <td>$form->{projectdescription}</td> <input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|"> </tr> <tr> <th align=right nowrap>|.$locale->text('Date').qq|</th> <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> </tr> <tr> <th align=right nowrap>|.$locale->text('Part Number').qq|</th> <td><select name=partnumber>$form->{selectpartnumber}</td> </tr> <tr valign=top> <th align=right nowrap>|.$locale->text('Description').qq|</th> <td>$description</td> </tr> <tr> <th align=right nowrap>|.$locale->text('Qty').qq|</th> <td><input name=qty size=6 value=$form->{qty}> <b>|.$locale->text('Cost').qq|</b> <input name=sellprice size=10 value=$form->{sellprice}></td> </tr> <tr> <th align=right nowrap>|.$locale->text('Total').qq|</th> <td>$form->{amount}</td> </tr> </table> </td> </tr> |; } sub storescard_footer { print qq| </table> </td> </tr> <tr> <td><hr size=3 noshade></td> </tr> <tr> <td> |; &print_options; print qq| </td> </tr> </table> <br> |; $transdate = $form->datetonum(\%myconfig, $form->{transdate}); $closedto = $form->datetonum(\%myconfig, $form->{closedto}); # type=submit $locale->text('Update') # type=submit $locale->text('Print') # type=submit $locale->text('Save') # type=submit $locale->text('Print and Save') # type=submit $locale->text('Save as new') # type=submit $locale->text('Print and Save as new') # type=submit $locale->text('Delete') if (! $form->{readonly}) { %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, 'Print' => { ndx => 2, key => 'P', value => $locale->text('Print') }, 'Save' => { ndx => 3, key => 'S', value => $locale->text('Save') }, 'Print and Save' => { ndx => 6, key => 'R', value => $locale->text('Print and Save') }, 'Save as new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') }, 'Print and Save as new' => { ndx => 8, key => 'W', value => $locale->text('Print and Save as new') }, 'Delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') }, ); %a = (); if ($form->{id}) { if (!$form->{locked}) { for ('Update', 'Print', 'Save', 'Save as new') { $a{$_} = 1 } if ($latex) { for ('Print and Save', 'Print and Save as new') { $a{$_} = 1 } } if ($form->{orphaned}) { $a{'Delete'} = 1; } } } else { if ($transdate > $closedto) { for ('Update', 'Print', 'Save') { $a{$_} = 1 } if ($latex) { $a{'Print and Save'} = 1; } } } for (keys %button) { delete $button{$_} if ! $a{$_} } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } $form->hide_form(qw(callback path login sessionid)); print qq| </form> </body> </html> |; } sub update { ($null, $form->{project_id}) = split /--/, $form->{projectnumber}; # check labor/part JC->jcitems_links(\%myconfig, \%$form); &jcitems_links; $checkmatrix = 1 if $form->{oldproject_id} != $form->{project_id}; if ($form->{type} eq 'timecard') { # time clocked %hour = ( in => 0, out => 0 ); for $t (qw(in out)) { if ($form->{"${t}sec"} > 60) { $form->{"${t}sec"} -= 60; $form->{"${t}min"}++; } if ($form->{"${t}min"} > 60) { $form->{"${t}min"} -= 60; $form->{"${t}hour"}++; } $hour{$t} = $form->{"${t}hour"}; } $form->{checkedin} = $hour{in} * 3600 + $form->{inmin} * 60 + $form->{insec}; $form->{checkedout} = $hour{out} * 3600 + $form->{outmin} * 60 + $form->{outsec}; if ($form->{checkedin} > $form->{checkedout}) { $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout}); $form->{checkedin} = 0; } $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600; for (qw(sellprice qty noncharge allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } $checkmatrix = 1 if $form->{oldqty} != $form->{qty}; if (($form->{oldcheckedin} != $form->{checkedin}) || ($form->{oldcheckedout} != $form->{checkedout})) { $checkmatrix = 1; $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge}; $form->{oldnoncharge} = $form->{noncharge}; } if (($form->{qty} != $form->{oldqty}) && $form->{clocked}) { $form->{oldnoncharge} = $form->{noncharge} = $form->{clocked} - $form->{qty}; $checkmatrix = 1; } if (($form->{oldnoncharge} != $form->{noncharge}) && $form->{clocked}) { $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge}; $checkmatrix = 1; } if ($checkmatrix) { @a = split / /, $form->{pricematrix}; if (scalar @a > 2) { for (@a) { ($q, $p) = split /:/, $_; if (($p * 1) && ($form->{qty} >= ($q * 1))) { $form->{sellprice} = $p; } } } } $form->{amount} = $form->{sellprice} * $form->{qty}; $form->{clocked} = $form->format_amount(\%myconfig, $form->{clocked}, 4); for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) } for (qw(qty noncharge)) { $form->{"old$_"} = $form->{$_}; $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 4); } } else { for (qw(sellprice qty allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } if ($form->{oldqty} != $form->{qty}) { @a = split / /, $form->{pricematrix}; if (scalar @a > 2) { for (@a) { ($q, $p) = split /:/, $_; if (($p * 1) && ($form->{qty} >= ($q * 1))) { $form->{sellprice} = $p; } } } } $form->{amount} = $form->{sellprice} * $form->{qty}; for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) } } $form->{allocated} = $form->format_amount(\%myconfig, $form->{allocated}); &display_form; } sub save { $form->isblank("transdate", $locale->text('Date missing!')); if ($form->{project} eq 'project') { $form->isblank("projectnumber", $locale->text('Project Number missing!')); $form->isblank("partnumber", $locale->text('Service Code missing!')); } else { $form->isblank("projectnumber", $locale->text('Job Number missing!')); $form->isblank("partnumber", $locale->text('Labor Code missing!')); } $closedto = $form->datetonum(\%myconfig, $form->{closedto}); $transdate = $form->datetonum(\%myconfig, $form->{transdate}); $msg = ($form->{type} eq 'timecard') ? $locale->text('Cannot save time card for a closed period!') : $locale->text('Cannot save stores card for a closed period!'); $form->error($msg) if ($transdate <= $closedto); if (! $form->{resave}) { if ($form->{id}) { &resave; exit; } } $rc = JC->save(\%myconfig, \%$form); if ($form->{type} eq 'timecard') { $form->error($locale->text('Cannot change time card for a completed job!')) if ($rc == -1); $form->error($locale->text('Cannot add time card for a completed job!')) if ($rc == -2); if ($rc) { $form->redirect($locale->text('Time Card saved!')); } else { $form->error($locale->text('Cannot save time card!')); } } else { $form->error($locale->text('Cannot change stores card for a completed job!')) if ($rc == -1); $form->error($locale->text('Cannot add stores card for a completed job!')) if ($rc == -2); if ($rc) { $form->redirect($locale->text('Stores Card saved!')); } else { $form->error($locale->text('Cannot save stores card!')); } } } sub save_as_new { delete $form->{id}; &save; } sub print_and_save_as_new { delete $form->{id}; &print_and_save; } sub resave { if ($form->{print_and_save}) { $form->{nextsub} = "print_and_save"; $msg = $locale->text('You are printing and saving an existing transaction!'); } else { $form->{nextsub} = "save"; $msg = $locale->text('You are saving an existing transaction!'); } $form->{resave} = 1; $form->header; print qq| <body> <form method=post action=$form->{script}> |; delete $form->{action}; $form->hide_form; print qq| <h2 class=confirm>|.$locale->text('Warning!').qq|</h2> <h4>$msg</h4> <input name=action class=submit type=submit value="|.$locale->text('Continue').qq|"> </form> </body> </html> |; } sub print_and_save { $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/; $form->error($locale->text('Select a Printer!')) if $form->{media} eq 'screen'; if (! $form->{resave}) { if ($form->{id}) { $form->{print_and_save} = 1; &resave; exit; } } $old_form = new Form; $form->{display_form} = "save"; for (keys %$form) { $old_form->{$_} = $form->{$_} } &{ "print_$form->{formname}" }($old_form); } sub delete_timecard { $form->header; $employee = $form->{employee}; $employee =~ s/--.*//g; $projectnumber = $form->{projectnumber}; $projectnumber =~ s/--.*//g; print qq| <body> <form method=post action=$form->{script}> |; delete $form->{action}; $form->hide_form; print qq| <h2 class=confirm>|.$locale->text('Confirm!').qq|</h2> <h4>|.$locale->text('Are you sure you want to delete time card for').qq| <p>$form->{transdate} <br>$employee <br>$projectnumber </h4> <p> <input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> </form> |; } sub delete { &{ "delete_$form->{type}" } }; sub yes { &{ "yes_delete_$form->{type}" } }; sub yes_delete_timecard { if (JC->delete_timecard(\%myconfig, \%$form)) { $form->redirect($locale->text('Time Card deleted!')); } else { $form->error($locale->text('Cannot delete time card!')); } } sub list_timecard { $form->{type} = "timecard"; JC->jcitems(\%myconfig, \%$form); $form->{title} = $locale->text('Time Cards'); @a = qw(type direction oldsort path login sessionid project l_subtotal open closed l_time l_allocated); $href = "$form->{script}?action=list_timecard"; for (@a) { $href .= "&$_=$form->{$_}" } $href .= "&title=".$form->escape($form->{title}); $form->sort_order(); $callback = "$form->{script}?action=list_timecard"; for (@a) { $callback .= "&$_=$form->{$_}" } $callback .= "&title=".$form->escape($form->{title},1); @column_index = (qw(transdate projectnumber projectdescription id partnumber description)); push @column_index, (qw(allocated)) if $form->{l_allocated}; push @column_index, (qw(1 2 3 4 5 6 7)); @column_index = $form->sort_columns(@column_index); if ($form->{project} eq 'job') { $joblabel = $locale->text('Job Number'); $laborlabel = $locale->text('Labor Code'); $desclabel = $locale->text('Job Name'); } elsif ($form->{project} eq 'project') { $joblabel = $locale->text('Project Number'); $laborlabel = $locale->text('Service Code'); $desclabel = $locale->text('Project Name'); } else { $joblabel = $locale->text('Project/Job Number'); $laborlabel = $locale->text('Service/Labor Code'); $desclabel = $locale->text('Project/Job Name'); } if ($form->{projectnumber}) { $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1); $href .= "&projectnumber=".$form->escape($form->{projectnumber}); ($var) = split /--/, $form->{projectnumber}; $option .= "\n<br>" if ($option); $option .= "$joblabel : $var"; @column_index = grep !/projectnumber/, @column_index; } if ($form->{partnumber}) { $callback .= "&partnumber=".$form->escape($form->{partnumber},1); $href .= "&partnumber=".$form->escape($form->{partnumber}); ($var) = split /--/, $form->{partnumber}; $option .= "\n<br>" if ($option); $option .= "$laborlabel : $var"; @column_index = grep !/partnumber/, @column_index; } if ($form->{employee}) { $callback .= "&employee=".$form->escape($form->{employee},1); $href .= "&employee=".$form->escape($form->{employee}); } if ($form->{startdatefrom}) { $callback .= "&startdatefrom=$form->{startdatefrom}"; $href .= "&startdatefrom=$form->{startdatefrom}"; $option .= "\n<br>" if ($option); $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{startdatefrom}, 1); } if ($form->{startdateto}) { $callback .= "&startdateto=$form->{startdateto}"; $href .= "&startdateto=$form->{startdateto}"; $option .= "\n<br>" if ($option); $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{startdateto}, 1); } if ($form->{open}) { $callback .= "&open=$form->{open}"; $href .= "&open=$form->{open}"; $option .= "\n<br>" if ($option); $option .= $locale->text('Open'); } if ($form->{closed}) { $callback .= "&closed=$form->{closed}"; $href .= "&closed=$form->{closed}"; $option .= "\n<br>" if ($option); $option .= $locale->text('Closed'); } %weekday = ( 1 => $locale->text('Sunday'), 2 => $locale->text('Monday'), 3 => $locale->text('Tuesday'), 4 => $locale->text('Wednesday'), 5 => $locale->text('Thursday'), 6 => $locale->text('Friday'), 7 => $locale->text('Saturday'), ); for (keys %weekday) { $column_header{$_} = "<th class=listheading width=25>".substr($weekday{$_},0,3)."</th>" } $column_header{id} = "<th><a class=listheading href=$href&sort=id>".$locale->text('ID')."</a></th>"; $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>"; $column_header{description} = "<th><a class=listheading href=$href&sort=description>" . $locale->text('Description') . "</th>"; $column_header{projectnumber} = "<th><a class=listheading href=$href&sort=projectnumber>$joblabel</a></th>"; $column_header{partnumber} = "<th><a class=listheading href=$href&sort=partnumber>$laborlabel</a></th>"; $column_header{projectdescription} = "<th><a class=listheading href=$href&sort=projectdescription>$desclabel</a></th>"; $column_header{allocated} = "<th class=listheading></th>"; $form->header; if (@{ $form->{transactions} }) { $sameitem = $form->{transactions}->[0]->{$form->{sort}}; $sameemployeenumber = $form->{transactions}->[0]->{employeenumber}; $employee = $form->{transactions}->[0]->{employee}; $sameweek = $form->{transactions}->[0]->{workweek}; } print qq| <body> <table width=100%> <tr> <th class=listtop>$form->{title}</th> </tr> <tr height="5"></tr> <tr> <td>$option</td> </tr> <tr> <td> <table width=100%> <tr> <th colspan=2 align=left> $employee </th> <th align=left> $sameemployeenumber </th> <tr class=listheading> |; for (@column_index) { print "\n$column_header{$_}" } print qq| </tr> |; # 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); # flip direction $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; $href =~ s/&direction=(\w+)&/&direction=$direction&/; %total = (); foreach $ref (@{ $form->{transactions} }) { if ($sameemployeenumber ne $ref->{employeenumber}) { $sameemployeenumber = $ref->{employeenumber}; $sameweek = $ref->{workweek}; if ($form->{l_subtotal}) { print qq| <tr class=listsubtotal> |; for (@column_index) { $column_data{$_} = "<td> </td>" } $weektotal = 0; for (keys %weekday) { $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", " ")."</th>"; $weektotal += $subtotal{$_}; $subtotal{$_} = 0; } $column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", " ")."</th>"; for (@column_index) { print "\n$column_data{$_}" } } # print total print qq| <tr class=listtotal> |; for (@column_index) { $column_data{$_} = "<td> </td>" } $total = 0; for (keys %weekday) { $column_data{$_} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total{$_}, "", " ")."</th>"; $total += $total{$_}; $total{$_} = 0; } $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", " ")."</th>"; for (@column_index) { print "\n$column_data{$_}" } print qq| <tr height=30 valign=bottom> <th colspan=2 align=left> $ref->{employee} </th> <th align=left> $ref->{employeenumber} </th> <tr class=listheading> |; for (@column_index) { print "\n$column_header{$_}" } print qq| </tr> |; } if ($form->{l_subtotal}) { if ($ref->{workweek} != $sameweek) { for (@column_index) { $column_data{$_} = "<td> </td>" } $weektotal = 0; for (keys %weekday) { $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", " ")."</th>"; $weektotal += $subtotal{$_}; $subtotal{$_} = 0 } $column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", " ")."</th>"; $sameweek = $ref->{workweek}; print qq| <tr class=listsubtotal> |; for (@column_index) { print "\n$column_data{$_}" } print qq| </tr> |; } } for (@column_index) { $column_data{$_} = "<td>$ref->{$_} </td>" } for (keys %weekday) { $column_data{$_} = "<td> </td>" } $column_data{allocated} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{allocated}, "", " ")."</td>"; $column_data{$ref->{weekday}} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{qty}, "", " "); if ($form->{l_time}) { $column_data{$ref->{weekday}} .= "<br>$ref->{checkedin}<br>$ref->{checkedout}"; } $column_data{$ref->{weekday}} .= "</td>"; $column_data{id} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&project=$form->{project}&callback=$callback>$ref->{id}</a></td>"; $subtotal{$ref->{weekday}} += $ref->{qty}; $total{$ref->{weekday}} += $ref->{qty}; $j++; $j %= 2; print qq| <tr class=listrow$j> |; for (@column_index) { print "\n$column_data{$_}" } print qq| </tr> |; } # print last subtotal if ($form->{l_subtotal}) { print qq| <tr class=listsubtotal> |; for (@column_index) { $column_data{$_} = "<td> </td>" } $weektotal = 0; for (keys %weekday) { $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", " ")."</th>"; $weektotal += $subtotal{$_}; } $column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", " ")."</th>"; for (@column_index) { print "\n$column_data{$_}" } } # print last total print qq| <tr class=listtotal> |; for (@column_index) { $column_data{$_} = "<td> </td>" } $total = 0; for (keys %weekday) { $column_data{$_} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total{$_}, "", " ")."</th>"; $total += $total{$_}; $total{$_} = 0; } $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", " ")."</th>"; for (@column_index) { print "\n$column_data{$_}" } if ($form->{project} eq 'job') { if ($myconfig{acs} !~ /Production--Production/) { $i = 1; $button{'Production--Add Time Card'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Time Card').qq|"> |; $button{'Production--Add Time Card'}{order} = $i++; } } elsif ($form->{project} eq 'project') { if ($myconfig{acs} !~ /Projects--Projects/) { $i = 1; $button{'Projects--Add Time Card'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Time Card').qq|"> |; $button{'Projects--Add Time Card'}{order} = $i++; } } else { if ($myconfig{acs} !~ /Time Cards--Time Cards/) { $i = 1; $button{'Time Cards--Add Time Card'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Time Card').qq|"> |; $button{'Time Cards--Add Time Card'}{order} = $i++; } } for (split /;/, $myconfig{acs}) { delete $button{$_} } print qq| </tr> </table> </td> </tr> <tr> <td><hr size=3 noshade></td> </tr> </table> <br> <form method=post action=$form->{script}> |; $form->hide_form(qw(callback path login sessionid project)); foreach $item (sort { $a->{order} <=> $b->{order} } %button) { print $item->{code}; } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq| </form> </body> </html> |; } sub list_storescard { $form->{type} = "storescard"; JC->jcitems(\%myconfig, \%$form); $form->{title} = $locale->text('Stores Cards'); $href = "$form->{script}?action=list_storescard"; for (qw(type direction oldsort path login sessionid project)) { $href .= "&$_=$form->{$_}" } $href .= "&title=".$form->escape($form->{title}); $form->sort_order(); $callback = "$form->{script}?action=list_storescard"; for (qw(type direction oldsort path login sessionid project)) { $callback .= "&$_=$form->{$_}" } $callback .= "&title=".$form->escape($form->{title},1); @column_index = $form->sort_columns(qw(transdate projectnumber projectdescription id partnumber description qty amount)); if ($form->{projectnumber}) { $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1); $href .= "&projectnumber=".$form->escape($form->{projectnumber}); ($var) = split /--/, $form->{projectnumber}; $option .= "\n<br>" if ($option); $option .= "$joblabel : $var"; @column_index = grep !/projectnumber/, @column_index; } if ($form->{partnumber}) { $callback .= "&partnumber=".$form->escape($form->{partnumber},1); $href .= "&partnumber=".$form->escape($form->{partnumber}); ($var) = split /--/, $form->{partnumber}; $option .= "\n<br>" if ($option); $option .= "$laborlabel : $var"; @column_index = grep !/partnumber/, @column_index; } if ($form->{startdatefrom}) { $callback .= "&startdatefrom=$form->{startdatefrom}"; $href .= "&startdatefrom=$form->{startdatefrom}"; $option .= "\n<br>" if ($option); $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{startdatefrom}, 1); } if ($form->{startdateto}) { $callback .= "&startdateto=$form->{startdateto}"; $href .= "&startdateto=$form->{startdateto}"; $option .= "\n<br>" if ($option); $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{startdateto}, 1); } $column_header{id} = "<th><a class=listheading href=$href&sort=id>" . $locale->text('ID') . "</a></th>"; $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>"; $column_header{projectnumber} = "<th><a class=listheading href=$href&sort=projectnumber>" . $locale->text('Job Number') . "</a></th>"; $column_header{projectdescription} = "<th><a class=listheading href=$href&sort=projectdescription>" . $locale->text('Job Description') . "</a></th>"; $column_header{partnumber} = "<th><a class=listheading href=$href&sort=partnumber>" . $locale->text('Part Number') . "</a></th>"; $column_header{description} = "<th><a class=listheading href=$href&sort=description>" . $locale->text('Description') . "</a></th>"; $column_header{qty} = "<th class=listheading>" . $locale->text('Qty') . "</th>"; $column_header{amount} = "<th class=listheading>" . $locale->text('Amount') . "</th>"; $form->header; if (@{ $form->{transactions} }) { $sameitem = $form->{transactions}->[0]->{$form->{sort}}; } print qq| <body> <table width=100%> <tr> <th class=listtop>$form->{title}</th> </tr> <tr height="5"></tr> <tr> <td>$option</td> </tr> <tr> <td> <table width=100%> <tr class=listheading> |; for (@column_index) { print "\n$column_header{$_}" } print qq| </tr> |; # 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); # flip direction $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; $href =~ s/&direction=(\w+)&/&direction=$direction&/; $total = 0; foreach $ref (@{ $form->{transactions} }) { for (@column_index) { $column_data{$_} = "<td>$ref->{$_} </td>" } $column_data{qty} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty}, "", " ")."</td>"; $column_data{amount} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty} * $ref->{sellprice}, 2)."</td>"; $column_data{id} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&project=$form->{project}&callback=$callback>$ref->{id}</a></td>"; $total += ($ref->{qty} * $ref->{sellprice}); $j++; $j %= 2; print qq| <tr class=listrow$j> |; for (@column_index) { print "\n$column_data{$_}" } print qq| </tr> |; } # print total print qq| <tr class=listtotal> |; for (@column_index) { $column_data{$_} = "<td> </td>" } $column_data{amount} = qq|<th align=right>|.$form->format_amount(\%myconfig, $total, 2)."</th"; for (@column_index) { print "\n$column_data{$_}" } if ($form->{project} eq 'job') { if ($myconfig{acs} !~ /Production--Production/) { $i = 1; $button{'Production--Add Stores Card'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Stores Card').qq|"> |; $button{'Production--Add Stores Card'}{order} = $i++; } } for (split /;/, $myconfig{acs}) { delete $button{$_} } print qq| </tr> </table> </td> </tr> <tr> <td><hr size=3 noshade></td> </tr> </table> <br> <form method=post action=$form->{script}> |; $form->hide_form(qw(callback path login sessionid project)); foreach $item (sort { $a->{order} <=> $b->{order} } %button) { print $item->{code}; } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq| </form> </body> </html> |; } sub continue { &{ $form->{nextsub} } }; sub add_time_card { $form->{type} = "timecard"; &add; } sub add_stores_card { $form->{type} = "storescard"; &add; } sub print_options { if ($form->{selectlanguage}) { $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"}); $form->{"selectlanguage"} =~ s/ selected//; $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/; $lang = qq|<select name=language_code>$form->{selectlanguage}</select> <input type=hidden name=selectlanguage value="|. $form->escape($form->{selectlanguage},1).qq|">|; } $form->{selectformname} = $form->unescape($form->{selectformname}); $form->{selectformname} =~ s/ selected//; $form->{selectformname} =~ s/(<option value="\Q$form->{formname}\E")/$1 selected/; $type = qq|<select name=formname>$form->{selectformname}</select> <input type=hidden name=selectformname value="|.$form->escape($form->{selectformname},1).qq|">|; $media = qq|<select name=media> <option value="screen">|.$locale->text('Screen'); $form->{selectformat} = qq|<option value="html">html\n|; if (%printer && $latex) { for (sort keys %printer) { $media .= qq| <option value="$_">$_| } } if ($latex) { $media .= qq| <option value="queue">|.$locale->text('Queue'); $form->{selectformat} .= qq| <option value="postscript">|.$locale->text('Postscript').qq| <option value="pdf">|.$locale->text('PDF'); } $format = qq|<select name=format>$form->{selectformat}</select>|; $format =~ s/(<option value="\Q$form->{format}\E")/$1 selected/; $format .= qq| <input type=hidden name=selectformat value="|.$form->escape($form->{selectformat},1).qq|">|; $media .= qq|</select>|; $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/; print qq| <table width=100%> <tr> <td>$type</td> <td>$lang</td> <td>$format</td> <td>$media</td> <td align=right width=90%> |; if ($form->{printed} =~ /$form->{formname}/) { print $locale->text('Printed').qq|<br>|; } if ($form->{queued} =~ /$form->{formname}/) { print $locale->text('Queued'); } print qq| </td> </tr> </table> |; } sub print { if ($form->{media} !~ /screen/) { $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/; $old_form = new Form; for (keys %$form) { $old_form->{$_} = $form->{$_} } } &{ "print_$form->{formname}" }($old_form); } sub print_timecard { my ($old_form) = @_; $display_form = ($form->{display_form}) ? $form->{display_form} : "update"; $form->{description} =~ s/^\s+//g; for (qw(partnumber projectnumber)) { $form->{$_} =~ s/--.*// } @a = qw(hour min sec); foreach $item (qw(in out)) { for (@a) { $form->{"$item$_"} = substr(qq|00$form->{"$item$_"}|, -2) } $form->{"checked$item"} = qq|$form->{"${item}hour"}:$form->{"${item}min"}:$form->{"${item}sec"}|; } @a = (); for (qw(company address tel fax businessnumber)) { $form->{$_} = $myconfig{$_} } $form->{address} =~ s/\\n/\n/g; push @a, qw(partnumber description projectnumber projectdescription); push @a, qw(company address tel fax businessnumber username useremail); $form->format_string(@a); $form->{total} = $form->format_amount(\%myconfig, $form->parse_amount(\%myconfig, $form->{qty}) * $form->parse_amount(\%myconfig, $form->{sellprice}), 2); ($form->{employee}, $form->{employee_id}) = split /--/, $form->{employee}; $form->{templates} = "$myconfig{templates}"; $form->{IN} = "$form->{formname}.html"; if ($form->{format} =~ /(postscript|pdf)/) { $form->{IN} =~ s/html$/tex/; } if ($form->{media} !~ /(screen|queue)/) { $form->{OUT} = "| $printer{$form->{media}}"; if ($form->{printed} !~ /$form->{formname}/) { $form->{printed} .= " $form->{formname}"; $form->{printed} =~ s/^ //; $form->update_status(\%myconfig); } %audittrail = ( tablename => jcitems, reference => $form->{id}, formname => $form->{formname}, action => 'printed', id => $form->{id} ); %status = (); for (qw(printed queued audittrail)) { $status{$_} = $form->{$_} } $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); } if ($form->{media} eq 'queue') { %queued = split / /, $form->{queued}; if ($filename = $queued{$form->{formname}}) { $form->{queued} =~ s/$form->{formname} $filename//; unlink "$spool/$filename"; $filename =~ s/\..*$//g; } else { $filename = time; $filename .= $$; } $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf'; $form->{OUT} = ">$spool/$filename"; $form->{queued} = "$form->{formname} $filename"; $form->update_status(\%myconfig); %audittrail = ( tablename => jcitems, reference => $form->{id}, formname => $form->{formname}, action => 'queued', id => $form->{id} ); %status = (); for (qw(printed queued audittrail)) { $status{$_} = $form->{$_} } $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); } $form->parse_template(\%myconfig, $userspath); if (defined %$old_form) { for (keys %$old_form) { $form->{$_} = $old_form->{$_} } for (qw(printed queued audittrail)) { $form->{$_} = $status{$_} } &{ "$display_form" }; } }