X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/245d5036b6fbc2c9e4692244aff22d5188771e09..82c4717d48bbdb8d30c9671e71ecb0d6d8eac963:/SL/DO.pm diff --git a/SL/DO.pm b/SL/DO.pm index 15e16cc16..a598f025d 100644 --- a/SL/DO.pm +++ b/SL/DO.pm @@ -61,7 +61,8 @@ sub transactions { my $vc = $form->{vc} eq "customer" ? "customer" : "vendor"; my $query = - qq|SELECT dord.id, dord.donumber, dord.ordnumber, dord.transdate, + qq|SELECT dord.id, dord.donumber, dord.ordnumber, + dord.transdate, dord.reqdate, ct.${vc}number, ct.name, dord.${vc}_id, dord.globalproject_id, dord.closed, dord.delivered, dord.shippingpoint, dord.shipvia, dord.transaction_description, @@ -143,6 +144,7 @@ sub transactions { my %allowed_sort_columns = ( "transdate" => "dord.transdate", + "reqdate" => "dord.reqdate", "id" => "dord.id", "donumber" => "dord.donumber", "ordnumber" => "dord.ordnumber", @@ -682,7 +684,7 @@ sub retrieve { $query = qq|SELECT doi.id AS delivery_order_items_id, p.partnumber, p.assembly, p.listprice, doi.description, doi.qty, - doi.sellprice, doi.parts_id AS id, doi.unit, doi.discount, p.bin, p.notes AS partnotes, + doi.sellprice, doi.parts_id AS id, doi.unit, doi.discount, p.notes AS partnotes, doi.reqdate, doi.project_id, doi.serialnumber, doi.lastcost, doi.ordnumber, doi.transdate, doi.cusordnumber, doi.longdescription, doi.price_factor_id, doi.price_factor, doi.marge_price_factor, doi.pricegroup_id,