projekt kivitendo

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

    next unless $form->{"id_$i"};

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

    $form->{"qty_$i"} *= -1 if $form->{storno};

      my $h_invoice_id = prepare_query($form, $dbh, $q_invoice_id);

      do_statement($form, $h_invoice_id, $q_invoice_id);

      $form->{"invoice_id_$i"}  = $h_invoice_id->fetchrow_array();

      $h_invoice_id->finish();

    }

      # save detail record in invoice table

      $query = <<SQL;

                           sellprice = ?, fxsellprice = ?, discount = ?, allocated = ?, unit = ?, deliverydate = ?,

                           project_id = ?, serialnumber = ?, price_factor_id = ?,

                           price_factor = (SELECT factor FROM price_factors WHERE id = ?), marge_price_factor = ?,

        WHERE id = ?

SQL

               $form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}), $form->{"qty_$i"} * -1,

               $baseqty * -1, $form->{"sellprice_$i"}, $fxsellprice, $form->{"discount_$i"}, $allocated,

               $form->{"unit_$i"}, conv_date($form->{deliverydate}),

        WHERE i.trans_id = ?

  $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));

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

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

      my $item_unit;

      if (defined($baseunits{$form->{"id_$i"}})) {

        $item_unit = $baseunits{$form->{"id_$i"}};

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

          # record assembly item as allocated

        } else {

          $allocated = &cogs($dbh, $myconfig, $form, $form->{"id_$i"}, $baseqty, $basefactor, $i);

        my $h_invoice_id = prepare_query($form, $dbh, $q_invoice_id);

        do_statement($form, $h_invoice_id, $q_invoice_id);

        $form->{"invoice_id_$i"}  = $h_invoice_id->fetchrow_array();

        $h_invoice_id->finish();

      }

      # save detail record in invoice table

      $query = <<SQL;

                           sellprice = ?, fxsellprice = ?, discount = ?, allocated = ?, assemblyitem = ?,

                           unit = ?, deliverydate = ?, project_id = ?, serialnumber = ?, pricegroup_id = ?,

                           ordnumber = ?, donumber = ?, transdate = ?, cusordnumber = ?, base_qty = ?, subtotal = ?,

        WHERE id = ?

SQL

                 $form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}), $form->{"qty_$i"},

                 $form->{"sellprice_$i"}, $fxsellprice,

                 $form->{"discount_$i"}, $allocated, 'f',

sub process_assembly {

  $main::lxdebug->enter_sub();

  my $query =

    qq|SELECT a.parts_id, a.qty, p.assembly, p.partnumber, p.description, p.unit,

    $ref->{qty} *= $totalqty;

    if ($ref->{assembly}) {

      next;

    } else {

      if ($ref->{inventory_accno_id}) {

    # save detail record for individual assembly item in invoice table

    $query =

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

  }

         LEFT JOIN chart c2 ON ((SELECT tc.income_accno_id FROM taxzone_charts tc WHERE tc.taxzone_id = '$taxzone_id' and tc.buchungsgruppen_id = p.buchungsgruppen_id) = c2.id)

         LEFT JOIN chart c3 ON ((SELECT tc.expense_accno_id FROM taxzone_charts tc WHERE tc.taxzone_id = '$taxzone_id' and tc.buchungsgruppen_id = p.buchungsgruppen_id) = c3.id)

    $sth = prepare_execute_query($form, $dbh, $query, $id);