projekt kivitendo

# Web http://www.lx-office.org

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

# Changelog: Wann - Wer - Was

# 02.02.2009 - information@richardson-bueren.de jb - Backport von Revision 8535 xplace - Erweiterung der Waren bei Lieferantenauftrag um den Eintrag Mindestlagerbestand. Offen: Auswahlliste auf Lieferantenaufträge einschränken -> Erledigt 2.2.09 Prüfung wie das Skript heisst (oe.pl) -> das ist nur die halbe Miete, nochmal mb fragen -> mb gefragt und es gibt die variable is_purchase

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

# SQL-Ledger, Accounting

    {  id => 'linetotal',     width => 10,    value => $locale->text('Extended'),             display => !$is_delivery_order, },

    {  id => 'bin',           width => 10,    value => $locale->text('Bin'),                  display => 0, },

    {  id => 'stock_in_out',  width => 10,    value => $stock_in_out_title,                   display => $is_delivery_order, },

  my @column_index = map { $_->{id} } grep { $_->{display} } @HEADER;

  # cache units

  $form->{invsubtotal} = 0;

  map { $form->{"${_}_base"} = 0 } (split(/ /, $form->{taxaccounts}));

  $myconfig{show_form_details} = 1                            unless (defined($myconfig{show_form_details}));

  $form->{show_details}        = $myconfig{show_form_details} unless (defined($form->{show_details}));

  # /about details

    # second row

    my @ROW2 = ();

      if $form->{type} !~ /_quotation/;

    push @ROW2, { value => qq|<b>$projectnumber</b> | . NTI($cgi->popup_menu('-name'  => "project_id_$i",        '-values'  => \@projectnumber_values,

                                                                             '-labels' => \%projectnumber_labels, '-default' => $form->{"project_id_$i"})) };

    push @ROW2, { value => qq|<b>$reqdate</b> <input name="reqdate_$i" size="11" onBlur="check_right_date_format(this)" value="$form->{"reqdate_$i"}">| }

      if ($form->{type} =~ /order/ ||  $form->{type} =~ /invoice/);

                   $locale->text('Subtotal'), $form->{"subtotal_$i"} ? 'checked' : '' };

# begin marge calculations

    my @HIDDENS = map { value => $_}, (

          $cgi->hidden("-name" => "unit_old_$i", "-value" => $form->{"selected_unit_$i"}),

          $cgi->hidden("-name" => "price_new_$i", "-value" => $form->format_amount(\%myconfig, $form->{"price_new_$i"})),

            (qw(orderitems_id bo pricegroup_old price_old id inventory_accno bin partsgroup partnotes

                income_accno expense_accno listprice assembly taxaccounts ordnumber transdate cusordnumber

                longdescription basefactor marge_absolut marge_percent marge_price_factor lastcost), @hidden_vars)

    next unless $form->{PRICES}{$j};

    # build drop down list for pricegroups

    my $option_tmpl = qq|<option value="%s--%s" %s>%s</option>|;

                                         (+{ pricegroup => $locale->text("none (pricegroup)") }, @{ $form->{PRICES}{$j} });

    foreach $item (@{ $form->{PRICES}{$j} }) {

    qq|<th class="listheading">| . $locale->text('Part Description') . qq|</th>|;

  $column_data{sellprice} =

    qq|<th class="listheading">| . $locale->text('Price') . qq|</th>|;

      $column_data{rop} =

      qq|<th class="listheading">| . $locale->text('ROP') . qq|</th>|;

    }# ende if $is_purchase -> Überschrift Mindestlagerbestand - ähnliche Prüfung weiter unten

      qq|<td align="right"><input name="new_onhand_$i" type="hidden" value="$ref->{onhand}">|

      . $form->format_amount(\%myconfig, $ref->{onhand}, '', " ")

      . qq|</td>|;

    $column_data{rop} =

      qq|<td align="right"><input name="new_rop$i" type="hidden" value="$ref->{rop}">|

      . $form->format_amount(\%myconfig, $ref->{rop}, '', " ")

  $form->{sellprice} += ($form->{"sellprice_$i"} * $form->{"qty_$i"});

  $form->{weight}    += ($form->{"weight_$i"} * $form->{"qty_$i"});

  if ($form->{"not_discountable_$i"}) {

    $form->{"discount_$i"} = 0;

  }

# generate the printing options displayed at the bottom of oe and is forms.

# this function will attempt to guess what type of form is displayed, and will generate according options

#

# this version builds the arrays of options pretty directly. if you have trouble understanding how,

# the opthash function builds hashrefs which are then pieced together for the template arrays.

#

# the inline options is untested, but intended to be used later in metatemplating

sub print_options {

  push @FORMNAME, grep $_,

    ($form->{type} eq 'purchase_order') ? (

      opthash("purchase_order",      $form->{PD}{purchase_order},      $locale->text('Purchase Order')),

    ) : undef,

    ($form->{type} eq 'credit_note') ?

      opthash("credit_note",         $form->{PD}{credit_note},         $locale->text('Credit Note')) : undef,

    ) : undef,

    ($form->{type} eq 'invoice' && $form->{storno}) ? (

      opthash("storno_invoice",      $form->{PD}{storno_invoice},      $locale->text('Storno Invoice')),

    ) : undef,

    ($form->{type} =~ /_delivery_order$/) ? (

      opthash($form->{type},         $form->{PD}{$form->{type}},       $locale->text('Delivery Order')),

    ($form->{type} eq 'credit_note') ?

      opthash("credit_note",         $form->{PD}{credit_note},         $locale->text('Credit Note')) : undef;

    opthash("attachment",            $form->{SM}{attachment},          $locale->text('Attachment')),

    opthash("inline",                $form->{SM}{inline},              $locale->text('In-line'))

      if ($form->{media} eq 'email');

    ($opendocument_templates && !$options{no_opendocument}) ?

      opthash("opendocument",        $form->{DF}{opendocument},        $locale->text("OpenDocument/OASIS")) : undef;

    map { opthash($_->{id}, ($_->{id} eq $form->{language_id} ? 'selected' : ''), $_->{description}) } +{}, @{ $form->{languages} }

      if (ref $form->{languages} eq 'ARRAY');

    map { opthash($_->{id}, ($_->{id} eq $form->{printer_id} ? 'selected' : ''), $_->{printer_description}) } +{}, @{ $form->{printers} }

      if ((ref $form->{printers} eq 'ARRAY') && scalar @{ $form->{printers } });

    $form->{invdate} = $form->{"${inv}date"} = $form->{transdate};

    $form->{label} = $locale->text('Packing List');

    $order = 1;

    $form->{invnumber}   = $form->{ordnumber};

  }

  if ($form->{formname} eq 'purchase_order') {

  $form->isblank("email", $locale->text('E-mail address missing!'))

    if ($form->{media} eq 'email');

  $form->isblank("${inv}date",

           . ": "

           . $locale->text(' Date missing!'));

      call_sub($display_form);

      # saving the history

  	  if(!exists $form->{addition}) {

  	    $form->{addition} = "PRINTED";

  	    $form->save_history($form->dbconnect(\%myconfig));

      }

  }

  if ($form->{printing}) {

   call_sub($display_form);

  }

  $lxdebug->leave_sub();