diff options
Diffstat (limited to 'bin/jc.pl')
| -rwxr-xr-x | bin/jc.pl | 2774 |
1 files changed, 1531 insertions, 1243 deletions
@@ -8,9 +8,9 @@ # 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, +# 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): @@ -42,207 +42,245 @@ 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'); + } -sub add { + $form->{callback} = +"$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&project=$form->{project}" + unless $form->{callback}; - if ($form->{type} eq 'timecard') { - $form->{title} = $locale->text('Add Time Card'); - } - if ($form->{type} eq 'storescard') { - $form->{title} = $locale->text('Add Stores Card'); - } + &{"prepare_$form->{type}"}; - $form->{callback} = "$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&project=$form->{project}" unless $form->{callback}; + $form->{orphaned} = 1; + &display_form; - &{ "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; - -} + 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!')); - } + 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| } + # 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| } + $form->{selectaccountingmonth} = "<option>\n"; + for ( sort keys %{ $form->{all_month} } ) { + $form->{selectaccountingmonth} .= + qq|<option value=$_>| + . $locale->text( $form->{all_month}{$_} ) . qq|\n|; + } - $selectfrom = qq| + $selectfrom = qq| <tr> - <th align=right>|.$locale->text('Period').qq|</th> + <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| + <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| + $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> + <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| + 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| + 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| + $employee = qq| <tr> - <th align=right nowrap>|.$locale->text('Employee').qq|</th> + <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>|; - - } + $l_time = +qq|<td nowrap><input name=l_time class=checkbox type=checkbox value=Y> | + . $locale->text('Time') + . qq|</td>|; - $form->header; + } - print qq| + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -261,19 +299,27 @@ sub search { $fromto <tr> - <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <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> + <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> + <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> + <td><input name=l_subtotal class=checkbox type=checkbox value=Y> | + . $locale->text('Subtotal') + . qq|</td> </tr> </table> </td> @@ -290,20 +336,22 @@ sub search { <input type=hidden name=sort value="transdate"> |; - $form->hide_form(qw(db path login sessionid project type)); + $form->hide_form(qw(db path login sessionid project type)); - print qq| + print qq| <br> -<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button> +<button type="submit" class="submit" name="action" value="continue">| + . $locale->text('Continue') + . qq|</button> </form> |; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </body> </html> @@ -311,192 +359,218 @@ sub search { } - sub display_form { - &{ "$form->{type}_header" }; - &{ "$form->{type}_footer" }; + &{"$form->{type}_header"}; + &{"$form->{type}_footer"}; } - sub form_header { - &{ "$form->{type}_header" }; + &{"$form->{type}_header"}; } - sub form_footer { - &{ "form->{type}_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}; - } + $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| + # 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> + <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> + <th align=right nowrap>| . $locale->text('Total') . qq|</th> <td>$form->{amount}</td> </tr> <tr> - <th align=right nowrap>|.$locale->text('Allocated').qq|</th> + <th align=right nowrap>| . $locale->text('Allocated') . qq|</th> <td><input name=allocated value=$form->{allocated}></td> </tr> |; - } else { - $rate = qq| + } + else { + $rate = qq| <tr> - <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th> + <th align=right nowrap>| . $locale->text('Chargeout Rate') . qq|</th> <td>$form->{sellprice}</td> - <th align=right nowrap>|.$locale->text('Total').qq|</th> + <th align=right nowrap>| . $locale->text('Total') . qq|</th> <td>$form->{amount}</td> </tr> <tr> - <th align=right nowrap>|.$locale->text('Allocated').qq|</th> + <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; - } + 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}>|; + } - $notes = qq|<tr> - <th align=right>|.$locale->text('Notes').qq|</th> + 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; + ( $null, $form->{oldproject_id} ) = split /--/, $form->{projectnumber}; + + $form->header; - print qq| + 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)); + $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| + print qq| <table width=100%> <tr class=listtop> <th class=listtop>$form->{title}</th> @@ -509,7 +583,7 @@ sub timecard_header { <td> <table> <tr> - <th align=right nowrap>|.$locale->text('Employee').qq|</th> + <th align=right nowrap>| . $locale->text('Employee') . qq|</th> <td><select name=employee>$form->{selectemployee}</select></td> </tr> <tr> @@ -518,10 +592,11 @@ sub timecard_header { </td> <td></td> <td>$form->{projectdescription}</td> - <input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|"> + <input type=hidden name=projectdescription value="| + . $form->quote( $form->{projectdescription} ) . qq|"> </tr> <tr> - <th align=right nowrap>|.$locale->text('Date worked').qq|</th> + <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> @@ -529,11 +604,11 @@ sub timecard_header { <td><select name=partnumber>$form->{selectpartnumber}</select></td> </tr> <tr valign=top> - <th align=right nowrap>|.$locale->text('Description').qq|</th> + <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> + <th align=right nowrap>| . $locale->text('Time In') . qq|</th> <td> <table> <tr> @@ -543,7 +618,7 @@ sub timecard_header { </tr> </table> </td> - <th align=right nowrap>|.$locale->text('Time Out').qq|</th> + <th align=right nowrap>| . $locale->text('Time Out') . qq|</th> <td> <table> <tr> @@ -555,15 +630,15 @@ sub timecard_header { </td> </tr> <tr> - <th align=right nowrap>|.$locale->text('Clocked').qq|</th> + <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> + <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> + <th align=right nowrap>| . $locale->text('Chargeable') . qq|</th> <td>$charge</td> </tr> $rate @@ -576,10 +651,9 @@ sub timecard_header { } - sub timecard_footer { - print qq| + print qq| </table> </td> </tr> @@ -590,80 +664,98 @@ sub timecard_footer { <td> |; - &print_options; + &print_options; - print qq| + 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 (${LedgerSMB::Sysconfig::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 (${LedgerSMB::Sysconfig::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->{lynx}) { - require "bin/menu.pl"; - &menubar; - } - - $form->hide_form(qw(callback path login sessionid)); - - print qq| + $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 ( ${LedgerSMB::Sysconfig::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 ( ${LedgerSMB::Sysconfig::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->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + $form->hide_form(qw(callback path login sessionid)); + + print qq| </form> @@ -673,75 +765,89 @@ sub timecard_footer { } - 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}; - } + $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); + # set option selected + for (qw(employee projectnumber partnumber)) { + $form->{"select$_"} =~ s/ selected//; + $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/; + } - for (qw(transdate partnumber)) { $form->{"old$_"} = $form->{$_} } - for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) } + $rows = $form->numtextrows( $form->{description}, 50, 8 ); - 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}">|; - } + 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; + $form->header; - print qq| + 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)); + $form->hide_form( + qw(id type media format printed queued title closedto locked oldtransdate oldpartnumber project) + ); - print qq| + print qq| <table width=100%> <tr class=listtop> <th class=listtop>$form->{title}</th> @@ -754,32 +860,33 @@ sub storescard_header { <td> <table> <tr> - <th align=right nowrap>|.$locale->text('Job Number').qq|</th> + <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|"> + <input type=hidden name=projectdescription value="| + . $form->quote( $form->{projectdescription} ) . qq|"> </tr> <tr> - <th align=right nowrap>|.$locale->text('Date').qq|</th> + <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> + <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> + <th align=right nowrap>| . $locale->text('Description') . qq|</th> <td>$description</td> </tr> <tr> - <th align=right nowrap>|.$locale->text('Qty').qq|</th> + <th align=right nowrap>| . $locale->text('Qty') . qq|</th> <td><input name=qty size=6 value=$form->{qty}> - <b>|.$locale->text('Cost').qq|</b> + <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> + <th align=right nowrap>| . $locale->text('Total') . qq|</th> <td>$form->{amount}</td> </tr> </table> @@ -790,10 +897,9 @@ sub storescard_header { } - sub storescard_footer { - print qq| + print qq| </table> </td> </tr> @@ -804,76 +910,94 @@ sub storescard_footer { <td> |; - &print_options; + &print_options; - print qq| + 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 (${LedgerSMB::Sysconfig::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 (${LedgerSMB::Sysconfig::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->{lynx}) { - require "bin/menu.pl"; - &menubar; - } - - $form->hide_form(qw(callback path login sessionid)); - - print qq| + $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 ( ${LedgerSMB::Sysconfig::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 ( ${LedgerSMB::Sysconfig::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->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + $form->hide_form(qw(callback path login sessionid)); + + print qq| </form> @@ -883,213 +1007,246 @@ sub storescard_footer { } - - sub update { - ($null, $form->{project_id}) = split /--/, $form->{projectnumber}; - - # check labor/part - JC->jcitems_links(\%myconfig, \%$form); + ( $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 ); + } - &jcitems_links; - - $checkmatrix = 1 if $form->{oldproject_id} != $form->{project_id}; - - if ($form->{type} eq 'timecard') { + } + 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 ); + } - # 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}; + $form->{allocated} = $form->format_amount( \%myconfig, $form->{allocated} ); - if ($form->{checkedin} > $form->{checkedout}) { - $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout}); - $form->{checkedin} = 0; - } + &display_form; - $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600; +} - for (qw(sellprice qty noncharge allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } +sub save { - $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}; - } + $form->isblank( "transdate", $locale->text('Date missing!') ); - if (($form->{qty} != $form->{oldqty}) && $form->{clocked}) { - $form->{oldnoncharge} = $form->{noncharge} = $form->{clocked} - $form->{qty}; - $checkmatrix = 1; + if ( $form->{project} eq 'project' ) { + $form->isblank( "projectnumber", + $locale->text('Project Number missing!') ); + $form->isblank( "partnumber", $locale->text('Service Code missing!') ); } - - if (($form->{oldnoncharge} != $form->{noncharge}) && $form->{clocked}) { - $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge}; - $checkmatrix = 1; + else { + $form->isblank( "projectnumber", $locale->text('Job Number missing!') ); + $form->isblank( "partnumber", $locale->text('Labor Code missing!') ); } - - 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; - } - } - } + + $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; + } } - - $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; + $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!') ); + } -sub save { + } + 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!') ); + } + } - $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; + delete $form->{id}; + &save; } - sub print_and_save_as_new { - delete $form->{id}; - &print_and_save; + 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| + 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}; + delete $form->{action}; - $form->hide_form; + $form->hide_form; - print qq| -<h2 class=confirm>|.$locale->text('Warning!').qq|</h2> + print qq| +<h2 class=confirm>| . $locale->text('Warning!') . qq|</h2> <h4>$msg</h4> -<button name="action" class="submit" type="submit" value="continue">|.$locale->text('Continue').qq|</button> +<button name="action" class="submit" type="submit" value="continue">| + . $locale->text('Continue') + . qq|</button> </form> </body> @@ -1098,198 +1255,223 @@ sub resave { } - 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; + $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->{$_} } + $old_form = new Form; + $form->{display_form} = "save"; + for ( keys %$form ) { $old_form->{$_} = $form->{$_} } - &{ "print_$form->{formname}" }($old_form); + &{"print_$form->{formname}"}($old_form); } - sub delete_timecard { - $form->header; + $form->header; - $employee = $form->{employee}; - $employee =~ s/--.*//g; - $projectnumber = $form->{projectnumber}; - $projectnumber =~ s/--.*//g; + $employee = $form->{employee}; + $employee =~ s/--.*//g; + $projectnumber = $form->{projectnumber}; + $projectnumber =~ s/--.*//g; - print qq| + print qq| <body> <form method=post action=$form->{script}> |; - delete $form->{action}; + delete $form->{action}; - $form->hide_form; + $form->hide_form; - print qq| -<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2> + print qq| +<h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2> -<h4>|.$locale->text('Are you sure you want to delete time card for').qq| +<h4>| . $locale->text('Are you sure you want to delete time card for') . qq| <p>$form->{transdate} <br>$employee <br>$projectnumber </h4> <p> -<button name="action" class="submit" type="submit" value="yes">|.$locale->text('Yes').qq|</button> +<button name="action" class="submit" type="submit" value="yes">| + . $locale->text('Yes') + . qq|</button> </form> |; } - -sub delete { &{ "delete_$form->{type}" } }; -sub yes { &{ "yes_delete_$form->{type}" } }; - +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!')); - } -} + 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| + $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%> @@ -1313,69 +1495,80 @@ sub list_timecard { <tr class=listheading> |; - for (@column_index) { print "\n$column_header{$_}" } - - print qq| + 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}"; + # 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); - # escape callback for href - $callback = $form->escape($callback); + # flip direction + $direction = ( $form->{direction} eq 'ASC' ) ? "ASC" : "DESC"; + $href =~ s/&direction=(\w+)&/&direction=$direction&/; - # flip direction - $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; - $href =~ s/&direction=(\w+)&/&direction=$direction&/; + %total = (); - %total = (); - - foreach $ref (@{ $form->{transactions} }) { + foreach $ref ( @{ $form->{transactions} } ) { - if ($sameemployeenumber ne $ref->{employeenumber}) { - $sameemployeenumber = $ref->{employeenumber}; - $sameweek = $ref->{workweek}; + if ( $sameemployeenumber ne $ref->{employeenumber} ) { + $sameemployeenumber = $ref->{employeenumber}; + $sameweek = $ref->{workweek}; - if ($form->{l_subtotal}) { - print qq| + 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| + 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>" } + 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; + } - $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{$_}" } + $column_data{ $form->{sort} } = + "<th class=listtotal align=right>" + . $form->format_amount( \%myconfig, $total, "", " " ) + . "</th>"; + for (@column_index) { print "\n$column_data{$_}" } - print qq| + print qq| <tr height=30 valign=bottom> <th colspan=2 align=left> $ref->{employee} @@ -1386,126 +1579,162 @@ sub list_timecard { <tr class=listheading> |; - for (@column_index) { print "\n$column_header{$_}" } - - print qq| + 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| + } + + 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| + 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| + } + } + + 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{$_}" } + for (@column_index) { print "\n$column_data{$_}" } - print qq| + print qq| </tr> |; - } + } - # print last subtotal - if ($form->{l_subtotal}) { - print qq| + # print last subtotal + if ( $form->{l_subtotal} ) { + print qq| <tr class=listsubtotal> |; - for (@column_index) { $column_data{$_} = "<td> </td>" } + 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{$_}" } - } + $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>"; - # print last total - print qq| + for (@column_index) { print "\n$column_data{$_}" } + } + + # print last total + print qq| <tr class=listtotal> |; - for (@column_index) { $column_data{$_} = "<td> </td>" } + 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; + } - $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>"; - $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", " ")."</th>"; - - for (@column_index) { print "\n$column_data{$_}" } + 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|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |; - $button{'Production--Add Time Card'}{order} = $i++; + if ( $form->{project} eq 'job' ) { + if ( $myconfig{acs} !~ /Production--Production/ ) { + $i = 1; + $button{'Production--Add Time Card'}{code} = +qq|<button class="submit" type="submit" name="action" value="add_time_card">| + . $locale->text('Add Time Card') + . qq|</button> |; + $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|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |; - $button{'Projects--Add Time Card'}{order} = $i++; + elsif ( $form->{project} eq 'project' ) { + if ( $myconfig{acs} !~ /Projects--Projects/ ) { + $i = 1; + $button{'Projects--Add Time Card'}{code} = +qq|<button class="submit" type="submit" name="action" value="add_time_card">| + . $locale->text('Add Time Card') + . qq|</button> |; + $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|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |; - $button{'Time Cards--Add Time Card'}{order} = $i++; + else { + if ( $myconfig{acs} !~ /Time Cards--Time Cards/ ) { + $i = 1; + $button{'Time Cards--Add Time Card'}{code} = +qq|<button class="submit" type="submit" name="action" value="add_time_card">| + . $locale->text('Add Time Card') + . qq|</button> |; + $button{'Time Cards--Add Time Card'}{order} = $i++; + } } - } - for (split /;/, $myconfig{acs}) { delete $button{$_} } + for ( split /;/, $myconfig{acs} ) { delete $button{$_} } - print qq| + print qq| </tr> </table> </td> @@ -1519,96 +1748,125 @@ sub list_timecard { <form method=post action=$form->{script}> |; - $form->hide_form(qw(callback path login sessionid project)); + $form->hide_form(qw(callback path login sessionid project)); - foreach $item (sort { $a->{order} <=> $b->{order} } %button) { - print $item->{code}; - } + foreach $item ( sort { $a->{order} <=> $b->{order} } %button ) { + print $item->{code}; + } - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + 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| + $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%> @@ -1625,66 +1883,80 @@ sub list_storescard { <tr class=listheading> |; - for (@column_index) { print "\n$column_header{$_}" } - - print qq| + 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}"; + # 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); + # escape callback for href + $callback = $form->escape($callback); - # flip direction - $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; - $href =~ s/&direction=(\w+)&/&direction=$direction&/; + # flip direction + $direction = ( $form->{direction} eq 'ASC' ) ? "ASC" : "DESC"; + $href =~ s/&direction=(\w+)&/&direction=$direction&/; - $total = 0; - foreach $ref (@{ $form->{transactions} }) { + $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| + 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{$_}" } + for (@column_index) { print "\n$column_data{$_}" } - print qq| + print qq| </tr> |; - } + } - # print total - print qq| + # 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{$_}" } + for (@column_index) { $column_data{$_} = "<td> </td>" } + $column_data{amount} = + qq|<th align=right>| + . $form->format_amount( \%myconfig, $total, 2 ) . "</th"; - if ($form->{project} eq 'job') { - if ($myconfig{acs} !~ /Production--Production/) { - $i = 1; - $button{'Production--Add Stores Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_stores_card">|.$locale->text('Add Stores Card').qq|</button> |; - $button{'Production--Add Stores Card'}{order} = $i++; + 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|<button class="submit" type="submit" name="action" value="add_stores_card">| + . $locale->text('Add Stores Card') + . qq|</button> |; + $button{'Production--Add Stores Card'}{order} = $i++; + } } - } - for (split /;/, $myconfig{acs}) { delete $button{$_} } + for ( split /;/, $myconfig{acs} ) { delete $button{$_} } - print qq| + print qq| </tr> </table> </td> @@ -1698,91 +1970,94 @@ sub list_storescard { <form method=post action=$form->{script}> |; - $form->hide_form(qw(callback path login sessionid project)); + $form->hide_form(qw(callback path login sessionid project)); - foreach $item (sort { $a->{order} <=> $b->{order} } %button) { - print $item->{code}; - } + foreach $item ( sort { $a->{order} <=> $b->{order} } %button ) { + print $item->{code}; + } - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> </html> |; -} - - +} -sub continue { &{ $form->{nextsub} } }; +sub continue { &{ $form->{nextsub} } } sub add_time_card { - $form->{type} = "timecard"; - &add; + $form->{type} = "timecard"; + &add; } - sub add_stores_card { - $form->{type} = "storescard"; - &add; + $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 (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex}) { - for (sort keys %{LedgerSMB::Sysconfig::printer}) { $media .= qq| - <option value="$_">$_| } - } - - if (${LedgerSMB::Sysconfig::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| + 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 ( %{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex} ) { + for ( sort keys %{LedgerSMB::Sysconfig::printer} ) { + $media .= qq| + <option value="$_">$_|; + } + } + + if ( ${LedgerSMB::Sysconfig::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> @@ -1792,15 +2067,15 @@ sub print_options { <td align=right width=90%> |; - if ($form->{printed} =~ /$form->{formname}/) { - print $locale->text('Printed').qq|<br>|; - } + if ( $form->{printed} =~ /$form->{formname}/ ) { + print $locale->text('Printed') . qq|<br>|; + } - if ($form->{queued} =~ /$form->{formname}/) { - print $locale->text('Queued'); - } + if ( $form->{queued} =~ /$form->{formname}/ ) { + print $locale->text('Queued'); + } - print qq| + print qq| </td> </tr> </table> @@ -1808,122 +2083,135 @@ sub print_options { } - 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->{$_} } - } + 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); + &{"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} = ${LedgerSMB::Sysconfig::printer}{$form->{media}}; - $form->{printmode} = '|-'; - - 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 "${LedgerSMB::Sysconfig::spool}/$filename"; - $filename =~ s/\..*$//g; - } else { - $filename = time; - $filename .= $$; - } - - $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf'; - $form->{OUT} = "${LedgerSMB::Sysconfig::spool}/$filename"; - $form->{printmode} = '>'; - - $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, ${LedgerSMB::Sysconfig::userspath}); - - if (defined %$old_form) { - - for (keys %$old_form) { $form->{$_} = $old_form->{$_} } - for (qw(printed queued audittrail)) { $form->{$_} = $status{$_} } - - &{ "$display_form" }; - - } - -} + 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} = ${LedgerSMB::Sysconfig::printer}{ $form->{media} }; + $form->{printmode} = '|-'; + + 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 "${LedgerSMB::Sysconfig::spool}/$filename"; + $filename =~ s/\..*$//g; + } + else { + $filename = time; + $filename .= $$; + } + + $filename .= ( $form->{format} eq 'postscript' ) ? '.ps' : '.pdf'; + $form->{OUT} = "${LedgerSMB::Sysconfig::spool}/$filename"; + $form->{printmode} = '>'; + + $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, ${LedgerSMB::Sysconfig::userspath} ); + + if ( defined %$old_form ) { + + for ( keys %$old_form ) { $form->{$_} = $old_form->{$_} } + for (qw(printed queued audittrail)) { $form->{$_} = $status{$_} } + + &{"$display_form"}; + + } + +} |