projekt kivitendo

use SL::Common;

use SL::CVar;

use SL::DB::DeliveryOrder;

use SL::DB::Status;

use SL::DBUtils;

use SL::Helper::ShippedQty;

       LEFT JOIN department dep ON (dord.department_id = dep.id)

|;

  if ($form->{department_id}) {

    push @where,  qq|dord.department_id = ?|;

  $form->{employee_id} = (split /--/, $form->{employee})[1] if !$form->{employee_id};

  $form->get_employee($dbh) unless ($form->{employee_id});

  my (@processed_doi, @processed_dois);

  if ($form->{id}) {

    $query = qq|SELECT nextval('id')|;

    ($form->{id}) = selectrow_query($form, $dbh, $query);

  }

  my $project_id;

SQL

  my $h_item_stock = prepare_query($form, $dbh, $q_item_stock);

  for my $i (1 .. $form->{rowcount}) {

    next if (!$form->{"id_$i"});

         shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, closed = ?,

         delivered = ?, department_id = ?, language_id = ?, shipto_id = ?,

         globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?,

         delivery_term_id = ?

       WHERE id = ?|;

             conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),

             conv_i($form->{salesman_id}), conv_i($form->{cp_id}),

             $form->{transaction_description},

             conv_i($form->{taxzone_id}), $form->{taxincluded} ? 't' : 'f', conv_i($form->{payment_id}), $form->{currency},

             conv_i($form->{delivery_term_id}),

             conv_i($form->{id}));

  delete $form->{convert_from_oe_ids};

  unless ($::instance_conf->get_shipped_qty_require_stock_out) {

    $self->mark_orders_if_delivered('do_id' => $form->{id},

  }

  $form->{saved_donumber} = $form->{donumber};

         dord.itime, dord.mtime,

         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,

       FROM delivery_orders dord

       JOIN ${vc} cv ON (dord.${vc}_id = cv.id)

       LEFT JOIN employee e ON (dord.employee_id = e.id)

  }

  if ($mode eq 'single') {

    $query =

      qq|SELECT id as delivery_order_items_stock_id, qty, unit, bin_id,

                           (SELECT description FROM warehouse WHERE id = ?) AS warehouse|;

  my $h_bin_wh = prepare_query($form, $dbh, $q_bin_wh);

  my $num_si   = 0;

  if ($::instance_conf->get_shipped_qty_require_stock_out) {

    $self->mark_orders_if_delivered('do_id' => $form->{id},

  }

  $main::lxdebug->leave_sub();

  return $delivered ? 1 : 0;

}

1;

use POSIX qw(strftime);

use SL::DB::DeliveryOrder;

use SL::DO;

use SL::IR;

use SL::IS;

# end of main

sub check_do_access {

}

sub set_headings {

  my $form     = $main::form;

  my $locale   = $main::locale;

  $form->{heading} = $locale->text('Delivery Order');

  check_do_access();

    $::form->show_generic_error($::locale->text("You do not have the permissions to access this function."));

  }

        t8('Invoice'),

        submit => [ '#form', { action => "invoice" } ],

        disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef,

      ],

      combobox => [

  # department leer überlebt erneuern       | i.O.

  # department nicht leer überlebt erneuern | i.O.

  # $main::lxdebug->message(0, 'ABTEILUNGS ID in form?' . $form->{department_id});

  $main::lxdebug->leave_sub();

}

  } else {

    my $mode;

      IR->retrieve_item(\%myconfig, $form);

      $mode = 'IR';

    } else {

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->get_lists("projects"       => { "key" => "ALL_PROJECTS",

                                         "all" => 1 },

  $form->{title}       = $locale->text('Delivery Orders');

  my $report = SL::ReportGenerator->new(\%myconfig, $form);

  my $edit_url       = build_std_url('action=edit', 'type', 'vc');

  my $edit_order_url = ($::instance_conf->get_feature_experimental_order)

  my $idx            = 1;

  my $locale   = $main::locale;

  my $ret;

  if ($ret = DO->delete_transfers()) {

    # saving the history

  check_do_access();

  $form->mtime_ischanged('delivery_orders');

  $form->get_employee();

  delete @{$form}{qw(id closed delivered)};

  my ($script, $buysell);

    $form->{title}  = $locale->text('Add Vendor Invoice');

    $form->{script} = 'ir.pl';

    $script         = "ir";

  if ($form->{ordnumber}) {

    require SL::DB::Order;

    if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber}, $vc_id => $form->{"$vc_id"})) {

      $order->load;

      $form->{orddate} = $order->transdate_as_date;

  my $locale   = $main::locale;

  check_do_access();

  my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});

  $form->{defaultcurrency}     = $form->get_default_currency(\%myconfig);

  my ($script, $buysell);

    $form->{title}  = $locale->text('Add Vendor Invoice');

    $form->{script} = 'ir.pl';

    $script         = "ir";

  my $all_units = AM->retrieve_all_units();

  my $sinfo    = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});

  my $do_qty   = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});

  SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);

  flash_later('info', $locale->text("Transfer successful"));

  $form->redirect;

  $main::lxdebug->leave_sub();

  SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);

  flash_later('info', $locale->text("Transfer successful"));

  $form->redirect;

  $main::lxdebug->leave_sub();

  SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);

  $form->redirect;

}

    save();

}

__END__

=pod

  my $show_marge         = (!$is_purchase || $is_invoice || $is_credit_note) && !$is_delivery_order;

  if ($is_delivery_order) {

      $stock_in_out_title = $locale->text('Release From Stock');

      $stock_in_out       = 'out';

    } else {

    purchase_invoice        => 'InvoiceItem',

    purchase_delivery_order => 'DeliveryOrderItem',

    sales_delivery_order    => 'DeliveryOrderItem',

  }->{$::form->{type}};

  return unless $class;

    request_quotation       => 'Order',

    purchase_delivery_order => 'DeliveryOrder',

    sales_delivery_order    => 'DeliveryOrder',

  }->{$::form->{type}};

  if ($::form->{type} =~ /invoice|credit_note/) {

  }

 </style>

 [%- SET vc_id = vc _ "_id" %]

 [%- IF delivered %]

 [%- SET DISABLED = ' disabled' %]

       <tr>

        <td colspan="2" align="center">

         [%- IF delivered %]

          [% 'transferred out' | $T8 %]

          [%- ELSE %]

          [% 'transferred in' | $T8 %]

          [%- END %]

         [%- ELSE %]

          [% 'not transferred out yet' | $T8 %]

          [%- ELSE %]

          [% 'not transferred in yet' | $T8 %]