X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FOE.pm;h=5b7c031afade91762466f608237b6d42d7dfce0e;hb=bb374138781bbf3a368d104445aee887494aa381;hp=4abdac0f99633b5d75a19cf5460274c0848d4776;hpb=5cbbffe250f165212c31f4dbfad8ca9fd7300a4a;p=kivitendo-erp.git diff --git a/SL/OE.pm b/SL/OE.pm index 4abdac0f9..5b7c031af 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -34,6 +34,10 @@ package OE; +use SL::AM; +use SL::Common; +use SL::DBUtils; + sub transactions { $main::lxdebug->enter_sub(); @@ -48,6 +52,15 @@ sub transactions { my ($null, $department_id) = split /--/, $form->{department}; my $department = " AND o.department_id = $department_id" if $department_id; + my @values; + + if ($form->{"project_id"}) { + $department .= + qq|AND ((globalproject_id = ?) OR EXISTS | . + qq| (SELECT * FROM orderitems oi | . + qq| WHERE oi.project_id = ? AND oi.trans_id = o.id))|; + push(@values, $form->{"project_id"}, $form->{"project_id"}); + } my $rate = ($form->{vc} eq 'customer') ? 'buy' : 'sell'; @@ -61,55 +74,19 @@ sub transactions { my $query = qq|SELECT o.id, o.ordnumber, o.transdate, o.reqdate, o.amount, ct.name, o.netamount, o.$form->{vc}_id, + o.globalproject_id, pr.projectnumber AS globalprojectnumber, ex.$rate AS exchangerate, - o.closed, o.quonumber, o.shippingpoint, o.shipvia, + o.closed, o.delivered, o.quonumber, o.shippingpoint, o.shipvia, e.name AS employee FROM oe o JOIN $form->{vc} ct ON (o.$form->{vc}_id = ct.id) LEFT JOIN employee e ON (o.employee_id = e.id) LEFT JOIN exchangerate ex ON (ex.curr = o.curr AND ex.transdate = o.transdate) + LEFT JOIN project pr ON o.globalproject_id = pr.id WHERE o.quotation = '$quotation' $department|; - # build query if type eq (ship|receive)_order - if ($form->{type} =~ /(ship|receive)_order/) { - my ($warehouse, $warehouse_id) = split /--/, $form->{warehouse}; - - $query = qq|SELECT DISTINCT ON (o.id) o.id, o.ordnumber, o.transdate, - o.reqdate, o.amount, ct.name, o.netamount, o.$form->{vc}_id, - ex.$rate AS exchangerate, - o.closed, o.quonumber, o.shippingpoint, o.shipvia, - e.name AS employee - FROM oe o - JOIN $form->{vc} ct ON (o.$form->{vc}_id = ct.id) - JOIN orderitems oi ON (oi.trans_id = o.id) - JOIN parts p ON (p.id = oi.parts_id)|; - - if ($warehouse_id && $form->{type} eq 'ship_order') { - $query .= qq| - JOIN inventory i ON (oi.parts_id = i.parts_id) - |; - } - - $query .= qq| - LEFT JOIN employee e ON (o.employee_id = e.id) - LEFT JOIN exchangerate ex ON (ex.curr = o.curr - AND ex.transdate = o.transdate) - WHERE o.quotation = '0' - AND (p.inventory_accno_id > 0 OR p.assembly = '1') - AND oi.qty <> oi.ship - $department|; - - if ($warehouse_id && $form->{type} eq 'ship_order') { - $query .= qq| - AND i.warehouse_id = $warehouse_id - AND i.qty >= (oi.qty - oi.ship) - |; - } - - } - if ($form->{"$form->{vc}_id"}) { $query .= qq| AND o.$form->{vc}_id = $form->{"$form->{vc}_id"}|; } else { @@ -123,9 +100,15 @@ sub transactions { $query .= ($form->{open}) ? " AND o.closed = '0'" : " AND o.closed = '1'"; } + if (($form->{"notdelivered"} || $form->{"delivered"}) && + ($form->{"notdelivered"} ne $form->{"delivered"})) { + $query .= $form->{"delivered"} ? + " AND o.delivered " : " AND NOT o.delivered"; + } + my $sortorder = join ', ', ("o.id", $form->sort_columns(transdate, $ordnumber, name)); - $sortorder = $form->{sort} unless $sortorder; + $sortorder = $form->{sort} if $form->{sort}; $query .= " AND lower($ordnumber) LIKE '$number'" if $form->{$ordnumber}; $query .= " AND o.transdate >= '$form->{transdatefrom}'" @@ -135,7 +118,10 @@ sub transactions { $query .= " ORDER by $sortorder"; my $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); + $sth->execute(@values) || + $form->dberror($query . " (" . join(", ", @values) . ")"); + + dump_query(0, "laqje", $query, @values); my %id = (); while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { @@ -161,13 +147,21 @@ sub save { my ($query, $sth, $null); my $exchangerate = 0; + my $service_units = AM->retrieve_units($myconfig,$form,"service"); + my $part_units = AM->retrieve_units($myconfig,$form,"dimension"); + $form->{service_units} =$service_units; + $form->{part_units} =$part_units; + ($null, $form->{employee_id}) = split /--/, $form->{employee}; unless ($form->{employee_id}) { $form->get_employee($dbh); } - ($null, $form->{contact_id}) = split /--/, $form->{contact}; - $form->{contact_id} *= 1; + $form->{payment_id} *= 1; + $form->{language_id} *= 1; + $form->{shipto_id} *= 1; + $form->{delivery_customer_id} *= 1; + $form->{delivery_vendor_id} *= 1; my $ml = ($form->{type} eq 'sales_order') ? 1 : -1; @@ -180,7 +174,7 @@ sub save { $dbh->do($query) || $form->dberror($query); $query = qq|DELETE FROM shipto - WHERE trans_id = $form->{id}|; + WHERE trans_id = $form->{id} AND module = 'OE'|; $dbh->do($query) || $form->dberror($query); } else { @@ -223,10 +217,37 @@ sub save { for my $i (1 .. $form->{rowcount}) { map { - $form->{"${_}_$i"} = $form->parse_amount($myconfig, $form->{"${_}_$i"}) + $form->{"${_}_$i"} = + $form->parse_amount($myconfig, $form->{"${_}_$i"}) } qw(qty ship); - if ($form->{"qty_$i"}) { + if ($form->{"id_$i"}) { + + # get item baseunit + $query = qq|SELECT p.unit + FROM parts p + WHERE p.id = $form->{"id_$i"}|; + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); + + my ($item_unit) = $sth->fetchrow_array(); + $sth->finish; + + if ($form->{"inventory_accno_$i"}) { + if (defined($part_units->{$item_unit}->{factor}) && $part_units->{$item_unit}->{factor} ne '' && $part_units->{$item_unit}->{factor} ne '0') { + $basefactor = $part_units->{$form->{"unit_$i"}}->{factor} / $part_units->{$item_unit}->{factor}; + } else { + $basefactor = 1; + } + $baseqty = $form->{"qty_$i"} * $basefactor; + } else { + if (defined($service_units->{$item_unit}->{factor}) && $service_units->{$item_unit}->{factor} ne '' && $service_units->{$item_unit}->{factor} ne '0') { + $basefactor = $service_units->{$form->{"unit_$i"}}->{factor} / $service_units->{$item_unit}->{factor}; + } else { + $basefactor = 1; + } + $baseqty = $form->{"qty_$i"} * $basefactor; + } map { $form->{"${_}_$i"} =~ s/\'/\'\'/g } qw(partnumber description unit); @@ -304,31 +325,29 @@ sub save { $netamount += $form->{"sellprice_$i"} * $form->{"qty_$i"}; - $project_id = 'NULL'; - if ($form->{"projectnumber_$i"}) { - $project_id = $form->{"projectnumber_$i"}; - } $reqdate = ($form->{"reqdate_$i"}) ? qq|'$form->{"reqdate_$i"}'| : "NULL"; # get pricegroup_id and save ist - ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"}; + ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_pg_$i"}; $pricegroup_id *= 1; + $subtotal = $form->{"subtotal_$i"} * 1; # save detail record in orderitems table $query = qq|INSERT INTO orderitems (|; $query .= "id, " if $form->{"orderitems_id_$i"}; - $query .= qq|trans_id, parts_id, description, qty, sellprice, discount, - unit, reqdate, project_id, serialnumber, ship, pricegroup_id) + $query .= qq|trans_id, parts_id, description, longdescription, qty, base_qty, sellprice, discount, + unit, reqdate, project_id, serialnumber, ship, pricegroup_id, + ordnumber, transdate, cusordnumber, subtotal) VALUES (|; $query .= qq|$form->{"orderitems_id_$i"},| if $form->{"orderitems_id_$i"}; $query .= qq|$form->{id}, $form->{"id_$i"}, - '$form->{"description_$i"}', $form->{"qty_$i"}, + '$form->{"description_$i"}', '$form->{"longdescription_$i"}', $form->{"qty_$i"}, $baseqty, $fxsellprice, $form->{"discount_$i"}, - '$form->{"unit_$i"}', $reqdate, (SELECT id from project where projectnumber = '$project_id'), - '$form->{"serialnumber_$i"}', $form->{"ship_$i"}, - '$pricegroup_id')|; + '$form->{"unit_$i"}', $reqdate, | . conv_i($form->{"project_id_$i"}, 'NULL') . qq|, + '$form->{"serialnumber_$i"}', $form->{"ship_$i"}, '$pricegroup_id', + '$form->{"ordnumber_$i"}', '$form->{"transdate_$i"}', '$form->{"cusordnumber_$i"}', '$subtotal')|; $dbh->do($query) || $form->dberror($query); $form->{"sellprice_$i"} = $fxsellprice; @@ -393,6 +412,12 @@ Message: $form->{message}\r| if $form->{message}; ($null, $form->{department_id}) = split(/--/, $form->{department}); $form->{department_id} *= 1; + $form->{payment_id} *= 1; + $form->{language_id} *= 1; + $form->{taxzone_id} *= 1; + $form->{proforma} *= 1; + + # save OE record $query = qq|UPDATE oe set @@ -412,23 +437,31 @@ Message: $form->{message}\r| if $form->{message}; intnotes = '$form->{intnotes}', curr = '$form->{currency}', closed = '$form->{closed}', + delivered = '| . ($form->{delivered} ? "t" : "f") . qq|', + proforma = '$form->{proforma}', quotation = '$quotation', department_id = $form->{department_id}, + language_id = $form->{language_id}, + taxzone_id = $form->{taxzone_id}, + shipto_id = $form->{shipto_id}, + payment_id = $form->{payment_id}, + delivery_vendor_id = $form->{delivery_vendor_id}, + delivery_customer_id = $form->{delivery_customer_id}, + globalproject_id = | . conv_i($form->{"globalproject_id"}, 'NULL') . qq|, employee_id = $form->{employee_id}, - cp_id = $form->{contact_id} + cp_id = | . conv_i($form->{cp_id}, 'NULL') . qq| WHERE id = $form->{id}|; $dbh->do($query) || $form->dberror($query); $form->{ordtotal} = $amount; - if ($form->{webdav}) { - &webdav_folder($myconfig, $form); - } - # add shipto $form->{name} = $form->{ $form->{vc} }; $form->{name} =~ s/--$form->{"$form->{vc}_id"}//; - $form->add_shipto($dbh, $form->{id}); + + if (!$form->{shipto_id}) { + $form->add_shipto($dbh, $form->{id}, "OE"); + } # save printed, emailed, queued $form->save_status($dbh); @@ -448,57 +481,56 @@ Message: $form->{message}\r| if $form->{message}; # adjust onhand &adj_onhand($dbh, $form, $ml * -1); - &adj_inventory($dbh, $myconfig, $form); } my $rc = $dbh->commit; $dbh->disconnect; + Common::webdav_folder($form) if ($main::webdav); + $main::lxdebug->leave_sub(); return $rc; } -# this function closes multiple orders given in $form->{ordnumber_#}. +# this function closes multiple orders given in $form->{ordnumber_#}. # use this for multiple orders that don't have to be saved back # single orders should use OE::save instead. sub close_orders { $main::lxdebug->enter_sub(); - my ($self, $myconfig ,$form) = @_; - - for my $i (1 .. $form->{rowcount}) { - - map { - $form->{"${_}_$i"} = $form->parse_amount($myconfig, $form->{"${_}_$i"}) - } qw(qty ship); - if ($delete_oe_id) { - $form->{"orderitems_id_$i"} = ""; - } - - if ($form->{"qty_$i"}) { - - # set values to 0 if nothing entered - $form->{"discount_$i"} = - $form->parse_amount($myconfig, $form->{"discount_$i"}); + my ($self, $myconfig, $form) = @_; - $form->{"sellprice_$i"} = - $form->parse_amount($myconfig, $form->{"sellprice_$i"}); - } - } # get ids from $form - map { push @ids, $form->{"ordnumber_$_"} if $form->{"ordnumber_$_"} } (1 .. $form->{rowcount}); - + map { push @ids, $form->{"ordnumber_$_"} if $form->{"ordnumber_$_"} } + (1 .. $form->{rowcount}); + my $dbh = $form->dbconnect($myconfig); $query = qq|UPDATE oe SET closed = TRUE - WHERE ordnumber IN (|.join(', ', map{ $dbh->quote($_) }@ids).qq|)|; + WHERE ordnumber IN (| + . join(', ', map { $dbh->quote($_) } @ids) . qq|)|; $dbh->do($query) || $form->dberror($query); $dbh->disconnect; $main::lxdebug->leave_sub(); } +sub close_order { + $main::lxdebug->enter_sub(); + + my ($self, $myconfig, $form) = @_; + + $main::lxdebug->leave_sub() unless ($form->{"id"}); + + my $dbh = $form->dbconnect($myconfig); + do_query($form, $dbh, qq|UPDATE oe SET closed = TRUE where id = ?|, + $form->{"id"}); + $dbh->disconnect; + + $main::lxdebug->leave_sub(); +} + sub delete { $main::lxdebug->enter_sub(); @@ -552,7 +584,7 @@ sub delete { $dbh->do($query) || $form->dberror($query); $query = qq|DELETE FROM shipto - WHERE trans_id = $form->{id}|; + WHERE trans_id = $form->{id} AND module = 'OE'|; $dbh->do($query) || $form->dberror($query); my $rc = $dbh->commit; @@ -577,12 +609,15 @@ sub retrieve { # connect to database my $dbh = $form->dbconnect_noauto($myconfig); - my $query; + my $query, @ids; # translate the ids (given by id_# and trans_id_#) into one array of ids, so we can join them later - map { push @ids, $form->{"trans_id_$_"} if ($form->{"id_$_"}) } (1 .. $form->{"rowcount"}); + map { + push @ids, $form->{"trans_id_$_"} + if ($form->{"id_$_"} and $form->{"trans_id_$_"}) + } (1 .. $form->{"rowcount"}); - # if called in multi id mode, and still only got one id, switch back to single id + # if called in multi id mode, and still only got one id, switch back to single id if ($form->{"rowcount"} and $#ids == 0) { $form->{"id"} = $ids[0]; undef @ids; @@ -627,28 +662,37 @@ sub retrieve { ($form->{currency}) = split /:/, $form->{currencies}; + # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure + # we come from invoices, feel free. + $form->{reqdate} = $form->{deliverydate} + if ( $form->{deliverydate} + and $form->{callback} =~ /action=ar_transactions/); + if ($form->{id} or @ids) { # retrieve order for single id # NOTE: this query is intended to fetch all information only ONCE. - # so if any of these infos is important (or even different) for any item, + # so if any of these infos is important (or even different) for any item, # it will be killed out and then has to be fetched from the item scope query further down $query = qq|SELECT o.cp_id, o.ordnumber, o.transdate, o.reqdate, o.taxincluded, o.shippingpoint, o.shipvia, o.notes, o.intnotes, o.curr AS currency, e.name AS employee, o.employee_id, o.$form->{vc}_id, cv.name AS $form->{vc}, o.amount AS invtotal, o.closed, o.reqdate, o.quonumber, o.department_id, o.cusordnumber, - d.description AS department + d.description AS department, o.payment_id, o.language_id, o.taxzone_id, + o.delivery_customer_id, o.delivery_vendor_id, o.proforma, o.shipto_id, + o.globalproject_id, + o.delivered FROM oe o JOIN $form->{vc} cv ON (o.$form->{vc}_id = cv.id) LEFT JOIN employee e ON (o.employee_id = e.id) LEFT JOIN department d ON (o.department_id = d.id) - |. ($form->{id} - ? qq|WHERE o.id = $form->{id}| - : qq|WHERE o.id IN (|.join(', ', @ids).qq|)| - ); + | + . ($form->{id} + ? qq|WHERE o.id = $form->{id}| + : qq|WHERE o.id IN (| . join(', ', @ids) . qq|)|); -#$main::lxdebug->message(0, $query); + #$main::lxdebug->message(0, $query); $sth = $dbh->prepare($query); $sth->execute || $form->dberror($query); @@ -656,24 +700,44 @@ sub retrieve { $ref = $sth->fetchrow_hashref(NAME_lc); map { $form->{$_} = $ref->{$_} } keys %$ref; - # destroy all entries for multiple ids that yield different information + + + # set all entries for multiple ids blank that yield different information while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - map { undef $form->{$_} if ($ref->{$_} ne $form->{$_}) } keys %$ref; + map { $form->{$_} = '' if ($ref->{$_} ne $form->{$_}) } keys %$ref; } # if not given, fill transdate with current_date - $form->{transdate} = $form->current_date($myconfig) unless $form->{transdate}; + $form->{transdate} = $form->current_date($myconfig) + unless $form->{transdate}; $sth->finish; - # shipto and pinted/mailed/queued status makes only sense for single id retrieve + if ($form->{delivery_customer_id}) { + $query = qq|SELECT name FROM customer WHERE id=$form->{delivery_customer_id}|; + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); + ($form->{delivery_customer_string}) = $sth->fetchrow_array(); + $sth->finish; + } + + if ($form->{delivery_vendor_id}) { + $query = qq|SELECT name FROM customer WHERE id=$form->{delivery_vendor_id}|; + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); + ($form->{delivery_vendor_string}) = $sth->fetchrow_array(); + $sth->finish; + } + + # shipto and pinted/mailed/queued status makes only sense for single id retrieve if (!@ids) { $query = qq|SELECT s.* FROM shipto s - WHERE s.trans_id = $form->{id}|; + WHERE s.trans_id = $form->{id} AND s.module = 'OE'|; $sth = $dbh->prepare($query); $sth->execute || $form->dberror($query); $ref = $sth->fetchrow_hashref(NAME_lc); + delete($ref->{id}); map { $form->{$_} = $ref->{$_} } keys %$ref; $sth->finish; @@ -687,70 +751,119 @@ sub retrieve { while ($ref = $sth->fetchrow_hashref(NAME_lc)) { $form->{printed} .= "$ref->{formname} " if $ref->{printed}; $form->{emailed} .= "$ref->{formname} " if $ref->{emailed}; - $form->{queued} .= "$ref->{formname} $ref->{spoolfile} " if $ref->{spoolfile}; + $form->{queued} .= "$ref->{formname} $ref->{spoolfile} " + if $ref->{spoolfile}; } $sth->finish; map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued); - } # if !@ids + } # if !@ids my %oid = ('Pg' => 'oid', 'Oracle' => 'rowid'); + my $transdate = + $form->{transdate} ? $dbh->quote($form->{transdate}) : "current_date"; + + if(!$form->{taxzone_id}) { + $form->{taxzone_id} = 0; + } # retrieve individual items # this query looks up all information about the items # stuff different from the whole will not be overwritten, but saved with a suffix. $query = qq|SELECT o.id AS orderitems_id, - c1.accno AS inventory_accno, - c2.accno AS income_accno, - c3.accno AS expense_accno, - oe.ordnumber, oe.transdate, oe.cusordnumber, + c1.accno AS inventory_accno, c1.new_chart_id AS inventory_new_chart, date($transdate) - c1.valid_from as inventory_valid, + c2.accno AS income_accno, c2.new_chart_id AS income_new_chart, date($transdate) - c2.valid_from as income_valid, + c3.accno AS expense_accno, c3.new_chart_id AS expense_new_chart, date($transdate) - c3.valid_from as expense_valid, + oe.ordnumber AS ordnumber_oe, oe.transdate AS transdate_oe, oe.cusordnumber AS cusordnumber_oe, p.partnumber, p.assembly, o.description, o.qty, - o.sellprice, o.parts_id AS id, o.unit, o.discount, p.bin, p.notes AS partnotes, + o.sellprice, o.parts_id AS id, o.unit, o.discount, p.bin, p.notes AS partnotes, p.inventory_accno_id AS part_inventory_accno_id, o.reqdate, o.project_id, o.serialnumber, o.ship, - pr.projectnumber, + o.ordnumber, o.transdate, o.cusordnumber, o.subtotal, o.longdescription, + pr.projectnumber, p.formel, pg.partsgroup, o.pricegroup_id, (SELECT pricegroup FROM pricegroup WHERE id=o.pricegroup_id) as pricegroup FROM orderitems o JOIN parts p ON (o.parts_id = p.id) JOIN oe ON (o.trans_id = oe.id) - LEFT JOIN chart c1 ON (p.inventory_accno_id = c1.id) - LEFT JOIN chart c2 ON (p.income_accno_id = c2.id) - LEFT JOIN chart c3 ON (p.expense_accno_id = c3.id) + LEFT JOIN chart c1 ON ((select inventory_accno_id from buchungsgruppen where id=p.buchungsgruppen_id) = c1.id) + LEFT JOIN chart c2 ON ((select income_accno_id_$form->{taxzone_id} from buchungsgruppen where id=p.buchungsgruppen_id) = c2.id) + LEFT JOIN chart c3 ON ((select expense_accno_id_$form->{taxzone_id} from buchungsgruppen where id=p.buchungsgruppen_id) = c3.id) LEFT JOIN project pr ON (o.project_id = pr.id) LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) - |. ($form->{id} - ? qq|WHERE o.trans_id = $form->{id}| - : qq|WHERE o.trans_id IN (|.join(", ", @ids).qq|)| - ).qq| + | + . ($form->{id} + ? qq|WHERE o.trans_id = $form->{id}| + : qq|WHERE o.trans_id IN (| . join(", ", @ids) . qq|)|) + . qq| ORDER BY o.$oid{$myconfig->{dbdriver}}|; - + $sth = $dbh->prepare($query); $sth->execute || $form->dberror($query); while ($ref = $sth->fetchrow_hashref(NAME_lc)) { + if (!$ref->{"part_inventory_accno_id"}) { + map({ delete($ref->{$_}); } qw(inventory_accno inventory_new_chart inventory_valid)); + } + delete($ref->{"part_inventory_accno_id"}); + + # in collective order, copy global ordnumber, transdate, cusordnumber into item scope + # unless already present there + # remove _oe entries afterwards + map { $ref->{$_} = $ref->{"${_}_oe"} if ($ref->{$_} eq '') } + qw|ordnumber transdate cusordnumber| + if (@ids); + map { delete $ref->{$_} } qw|ordnumber_oe transdate_oe cusordnumber_oe|; + + + + while ($ref->{inventory_new_chart} && ($ref->{inventory_valid} >=0)) { + my $query = qq| SELECT accno AS inventory_accno, new_chart_id AS inventory_new_chart, date($transdate) - valid_from AS inventory_valid FROM chart WHERE id = $ref->{inventory_new_chart}|; + my $stw = $dbh->prepare($query); + $stw->execute || $form->dberror($query); + ($ref->{inventory_accno}, $ref->{inventory_new_chart}, $ref->{inventory_valid}) = $stw->fetchrow_array; + $stw->finish; + } - #set expense_accno=inventory_accno if they are different => bilanz - $vendor_accno = - ($ref->{expense_accno} != $ref->{inventory_accno}) - ? $ref->{inventory_accno} - : $ref->{expense_accno}; + while ($ref->{income_new_chart} && ($ref->{income_valid} >=0)) { + my $query = qq| SELECT accno AS income_accno, new_chart_id AS income_new_chart, date($transdate) - valid_from AS income_valid FROM chart WHERE id = $ref->{income_new_chart}|; + my $stw = $dbh->prepare($query); + $stw->execute || $form->dberror($query); + ($ref->{income_accno}, $ref->{income_new_chart}, $ref->{income_valid}) = $stw->fetchrow_array; + $stw->finish; + } + + while ($ref->{expense_new_chart} && ($ref->{expense_valid} >=0)) { + my $query = qq| SELECT accno AS expense_accno, new_chart_id AS expense_new_chart, date($transdate) - valid_from AS expense_valid FROM chart WHERE id = $ref->{expense_new_chart}|; + my $stw = $dbh->prepare($query); + $stw->execute || $form->dberror($query); + ($ref->{expense_accno}, $ref->{expense_new_chart}, $ref->{expense_valid}) = $stw->fetchrow_array; + $stw->finish; + } + + # delete orderitems_id in collective orders, so that they get cloned no matter what + delete $ref->{orderitems_id} if (@ids); # get tax rates and description $accno_id = - ($form->{vc} eq "customer") ? $ref->{income_accno} : $vendor_accno; - $query = qq|SELECT c.accno, c.description, t.rate, t.taxnumber - FROM chart c, tax t - WHERE c.id=t.chart_id AND t.taxkey in (SELECT taxkey_id from chart where accno = '$accno_id') - ORDER BY accno|; + ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno}; + $query = qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber + FROM tax t LEFT JOIN chart c on (c.id=t.chart_id) + WHERE t.id in (SELECT tk.tax_id from taxkeys tk where tk.chart_id = (SELECT id from chart WHERE accno='$accno_id') AND startdate<=$transdate ORDER BY startdate desc LIMIT 1) + ORDER BY c.accno|; $stw = $dbh->prepare($query); $stw->execute || $form->dberror($query); $ref->{taxaccounts} = ""; + my $i = 0; while ($ptr = $stw->fetchrow_hashref(NAME_lc)) { # if ($customertax{$ref->{accno}}) { + if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) { + $i++; + $ptr->{accno} = $i; + } $ref->{taxaccounts} .= "$ptr->{accno} "; if (!($form->{taxaccounts} =~ /$ptr->{accno}/)) { $form->{"$ptr->{accno}_rate"} = $ptr->{rate}; - $form->{"$ptr->{accno}_description"} = $ptr->{description}; + $form->{"$ptr->{accno}_description"} = $ptr->{taxdescription}; $form->{"$ptr->{accno}_taxnumber"} = $ptr->{taxnumber}; $form->{taxaccounts} .= "$ptr->{accno} "; } @@ -775,9 +888,20 @@ sub retrieve { $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell"); - if ($form->{webdav}) { - &webdav_folder($myconfig, $form); + Common::webdav_folder($form) if ($main::webdav); + + # get tax zones + $query = qq|SELECT id, description + FROM tax_zones|; + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); + + + while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { + push @{ $form->{TAXZONE} }, $ref; } + $sth->finish; + my $rc = $dbh->commit; $dbh->disconnect; @@ -796,48 +920,56 @@ sub order_details { my $dbh = $form->dbconnect($myconfig); my $query; my $sth; - + my $nodiscount; + my $yesdiscount; + my $nodiscount_subtotal = 0; + my $discount_subtotal = 0; my $item; my $i; my @partsgroup = (); my $partsgroup; + my $position = 0; + my $subtotal_header = 0; + my $subposition = 0; + my %oid = ('Pg' => 'oid', 'Oracle' => 'rowid'); + my (@project_ids, %projectnumbers); + + push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"}); + # sort items by partsgroup for $i (1 .. $form->{rowcount}) { $partsgroup = ""; if ($form->{"partsgroup_$i"} && $form->{groupitems}) { - $form->format_string("partsgroup_$i"); $partsgroup = $form->{"partsgroup_$i"}; } push @partsgroup, [$i, $partsgroup]; + push(@project_ids, $form->{"project_id_$i"}) if ($form->{"project_id_$i"}); } - # if there is a warehouse limit picking - if ($form->{warehouse_id} && $form->{formname} =~ /(pick|packing)_list/) { - - # run query to check for inventory - $query = qq|SELECT sum(i.qty) AS qty - FROM inventory i - WHERE i.parts_id = ? - AND i.warehouse_id = ?|; - $sth = $dbh->prepare($query) || $form->dberror($query); - - for $i (1 .. $form->{rowcount}) { - $sth->execute($form->{"id_$i"}, $form->{warehouse_id}) || $form->dberror; - - ($qty) = $sth->fetchrow_array; - $sth->finish; - - $form->{"qty_$i"} = 0 if $qty == 0; - - if ($form->parse_amount($myconfig, $form->{"ship_$i"}) > $qty) { - $form->{"ship_$i"} = $form->format_amount($myconfig, $qty); - } + if (@project_ids) { + $query = "SELECT id, projectnumber FROM project WHERE id IN (" . + join(", ", map({ "?" } @project_ids)) . ")"; + $sth = $dbh->prepare($query); + $sth->execute(@project_ids) || + $form->dberror($query . " (" . join(", ", @project_ids) . ")"); + while (my $ref = $sth->fetchrow_hashref()) { + $projectnumbers{$ref->{id}} = $ref->{projectnumber}; } + $sth->finish(); } + $form->{"globalprojectnumber"} = + $projectnumbers{$form->{"globalproject_id"}}; + + my @arrays = + qw(runningnumber number description longdescription qty ship unit bin + partnotes serialnumber reqdate sellprice listprice netprice + discount p_discount discount_sub nodiscount_sub + linetotal nodiscount_linetotal tax_rate projectnumber); + my $sameitem = ""; foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) { $i = $item->[0]; @@ -846,18 +978,33 @@ sub order_details { push(@{ $form->{description} }, qq|$item->[1]|); $sameitem = $item->[1]; - map { push(@{ $form->{$_} }, "") } - qw(runningnumber number qty ship unit bin partnotes serialnumber reqdate sellprice listprice netprice discount linetotal); + map({ push(@{ $form->{$_} }, "") } grep({ $_ ne "description" } @arrays)); } $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"}); - if ($form->{"qty_$i"} != 0) { + if ($form->{"id_$i"} != 0) { # add number, description and qty to $form->{number}, .... + + if ($form->{"subtotal_$i"} && !$subtotal_header) { + $subtotal_header = $i; + $position = int($position); + $subposition = 0; + $position++; + } elsif ($subtotal_header) { + $subposition += 1; + $position = int($position); + $position = $position.".".$subposition; + } else { + $position = int($position); + $position++; + } + push(@{ $form->{runningnumber} }, $i); push(@{ $form->{number} }, qq|$form->{"partnumber_$i"}|); push(@{ $form->{description} }, qq|$form->{"description_$i"}|); + push(@{ $form->{longdescription} }, qq|$form->{"longdescription_$i"}|); push(@{ $form->{qty} }, $form->format_amount($myconfig, $form->{"qty_$i"})); push(@{ $form->{ship} }, @@ -877,15 +1024,20 @@ sub order_details { $dec = length $dec; my $decimalplaces = ($dec > 2) ? $dec : 2; - my $discount = + my $i_discount = $form->round_amount( $sellprice * $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100, $decimalplaces); - # keep a netprice as well, (sellprice - discount) - $form->{"netprice_$i"} = $sellprice - $discount; + my $discount = + $form->round_amount($form->{"qty_$i"} * $i_discount, $decimalplaces); + # keep a netprice as well, (sellprice - discount) + #$form->{"netprice_$i"} = $sellprice - $discount; + $form->{"netprice_$i"} = $sellprice - $i_discount; + my $nodiscount_linetotal = + $form->round_amount($form->{"qty_$i"} * $sellprice, 2); my $linetotal = $form->round_amount($form->{"qty_$i"} * $form->{"netprice_$i"}, 2); @@ -903,12 +1055,37 @@ sub order_details { : " "; $linetotal = ($linetotal != 0) ? $linetotal : " "; - push(@{ $form->{discount} }, $discount); + push(@{ $form->{discount} }, $discount); + push(@{ $form->{p_discount} }, $form->{"discount_$i"}); $form->{ordtotal} += $linetotal; + $discount_subtotal += $linetotal; + $form->{nodiscount_total} += $nodiscount_linetotal; + $nodiscount_subtotal += $nodiscount_linetotal; + $form->{discount_total} += $form->parse_amount($myconfig, $discount); + + if ($form->{"subtotal_$i"} && $subtotal_header && ($subtotal_header != $i)) { + $discount_subtotal = $form->format_amount($myconfig, $discount_subtotal, 2); + push(@{ $form->{discount_sub} }, $discount_subtotal); + $nodiscount_subtotal = $form->format_amount($myconfig, $nodiscount_subtotal, 2); + push(@{ $form->{nodiscount_sub} }, $nodiscount_subtotal); + $discount_subtotal = 0; + $nodiscount_subtotal = 0; + $subtotal_header = 0; + } else { + push(@{ $form->{discount_sub} }, ""); + push(@{ $form->{nodiscount_sub} }, ""); + } + if ($linetotal == $netto_linetotal) { + $nodiscount += $linetotal; + } push(@{ $form->{linetotal} }, $form->format_amount($myconfig, $linetotal, 2)); + push(@{ $form->{nodiscount_linetotal} }, + $form->format_amount($myconfig, $nodiscount_linetotal, 2)); + + push(@{ $form->{projectnumber} }, $projectnumbers{$form->{"project_id_$i"}}); my ($taxamount, $taxbase); my $taxrate = 0; @@ -934,7 +1111,7 @@ sub order_details { } } - $tax_rate = $taxrate*100; + $tax_rate = $taxrate * 100; push(@{ $form->{tax_rate} }, qq|$tax_rate|); if ($form->{"assembly_$i"}) { @@ -962,8 +1139,8 @@ sub order_details { while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) { - map { push(@{ $form->{$_} }, "") } - qw(runningnumber ship bin serialnumber number unit bin qty reqdate sellprice listprice netprice discount linetotal); + map({ push(@{ $form->{$_} }, "") } + grep({ $_ ne "description" } @arrays)); $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--"; push(@{ $form->{description} }, $sameitem); } @@ -973,9 +1150,8 @@ sub order_details { ) . qq|, $ref->{partnumber}, $ref->{description}|); - map { push(@{ $form->{$_} }, "") } - qw(number unit qty runningnumber ship bin serialnumber reqdate sellprice listprice netprice discount linetotal); - + map({ push(@{ $form->{$_} }, "") } + grep({ $_ ne "description" } @arrays)); } $sth->finish; } @@ -985,19 +1161,23 @@ sub order_details { my $tax = 0; foreach $item (sort keys %taxaccounts) { - if ($form->round_amount($taxaccounts{$item}, 2) != 0) { - push(@{ $form->{taxbase} }, - $form->format_amount($myconfig, $taxbase{$item}, 2)); + push(@{ $form->{taxbase} }, + $form->format_amount($myconfig, $taxbase{$item}, 2)); - $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2); + $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2); - push(@{ $form->{tax} }, $form->format_amount($myconfig, $taxamount, 2)); - push(@{ $form->{taxdescription} }, $form->{"${item}_description"}); - push(@{ $form->{taxrate} }, - $form->format_amount($myconfig, $form->{"${item}_rate"} * 100)); - push(@{ $form->{taxnumber} }, $form->{"${item}_taxnumber"}); - } + push(@{ $form->{tax} }, $form->format_amount($myconfig, $taxamount, 2)); + push(@{ $form->{taxdescription} }, $form->{"${item}_description"}); + push(@{ $form->{taxrate} }, + $form->format_amount($myconfig, $form->{"${item}_rate"} * 100)); + push(@{ $form->{taxnumber} }, $form->{"${item}_taxnumber"}); } + $form->{subtotal} = $form->format_amount($myconfig, $form->{total}, 2); + $yesdiscount = $form->{nodiscount_total} - $nodiscount; + $form->{nodiscount_subtotal} = $form->format_amount($myconfig, $form->{nodiscount_total}, 2); + $form->{discount_total} = $form->format_amount($myconfig, $form->{discount_total}, 2); + $form->{nodiscount} = $form->format_amount($myconfig, $nodiscount, 2); + $form->{yesdiscount} = $form->format_amount($myconfig, $yesdiscount, 2); $form->{subtotal} = $form->format_amount($myconfig, $form->{ordtotal}, 2); $form->{ordtotal} = @@ -1007,9 +1187,12 @@ sub order_details { $form->{quototal} = $form->{ordtotal} = $form->format_amount($myconfig, $form->{ordtotal}, 2); - # myconfig variables - map { $form->{$_} = $myconfig->{$_} } - (qw(company address tel fax signature businessnumber)); + if ($form->{type} =~ /_quotation/) { + $form->set_payment_options($myconfig, $form->{quodate}); + } else { + $form->set_payment_options($myconfig, $form->{orddate}); + } + $form->{username} = $myconfig->{name}; $dbh->disconnect; @@ -1037,138 +1220,15 @@ sub project_description { return $_; } -sub get_warehouses { - $main::lxdebug->enter_sub(); - - my ($self, $myconfig, $form) = @_; - - my $dbh = $form->dbconnect($myconfig); - - # setup warehouses - my $query = qq|SELECT id, description - FROM warehouse|; - - my $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); - - while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { - push @{ $form->{all_warehouses} }, $ref; - } - $sth->finish; - - $dbh->disconnect; - - $main::lxdebug->leave_sub(); -} - -sub save_inventory { - $main::lxdebug->enter_sub(); - - my ($self, $myconfig, $form) = @_; - - my ($null, $warehouse_id) = split /--/, $form->{warehouse}; - $warehouse_id *= 1; - - my $employee_id; - ($null, $employee_id) = split /--/, $form->{employee}; - - my $ml = ($form->{type} eq 'ship_order') ? -1 : 1; - - my $dbh = $form->dbconnect_noauto($myconfig); - my $sth; - my $wth; - my $serialnumber; - my $ship; - - $query = qq|SELECT o.serialnumber, o.ship - FROM orderitems o - WHERE o.trans_id = ? - AND o.id = ? - FOR UPDATE|; - $sth = $dbh->prepare($query) || $form->dberror($query); - - $query = qq|SELECT sum(i.qty) - FROM inventory i - WHERE i.parts_id = ? - AND i.warehouse_id = ?|; - $wth = $dbh->prepare($query) || $form->dberror($query); - - for my $i (1 .. $form->{rowcount} - 1) { - - $ship = - (abs($form->{"ship_$i"}) > abs($form->{"qty_$i"})) - ? $form->{"qty_$i"} - : $form->{"ship_$i"}; - - if ($warehouse_id && $form->{type} eq 'ship_order') { - - $wth->execute($form->{"id_$i"}, $warehouse_id) || $form->dberror; - - ($qty) = $wth->fetchrow_array; - $wth->finish; - - if ($ship > $qty) { - $ship = $qty; - } - } - - if ($ship != 0) { - - $ship *= $ml; - $query = qq|INSERT INTO inventory (parts_id, warehouse_id, - qty, oe_id, orderitems_id, shippingdate, employee_id) - VALUES ($form->{"id_$i"}, $warehouse_id, - $ship, $form->{"id"}, - $form->{"orderitems_id_$i"}, '$form->{shippingdate}', - $employee_id)|; - $dbh->do($query) || $form->dberror($query); - - # add serialnumber, ship to orderitems - $sth->execute($form->{id}, $form->{"orderitems_id_$i"}) - || $form->dberror; - ($serialnumber, $ship) = $sth->fetchrow_array; - $sth->finish; - - $serialnumber .= " " if $serialnumber; - $serialnumber .= qq|$form->{"serialnumber_$i"}|; - $ship += $form->{"ship_$i"}; - - $query = qq|UPDATE orderitems SET - serialnumber = '$serialnumber', - ship = $ship - WHERE trans_id = $form->{id} - AND id = $form->{"orderitems_id_$i"}|; - $dbh->do($query) || $form->dberror($query); - - # update order with ship via - $query = qq|UPDATE oe SET - shippingpoint = '$form->{shippingpoint}', - shipvia = '$form->{shipvia}' - WHERE id = $form->{id}|; - $dbh->do($query) || $form->dberror($query); - - # update onhand for parts - $form->update_balance($dbh, "parts", "onhand", - qq|id = $form->{"id_$i"}|, - $form->{"ship_$i"} * $ml); - - } - } - - my $rc = $dbh->commit; - $dbh->disconnect; - - $main::lxdebug->leave_sub(); - - return $rc; -} - sub adj_onhand { $main::lxdebug->enter_sub(); my ($dbh, $form, $ml) = @_; - my $query = qq|SELECT oi.parts_id, oi.ship, p.inventory_accno_id, p.assembly + my $service_units = $form->{service_units}; + my $part_units = $form->{part_units}; + + my $query = qq|SELECT oi.parts_id, oi.ship, oi.unit, p.inventory_accno_id, p.assembly FROM orderitems oi JOIN parts p ON (p.id = oi.parts_id) WHERE oi.trans_id = $form->{id}|; @@ -1184,6 +1244,7 @@ sub adj_onhand { my $ispa; while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { + #print(STDERR "Bin in Schleife $ref->{inventory_accno_id}\n"); if ($ref->{inventory_accno_id} || $ref->{assembly}) { @@ -1198,231 +1259,44 @@ sub adj_onhand { } - # adjust onhand in parts table - $form->update_balance($dbh, "parts", "onhand", - qq|id = $ref->{parts_id}|, - $ref->{ship} * $ml); - } - } - - $sth->finish; - - $main::lxdebug->leave_sub(); -} - -sub adj_inventory { - $main::lxdebug->enter_sub(); - - my ($dbh, $myconfig, $form) = @_; - - my %oid = ('Pg' => 'oid', - 'Oracle' => 'rowid'); - - # increase/reduce qty in inventory table - my $query = qq|SELECT oi.id, oi.parts_id, oi.ship - FROM orderitems oi - WHERE oi.trans_id = $form->{id}|; - my $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); - - $query = qq|SELECT $oid{$myconfig->{dbdriver}} AS oid, qty, - (SELECT SUM(qty) FROM inventory - WHERE oe_id = $form->{id} - AND orderitems_id = ?) AS total - FROM inventory - WHERE oe_id = $form->{id} - AND orderitems_id = ?|; - my $ith = $dbh->prepare($query) || $form->dberror($query); - - my $qty; - my $ml = ($form->{type} =~ /(ship|sales)_order/) ? -1 : 1; - - while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { - - $ith->execute($ref->{id}, $ref->{id}) || $form->dberror($query); + # get item baseunit + $query = qq|SELECT p.unit + FROM parts p + WHERE p.id = $ref->{parts_id}|; + my $stw = $dbh->prepare($query); + $stw->execute || $form->dberror($query); - while (my $inv = $ith->fetchrow_hashref(NAME_lc)) { + my ($item_unit) = $stw->fetchrow_array(); + $stw->finish; - if (($qty = (($inv->{total} * $ml) - $ref->{ship})) >= 0) { - $qty = $inv->{qty} if ($qty > ($inv->{qty} * $ml)); + if ($ref->{inventory_accno_id}) { + if (defined($part_units->{$item_unit}->{factor}) && $part_units->{$item_unit}->{factor} ne '' && $part_units->{$item_unit}->{factor} ne '0') { + $basefactor = $part_units->{$ref->{unit}}->{factor} / $part_units->{$item_unit}->{factor}; + } else { + $basefactor = 1; + } + $baseqty = $ref->{ship} * $basefactor; + } else { + if (defined($service_units->{$item_unit}->{factor}) && $service_units->{$item_unit}->{factor} ne '' && $service_units->{$item_unit}->{factor} ne '0') { + $basefactor = $service_units->{$ref->{unit}}->{factor} / $part_units->{$item_unit}->{factor}; + } else { + $basefactor = 1; + } + $baseqty = $ref->{ship} * $basefactor; + } + #print(STDERR "$baseqty Basismenge\n"); - $form->update_balance($dbh, "inventory", "qty", - qq|$oid{$myconfig->{dbdriver}} = $inv->{oid}|, - $qty * -1 * $ml); - } + # adjust onhand in parts table + $form->update_balance($dbh, "parts", "onhand", + qq|id = $ref->{parts_id}|, + $baseqty * $ml); } - $ith->finish; - - } - $sth->finish; - - # delete inventory entries if qty = 0 - $query = qq|DELETE FROM inventory - WHERE oe_id = $form->{id} - AND qty = 0|; - $dbh->do($query) || $form->dberror($query); - - $main::lxdebug->leave_sub(); -} - -sub get_inventory { - $main::lxdebug->enter_sub(); - - my ($self, $myconfig, $form) = @_; - - my ($null, $warehouse_id) = split /--/, $form->{warehouse}; - $warehouse_id *= 1; - - my $dbh = $form->dbconnect($myconfig); - - my $query = qq|SELECT p.id, p.partnumber, p.description, p.onhand, - pg.partsgroup - FROM parts p - LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) - WHERE p.onhand > 0|; - - if ($form->{partnumber}) { - $var = $form->like(lc $form->{partnumber}); - $query .= " - AND lower(p.partnumber) LIKE '$var'"; - } - if ($form->{description}) { - $var = $form->like(lc $form->{description}); - $query .= " - AND lower(p.description) LIKE '$var'"; - } - if ($form->{partsgroup}) { - $var = $form->like(lc $form->{partsgroup}); - $query .= " - AND lower(pg.partsgroup) LIKE '$var'"; } - $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); - - $query = qq|SELECT sum(i.qty), w.description, w.id - FROM inventory i - LEFT JOIN warehouse w ON (w.id = i.warehouse_id) - WHERE i.parts_id = ? - AND NOT i.warehouse_id = $warehouse_id - GROUP BY w.description, w.id|; - $wth = $dbh->prepare($query) || $form->dberror($query); - - while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - - $wth->execute($ref->{id}) || $form->dberror; - - while (($qty, $warehouse, $warehouse_id) = $wth->fetchrow_array) { - push @{ $form->{all_inventory} }, - { 'id' => $ref->{id}, - 'partnumber' => $ref->{partnumber}, - 'description' => $ref->{description}, - 'partsgroup' => $ref->{partsgroup}, - 'qty' => $qty, - 'warehouse_id' => $warehouse_id, - 'warehouse' => $warehouse } - if $qty > 0; - } - $wth->finish; - } $sth->finish; - $dbh->disconnect; - - # sort inventory - @{ $form->{all_inventory} } = - sort { $a->{ $form->{sort} } cmp $b->{ $form->{sort} } } - @{ $form->{all_inventory} }; - $main::lxdebug->leave_sub(); - - return @{ $form->{all_inventory} }; } -sub transfer { - $main::lxdebug->enter_sub(); - - my ($self, $myconfig, $form) = @_; - - my $dbh = $form->dbconnect_noauto($myconfig); - - my $query = qq|INSERT INTO inventory - (warehouse_id, parts_id, qty, shippingdate, employee_id) - VALUES (?, ?, ?, ?, ?)|; - $sth = $dbh->prepare($query) || $form->dberror($query); - - $form->get_employee($dbh); - - my @a = localtime; - $a[5] += 1900; - $a[4]++; - $shippingdate = "$a[5]-$a[4]-$a[3]"; - - for my $i (1 .. $form->{rowcount}) { - $qty = $form->parse_amount($myconfig, $form->{"transfer_$i"}); - - $qty = $form->{"qty_$i"} if ($qty > $form->{"qty_$i"}); - - if ($qty) { - - # to warehouse - $sth->execute($form->{warehouse_id}, $form->{"id_$i"}, $qty, - $shippingdate, $form->{employee_id}) - || $form->dberror; - - $sth->finish; - - # from warehouse - $sth->execute($form->{"warehouse_id_$i"}, - $form->{"id_$i"}, $qty * -1, $shippingdate, - $form->{employee_id}) - || $form->dberror; - - $sth->finish; - } - } - - my $rc = $dbh->commit; - $dbh->disconnect; - - $main::lxdebug->leave_sub(); - - return $rc; -} - -sub webdav_folder { - $main::lxdebug->enter_sub(); - - my ($myconfig, $form) = @_; - -SWITCH: { - $path = "webdav/angebote/" . $form->{quonumber}, last SWITCH - if ($form->{type} eq "sales_quotation"); - $path = "webdav/bestellungen/" . $form->{ordnumber}, last SWITCH - if ($form->{type} eq "sales_order"); - $path = "webdav/anfragen/" . $form->{quonumber}, last SWITCH - if ($form->{type} eq "request_quotation"); - $path = "webdav/lieferantenbestellungen/" . $form->{ordnumber}, last SWITCH - if ($form->{type} eq "purchase_order"); - } - - if (!-d $path) { - mkdir($path, 0770) or die "can't make directory $!\n"; - } else { - if ($form->{id}) { - @files = <$path/*>; - foreach $file (@files) { - $file =~ /\/([^\/]*)$/; - $fname = $1; - $ENV{'SCRIPT_NAME'} =~ /\/([^\/]*)\//; - $lxerp = $1; - $link = "http://" . $ENV{'SERVER_NAME'} . "/" . $lxerp . "/" . $file; - $form->{WEBDAV}{$fname} = $link; - } - } - } - - $main::lxdebug->leave_sub(); -} 1;