projekt kivitendo

  my $h_item = prepare_query($form, $dbh, $q_item);

  my $q_item_stock =

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

  my $in_out       = $form->{type} =~ /^sales/ ? 'out' : 'in';

    foreach my $sinfo (@{ $stock_info }) {

      @values = ($item_id, $sinfo->{qty}, $sinfo->{unit}, conv_i($sinfo->{warehouse_id}),

      do_statement($form, $h_item_stock, $q_item_stock, @values);

    }

    my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';

    $query =

         FROM delivery_order_items_stock

         WHERE delivery_order_item_id = ?|;

    my $sth = prepare_query($form, $dbh, $query);

    qw(runningnumber number description longdescription qty unit

       partnotes serialnumber reqdate projectnumber

       si_runningnumber si_number si_description

  map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays);

        push @{ $form->{TEMPLATE_ARRAYS}{si_warehouse}[$position-1] },     $bin_wh->{warehouse};

        push @{ $form->{TEMPLATE_ARRAYS}{si_bin}[$position-1] },           $bin_wh->{bin};

        push @{ $form->{TEMPLATE_ARRAYS}{si_chargenumber}[$position-1] },  $si->{chargenumber};

        push @{ $form->{TEMPLATE_ARRAYS}{si_qty}[$position-1] },           $form->format_amount($myconfig, $si->{qty} * 1);

        push @{ $form->{TEMPLATE_ARRAYS}{si_unit}[$position-1] },          $si->{unit};

      }

  my $myconfig  = \%main::myconfig;

  my $query     =

         w.description AS warehousedescription,

         b.description AS bindescription

       FROM inventory i

       LEFT JOIN warehouse w ON (i.warehouse_id = w.id)

       LEFT JOIN bin b       ON (i.bin_id       = b.id)

       WHERE (i.parts_id IN (| . join(', ', ('?') x scalar(@parts_ids)) . qq|))

       HAVING SUM(qty) > 0

|;

  my $contents = selectall_hashref_query($form, $form->get_standard_dbh($myconfig), $query, @parts_ids);

    foreach my $row (@contents) {

      next if (($row->{bin_id}       != $sinfo->{bin_id}) ||

               ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||

      $found       = 1;

      "${prefix}_warehouse_id" => $request->{warehouse_id},

      "${prefix}_bin_id"       => $request->{bin_id},

      'chargenumber'           => $request->{chargenumber},

      'qty'                    => $request->{qty},

      'unit'                   => $request->{unit},

      'oe_id'                  => $form->{id},

  my ($now)     = selectrow_query($form, $dbh, qq|SELECT current_date|);

                                     employee_id, project_id, trans_id, trans_type_id, comment, qty)

  $sth   = prepare_query($form, $dbh, $query);

    $direction |= 1 if ($transfer->{src_warehouse_id} && $transfer->{src_bin_id});

    $direction |= 2 if ($transfer->{dst_warehouse_id} && $transfer->{dst_bin_id});

    push @values, $transfer->{shippingdate} eq 'current_date' ? $now : conv_date($transfer->{shippingdate}), $form->{login}, conv_i($transfer->{project_id}), $trans_id;

    if ($transfer->{transfer_type_id}) {

  my $self     = shift;

  my %params   = @_;

#  my $maxcreate=WH->check_assembly_max_create(assembly_id =>$params{'assembly_id'}, dbh => $my_dbh);

  my $sth_part_qty_assembly = prepare_execute_query($form, $dbh, $query, $params{assembly_id});

  # Hier wird das prepared Statement für die Schleife über alle Lagerplätze vorbereitet

                           (SELECT id FROM transfer_type WHERE direction = 'out' AND description = 'used'))|;

  my $sthTransferPartSQL   = prepare_query($form, $dbh, $transferPartSQL);

      next; # die weiteren Überprüfungen sind unnötig, daher das nächste elemente prüfen (genaue Ausgabe, was noch fehlt)

    }

    # Offen: Die Summe über alle Lagerplätze wird noch nicht gebildet

    # Gelöst: Wir haben vorher schon die Abfrage durchgeführt, ob wir fertigen können.

    # Noch besser gelöst: Wir laufen durch alle benötigten Waren zum Fertigen und geben eine Rückmeldung an den Benutzer was noch fehlt

    # und lösen den Rest dann so wie bei xplace im Barcode-Programm

    # S.a. Kommentar im bin/mozilla-Code mb übernimmt und macht das in ordentlich

    my $tempsth   = prepare_execute_query($form, $dbh, $tempquery, $params{dst_warehouse_id}, $currentPart_ID);

    # Alle Werte zu dem einzelnen Artikel, die wir später auslagern

    while (my $temphash_ref = $tempsth->fetchrow_hashref()) {

      my $temppart_bin_id       = $temphash_ref->{bin_id}; # kann man hier den quelllagerplatz beim verbauen angeben?

      my $temppart_chargenumber = $temphash_ref->{chargenumber};

      my $temppart_qty          = $temphash_ref->{sum};

      if ($tmpPartsQTY > $temppart_qty) {  # wir haben noch mehr waren zum wegbuchen. 

                                            # Dieser Wert IST und BLEIBT positiv!! Hilfe. 

                                            # Liegt das daran, dass dieser Wert aus einem SQL-Statement stammt?

        do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $params{dst_warehouse_id}, 

                     $self->get_part_description(parts_id => $params{assembly_id}), $params{login}, $temppart_qty);

        # hier ist noch ein fehler am besten mit definierten erzeugnissen debuggen 02/2009 jb

      } else { # okay, wir haben weniger oder gleich Waren die wir wegbuchen müssen, wir können also aufhören

        $tmpPartsQTY *=-1;

        do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $params{dst_warehouse_id},

                     $self->get_part_description(parts_id => $params{assembly_id}), $params{login}, $tmpPartsQTY);

        last; # beendet die schleife (springt zum letzten element)

      }

  } #ende while select parts_id,qty from assembly where id = ?

  if ($kannNichtFertigen) {

    return $kannNichtFertigen;

  }

  # soweit alles gut. Jetzt noch die wirkliche Lagerbewegung für das Erzeugnis ausführen ...

                                                      comment, employee_id, qty, trans_id, trans_type_id)

                               (SELECT id FROM transfer_type WHERE direction = 'in' AND description = 'stock'))|;

  my $sthTransferAssemblySQL   = prepare_query($form, $dbh, $transferAssemblySQL);

  do_statement($form, $sthTransferAssemblySQL, $transferAssemblySQL, $params{assembly_id}, $params{dst_warehouse_id}, 

  $dbh->commit();

  $main::lxdebug->leave_sub();

    push @filter_vars, '%' . $filter{chargenumber} . '%';

  }

  if ($form->{fromdate}) {

    push @filter_ary, "?::DATE <= i1.itime::DATE";

    push @filter_vars, $form->{fromdate};

     "partdescription"      => "p.description",

     "bindescription"       => "b.description",

     "chargenumber"         => "i1.chargenumber",

     "warehousedescription" => "w.description",

     "partunit"             => "p.unit",

     "bin_from"             => "b1.description",

#  - partsid      - will return matches with this parts_id only

#  - description  - will return only matches where the given string is a substring of the description

#  - chargenumber - will return only matches where the given string is a substring of the chargenumber

#  - ean          - will return only matches where the given string is a substring of the ean as stored in the table parts (article)

#  - charge_ids   - must be an arrayref. will return contents with these ids only

#  - expires_in   - will only return matches that expire within the given number of days

    push @filter_ary,  "i.chargenumber ILIKE ?";

    push @filter_vars, '%' . $filter{chargenumber} . '%';

  }

  if ($filter{ean}) {

    push @filter_ary,  "p.ean ILIKE ?";

    push @filter_vars, '%' . $filter{ean} . '%';

     "bindescription"       => "b.description",

     "binid"                => "b.id",

     "chargenumber"         => "i.chargenumber",

     "ean"                  => "p.ean",

     "chargeid"             => "c.id",

     "warehousedescription" => "w.description",

  my $dbh      = $params{dbh} || $form->get_standard_dbh();

  my $sth_QTY      = prepare_execute_query($form, $dbh, $query, ,$params{parts_id}, $params{warehouse_id}); #info: aufruf an DBUtils.pm

  my $max_qty_parts = 0; #Initialisierung mit 0

    $max_qty_parts += $ref->{sum};

  }

    $has_charge = 1;

    map { $_->{has_charge} = 1; } @parts;

  }

  my $has_ean = 0;

  if (defined($parts[0]->{ean})) {

    $has_ean = 1;

                                     "nextsub"          => "select_part_internal",

                                     "callback_sub"     => $callback_sub,

                                     "has_charge"       => $has_charge,

                                     "has_ean"          => $has_ean,

                                     "remap_parts_id"   => $remap_parts_id,

                                     "remap_partnumber" => $remap_partnumber });

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

    $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});

  }

  display_stock_in_form($stock_info);

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

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

  my $part_info  = IC->get_basic_part_info('id' => $form->{parts_id});

    next if ($form->{"qty_$i"} <= 0);

  }

  $form->{stock} = YAML::Dump($stock_info);

      foreach my $sinfo (@{ $stock_info }) {

        next if (($row->{bin_id}       != $sinfo->{bin_id}) ||

                 ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||

        map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error);

      }

      'warehouse_id' => $form->{"warehouse_id_$i"},

      'bin_id'       => $form->{"bin_id_$i"},

      'chargenumber' => $form->{"chargenumber_$i"},

      'qty'          => $form->{"qty_$i"},

      'unit'         => $form->{"unit_$i"},

      'row'          => $i,

        $request->{parts_id} = $form->{"id_$i"};

        $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;

        $request_map{$map_key}                 ||= $request;

        $request_map{$map_key}->{sum_base_qty} ||= 0;

      my @contents     = DO->get_item_availability('parts_id' => \@part_ids);

      foreach my $inv (@contents) {

        next unless ($request_map{$map_key});

        my $pinfo = $part_info_map{$request->{parts_id}};

        my $binfo = $bin_info_map{$request->{bin_id}};

                                                 $pinfo->{description}, $binfo->{warehouse_description}, $binfo->{bin_description},

                                                 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),

                                                 $form->format_amount_units('amount'      => $request->{sum_base_qty},

                                                                            'part_unit'   => $pinfo->{unit},

                                                                            'conv_units'  => 'convertible_not_smaller'));

  $form->show_generic_error($locale->text("The source warehouse does not contain any bins.")) if (0 == scalar @{ $warehouse->{BINS} });

  $form->{sort} = 'bindescription';

  my @contents  = WH->get_warehouse_report("warehouse_id" => $form->{warehouse_id},

                                           "bin_id"       => $form->{bin_id},

                                           "chargenumber" => $form->{chargenumber},

                                           "partnumber"   => $form->{partnumber},

                                           "ean"          => $form->{ean},

                                           "description"  => $form->{description});

  $form->show_generic_error($locale->text("The source warehouse does not contain any bins.")) if (0 == scalar @{ $warehouse->{BINS} });

  $form->{sort} = 'bindescription';

  my @contents  = WH->get_warehouse_report("warehouse_id" => $form->{warehouse_id});

      'transfer_type_id' => $form->{transfer_type_id},

    };

    my $entry;

    foreach (@contents) {

        $entry = $_;

        last;

      }

    'dst_warehouse_id' => $form->{warehouse_id},

    'dst_bin_id'       => $form->{bin_id},

    'chargenumber'     => $form->{chargenumber},

    'assembly_id'      => $form->{parts_id},

    'qty'              => $form->{qty},

    'unit'             => $form->{unit},

    $form->show_generic_error($ret, 'back_button' => 1);

  }

  $form->{saved_message} = $locale->text('The assembly has been created.');

  $form->{trans_type}    = 'assembly';

    'dst_warehouse_id' => $form->{warehouse_id},

    'dst_bin_id'       => $form->{bin_id},

    'chargenumber'     => $form->{chargenumber},

    'parts_id'         => $form->{parts_id},

    'qty'              => $form->{qty},

    'unit'             => $form->{unit},

  WH->transfer($transfer);

  $form->{saved_message} = $locale->text('The parts have been stocked.');

  $form->{trans_type}    = 'stock';

  $form->show_generic_error($locale->text("The warehouse does not contain any bins.")) if (0 == scalar @{ $warehouse->{BINS} });

  $form->{sort} = 'bindescription';

  my @contents  = WH->get_warehouse_report("warehouse_id" => $form->{warehouse_id});

      'transfer_type_id' => $form->{transfer_type_id},

    };

    my $entry;

    foreach (@contents) {

        $entry = $_;

        last;

      }

  $form->{sort}  ||= 'date';

  my %filter;

  # filter stuff

  $filter{qty_op} = WH->convert_qty_op($form->{qty_op});

  if ($filter{qty_op}) {

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

  my @hidden_variables = map { "l_${_}" } @columns;

  my %column_defs = (

    'date'            => { 'text' => $locale->text('Date'), },

    'partnumber'      => { 'text' => $locale->text('Part Number'), },

    'partdescription' => { 'text' => $locale->text('Description'), },

    'chargenumber'    => { 'text' => $locale->text('Charge Number'), },

    'qty'             => { 'text' => $locale->text('Qty'), },

    'employee'        => { 'text' => $locale->text('Employee'), },

    'projectnumber'   => { 'text' => $locale->text('Project Number'), },

  show_no_warehouses_error() if (!scalar @{ $form->{WAREHOUSES} });

  $form->{title}   = $locale->text("Report about wareouse contents");

  $form->header();

  my $sort_col     = $form->{sort};

  my %filter;

  # filter stuff

  $filter{qty_op} = WH->convert_qty_op($form->{qty_op});

  if ($filter{qty_op}) {

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

  my @hidden_variables = map { "l_${_}" } @columns;

  push @hidden_variables, qw(include_empty_bins subtotal);

  my %column_defs = (

    'partnumber'           => { 'text' => $locale->text('Part Number'), },

    'partdescription'      => { 'text' => $locale->text('Description'), },

    'chargenumber'         => { 'text' => $locale->text('Charge Number'), },

    'qty'                  => { 'text' => $locale->text('Qty'), },

    'stock_value'          => { 'text' => $locale->text('Stock value'), },

  );

    <td><code>si_chargenumber</code></td>

    <td>Chargennummer</td>

   </tr>

   <tr>

    <td><code>si_number</code></td>

    <td>Artikelnummer</td>

     <th class="listheading"><translate>Warehouse</translate></th>

     <th class="listheading"><translate>Bin</translate></th>

     <th class="listheading"><translate>Charge Number</translate></th>

     <th align="right" class="listheading"><translate>Qty</translate></th>

     <th align="right" class="listheading"><translate>Unit</translate></th>

    </tr>

     <td>[% HTML.escape(row.warehouse_description) %]</td>

     <td>[% HTML.escape(row.bin_description) %]</td>

     <td>[% HTML.escape(row.chargenumber) %]</td>

     <td>[% HTML.escape(LxERP.format_amount(row.qty)) %]</td>

     <td>[% HTML.escape(row.unit) %]</td>

     <td><select name="bin_id_[% loop.count %]" id="bin_id_[% loop.count %]"></select></td>

     <td><input name="chargenumber_[% loop.count %]" value="[% HTML.escape(row.chargenumber) %]"></td>

     <td><input name="qty_[% loop.count %]" size="12" value="[% HTML.escape(LxERP.format_amount(row.qty)) %]"></td>

     <td>

  </p>

 </form>

</body>

</html>

     <th class="listheading"><translate>Warehouse</translate></th>

     <th class="listheading"><translate>Bin</translate></th>

     <th class="listheading"><translate>Charge Number</translate></th>

     [%- UNLESS delivered %]

     <th align="right" class="listheading"><translate>Available qty</translate></th>

     [%- END %]

     <td>[% HTML.escape(row.warehousedescription) %]</td>

     <td>[% HTML.escape(row.bindescription) %]</td>

     <td>[% HTML.escape(row.chargenumber) %]</td>

     [%- IF delivered %]

    <input type="hidden" name="warehouse_id_[% loop.count %]" value="[% HTML.escape(row.warehouse_id) %]">

    <input type="hidden" name="bin_id_[% loop.count %]"       value="[% HTML.escape(row.bin_id) %]">

    <input type="hidden" name="chargenumber_[% loop.count %]" value="[% HTML.escape(row.chargenumber) %]">

    [%- END %]

   </table>

  </p>

     [% IF has_charge %]

     <th class="listheading"><translate>Charge number</translate></th>

     [% END %]

     [% IF has_ean %]

     <th class="listheading"><translate>EAN</translate></th>

     [% END %]

      [% HTML.escape(part.chargenumber) %]

     </td>

     [% END %]

     [% IF has_ean %]

     <td>

      <input type="hidden" name="new_ean_[% loop.count %]" value="[% HTML.escape(part.ean) %]">

        <th align="right" nowrap><translate>Charge Number</translate>:</th>

        <td><input name="chargenumber" size=40></td>

       </tr>

       <tr>

        <th align="right" nowrap><translate>Transfer Quantity</translate>:</th>

        <td>

        <td nowrap><label for="l_partnumber"><translate>Part Number</translate></label></td>

        <td align="right"><input name="l_chargenumber" id="l_chargenumber" class="checkbox" type="checkbox" value="Y" checked></td>

        <td nowrap><label for="l_chargenumber"><translate>Charge Number</translate></label></td>

       </tr>

       <tr>

        <td align="right"><input name="l_trans_id" id="l_trans_id" class="checkbox" type="checkbox" value="Y"></td>

  <script type="text/javascript">

    <!--

    Calendar.setup( {

      inputField : "fromdate",

      ifFormat :"[% myconfig_jsc_dateformat %]",

     <th class="listheading"><translate>Part Number</translate></th>

     <th class="listheading"><translate>Part Description</translate></th>

     <th class="listheading"><translate>Charge Number</translate></th>

     <th class="listheading"><translate>EAN</translate></th>

     <th class="listheading"><translate>Available qty</translate></th>

     <th class="listheading"><translate>Removal qty</translate></th>

     <input type="hidden" name="partnumber_[% loop.count %]" value="[% HTML.escape(row.partnumber) %]">

     <input type="hidden" name="partdescription_[% loop.count %]" value="[% HTML.escape(row.partdescription) %]">

     <input type="hidden" name="chargenumber_[% loop.count %]" value="[% HTML.escape(row.chargenumber) %]">

     <input type="hidden" name="ean_[% loop.count %]" value="[% HTML.escape(row.ean) %]">

     <td>[% HTML.escape(row.bindescription) %]</td>

     <td>[% HTML.escape(row.partnumber) %]</td>

     <td>[% HTML.escape(row.partdescription) %]</td>

     <td>[% HTML.escape(row.chargenumber) %]</td>

     <td>[% HTML.escape(row.ean) %]</td>

     <td>[% HTML.escape(row.qty) %]</td>

     <td>

        <th align="right" nowrap><translate>Charge Number</translate>:</th>

        <td><input name="chargenumber" size=40></td>

       </tr>

       <tr>

        <th align="right" nowrap><translate>Qty in stock</translate>:</th>

        <td>

        <td nowrap><label for="l_partnumber"><translate>Part Number</translate></label></td>

        <td align="right"><input name="l_chargenumber" id="l_chargenumber" class="checkbox" type="checkbox" value="Y" checked></td>

        <td nowrap><label for="l_chargenumber"><translate>Charge Number</translate></label></td>

       </tr>

       <tr><td colspan="4"><hr noshade height="1"></td></tr>

  </p>

 </form>

</body>

</html>

     <th class="listheading"><translate>Part Number</translate></th>

     <th class="listheading"><translate>Part Description</translate></th>

     <th class="listheading"><translate>Charge Number</translate></th>

     <th class="listheading"><translate>EAN</translate></th>

     <th class="listheading"><translate>Available qty</translate></th>

     <th class="listheading" colspan="2"><translate>Transfer qty</translate></th>

     <input type="hidden" name="partnumber_[% loop.count %]" value="[% HTML.escape(row.partnumber) %]">

     <input type="hidden" name="partdescription_[% loop.count %]" value="[% HTML.escape(row.partdescription) %]">

     <input type="hidden" name="chargenumber_[% loop.count %]" value="[% HTML.escape(row.chargenumber) %]">

     <input type="hidden" name="ean_[% loop.count %]" value="[% HTML.escape(row.ean) %]">

     <td>[% HTML.escape(row.bindescription) %]</td>

     <td>[% HTML.escape(row.partnumber) %]</td>

     <td>[% HTML.escape(row.partdescription) %]</td>

     <td>[% HTML.escape(row.chargenumber) %]</td>

     <td>[% HTML.escape(row.ean) %]</td>

     <td>[% HTML.escape(row.qty) %]</td>

     <td><input name="qty_[% loop.count %]" size="8" style="text-align: right"></td>

     <td><input name="chargenumber" size="30" value="[% HTML.escape(chargenumber) %]"></td>

    </tr>

    <tr>

     <th align="right" nowrap><translate>Quantity</translate></th>

     <td>

  </p>

 </form>

</body>

</html>

     <th align="right" nowrap><translate>Charge number</translate></th>

     <td><input name="chargenumber" size="30"></td>

    </tr>

    <tr>

     <th align="right" nowrap><translate>EAN</translate></th>

     <td><input name="ean" size="30"></td>

  </p>

 </form>

</body>

</html>

     <th align="right" nowrap><translate>Charge number</translate></th>

     <td><input name="chargenumber" size="30" value="[% HTML.escape(chargenumber) %]"></td>

    </tr>

    <tr>

     <th align="right" nowrap><translate>EAN</translate></th>

     <td><input name="ean" size="30" value="[% HTML.escape(ean) %]"></td>

  </p>

 </form>

</body>

</html>