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

summary refs log tree commit diff

path: root/doc/cgi

diff options

Diffstat (limited to 'doc/cgi')

0 files changed, 0 insertions, 0 deletions

# Author: DWS Systems Inc.

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

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

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

# Job Costing module

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

use LedgerSMB::JC;

# end of main

sub add {

  if ($form->{type} eq 'timecard') {

    $form->{title} = $locale->text('Add Time Card');

}

  if ($form->{type} eq 'storescard') {

    $form->{title} = $locale->text('Add Stores Card');

}

  $form->{callback} = "$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&project=$form->{project}" unless $form->{callback};

  &{ "prepare_$form->{type}" };

  $form->{orphaned} = 1;

&display_form;

}

sub edit {

  if ($form->{type} eq 'timecard') {

    $form->{title} = $locale->text('Edit Time Card');

}

  if ($form->{type} eq 'storescard') {

    $form->{title} = $locale->text('Add Stores Card');

}

  &{ "prepare_$form->{type}" };

&display_form;

}

sub jcitems_links {

  if (@{ $form->{all_project} }) {

    $form->{selectprojectnumber} = "<option>\n";

    foreach $ref (@{ $form->{all_project} }) {

      $form->{selectprojectnumber} .= qq|<option value="$ref->{projectnumber}--$ref->{id}">$ref->{projectnumber}\n|;

      if ($form->{projectnumber} eq "$ref->{projectnumber}--$ref->{id}") {

    $form->{projectdescription} = $ref->{description};

}

  } else {

    if ($form->{project} eq 'job') {

      $form->error($locale->text('No open Jobs!'));

    } else {

      $form->error($locale->text('No open Projects!'));

}

  if (@{ $form->{all_parts} }) {

    $form->{selectpartnumber} = "<option>\n";

    foreach $ref (@{ $form->{all_parts} }) {

      $form->{selectpartnumber} .= qq|<option value="$ref->{partnumber}--$ref->{id}">$ref->{partnumber}\n|;

      if ($form->{partnumber} eq "$ref->{partnumber}--$ref->{id}") {

    if ($form->{partnumber} ne $form->{oldpartnumber}) {

      for (qw(description unit sellprice pricematrix)) { $form->{$_} = $ref->{$_} }

}

  } else {

    if ($form->{type} eq 'timecard') {

      if ($form->{project} eq 'job') {

    $form->error($locale->text('No Labor codes on file!'));

      } else {

    $form->error($locale->text('No Services on file!'));

}

    } else {

      $form->error($locale->text('No Parts on file!'));

}

# employees

  if (@{ $form->{all_employee} }) {

    $form->{selectemployee} = "<option>\n";

    for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }

  } else {

    $form->error($locale->text('No Employees on file!'));

}

sub search {

# accounting years

  $form->all_years(\%myconfig);

  if (@{ $form->{all_years} }) {

    $form->{selectaccountingyear} = "<option>\n";

    for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|<option>$_\n| }

    $form->{selectaccountingmonth} = "<option>\n";

    for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| }

    $selectfrom = qq|

<tr>

      <th align=right>|.$locale->text('Period').qq|</th>

      <td colspan=3>

      <select name=month>$form->{selectaccountingmonth}</select>

      <select name=year>$form->{selectaccountingyear}</select>

      <input name=interval class=radio type=radio value=0 checked>&nbsp;|.$locale->text('Current').qq|

      <input name=interval class=radio type=radio value=1>&nbsp;|.$locale->text('Month').qq|

      <input name=interval class=radio type=radio value=3>&nbsp;|.$locale->text('Quarter').qq|

      <input name=interval class=radio type=radio value=12>&nbsp;|.$locale->text('Year').qq|

</td>

</tr>

}

  $fromto = qq|

<tr>

      <th align=right nowrap>|.$locale->text('Startdate').qq|</th>

      <td>|.$locale->text('From').qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}">

      |.$locale->text('To').qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td>

</tr>

$selectfrom

  if ($form->{type} eq 'timecard') {

    $form->{title} = $locale->text('Time Cards');

    JC->jcitems_links(\%myconfig, \%$form);

}

  if ($form->{type} eq 'storescard') {

    $form->{title} = $locale->text('Stores Cards');

    JC->jcitems_links(\%myconfig, \%$form);

}

  if (@{ $form->{all_project} }) {

    $form->{selectprojectnumber} = "<option>\n";

    for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }

}

  if (@{ $form->{all_parts} }) {

    $form->{selectpartnumber} = "<option>\n";

    foreach $ref (@{ $form->{all_parts} }) {

      $form->{selectpartnumber} .= qq|<option value="$ref->{partnumber}--$ref->{id}">$ref->{partnumber}\n|;

}

  if ($form->{project} eq 'job') {

    $joblabel = $locale->text('Job Number');

    $laborlabel = $locale->text('Labor Code');

  } elsif ($form->{project} eq 'project') {

    $joblabel = $locale->text('Project Number');

    $laborlabel = $locale->text('Service Code');

  } else {

    $joblabel = $locale->text('Project/Job Number');

    $laborlabel = $locale->text('Service/Labor Code');

}

  if ($form->{selectprojectnumber}) {

    $jobnumber = qq|

<tr>

    <th align=right nowrap>$joblabel</th>

    <td colspan=3><select name=projectnumber>$form->{selectprojectnumber}</select></td>

</tr>

}

  if ($form->{type} eq 'timecard') {

# employees

    if (@{ $form->{all_employee} }) {

      $form->{selectemployee} = "<option>\n";

      for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }

    } else {

      $form->error($locale->text('No Employees on file!'));

}

    if ($form->{selectpartnumber}) {

    $partnumber = qq|

<tr>

      <th align=right nowrap>$laborlabel</th>

      <td colspan=3><select name=partnumber>$form->{selectpartnumber}</select></td>

</tr>

}

    $employee = qq|

<tr>

      <th align=right nowrap>|.$locale->text('Employee').qq|</th>

      <td colspan=3><select name=employee>$form->{selectemployee}</select></td>

</tr>

    $l_time = qq|<td nowrap><input name=l_time class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Time').qq|</td>|;

}

  $form->header;

print qq|

<body>

<form method=post action=$form->{script}>

<table width=100%>

<tr>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

  <tr valign=top>

<td>

<table>

$jobnumber

$partnumber

$employee

$fromto

<tr>

      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>

<td>

<table>

<tr>

            <td nowrap><input name=open class=checkbox type=checkbox value=Y checked> |.$locale->text('Open').qq|</td>

        <td nowrap><input name=closed class=checkbox type=checkbox value=Y> |.$locale->text('Closed').qq|</td>

</tr>

<tr>

$l_time

            <td nowrap><input name=l_allocated class=checkbox type=checkbox value=Y> |.$locale->text('Allocated').qq|</td>

</tr>

<tr>

            <td><input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

<tr>

    <td><hr size=3 noshade></td>

</tr>

</table>

<input type=hidden name=nextsub value="list_$form->{type}">

<input type=hidden name=sort value="transdate">

  $form->hide_form(qw(db path login sessionid project type));

print qq|

<br>

<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>

</form>

  if ($form->{lynx}) {

    require "bin/menu.pl";

&menubar;

}

print qq|

</body>

</html>

}

sub display_form {

  &{ "$form->{type}_header" };

  &{ "$form->{type}_footer" };

}

sub form_header {

  &{ "$form->{type}_header" };

}

sub form_footer {

  &{ "form->{type}_footer" };

}

sub prepare_timecard {

  $form->{formname} = "timecard";

  $form->{format} = "postscript" if $myconfig{printer};

  $form->{media} = $myconfig{printer};

  JC->get_jcitems(\%myconfig, \%$form);

  $form->{selectformname} = qq|<option value="timecard">|.$locale->text('Time Card');

  foreach $item (qw(in out)) {

    ($form->{"${item}hour"}, $form->{"${item}min"}, $form->{"${item}sec"}) = split /:/, $form->{"checked$item"};

    for (qw(hour min sec)) {

      if (($form->{"$item$_"} *= 1) > 0) {

        $form->{"$item$_"} = substr(qq|0$form->{"$item$_"}|,-2);

      } else {

    $form->{"$item$_"} ||= "";

}

  $form->{checkedin} = $form->{inhour} * 3600 + $form->{inmin} * 60 + $form->{insec};

  $form->{checkedout} = $form->{outhour} * 3600 + $form->{outmin} * 60 + $form->{outsec};

  if ($form->{checkedin} > $form->{checkedout}) {

    $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout});

    $form->{checkedin} = 0;

}

  $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600;

  if ($form->{clocked}) {

    $form->{oldnoncharge} = $form->{clocked} - $form->{qty};

}

  $form->{oldqty} = $form->{qty};

  $form->{noncharge} = $form->format_amount(\%myconfig, $form->{clocked} - $form->{qty}, 4) if $form->{checkedin} != $form->{checkedout};

  $form->{clocked} = $form->format_amount(\%myconfig, $form->{clocked}, 4);

  $form->{amount} = $form->{sellprice} * $form->{qty};

  for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }

  $form->{qty} = $form->format_amount(\%myconfig, $form->{qty}, 4);

  $form->{allocated} = $form->format_amount(\%myconfig, $form->{allocated});

  $form->{employee} .= "--$form->{employee_id}";

  $form->{projectnumber} .= "--$form->{project_id}";

  $form->{partnumber} .= "--$form->{parts_id}";

  $form->{oldpartnumber} = $form->{partnumber};

  if (@{ $form->{all_language} }) {

    $form->{selectlanguage} = "<option>\n";

    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }

}

&jcitems_links;

  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto}));

  $form->{readonly} = 1 if $myconfig{acs} =~ /Production--Add Time Card/;

  if ($form->{income_accno_id}) {

    $form->{locked} = 1 if $form->{production} == $form->{completed};

}

sub timecard_header {

# set option selected

  for (qw(employee projectnumber partnumber)) {

    $form->{"select$_"} =~ s/ selected//;

    $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;

}

  $rows = $form->numtextrows($form->{description}, 50, 8);

  for (qw(transdate checkedin checkedout partnumber)) { $form->{"old$_"} = $form->{$_} }

  for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) }

  if ($rows > 1) {

    $description = qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}</textarea>|;

  } else {

    $description = qq|<input name=description size=48 value="$form->{description}">|;

}

  if ($form->{project} eq 'job') {

    $projectlabel = $locale->text('Job Number');

    $laborlabel = $locale->text('Labor Code');

    $rate = qq|<input type=hidden name=sellprice value=$form->{sellprice}>|;

  } else {

    if ($form->{project} eq 'project') {

      $projectlabel = $locale->text('Project Number');

      $laborlabel = $locale->text('Service Code');

    } else {

      $projectlabel = $locale->text('Project/Job Number');

      $laborlabel = $locale->text('Service/Labor Code');

}

    if ($myconfig{role} ne 'user') {

      $rate = qq|

<tr>

          <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th>

          <td><input name=sellprice value=$form->{sellprice}></td>

          <th align=right nowrap>|.$locale->text('Total').qq|</th>

          <td>$form->{amount}</td>

</tr>

<tr>

          <th align=right nowrap>|.$locale->text('Allocated').qq|</th>

          <td><input name=allocated value=$form->{allocated}></td>

</tr>

    } else {

      $rate = qq|

<tr>

          <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th>

          <td>$form->{sellprice}</td>

          <th align=right nowrap>|.$locale->text('Total').qq|</th>

          <td>$form->{amount}</td>

</tr>

<tr>

          <th align=right nowrap>|.$locale->text('Allocated').qq|</th>

          <td>$form->{allocated}</td>

</tr>

        <input type=hidden name=sellprice value=$form->{sellprice}>

        <input type=hidden name=allocated value=$form->{allocated}>

}

  if ($myconfig{role} eq 'user') {

    $charge = qq|<input type=hidden name=qty value=$form->{qty}>$form->{qty}|;

  } else {

    $charge = qq|<input name=qty value=$form->{qty}>|;

}

  if (($rows = $form->numtextrows($form->{notes}, 40, 6)) < 2) {

    $rows = 2;

}

  $notes = qq|<tr>

        <th align=right>|.$locale->text('Notes').qq|</th>

                  <td colspan=3><textarea name="notes" rows=$rows cols=46 wrap=soft>$form->{notes}</textarea>

</td>

</tr>

##################

  ($null, $form->{oldproject_id}) = split /--/, $form->{projectnumber};

  $form->header;

print qq|

<body>

<form method=post action="$form->{script}">

  $form->hide_form(qw(id type media format printed queued title closedto locked oldtransdate oldcheckedin oldcheckedout oldpartnumber project oldqty oldnoncharge pricematrix oldproject_id));

print qq|

<table width=100%>

  <tr class=listtop>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

<td>

<table>

<tr>

<td>

<table>

<tr>

        <th align=right nowrap>|.$locale->text('Employee').qq|</th>

        <td><select name=employee>$form->{selectemployee}</select></td>

</tr>

<tr>

        <th align=right nowrap>$projectlabel</th>

        <td><select name=projectnumber>$form->{selectprojectnumber}</select>

</td>

        <td></td>

        <td>$form->{projectdescription}</td>

        <input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|">

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Date worked').qq|</th>

        <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>

</tr>

<tr>

        <th align=right nowrap>$laborlabel</th>

        <td><select name=partnumber>$form->{selectpartnumber}</select></td>

</tr>

          <tr valign=top>

        <th align=right nowrap>|.$locale->text('Description').qq|</th>

        <td colspan=3>$description</td>

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Time In').qq|</th>

<td>

<table>

<tr>

              <td><input name=inhour title="hh" size=3 maxlength=2 value=$form->{inhour}></td>

              <td><input name=inmin title="mm" size=3 maxlength=2 value=$form->{inmin}></td>

              <td><input name=insec title="ss" size=3 maxlength=2 value=$form->{insec}></td>

</tr>

</table>

</td>

        <th align=right nowrap>|.$locale->text('Time Out').qq|</th>

<td>

<table>

<tr>

              <td><input name=outhour title="hh" size=3 maxlength=2 value=$form->{outhour}></td>

              <td><input name=outmin title="mm" size=3 maxlength=2 value=$form->{outmin}></td>

              <td><input name=outsec title="ss" size=3 maxlength=2 value=$form->{outsec}></td>

</tr>

</table>

</td>

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Clocked').qq|</th>

        <td>$form->{clocked}</td>

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Non-chargeable').qq|</th>

        <td><input name=noncharge value=$form->{noncharge}></td>

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Chargeable').qq|</th>

        <td>$charge</td>

</tr>

$rate

$notes

</table>

</td>

</tr>

}

sub timecard_footer {

print qq|

</table>

</td>

</tr>

<tr>

    <td><hr size=3 noshade></td>

</tr>

<tr>

<td>

&print_options;

print qq|

</td>

</tr>

</table>

<br>

  $transdate = $form->datetonum(\%myconfig, $form->{transdate});

  $closedto = $form->datetonum(\%myconfig, $form->{closedto});

  if (! $form->{readonly}) {

# type=submit $locale->text('Update')

# type=submit $locale->text('Print')

# type=submit $locale->text('Save')

# type=submit $locale->text('Print and Save')

# type=submit $locale->text('Save as new')

# type=submit $locale->text('Print and Save as new')

# type=submit $locale->text('Delete')

  %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },

             'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },

         'save' => { ndx => 3, key => 'S', value => $locale->text('Save') },

         'print_and_save' => { ndx => 6, key => 'R', value => $locale->text('Print and Save') },

         'save_as_new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') },

         'print_and_save_as_new' => { ndx => 8, key => 'W', value => $locale->text('Print and Save as new') },

         'delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') },

);

%a = ();

    if ($form->{id}) {

      if (!$form->{locked}) {

    for ('update', 'print', 'save', 'save_as_new') { $a{$_} = 1 }

    if (${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>

</body>

</html>

}

sub prepare_storescard {

  $form->{formname} = "storescard";

  $form->{format} = "postscript" if $myconfig{printer};

  $form->{media} = $myconfig{printer};

  JC->get_jcitems(\%myconfig, \%$form);

  $form->{selectformname} = qq|<option value="storescard">|.$locale->text('Stores Card');

  $form->{amount} = $form->{sellprice} * $form->{qty};

  for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }

  $form->{qty} = $form->format_amount(\%myconfig, $form->{qty}, 4);

  $form->{employee} .= "--$form->{employee_id}";

  $form->{projectnumber} .= "--$form->{project_id}";

  $form->{partnumber} .= "--$form->{parts_id}";

  $form->{oldpartnumber} = $form->{partnumber};

  if (@{ $form->{all_language} }) {

    $form->{selectlanguage} = "<option>\n";

    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }

}

&jcitems_links;

  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto}));

  $form->{readonly} = 1 if $myconfig{acs} =~ /Production--Add Time Card/;

  if ($form->{income_accno_id}) {

    $form->{locked} = 1 if $form->{production} == $form->{completed};

}

sub storescard_header {

# set option selected

  for (qw(employee projectnumber partnumber)) {

    $form->{"select$_"} =~ s/ selected//;

    $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;

}

  $rows = $form->numtextrows($form->{description}, 50, 8);

  for (qw(transdate partnumber)) { $form->{"old$_"} = $form->{$_} }

  for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) }

  if ($rows > 1) {

    $description = qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}</textarea>|;

  } else {

    $description = qq|<input name=description size=48 value="$form->{description}">|;

}

  $form->header;

print qq|

<body>

<form method=post action="$form->{script}">

  $form->hide_form(qw(id type media format printed queued title closedto locked oldtransdate oldpartnumber project));

print qq|

<table width=100%>

  <tr class=listtop>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

<td>

<table>

<tr>

<td>

<table>

<tr>

        <th align=right nowrap>|.$locale->text('Job Number').qq|</th>

        <td><select name=projectnumber>$form->{selectprojectnumber}</select>

</td>

        <td>$form->{projectdescription}</td>

        <input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|">

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Date').qq|</th>

        <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Part Number').qq|</th>

        <td><select name=partnumber>$form->{selectpartnumber}</td>

</tr>

          <tr valign=top>

        <th align=right nowrap>|.$locale->text('Description').qq|</th>

        <td>$description</td>

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Qty').qq|</th>

        <td><input name=qty size=6 value=$form->{qty}>

        <b>|.$locale->text('Cost').qq|</b>

        <input name=sellprice size=10 value=$form->{sellprice}></td>

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Total').qq|</th>

        <td>$form->{amount}</td>

</tr>

</table>

</td>

</tr>

}

sub storescard_footer {

print qq|

</table>

</td>

</tr>

<tr>

    <td><hr size=3 noshade></td>

</tr>

<tr>

<td>

&print_options;

print qq|

</td>

</tr>

</table>

<br>

  $transdate = $form->datetonum(\%myconfig, $form->{transdate});

  $closedto = $form->datetonum(\%myconfig, $form->{closedto});

# type=submit $locale->text('Update')

# type=submit $locale->text('Print')

# type=submit $locale->text('Save')

# type=submit $locale->text('Print and Save')

# type=submit $locale->text('Save as new')

# type=submit $locale->text('Print and Save as new')

# type=submit $locale->text('Delete')

  if (! $form->{readonly}) {

    %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },

               'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },

           'save' => { ndx => 3, key => 'S', value => $locale->text('Save') },

           'print_and_save' => { ndx => 6, key => 'R', value => $locale->text('Print and Save') },

           'save_as_new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') },

           'print_and_save_as_new' => { ndx => 8, key => 'W', value => $locale->text('Print and Save as new') },

           'delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') },

);

%a = ();

    if ($form->{id}) {

      if (!$form->{locked}) {

    for ('update', 'print', 'save', 'save_as_new') { $a{$_} = 1 }

    if (${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>

</body>

</html>

}

sub update {

  ($null, $form->{project_id}) = split /--/, $form->{projectnumber};

# check labor/part

  JC->jcitems_links(\%myconfig, \%$form);

&jcitems_links;

  $checkmatrix = 1 if $form->{oldproject_id} != $form->{project_id};

  if ($form->{type} eq 'timecard') {

# time clocked

    %hour = ( in => 0, out => 0 );

    for $t (qw(in out)) {

      if ($form->{"${t}sec"} > 60) {

    $form->{"${t}sec"} -= 60;

    $form->{"${t}min"}++;

}

      if ($form->{"${t}min"} > 60) {

    $form->{"${t}min"} -= 60;

    $form->{"${t}hour"}++;

}

      $hour{$t} = $form->{"${t}hour"};

}

    $form->{checkedin} = $hour{in} * 3600 + $form->{inmin} * 60 + $form->{insec};

    $form->{checkedout} = $hour{out} * 3600 + $form->{outmin} * 60 + $form->{outsec};

    if ($form->{checkedin} > $form->{checkedout}) {

      $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout});

      $form->{checkedin} = 0;

}

    $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600;

    for (qw(sellprice qty noncharge allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }

    $checkmatrix = 1 if $form->{oldqty} != $form->{qty};

    if (($form->{oldcheckedin} != $form->{checkedin}) || ($form->{oldcheckedout} != $form->{checkedout})) {

      $checkmatrix = 1;

      $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge};

      $form->{oldnoncharge} = $form->{noncharge};

}

    if (($form->{qty} != $form->{oldqty}) && $form->{clocked}) {

      $form->{oldnoncharge} = $form->{noncharge} = $form->{clocked} - $form->{qty};

      $checkmatrix = 1;

}

    if (($form->{oldnoncharge} != $form->{noncharge}) && $form->{clocked}) {

      $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge};

      $checkmatrix = 1;

}

    if ($checkmatrix) {

      @a = split / /, $form->{pricematrix};

      if (scalar @a > 2) {

    for (@a) {

      ($q, $p) = split /:/, $_;

      if (($p * 1) && ($form->{qty} >= ($q * 1))) {

        $form->{sellprice} = $p;

}

    $form->{amount} = $form->{sellprice} * $form->{qty};

    $form->{clocked} = $form->format_amount(\%myconfig, $form->{clocked}, 4);

    for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }

    for (qw(qty noncharge)) {

      $form->{"old$_"} = $form->{$_};

      $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 4);

}

  } else {

    for (qw(sellprice qty allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }

    if ($form->{oldqty} != $form->{qty}) {

      @a = split / /, $form->{pricematrix};

      if (scalar @a > 2) {

    for (@a) {

      ($q, $p) = split /:/, $_;

      if (($p * 1) && ($form->{qty} >= ($q * 1))) {

        $form->{sellprice} = $p;

}

    $form->{amount} = $form->{sellprice} * $form->{qty};

    for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }

}

  $form->{allocated} = $form->format_amount(\%myconfig, $form->{allocated});

&display_form;

}

sub save {

  $form->isblank("transdate", $locale->text('Date missing!'));

  if ($form->{project} eq 'project') {

    $form->isblank("projectnumber", $locale->text('Project Number missing!'));

    $form->isblank("partnumber", $locale->text('Service Code missing!'));

  } else {

    $form->isblank("projectnumber", $locale->text('Job Number missing!'));

    $form->isblank("partnumber", $locale->text('Labor Code missing!'));

}

  $closedto = $form->datetonum(\%myconfig, $form->{closedto});

  $transdate = $form->datetonum(\%myconfig, $form->{transdate});

  $msg = ($form->{type} eq 'timecard') ? $locale->text('Cannot save time card for a closed period!') : $locale->text('Cannot save stores card for a closed period!');

  $form->error($msg) if ($transdate <= $closedto);

  if (! $form->{resave}) {

    if ($form->{id}) {

&resave;

exit;

}

  $rc = JC->save(\%myconfig, \%$form);

  if ($form->{type} eq 'timecard') {

    $form->error($locale->text('Cannot change time card for a completed job!')) if ($rc == -1);

    $form->error($locale->text('Cannot add time card for a completed job!')) if ($rc == -2);

    if ($rc) {

      $form->redirect($locale->text('Time Card saved!'));

    } else {

      $form->error($locale->text('Cannot save time card!'));

}

  } else {

    $form->error($locale->text('Cannot change stores card for a completed job!')) if ($rc == -1);

    $form->error($locale->text('Cannot add stores card for a completed job!')) if ($rc == -2);

    if ($rc) {

      $form->redirect($locale->text('Stores Card saved!'));

    } else {

      $form->error($locale->text('Cannot save stores card!'));

}

sub save_as_new {

  delete $form->{id};

&save;

}

sub print_and_save_as_new {

  delete $form->{id};

&print_and_save;

}

sub resave {

  if ($form->{print_and_save}) {

    $form->{nextsub} = "print_and_save";

    $msg = $locale->text('You are printing and saving an existing transaction!');

  } else {

    $form->{nextsub} = "save";

    $msg = $locale->text('You are saving an existing transaction!');

}

  $form->{resave} = 1;

  $form->header;

print qq|

<body>

<form method=post action=$form->{script}>

  delete $form->{action};

  $form->hide_form;

print qq|

<h2 class=confirm>|.$locale->text('Warning!').qq|</h2>

<h4>$msg</h4>

<button name="action" class="submit" type="submit" value="continue">|.$locale->text('Continue').qq|</button>

</form>

</body>

</html>

}

sub print_and_save {

  $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;

  $form->error($locale->text('Select a Printer!')) if $form->{media} eq 'screen';

  if (! $form->{resave}) {

    if ($form->{id}) {

      $form->{print_and_save} = 1;

&resave;

exit;

}

  $old_form = new Form;

  $form->{display_form} = "save";

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

  &{ "print_$form->{formname}" }($old_form);

}

sub delete_timecard {

  $form->header;

  $employee = $form->{employee};

  $employee =~ s/--.*//g;

  $projectnumber = $form->{projectnumber};

  $projectnumber =~ s/--.*//g;

print qq|

<body>

<form method=post action=$form->{script}>

  delete $form->{action};

  $form->hide_form;

print qq|

<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2>

<h4>|.$locale->text('Are you sure you want to delete time card for').qq|

<p>$form->{transdate}

<br>$employee

<br>$projectnumber

</h4>

<p>

<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 yes_delete_timecard {

  if (JC->delete_timecard(\%myconfig, \%$form)) {

    $form->redirect($locale->text('Time Card deleted!'));

  } else {

    $form->error($locale->text('Cannot delete time card!'));

}

sub list_timecard {

  $form->{type} = "timecard";

  JC->jcitems(\%myconfig, \%$form);

  $form->{title} = $locale->text('Time Cards');

  @a = qw(type direction oldsort path login sessionid project l_subtotal open closed l_time l_allocated);

  $href = "$form->{script}?action=list_timecard";

  for (@a) { $href .= "&$_=$form->{$_}" }

  $href .= "&title=".$form->escape($form->{title});

  $form->sort_order();

  $callback = "$form->{script}?action=list_timecard";

  for (@a) { $callback .= "&$_=$form->{$_}" }

  $callback .= "&title=".$form->escape($form->{title},1);

  @column_index = (qw(transdate projectnumber projectdescription id partnumber description));

  push @column_index, (qw(allocated)) if $form->{l_allocated};

  push @column_index, (qw(1 2 3 4 5 6 7));

  @column_index = $form->sort_columns(@column_index);

  if ($form->{project} eq 'job') {

    $joblabel = $locale->text('Job Number');

    $laborlabel = $locale->text('Labor Code');

    $desclabel = $locale->text('Job Name');

  } elsif ($form->{project} eq 'project') {

    $joblabel = $locale->text('Project Number');

    $laborlabel = $locale->text('Service Code');

    $desclabel = $locale->text('Project Name');

  } else {

    $joblabel = $locale->text('Project/Job Number');

    $laborlabel = $locale->text('Service/Labor Code');

    $desclabel = $locale->text('Project/Job Name');

}

  if ($form->{projectnumber}) {

    $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1);

    $href .= "&projectnumber=".$form->escape($form->{projectnumber});

    ($var) = split /--/, $form->{projectnumber};

    $option .= "\n<br>" if ($option);

    $option .= "$joblabel : $var";

    @column_index = grep !/projectnumber/, @column_index;

}

  if ($form->{partnumber}) {

    $callback .= "&partnumber=".$form->escape($form->{partnumber},1);

    $href .= "&partnumber=".$form->escape($form->{partnumber});

    ($var) = split /--/, $form->{partnumber};

    $option .= "\n<br>" if ($option);

    $option .= "$laborlabel : $var";

    @column_index = grep !/partnumber/, @column_index;

}

  if ($form->{employee}) {

    $callback .= "&employee=".$form->escape($form->{employee},1);

    $href .= "&employee=".$form->escape($form->{employee});

}

  if ($form->{startdatefrom}) {

    $callback .= "&startdatefrom=$form->{startdatefrom}";

    $href .= "&startdatefrom=$form->{startdatefrom}";

    $option .= "\n<br>" if ($option);

    $option .= $locale->text('From')."&nbsp;".$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')."&nbsp;".$locale->date(\%myconfig, $form->{startdateto}, 1);

}

  if ($form->{open}) {

    $callback .= "&open=$form->{open}";

    $href .= "&open=$form->{open}";

    $option .= "\n<br>" if ($option);

    $option .= $locale->text('Open');

}

  if ($form->{closed}) {

    $callback .= "&closed=$form->{closed}";

    $href .= "&closed=$form->{closed}";

    $option .= "\n<br>" if ($option);

    $option .= $locale->text('Closed');

}

  %weekday = ( 1 => $locale->text('Sunday'),

               2 => $locale->text('Monday'),

               3 => $locale->text('Tuesday'),

               4 => $locale->text('Wednesday'),

               5 => $locale->text('Thursday'),

               6 => $locale->text('Friday'),

               7 => $locale->text('Saturday'),

);

  for (keys %weekday) { $column_header{$_} = "<th class=listheading width=25>".substr($weekday{$_},0,3)."</th>" }

  $column_header{id} = "<th><a class=listheading href=$href&sort=id>".$locale->text('ID')."</a></th>";

  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";

  $column_header{description} = "<th><a class=listheading href=$href&sort=description>" . $locale->text('Description') . "</th>";

  $column_header{projectnumber} = "<th><a class=listheading href=$href&sort=projectnumber>$joblabel</a></th>";

  $column_header{partnumber} = "<th><a class=listheading href=$href&sort=partnumber>$laborlabel</a></th>";

  $column_header{projectdescription} = "<th><a class=listheading href=$href&sort=projectdescription>$desclabel</a></th>";

  $column_header{allocated} = "<th class=listheading></th>";

  $form->header;

  if (@{ $form->{transactions} }) {

    $sameitem = $form->{transactions}->[0]->{$form->{sort}};

    $sameemployeenumber = $form->{transactions}->[0]->{employeenumber};

    $employee = $form->{transactions}->[0]->{employee};

    $sameweek = $form->{transactions}->[0]->{workweek};

}

print qq|

<body>

<table width=100%>

<tr>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

    <td>$option</td>

</tr>

<tr>

<td>

      <table width=100%>

<tr>

      <th colspan=2 align=left>

$employee

</th>

      <th align=left>

$sameemployeenumber

</th>

        <tr class=listheading>

  for (@column_index) { print "\n$column_header{$_}" }

print qq|

</tr>

# add sort and escape callback, this one we use for the add sub

  $form->{callback} = $callback .= "&sort=$form->{sort}";

# escape callback for href

  $callback = $form->escape($callback);

# flip direction

  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";

  $href =~ s/&direction=(\w+)&/&direction=$direction&/;

%total = ();

  foreach $ref (@{ $form->{transactions} }) {

    if ($sameemployeenumber ne $ref->{employeenumber}) {

      $sameemployeenumber = $ref->{employeenumber};

      $sameweek = $ref->{workweek};

      if ($form->{l_subtotal}) {

print qq|

        <tr class=listsubtotal>

    for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }

    $weektotal = 0;

    for (keys %weekday) {

      $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";

      $weektotal += $subtotal{$_};

      $subtotal{$_} = 0;

}

    $column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";

    for (@column_index) { print "\n$column_data{$_}" }

}

# print total

print qq|

        <tr class=listtotal>

      for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }

      $total = 0;

      for (keys %weekday) {

    $column_data{$_} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total{$_}, "", "&nbsp;")."</th>";

    $total += $total{$_};

    $total{$_} = 0;

}

      $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", "&nbsp;")."</th>";

      for (@column_index) { print "\n$column_data{$_}" }

print qq|

    <tr height=30 valign=bottom>

      <th colspan=2 align=left>

        $ref->{employee}

</th>

      <th align=left>

        $ref->{employeenumber}

</th>

        <tr class=listheading>

      for (@column_index) { print "\n$column_header{$_}" }

print qq|

</tr>

}

    if ($form->{l_subtotal}) {

      if ($ref->{workweek} != $sameweek) {

    for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }

    $weektotal = 0;

    for (keys %weekday) {

      $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";

      $weektotal += $subtotal{$_};

      $subtotal{$_} = 0

}

    $column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";

    $sameweek = $ref->{workweek};

print qq|

        <tr class=listsubtotal>

    for (@column_index) { print "\n$column_data{$_}" }

print qq|

</tr>

}

    for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }

    for (keys %weekday) { $column_data{$_} = "<td>&nbsp;</td>" }

    $column_data{allocated} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{allocated}, "", "&nbsp;")."</td>";

    $column_data{$ref->{weekday}} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{qty}, "", "&nbsp;");

    if ($form->{l_time}) {

      $column_data{$ref->{weekday}} .= "<br>$ref->{checkedin}<br>$ref->{checkedout}";

}

    $column_data{$ref->{weekday}} .= "</td>";

    $column_data{id} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&project=$form->{project}&callback=$callback>$ref->{id}</a></td>";

    $subtotal{$ref->{weekday}} += $ref->{qty};

    $total{$ref->{weekday}} += $ref->{qty};

    $j++; $j %= 2;

print qq|

        <tr class=listrow$j>

    for (@column_index) { print "\n$column_data{$_}" }

print qq|

</tr>

}

# print last subtotal

  if ($form->{l_subtotal}) {

print qq|

        <tr class=listsubtotal>

    for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }

    $weektotal = 0;

    for (keys %weekday) {

      $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";

      $weektotal += $subtotal{$_};

}

      $column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";

    for (@column_index) { print "\n$column_data{$_}" }

}

# print last total

print qq|

        <tr class=listtotal>

  for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }

  $total = 0;

  for (keys %weekday) {

    $column_data{$_} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total{$_}, "", "&nbsp;")."</th>";

    $total += $total{$_};

    $total{$_} = 0;

}

  $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", "&nbsp;")."</th>";

  for (@column_index) { print "\n$column_data{$_}" }

  if ($form->{project} eq 'job') {

    if ($myconfig{acs} !~ /Production--Production/) {

      $i = 1;

      $button{'Production--Add Time Card'}{code} = qq|<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++;

}

  } 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{$_} }

print qq|

</tr>

</table>

</td>

</tr>

<tr>

    <td><hr size=3 noshade></td>

</tr>

</table>

<br>

<form method=post action=$form->{script}>

  $form->hide_form(qw(callback path login sessionid project));

  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {

    print $item->{code};

}

  if ($form->{lynx}) {

    require "bin/menu.pl";

&menubar;

}

print qq|

</form>

</body>

</html>

}

sub list_storescard {

  $form->{type} = "storescard";

  JC->jcitems(\%myconfig, \%$form);

  $form->{title} = $locale->text('Stores Cards');

  $href = "$form->{script}?action=list_storescard";

  for (qw(type direction oldsort path login sessionid project)) { $href .= "&$_=$form->{$_}" }

  $href .= "&title=".$form->escape($form->{title});

  $form->sort_order();

  $callback = "$form->{script}?action=list_storescard";

  for (qw(type direction oldsort path login sessionid project)) { $callback .= "&$_=$form->{$_}" }

  $callback .= "&title=".$form->escape($form->{title},1);

  @column_index = $form->sort_columns(qw(transdate projectnumber projectdescription id partnumber description qty amount));

  if ($form->{projectnumber}) {

    $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1);

    $href .= "&projectnumber=".$form->escape($form->{projectnumber});

    ($var) = split /--/, $form->{projectnumber};

    $option .= "\n<br>" if ($option);

    $option .= "$joblabel : $var";

    @column_index = grep !/projectnumber/, @column_index;

}

  if ($form->{partnumber}) {

    $callback .= "&partnumber=".$form->escape($form->{partnumber},1);

    $href .= "&partnumber=".$form->escape($form->{partnumber});

    ($var) = split /--/, $form->{partnumber};

    $option .= "\n<br>" if ($option);

    $option .= "$laborlabel : $var";

    @column_index = grep !/partnumber/, @column_index;

}

  if ($form->{startdatefrom}) {

    $callback .= "&startdatefrom=$form->{startdatefrom}";

    $href .= "&startdatefrom=$form->{startdatefrom}";

    $option .= "\n<br>" if ($option);

    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{startdatefrom}, 1);

}

  if ($form->{startdateto}) {

    $callback .= "&startdateto=$form->{startdateto}";

    $href .= "&startdateto=$form->{startdateto}";


context:
space:
mode: