projekt kivitendo

  my $query =

     qq|SELECT a.id, a.invnumber, a.transdate, a.amount, a.paid, a.curr | .

     qq|WHERE (a.${vc}_id = ?) AND (a.curr = ? $curr_null) AND NOT (a.amount = paid)| .

  my $sth = prepare_execute_query($form, $dbh, $query,

                                  conv_i($form->{"${vc}_id"}),

                                  $form->{currency});

          qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount, | .

          qq|                       cleared, fx_transaction) | .

          qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?)|;

                   conv_date($form->{datepaid}), ($amount * $ml * -1), '0',

                   '1');

        do_query($form, $dbh, $query, @values);

      # update AR/AP transaction

      $query = qq|UPDATE $arap SET $paid, datepaid = ? WHERE id = ?|;

      do_query($form, $dbh, $query, @values);

      # saving the history

      $form->{id} = $form->{"id_$i"};

      if (($form->{"make_$i"}) || ($form->{"model_$i"})) {

        $query = qq|INSERT INTO makemodel (parts_id, make, model) | .

        do_query($form, $dbh, $query, @values);

      }

      $query =

        qq|INSERT INTO partstax (parts_id, chart_id)

           VALUES (?, (SELECT id FROM chart WHERE accno = ?))|;

      do_query($form, $dbh, $query, @values);

    }

  }

      if ($form->{"qty_$i"} != 0) {

        $form->{"bom_$i"} *= 1;

        $query = qq|INSERT INTO assembly (id, parts_id, qty, bom) | .

        do_query($form, $dbh, $query, @values);

      }

    }

  my $query =

    qq|SELECT

         v.id AS vendor_id, v.name AS vendor, v.discount as vendor_discount,

         v.email, v.cc, v.bcc, v.language_id, v.payment_id,

         v.street, v.zipcode, v.city, v.country, v.taxzone_id,

         $duedate + COALESCE(pt.terms_netto, 0) AS duedate,

  #Es soll auch nach EAN gesucht werden, ohne Einschränkung durch Beschreibung

  if ($form->{"partnumber_$i"} && !$form->{"description_$i"}) {

  }

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

        }

        $query = qq|SELECT p.partnumber, p.description, p.unit, a.qty, | .

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

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

  $query =

    qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) | .

    qq|VALUES (?, (SELECT id FROM chart WHERE accno = ? ), ?, ?)|;

  do_query($form, $dbh, $query, @values);

  # add payment

    $query =

      qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount, cleared, fx_transaction) | .

      qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?)|;

               (($fxamount - $amount) * $ml * -1), 1, 1);

    do_query($form, $dbh, $query, @values);

  }

  if ($form->{id}) {

    $query = qq|UPDATE partsgroup SET partsgroup = ? WHERE id = ?|;

  } else {

    $query = qq|INSERT INTO partsgroup (partsgroup) VALUES (?)|;

  }

  if ($form->{id}) {

    $query = qq|UPDATE pricegroup SET pricegroup = ? WHERE id = ? |;

  } else {

    $query = qq|INSERT INTO pricegroup (pricegroup) VALUES (?)|;

  }

  }

  if ($form->{project_id}) {

    $project = qq| AND (ac.project_id = | . conv_i($form->{project_id}, 'NULL') . qq|) |;

  }

         GROUP BY c.accno, c.description, c.category |;

    if ($form->{project_id}) {

      $query .=

        qq|

         UNION ALL

    }

  } else {                      # if ($form->{method} eq 'cash')

  #  if ($department_id) {

  #    $dpt_join = qq| JOIN dpt_trans t ON (t.trans_id = ac.trans_id) |;

  #    $dpt_where = qq| AND t.department_id = $department_id |;

      GROUP BY c.accno, c.description, c.category |;

    if ($form->{project_id}) {

      $query .= qq|

      UNION ALL

    }

  } else {                      # if ($form->{method} eq 'cash')

    $query = qq|

        SELECT sum(ac.amount * chart_category_to_sgn(c.category)) AS amount, c.$category

  &get_accounts_g($dbh, $last_period, $form->{fromdate}, $form->{todate}, $form, "pos_ustva");

  #   foreach $item (@categories_cent) {

  #   }

  #   foreach $item (@categories_euro) {

  #   }

  #   foreach $item (@categories_euro) {

  #   }

  #

  #    }

        # update counters and flags

        @$self{ qw( INDEX COUNT FIRST LAST ) } = ( $max, $max + 1, 0, 1 );

        $main::lxdebug->leave_sub();

    }

    else {

        $main::lxdebug->leave_sub();

  my @vars = (

    'FA_Land_Nr',             #  0

    'FA_BUFA_Nr',             #  1

    'FA_Name',                #  3

    'FA_Strasse',             #  4

    'FA_PLZ',                 #  5

    'FA_BLZ_1',               # 12

    'FA_Kontonummer_1',       # 13

    'FA_Bankbezeichnung_1',   # 14

    'FA_BLZ_2',               # 18

    'FA_Kontonummer_2',       # 19

    'FA_Bankbezeichnung_2',   # 20

    'FA_Oeffnungszeiten',     # 24

    'FA_Email',               # 25

    'FA_Internet'             # 26

  );

  my $field = join(', ', @vars);

  # my $query    = qq|select parts_id,qty from assembly where id = ?|;

  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

  my $transferPartSQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, comment, employee_id, qty, trans_id, trans_type_id)

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

    my $partsQTY = $hash_ref->{qty} * $params{qty}; # benötigte teile * anzahl erzeugnisse

    my $currentPart_ID = $hash_ref->{parts_id};

    if ($partsQTY  > $max_parts){

      # Gibt es hier ein Problem mit nicht "escapten" Zeichen? 25.4.09 Antwort: Ja.  Aber erst wenn im Frontend die locales-Funktion aufgerufen wird

    }

    # Eine kurze Vorabfrage, um den Lagerplatz und die Chargennummber zu bestimmen

    # 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

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

    my $tmpPartsQTY = $partsQTY;

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

        do_statement($form, $sthTransferPartSQL, $transferPartSQL, $currentPart_ID, $params{dst_warehouse_id}, $temppart_bin_id, $temppart_chargenumber, 'Verbraucht für ' . get_part_description($self, parts_id => $params{assembly_id}), $params{login}, $tmpPartsQTY);

      }

  } #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 ...

  my $transferAssemblySQL = qq|INSERT INTO inventory (parts_id, warehouse_id, bin_id, chargenumber, comment, employee_id, qty, trans_id, trans_type_id)

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

  do_statement($form, $sthTransferAssemblySQL, $transferAssemblySQL, $params{assembly_id}, $params{dst_warehouse_id}, $params{dst_bin_id}, $params{chargenumber}, $params{comment}, $params{login}, $params{qty});

  $dbh->commit();

  $main::lxdebug->leave_sub();

}

sub get_warehouse_journal {

#  - 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

#  - 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

#                   will also add a column named 'has_expired' containing if the match has already expired or not

     "bindescription"       => "b.description",

     "binid"                => "b.id",

     "chargenumber"         => "i.chargenumber",

     "chargeid"             => "c.id",

     "warehousedescription" => "w.description",

     "partunit"             => "p.unit",

  return map { $_->{bin_id} => $_ } @{ $result };

}

#

#

sub get_max_qty_parts {

$main::lxdebug->enter_sub();

  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};

  }

}

#

#

sub get_part_description {

$main::lxdebug->enter_sub();