details: /erp/devel/pi/rev/99818017822d
changeset: 7882:99818017822d
user: Harikrishnan Raja <harikrishnan.raja <at> openbravo.com>
date: Wed Jul 14 16:26:00 2010 +0530
summary: Fixes Issue 13926: Quantity ordered duplicated
diffstat:
src-db/database/model/functions/C_ORDER_POST1.xml | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diffs (26 lines):
diff -r 3c36c582b319 -r 99818017822d
src-db/database/model/functions/C_ORDER_POST1.xml
--- a/src-db/database/model/functions/C_ORDER_POST1.xml Wed Jul 14 12:46:20
2010 +0200
+++ b/src-db/database/model/functions/C_ORDER_POST1.xml Wed Jul 14 16:26:00
2010 +0530
@@ -352,7 +352,9 @@
v_QtyPO:=0;
v_QtyOrderPO:=NULL;
END IF;
- M_UPDATE_STORAGE_PENDING(v_Client_ID, v_Org_ID, v_UpdatedBy,
Cur_ResLine.M_Product_ID, Cur_ResLine.M_Warehouse_ID,
Cur_ResLine.M_AttributeSetInstance_ID, Cur_ResLine.C_UOM_ID,
Cur_ResLine.M_PRODUCT_UOM_ID, v_QtySO, v_QtyOrderSO, v_QtyPO, v_QtyOrderPO) ;
+ IF(v_DocStatus<>'IP' OR v_DocAction<>'CO') THEN
+ M_UPDATE_STORAGE_PENDING(v_Client_ID, v_Org_ID, v_UpdatedBy,
Cur_ResLine.M_Product_ID, Cur_ResLine.M_Warehouse_ID,
Cur_ResLine.M_AttributeSetInstance_ID, Cur_ResLine.C_UOM_ID,
Cur_ResLine.M_PRODUCT_UOM_ID, v_QtySO, v_QtyOrderSO, v_QtyPO, v_QtyOrderPO) ;
+ END IF;
END LOOP;
-- Set reserved quantity to 0
UPDATE C_ORDERLINE
@@ -984,8 +986,10 @@
v_QtyOrderPO := C_Uom_Convert(v_QtyPO, Cur_ResLine.C_UOM_ID,
Cur_ResLine.M_Product_UOM_ID, 'Y');
END IF;
END IF;
- M_UPDATE_STORAGE_PENDING(v_Client_ID, v_Org_ID, v_UpdatedBy,
Cur_ResLine.M_Product_ID, Cur_ResLine.M_Warehouse_ID,
Cur_ResLine.M_AttributeSetInstance_ID,
+ IF(v_DocStatus<>'IP' OR v_DocAction<>'CO') THEN
+ M_UPDATE_STORAGE_PENDING(v_Client_ID, v_Org_ID, v_UpdatedBy,
Cur_ResLine.M_Product_ID, Cur_ResLine.M_Warehouse_ID,
Cur_ResLine.M_AttributeSetInstance_ID,
Cur_ResLine.C_UOM_ID, Cur_ResLine.M_PRODUCT_UOM_ID, v_QtySO,
v_QtyOrderSO, v_QtyPO, v_QtyOrderPO);
+ END IF;
DBMS_OUTPUT.PUT_LINE('Reserved Warehouse=' || Cur_ResLine.M_Warehouse_ID ||
', Product=' || Cur_ResLine.M_Product_ID || ', Attrib=' ||
Cur_ResLine.M_AttributeSetInstance_ID || ', Qty=' || v_QtySO || '/' || v_QtyPO);
-- Update Order Line
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
Openbravo-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/openbravo-commits
