projekt kivitendo

         dord.closed, dord.reqdate, dord.department_id, dord.cusordnumber,

         d.description AS department, dord.language_id,

         dord.shipto_id,

         dord.globalproject_id, dord.delivered, dord.transaction_description,

         dord.taxzone_id, dord.taxincluded, dord.payment_id, (SELECT cu.name FROM currencies cu WHERE cu.id=dord.currency_id) AS currency,

         dord.delivery_term_id, dord.itime::DATE AS insertdate

    }

  }

  $sth->finish();

  $form->{lastmtime} = $form->{mtime};

  $form->{donumber_array} =~ s/\s*$//g;

  $form->{ordnumber_array} =~ s/ //;

}

sub mtime_ischanged {

  my $ref = selectfirst_hashref_query($self, $self->get_standard_dbh, $query, $self->{id});

  $ref->{mtime} = $ref->{itime} if !$ref->{mtime};

  if ($self->{lastmtime} && $self->{lastmtime} ne $ref->{mtime} ) {

      my $etxt = $main::locale->text("The document has been changed from other user. Please reopen it in another window and copy the changes to the new window");

      $etxt = $main::locale->text("The document has been changed from other user. No mail was sent. Please reopen it in another window and copy the changes to the new window")

      $self->error($main::locale->text($etxt));

    ::end_of_request();

  }

      qq|SELECT

           a.cp_id, a.invnumber, a.transdate, a.${table}_id, a.datepaid,

           a.duedate, a.ordnumber, a.taxincluded, (SELECT cu.name FROM currencies cu WHERE cu.id=a.currency_id) AS currency, a.notes,

           a.intnotes, a.department_id, a.amount AS oldinvtotal,

           a.paid AS oldtotalpaid, a.employee_id, a.gldate, a.type,

           a.globalproject_id, ${extra_columns}

    foreach my $key (keys %$ref) {

      $self->{$key} = $ref->{$key};

    }

    $self->{lastmtime} = $self->{mtime};

    my $transdate = "current_date";

    if ($self->{transdate}) {

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

      }

    }

    $form->{lastmtime} = $form->{mtime};

    # if not given, fill transdate with current_date

  my $locale   = $main::locale;

  check_oe_access();

  $main::auth->assert('sales_order_edit');

  if ($form->{type} eq "purchase_order") {

    delete($form->{ordnumber});

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  check_oe_access();