projekt kivitendo

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

  unless ($transdate) {

    $main::lxdebug->leave_sub();

    return "";

  }

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

# this function closes multiple orders given in $form->{ordnumber_#}. 

# use this for multiple orders that don't have to be saved back

# single orders should use OE::save instead.

sub close_orders {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig ,$form) = @_;

  # get ids from $form

  map { push @ids, $form->{"ordnumber_$_"} if $form->{"ordnumber_$_"} } (1 .. $form->{rowcount});

  my $dbh = $form->dbconnect($myconfig);

  $query = qq|UPDATE oe SET

              closed = TRUE

              WHERE ordnumber IN (|.join(', ', map{ $dbh->quote($_) }@ids).qq|)|;

  $dbh->do($query) || $form->dberror($query);

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

  # translate the ids (given by id_# and trans_id_#) into one array of ids, so we can join them later

  map { push @ids, $form->{"trans_id_$_"} if ($form->{"id_$_"}) } (1 .. $form->{"rowcount"});

  # if called in multi id mode, and still only got one id, switch back to single id 

  if ($form->{"rowcount"} and $#ids == 0) {

    $form->{"id"} = $ids[0];

    undef @ids;

  }

  if ($form->{id} or @ids) {

    # retrieve order for single id

    # NOTE: this query is intended to fetch all information only ONCE.

    # so if any of these infos is important (or even different) for any item, 

    # it will be killed out and then has to be fetched from the item scope query further down

    $query = qq|SELECT o.cp_id, o.ordnumber, o.transdate, o.reqdate,

		|. ($form->{id} 

		   ? qq|WHERE o.id = $form->{id}| 

                   : qq|WHERE o.id IN (|.join(', ', @ids).qq|)|

		   );

#$main::lxdebug->message(0, $query);

    # destroy all entries for multiple ids that yield different information

      map { undef $form->{$_} if ($ref->{$_} ne $form->{$_}) } keys %$ref;

    # if not given, fill transdate with current_date

    $form->{transdate} = $form->current_date($myconfig) unless $form->{transdate};

    # shipto and pinted/mailed/queued status makes only sense for single id retrieve 

    if (!@ids) {

      $query = qq|SELECT s.* FROM shipto s

                  WHERE s.trans_id = $form->{id}|;

      $sth = $dbh->prepare($query);

      $sth->execute || $form->dberror($query);

      $ref = $sth->fetchrow_hashref(NAME_lc);

      map { $form->{$_} = $ref->{$_} } keys %$ref;

      $sth->finish;

      # get printed, emailed and queued

      $query = qq|SELECT s.printed, s.emailed, s.spoolfile, s.formname

                  FROM status s

                  WHERE s.trans_id = $form->{id}|;

      $sth = $dbh->prepare($query);

      $sth->execute || $form->dberror($query);

      while ($ref = $sth->fetchrow_hashref(NAME_lc)) {

        $form->{printed} .= "$ref->{formname} " if $ref->{printed};

        $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};

        $form->{queued} .= "$ref->{formname} $ref->{spoolfile} " if $ref->{spoolfile};

      }

      $sth->finish;

      map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);

    } # if !@ids

    # this query looks up all information about the items

    # stuff different from the whole will not be overwritten, but saved with a suffix.

		oe.ordnumber, oe.transdate, oe.cusordnumber, 

		JOIN oe ON (o.trans_id = oe.id)

		|. ($form->{id} 

		   ? qq|WHERE o.trans_id = $form->{id}| 

		   : qq|WHERE o.trans_id IN (|.join(", ", @ids).qq|)| 

		   ).qq|

<input type=hidden name="ordnumber_$i" value="$form->{"ordnumber_$i"}">

<input type=hidden name="transdate_$i" value="$form->{"transdate_$i"}">

<input type=hidden name="cusordnumber_$i" value="$form->{"cusordnumber_$i"}">

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

  # editing without stuff to edit? try adding it first

  if ($form->{rowcount}) {

    map {$id++ if $form->{"id_$_"}} (1 .. $form->{rowcount});

    if (!$id) {

      # reset rowcount

      undef $form->{rowcount};

      &add;

      return;

    }

  } else {

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

      &add;

      return;

    }

  }

  # if multiple rowcounts (== collective order) then check if the

  # there were more than one customer (in that case OE::retrieve removes 

  # the content from the field)

  if ($form->{rowcount} && $form->{type} eq 'sales_order' && $form->{customer} eq '') {

#    $main::lxdebug->message(0, "Detected Edit order with concurrent customers");

    $form->error($locale->text('Collective Orders only work for orders from one customer!'));

  }

      $form->{rowcount} = ++$i;

      map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};

      ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);    

  } elsif ($form->{type} =~ /sales_order$/ && $form->{rowcount}) {

    print qq|

<br>Workflow  $form->{heading}<br>

<input class=submit type=submit name=action value="|

      . $locale->text('Save as new') . qq|">

<input class=submit type=submit name=action value="|

      . $locale->text('Invoice') . qq|">

|;

  # only show checkboxes if gotten here via sales_order form.

  if ($form->{type} =~ /sales_order/) {

    unshift @column_index, "ids";

  }

  $column_header{ids} = qq|<th></th>|;

<form method="post" action="oe.pl">

  $callback_escaped = $form->escape($callback . "&sort=$form->{sort}");

    $form->{rowcount} = ++$j;

    $column_data{ids}    = qq|<td><input name="id_$j" class=checkbox type=checkbox><input type="hidden" name="trans_id_$j" value="$oe->{id}"></td>|;

      "<td><a href=oe.pl?path=$form->{path}&action=$action&type=$form->{type}&id=$oe->{id}&warehouse=$warehouse&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&callback=$callback_escaped>$oe->{$ordnumber}</a></td>";

</table>|;

# multiple invoice edit button only if gotten there via sales_order form.

if ($form->{type} =~ /sales_order/) {

print qq|

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

  <input class"submit" type="submit" name="action" value="|

. $locale->text('Continue') .qq|">

  <input type="hidden" name="nextsub" value="edit">

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

  <input type="hidden" name="warehouse" value="$warehouse">

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

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

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

  <input type="hidden" name="callback" value="$callback">

  <input type="hidden" name="rowcount" value="$form->{rowcount}">|;

}

print qq|

</form>

    # these checks only apply if the items don't bring their own ordnumbers/transdates.

    # The if clause ensures that by searching for empty ordnumber_#/transdate_# fields.

    $form->isblank("ordnumber", $locale->text('Order Number missing!')) if ( +{ map { $form->{"ordnumber_$_"}, 1 } ( 1 .. $form->{rowcount}-1 ) }->{''} );

    $form->isblank("transdate", $locale->text('Order Date missing!'))   if ( +{ map { $form->{"transdate_$_"}, 1 } ( 1 .. $form->{rowcount}-1 ) }->{''} );

  # save order iff one ordnumber has been given 

  # if not it's most likely a collective order, which can't be saved back

  # so they just have to be closed

  if ($form->{ordnumber} ne '') {

    OE->save(\%myconfig, \%$form);

  } else {

    OE->close_orders(\%myconfig, \%$form);

  }

  'Leave host and port field empty unless you want to make a remote connection.' => 'Leave host and port field empty unless you want to make a remote connection.',

  'This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!' => 'This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!',

  'To add a user to a group edit a name, change the login name and save.  A new user with the same variables will then be saved under the new login name.' => 'To add a user to a group edit a name, change the login name and save.  A new user with the same variables will then be saved under the new login name.',

  'You must enter a host and port for local and remote connections!' => 'You must enter a host and port for local and remote connections!',

  'Collective Orders only work for orders from one customer!' => 'Sammelauftr?ge funktionieren nur f?r Auftr?ge von einem Kunden!',

  'Leave host and port field empty unless you want to make a remote connection.' => '',

  'This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!' => '',

  'To add a user to a group edit a name, change the login name and save.  A new user with the same variables will then be saved under the new login name.' => '',

  'You must enter a host and port for local and remote connections!' => '',

  'Collective Orders only work for orders from one customer!' => '',