monkeysphere - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/src/share

diff options

Diffstat (limited to 'src/share')

0 files changed, 0 insertions, 0 deletions

# 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 Error qw(:try);

use LedgerSMB::Template;

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->{description} ($ref->{description})</option>\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%>


context:
space:
mode: