ledger-smb - Unnamed repository; edit this file to name it for gitweb.

path: root/locale/Diffstat (limited to 'locale/legacy/ch/ic')

0 files changed, 0 insertions, 0 deletions

6" class="hl">

sub add {

# construct callback

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

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

  $form->{orphaned} = 1;

&display_form;

}

sub edit {

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

&display_form;

}

sub prepare_partsgroup { PE->get_partsgroup(\%myconfig, \%$form) if $form->{id} }

sub prepare_pricegroup { PE->get_pricegroup(\%myconfig, \%$form) if $form->{id} }

sub prepare_job {

# $locale->text('Add Job')

# $locale->text('Edit Job')

  $form->{vc} = 'customer';

  PE->get_job(\%myconfig, \%$form);

  $form->{taxaccounts} = "";

  for (keys %{ $form->{IC_links} }) {

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

    foreach $ref (@{ $form->{IC_links}{$_} }) {

      if (/IC_tax/) {

    if (/taxpart/) {

      $form->{taxaccounts} .= "$ref->{accno} ";

      $form->{"IC_tax_$ref->{accno}_description"} = "$ref->{accno}--$ref->{description}";

      if ($form->{id}) {

        if ($form->{amount}{$ref->{accno}}) {

          $form->{"IC_tax_$ref->{accno}"} = "checked";

}

      } else {

        $form->{"IC_tax_$ref->{accno}"} = "checked";

}

      } else {

    $form->{"select$_"} .= "<option>$ref->{accno}--$ref->{description}\n";

}

  chop $form->{taxaccounts};

  $form->{selectIC_income} = $form->{selectIC_sale};

  $form->{IC_income} = $form->{IC_sale};

  $form->{IC_income} = qq|$form->{income_accno}--$form->{income_description}|;

  delete $form->{IC_links};

  $form->{"old$form->{vc}"} = qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;

  if (@{ $form->{"all_$form->{vc}"} }) {

    $form->{"$form->{vc}"} = qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;

    $form->{"select$form->{vc}"} = qq|<option>\n|;

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

}

  $form->get_partsgroup(\%myconfig, {all => 1});

  $form->{partsgroup} = $form->quote($form->{partsgroup})."--$form->{partsgroup_id}";

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

    $form->{selectpartsgroup} = qq|<option>\n|;

    for (@{ $form->{all_partsgroup} }) { $form->{selectpartsgroup} .= qq|<option value="|.$form->quote($_->{partsgroup}).qq|--$_->{id}">$_->{partsgroup}\n| }

}

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

  $form->{readonly} = 1 if $myconfig{acs} =~ /Job Costing--Add Job/;

}

sub job_header {

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

  for (qw(production weight)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}) }

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

  if (($rows = $form->numtextrows($form->{partdescription}, 60)) > 1) {

    $partdescription = qq|<textarea name="partdescription" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{partdescription}</textarea>|;

  } else {

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

}

  if (($rows = $form->numtextrows($form->{description}, 60)) > 1) {

    $description = qq|<textarea name="description" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{description}</textarea>|;

  } else {

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

}

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

    $rows = 2;

}

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

  $form->{selectIC_income} = $form->unescape($form->{selectIC_income});

  $form->{"select$form->{vc}"} = $form->unescape($form->{"select$form->{vc}"});

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

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

  $label = ucfirst $form->{vc};

  if ($form->{"select$form->{vc}"}) {

    $name = qq|

<tr>

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

      <td colspan=3><select name="$form->{vc}">$form->{"select$form->{vc}"}</select></td>

      <input type=hidden name="select$form->{vc}" value="|.

      $form->escape($form->{"select$form->{vc}"},1).qq|">

</tr>

  } else {

    $name = qq|

<tr>

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

      <td colspan=3><input name="$form->{vc}" value="$form->{"$form->{vc}"}" size=35></td>

      <input type=hidden name="select$form->{vc}" value="|.

      $form->escape($form->{"select$form->{vc}"},1).qq|">

</tr>

}

  if ($form->{orphaned}) {