diff --git a/db/oracle/functions/BOM_PriceLimit.sql b/db/oracle/functions/BOM_PriceLimit.sql
index dfd95c69af..f946df8932 100644
--- a/db/oracle/functions/BOM_PriceLimit.sql
+++ b/db/oracle/functions/BOM_PriceLimit.sql
@@ -24,10 +24,10 @@ AS
 	CURSOR CUR_BOM IS
 		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=Product_ID
 		  AND b.M_ProductBOM_ID != Product_ID
-		  AND p.IsVerified='Y'
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
 		  AND b.IsActive='Y';
 	--
 BEGIN
diff --git a/db/oracle/functions/BOM_PriceList.sql b/db/oracle/functions/BOM_PriceList.sql
index 7f8c1109e1..20a634f5d8 100644
--- a/db/oracle/functions/BOM_PriceList.sql
+++ b/db/oracle/functions/BOM_PriceList.sql
@@ -24,10 +24,10 @@ AS
 	CURSOR CUR_BOM IS
 		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=Product_ID
 		  AND b.M_ProductBOM_ID != Product_ID
-		  AND p.IsVerified='Y'
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
 		  AND b.IsActive='Y';
 	--
 BEGIN
diff --git a/db/oracle/functions/BOM_PriceStd.sql b/db/oracle/functions/BOM_PriceStd.sql
index 45331e1e6d..528ee669b3 100644
--- a/db/oracle/functions/BOM_PriceStd.sql
+++ b/db/oracle/functions/BOM_PriceStd.sql
@@ -24,10 +24,10 @@ AS
 	CURSOR CUR_BOM IS
 		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=Product_ID
 		  AND b.M_ProductBOM_ID != Product_ID
-		  AND p.IsVerified='Y'
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
 		  AND b.IsActive='Y';
 	--
 BEGIN
diff --git a/db/oracle/functions/BOM_Qty_OnHand.sql b/db/oracle/functions/BOM_Qty_OnHand.sql
index 3a926d9e95..e199e43bc4 100644
--- a/db/oracle/functions/BOM_Qty_OnHand.sql
+++ b/db/oracle/functions/BOM_Qty_OnHand.sql
@@ -23,13 +23,11 @@ AS
 	StdPrecision	NUMBER;
 	--	Get BOM Product info
 	CURSOR CUR_BOM IS
-		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=Product_ID
 		  AND b.M_ProductBOM_ID != Product_ID
-		  AND p.IsBOM='Y'
-		  AND p.IsVerified='Y'
 		  AND b.IsActive='Y';
 	--
 BEGIN
@@ -87,19 +85,14 @@ BEGIN
 			FROM 	M_Storageonhand s
 			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
 			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID;
-			--	Get Rounding Precision
-			SELECT 	NVL(MAX(u.StdPrecision), 0)
-			  INTO	StdPrecision
-			FROM 	C_UOM u, M_PRODUCT p
-			WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
 			--	How much can we make with this product
-			ProductQty := ROUND (ProductQty/bom.BOMQty, StdPrecision);
+			ProductQty := ProductQty/bom.BOMQty;
 			--	How much can we make overall
 			IF (ProductQty < Quantity) THEN
 				Quantity := ProductQty;
 			END IF;
 		--	Another BOM
-		ELSIF (bom.IsBOM = 'Y') THEN
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
 			ProductQty := Bomqtyonhand (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
 			--	How much can we make overall
 			IF (ProductQty < Quantity) THEN
@@ -115,7 +108,7 @@ BEGIN
 		FROM 	C_UOM u, M_PRODUCT p
 		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
 		--
-		RETURN ROUND (Quantity, StdPrecision);
+		RETURN TRUNC(Quantity, StdPrecision); -- RoundDown
 	END IF;
 	RETURN 0;
 END Bomqtyonhand;
diff --git a/db/oracle/functions/BOM_Qty_OnHandForReservation.sql b/db/oracle/functions/BOM_Qty_OnHandForReservation.sql
index c379ec1a43..e7160d8658 100644
--- a/db/oracle/functions/BOM_Qty_OnHandForReservation.sql
+++ b/db/oracle/functions/BOM_Qty_OnHandForReservation.sql
@@ -23,13 +23,11 @@ AS
 	StdPrecision	NUMBER;
 	--	Get BOM Product info
 	CURSOR CUR_BOM IS
-		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=Product_ID
 		  AND b.M_ProductBOM_ID != Product_ID
-		  AND p.IsBOM='Y'
-		  AND p.IsVerified='Y'
 		  AND b.IsActive='Y';
 	--
 BEGIN
@@ -90,20 +88,15 @@ BEGIN
 			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
 			  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
 			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID
-			  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
-			--	Get Rounding Precision
-			SELECT 	NVL(MAX(u.StdPrecision), 0)
-			  INTO	StdPrecision
-			FROM 	C_UOM u, M_PRODUCT p
-			WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
+                          AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
 			--	How much can we make with this product
-			ProductQty := ROUND (ProductQty/bom.BOMQty, StdPrecision);
+			ProductQty := ProductQty/bom.BOMQty;
 			--	How much can we make overall
 			IF (ProductQty < Quantity) THEN
 				Quantity := ProductQty;
 			END IF;
 		--	Another BOM
-		ELSIF (bom.IsBOM = 'Y') THEN
+		ELSIF (bom.IsBOM = 'Y' AND bom.IsVerified = 'Y') THEN
 			ProductQty := BomqtyonhandForReservation (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
 			--	How much can we make overall
 			IF (ProductQty < Quantity) THEN
@@ -119,7 +112,7 @@ BEGIN
 		FROM 	C_UOM u, M_PRODUCT p
 		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
 		--
-		RETURN ROUND (Quantity, StdPrecision);
+		RETURN TRUNC(Quantity, StdPrecision); -- RoundDown
 	END IF;
 	RETURN 0;
 END BOMQTYONHANDFORRESERVATION;
diff --git a/db/oracle/functions/BOM_Qty_Ordered.sql b/db/oracle/functions/BOM_Qty_Ordered.sql
index fa12c4e436..a7d89aee11 100644
--- a/db/oracle/functions/BOM_Qty_Ordered.sql
+++ b/db/oracle/functions/BOM_Qty_Ordered.sql
@@ -23,13 +23,11 @@ AS
 	v_StdPrecision		NUMBER;
 	--	Get BOM Product info
 	CURSOR CUR_BOM IS
-		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=p_Product_ID
 		  AND b.M_ProductBOM_ID != p_Product_ID
-		  AND p.IsBOM='Y'
-		  AND p.IsVerified='Y'
 		  AND b.IsActive='Y';
 	--
 BEGIN
@@ -91,19 +89,14 @@ BEGIN
 			  AND M_Warehouse_ID=v_Warehouse_ID
 			  AND IsSOTrx='N'
 			  AND IsActive='Y';
-			--	Get Rounding Precision
-			SELECT 	NVL(MAX(u.StdPrecision), 0)
-			  INTO	v_StdPrecision
-			FROM 	C_UOM u, M_PRODUCT p
-			WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
 			--	How much can we make with this product
-			v_ProductQty := ROUND (v_ProductQty/bom.BOMQty, v_StdPrecision);
+			v_ProductQty := v_ProductQty/bom.BOMQty;
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
 				v_Quantity := v_ProductQty;
 			END IF;
 		--	Another BOM
-		ELSIF (bom.IsBOM = 'Y') THEN
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
 			v_ProductQty := Bomqtyordered (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
@@ -124,7 +117,7 @@ BEGIN
 		FROM 	C_UOM u, M_PRODUCT p
 		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
 		--
-		RETURN ROUND (v_Quantity, v_StdPrecision);
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
 	END IF;
 	--
 	RETURN 0;
diff --git a/db/oracle/functions/BOM_Qty_Reserved.sql b/db/oracle/functions/BOM_Qty_Reserved.sql
index 06504f8d87..812f5fd3b3 100644
--- a/db/oracle/functions/BOM_Qty_Reserved.sql
+++ b/db/oracle/functions/BOM_Qty_Reserved.sql
@@ -23,13 +23,11 @@ AS
 	v_StdPrecision		NUMBER;
 	--	Get BOM Product info
 	CURSOR CUR_BOM IS
-		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=p_Product_ID
 		  AND b.M_ProductBOM_ID != p_Product_ID
-		  AND p.IsBOM='Y'
-		  AND p.IsVerified='Y'
 		  AND b.IsActive='Y';
 	--
 BEGIN
@@ -91,19 +89,14 @@ BEGIN
 			  AND M_Warehouse_ID=v_Warehouse_ID
 			  AND IsSOTrx='Y'
 			  AND IsActive='Y';
-			--	Get Rounding Precision
-			SELECT 	NVL(MAX(u.StdPrecision), 0)
-			  INTO	v_StdPrecision
-			FROM 	C_UOM u, M_PRODUCT p
-			WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
 			--	How much can we make with this product
-			v_ProductQty := ROUND (v_ProductQty/bom.BOMQty, v_StdPrecision);
+			v_ProductQty := v_ProductQty/bom.BOMQty;
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
 				v_Quantity := v_ProductQty;
 			END IF;
 		--	Another BOM
-		ELSIF (bom.IsBOM = 'Y') THEN
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
 			v_ProductQty := Bomqtyreserved (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
@@ -124,7 +117,7 @@ BEGIN
 		FROM 	C_UOM u, M_PRODUCT p
 		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
 		--
-		RETURN ROUND (v_Quantity, v_StdPrecision);
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
 	END IF;
 	RETURN 0;
 END Bomqtyreserved;
diff --git a/db/postgresql/functions/BOM_PriceLimit.sql b/db/postgresql/functions/BOM_PriceLimit.sql
index 5e87bc7ff4..fb22fcf3a6 100644
--- a/db/postgresql/functions/BOM_PriceLimit.sql
+++ b/db/postgresql/functions/BOM_PriceLimit.sql
@@ -17,10 +17,10 @@ BEGIN
 		FOR bom IN  
 			SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
 			FROM M_Product_BOM b, M_Product p
-			WHERE b.M_Product_ID=p.M_Product_ID
+			WHERE b.M_ProductBOM_ID=p.M_Product_ID
 			AND b.M_Product_ID=Product_ID
 			AND b.M_ProductBOM_ID != Product_ID
-			AND p.IsVerified='Y'
+			AND (p.IsBOM='N' OR p.IsVerified='Y')
 			AND b.IsActive='Y'
 		LOOP
 			v_ProductPrice := bomPriceLimit (bom.M_ProductBOM_ID, PriceList_Version_ID);
diff --git a/db/postgresql/functions/BOM_PriceList.sql b/db/postgresql/functions/BOM_PriceList.sql
index 8471f85683..d0f007fafa 100644
--- a/db/postgresql/functions/BOM_PriceList.sql
+++ b/db/postgresql/functions/BOM_PriceList.sql
@@ -17,10 +17,10 @@ BEGIN
 		FOR bom IN  
 			SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
 			FROM M_Product_BOM b, M_Product p
-			WHERE b.M_Product_ID=p.M_Product_ID
+			WHERE b.M_ProductBOM_ID=p.M_Product_ID
 			AND b.M_Product_ID=Product_ID
 			AND b.M_ProductBOM_ID != Product_ID
-			AND p.IsVerified='Y'
+			AND (p.IsBOM='N' OR p.IsVerified='Y')
 			AND b.IsActive='Y'
 		LOOP
 			v_ProductPrice := bomPriceList (bom.M_ProductBOM_ID, PriceList_Version_ID);
diff --git a/db/postgresql/functions/BOM_PriceStd.sql b/db/postgresql/functions/BOM_PriceStd.sql
index 3b2477c637..bf3a3f0711 100644
--- a/db/postgresql/functions/BOM_PriceStd.sql
+++ b/db/postgresql/functions/BOM_PriceStd.sql
@@ -17,10 +17,10 @@ BEGIN
 		FOR bom IN  
 			SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
 			FROM M_Product_BOM b, M_Product p
-			WHERE b.M_Product_ID=p.M_Product_ID
+			WHERE b.M_ProductBOM_ID=p.M_Product_ID
 			AND b.M_Product_ID=Product_ID
 			AND b.M_ProductBOM_ID != Product_ID
-			AND p.IsVerified='Y'
+			AND (p.IsBOM='N' OR p.IsVerified='Y')
 			AND b.IsActive='Y'
 		LOOP
 			v_ProductPrice := bomPriceStd (bom.M_ProductBOM_ID, PriceList_Version_ID);
diff --git a/db/postgresql/functions/BOM_Qty_OnHand.sql b/db/postgresql/functions/BOM_Qty_OnHand.sql
index 90cf75d595..b6060f6a40 100644
--- a/db/postgresql/functions/BOM_Qty_OnHand.sql
+++ b/db/postgresql/functions/BOM_Qty_OnHand.sql
@@ -54,13 +54,11 @@ BEGIN
 
 	--	Go through BOM
 	FOR bom IN 	--	Get BOM Product info
-		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=product_ID
 		  AND b.M_ProductBOM_ID != Product_ID
-		  AND p.IsBOM='Y'
-		  AND p.IsVerified='Y'
 		  AND b.IsActive='Y'
 	LOOP
 		--	Stocked Items "leaf node"
@@ -71,19 +69,14 @@ BEGIN
 			FROM 	M_Storageonhand s
 			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
 			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID;
-			--	Get Rounding Precision
-			SELECT 	COALESCE(MAX(u.StdPrecision), 0)
-			  INTO	v_StdPrecision
-			FROM 	C_UOM u, M_PRODUCT p
-			WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
 			--	How much can we make with this product
-			v_ProductQty := ROUND (v_ProductQty/bom.BOMQty, v_StdPrecision);
+			v_ProductQty := v_ProductQty/bom.BOMQty;
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
 				v_Quantity := v_ProductQty;
 			END IF;
 		--	Another BOM
-		ELSIF (bom.IsBOM = 'Y') THEN
+        ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
 			v_ProductQty := Bomqtyonhand (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
@@ -99,7 +92,7 @@ BEGIN
 		FROM 	C_UOM u, M_PRODUCT p
 		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
 		--
-		RETURN ROUND (v_Quantity, v_StdPrecision);
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
 	END IF;
 	RETURN 0;
 END;
diff --git a/db/postgresql/functions/BOM_Qty_OnHandForReservation.sql b/db/postgresql/functions/BOM_Qty_OnHandForReservation.sql
index 3d5532d5b8..a3b8cf7555 100644
--- a/db/postgresql/functions/BOM_Qty_OnHandForReservation.sql
+++ b/db/postgresql/functions/BOM_Qty_OnHandForReservation.sql
@@ -56,13 +56,11 @@ BEGIN
 
 	--	Go through BOM
 	FOR bom IN 	--	Get BOM Product info
-		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=product_ID
 		  AND b.M_ProductBOM_ID != Product_ID
-		  AND p.IsBOM='Y'
-		  AND p.IsVerified='Y'
 		  AND b.IsActive='Y'
 	LOOP
 		--	Stocked Items "leaf node"
@@ -75,19 +73,14 @@ BEGIN
 		  	  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
 			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID
 		  	  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
-			--	Get Rounding Precision
-			SELECT 	COALESCE(MAX(u.StdPrecision), 0)
-			  INTO	v_StdPrecision
-			FROM 	C_UOM u, M_PRODUCT p
-			WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
 			--	How much can we make with this product
-			v_ProductQty := ROUND (v_ProductQty/bom.BOMQty, v_StdPrecision);
+			v_ProductQty := v_ProductQty/bom.BOMQty;
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
 				v_Quantity := v_ProductQty;
 			END IF;
 		--	Another BOM
-		ELSIF (bom.IsBOM = 'Y') THEN
+		ELSIF (bom.IsBOM = 'Y' AND bom.IsVerified = 'Y') THEN
 			v_ProductQty := BOMQtyOnHandForReservation (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
@@ -103,7 +96,7 @@ BEGIN
 		FROM 	C_UOM u, M_PRODUCT p
 		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
 		--
-		RETURN ROUND (v_Quantity, v_StdPrecision);
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
 	END IF;
 	RETURN 0;
 END;
diff --git a/db/postgresql/functions/BOM_Qty_Ordered.sql b/db/postgresql/functions/BOM_Qty_Ordered.sql
index 52d0e80420..d2bc166dbd 100644
--- a/db/postgresql/functions/BOM_Qty_Ordered.sql
+++ b/db/postgresql/functions/BOM_Qty_Ordered.sql
@@ -57,13 +57,11 @@ BEGIN
 	--	Go though BOM
 	FOR bom IN  		
 	--	Get BOM Product info
-		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=p_Product_ID
 		  AND b.M_ProductBOM_ID != p_Product_ID
-		  AND p.IsBOM='Y'
-		  AND p.IsVerified='Y'
 		  AND b.IsActive='Y'
 	LOOP
 		--	Stocked Items "leaf node"
@@ -76,20 +74,15 @@ BEGIN
 			  AND M_Warehouse_ID=v_Warehouse_ID
 			  AND IsSOTrx='N'
 			  AND IsActive='Y';
-			--	Get Rounding Precision
-			SELECT 	COALESCE(MAX(u.StdPrecision), 0)
-			  INTO	v_StdPrecision
-			FROM 	C_UOM u, M_PRODUCT p
-			WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
 			--	How much can we make with this product
-			v_ProductQty := ROUND (v_ProductQty/bom.BOMQty, v_StdPrecision );
+			v_ProductQty := v_ProductQty/bom.BOMQty;
 
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
 				v_Quantity := v_ProductQty;
 			END IF;
 		--	Another BOM
-		ELSIF (bom.IsBOM = 'Y') THEN
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
 			v_ProductQty := Bomqtyordered (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
@@ -110,7 +103,7 @@ BEGIN
 		FROM 	C_UOM u, M_PRODUCT p
 		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
 		--
-		RETURN ROUND (v_Quantity, v_StdPrecision );
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
 	END IF;
 	--
 	RETURN 0;
diff --git a/db/postgresql/functions/BOM_Qty_Reserved.sql b/db/postgresql/functions/BOM_Qty_Reserved.sql
index 4d8f697b12..e93f19044d 100644
--- a/db/postgresql/functions/BOM_Qty_Reserved.sql
+++ b/db/postgresql/functions/BOM_Qty_Reserved.sql
@@ -57,13 +57,11 @@ BEGIN
 	--	Go though BOM
 	FOR bom IN 
 	--	Get BOM Product info
-		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
 		FROM M_PRODUCT_BOM b, M_PRODUCT p
-		WHERE b.M_Product_ID=p.M_Product_ID
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
 		  AND b.M_Product_ID=p_Product_ID
 		  AND b.M_ProductBOM_ID != p_Product_ID
-		  AND p.IsBOM='Y'
-		  AND p.IsVerified='Y'
 		  AND b.IsActive='Y'
 	LOOP
 		--	Stocked Items "leaf node"
@@ -76,19 +74,14 @@ BEGIN
 			  AND   M_Warehouse_ID =v_Warehouse_ID
 			  AND	IsSOTrx='Y'
 			  AND	IsActive='Y';
-			--	Get Rounding Precision
-			SELECT 	COALESCE(MAX(u.StdPrecision), 0)
-			  INTO	v_StdPrecision
-			FROM 	C_UOM u, M_PRODUCT p
-			WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
 			--	How much can we make with this product
-			v_ProductQty := ROUND (v_ProductQty/bom.BOMQty, v_StdPrecision);
+			v_ProductQty := v_ProductQty/bom.BOMQty;
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
 				v_Quantity := v_ProductQty;
 			END IF;
 		--	Another BOM
-		ELSIF (bom.IsBOM = 'Y') THEN
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
 			v_ProductQty := Bomqtyreserved (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
 			--	How much can we make overall
 			IF (v_ProductQty < v_Quantity) THEN
@@ -109,7 +102,7 @@ BEGIN
 		FROM 	C_UOM u, M_PRODUCT p
 		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
 		--
-		RETURN ROUND (v_Quantity, v_StdPrecision);
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
 	END IF;
 	RETURN 0;
 END;
diff --git a/migration/iD11/oracle/202412091327_IDEMPIERE-6329.sql b/migration/iD11/oracle/202412091327_IDEMPIERE-6329.sql
new file mode 100644
index 0000000000..574576593d
--- /dev/null
+++ b/migration/iD11/oracle/202412091327_IDEMPIERE-6329.sql
@@ -0,0 +1,3245 @@
+-- IDEMPIERE-6329 Bug in BOM* SQL functions not getting the correct BOM children
+SELECT register_migration_script('202412091327_IDEMPIERE-6329.sql') FROM dual;
+
+CREATE OR REPLACE FUNCTION BOMPRICELIMIT
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceLimit.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Limit Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price		NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from PriceList directly
+	SELECT	COALESCE (SUM(PriceLimit), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE	IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelimit (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		END LOOP;
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelimit;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIST
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceList.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return List Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE (SUM(PriceList), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelist (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Qry=' || bom.BOMQty || ' @ ' || v_ProductPrice || ', Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelist;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICESTD
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceStd.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Standard Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE(SUM(PriceStd), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricestd (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricestd;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHANDFORRESERVATION
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID
+		  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID
+			  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+			--	Get Rounding Precision
+			SELECT 	NVL(MAX(u.StdPrecision), 0)
+			  INTO	StdPrecision
+			FROM 	C_UOM u, M_PRODUCT p
+			WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
+			--	How much can we make with this product
+			ProductQty := ROUND (ProductQty/bom.BOMQty, StdPrecision);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND bom.IsVerified = 'Y') THEN
+			ProductQty := BomqtyonhandForReservation (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN ROUND (Quantity, StdPrecision);
+	END IF;
+	RETURN 0;
+END BOMQTYONHANDFORRESERVATION;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHAND
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+			--	Get Rounding Precision
+			SELECT 	NVL(MAX(u.StdPrecision), 0)
+			  INTO	StdPrecision
+			FROM 	C_UOM u, M_PRODUCT p
+			WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
+			--	How much can we make with this product
+			ProductQty := ROUND (ProductQty/bom.BOMQty, StdPrecision);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			ProductQty := Bomqtyonhand (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN ROUND (Quantity, StdPrecision);
+	END IF;
+	RETURN 0;
+END Bomqtyonhand;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYORDERED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity ordered for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM 	M_PRODUCT
+		WHERE 	M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='N'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=p_Product_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='N'
+			  AND IsActive='Y';
+			--	Get Rounding Precision
+			SELECT 	NVL(MAX(u.StdPrecision), 0)
+			  INTO	v_StdPrecision
+			FROM 	C_UOM u, M_PRODUCT p
+			WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
+			--	How much can we make with this product
+			v_ProductQty := ROUND (v_ProductQty/bom.BOMQty, v_StdPrecision);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyordered (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN ROUND (v_Quantity, v_StdPrecision);
+	END IF;
+	--
+	RETURN 0;
+END Bomqtyordered;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYRESERVED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity reserved for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='Y'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=bom.M_ProductBOM_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='Y'
+			  AND IsActive='Y';
+			--	Get Rounding Precision
+			SELECT 	NVL(MAX(u.StdPrecision), 0)
+			  INTO	v_StdPrecision
+			FROM 	C_UOM u, M_PRODUCT p
+			WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=bom.M_ProductBOM_ID;
+			--	How much can we make with this product
+			v_ProductQty := ROUND (v_ProductQty/bom.BOMQty, v_StdPrecision);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyreserved (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN ROUND (v_Quantity, v_StdPrecision);
+	END IF;
+	RETURN 0;
+END Bomqtyreserved;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIMIT
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceLimit.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Limit Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price		NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from PriceList directly
+	SELECT	COALESCE (SUM(PriceLimit), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE	IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelimit (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		END LOOP;
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelimit;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIST
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceList.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return List Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE (SUM(PriceList), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelist (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Qry=' || bom.BOMQty || ' @ ' || v_ProductPrice || ', Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelist;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICESTD
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceStd.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Standard Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE(SUM(PriceStd), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricestd (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricestd;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHANDFORRESERVATION
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID
+		  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID
+			--	How much can we make with this product
+			ProductQty := ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND bom.IsVerified = 'Y') THEN
+			ProductQty := BomqtyonhandForReservation (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END BOMQTYONHANDFORRESERVATION;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHAND
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+			--	How much can we make with this product
+			ProductQty := ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			ProductQty := Bomqtyonhand (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END Bomqtyonhand;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYORDERED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity ordered for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM 	M_PRODUCT
+		WHERE 	M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='N'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=p_Product_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='N'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyordered (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	--
+	RETURN 0;
+END Bomqtyordered;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYRESERVED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity reserved for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='Y'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=bom.M_ProductBOM_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='Y'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyreserved (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END Bomqtyreserved;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIMIT
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceLimit.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Limit Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price		NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from PriceList directly
+	SELECT	COALESCE (SUM(PriceLimit), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE	IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelimit (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		END LOOP;
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelimit;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIST
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceList.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return List Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE (SUM(PriceList), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelist (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Qry=' || bom.BOMQty || ' @ ' || v_ProductPrice || ', Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelist;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICESTD
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceStd.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Standard Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE(SUM(PriceStd), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricestd (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricestd;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHANDFORRESERVATION
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID
+		  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID
+			--	How much can we make with this product
+			ProductQty := ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND bom.IsVerified = 'Y') THEN
+			ProductQty := BomqtyonhandForReservation (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END BOMQTYONHANDFORRESERVATION;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHAND
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+			--	How much can we make with this product
+			ProductQty := ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			ProductQty := Bomqtyonhand (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END Bomqtyonhand;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYORDERED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity ordered for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM 	M_PRODUCT
+		WHERE 	M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='N'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=p_Product_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='N'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyordered (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	--
+	RETURN 0;
+END Bomqtyordered;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYRESERVED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity reserved for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='Y'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=bom.M_ProductBOM_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='Y'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyreserved (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END Bomqtyreserved;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIMIT
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceLimit.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Limit Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price		NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from PriceList directly
+	SELECT	COALESCE (SUM(PriceLimit), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE	IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelimit (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		END LOOP;
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelimit;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIST
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceList.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return List Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE (SUM(PriceList), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelist (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Qry=' || bom.BOMQty || ' @ ' || v_ProductPrice || ', Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelist;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICESTD
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceStd.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Standard Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE(SUM(PriceStd), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricestd (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricestd;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHANDFORRESERVATION
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID
+		  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID
+			--	How much can we make with this product
+			ProductQty := ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND bom.IsVerified = 'Y') THEN
+			ProductQty := BomqtyonhandForReservation (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(Quantity, StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END BOMQTYONHANDFORRESERVATION;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHAND
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+			--	How much can we make with this product
+			ProductQty := ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			ProductQty := Bomqtyonhand (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(Quantity, StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END Bomqtyonhand;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYORDERED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity ordered for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM 	M_PRODUCT
+		WHERE 	M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='N'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=p_Product_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='N'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyordered (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	--
+	RETURN 0;
+END Bomqtyordered;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYRESERVED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity reserved for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='Y'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=bom.M_ProductBOM_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='Y'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyreserved (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END Bomqtyreserved;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIMIT
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceLimit.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Limit Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price		NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from PriceList directly
+	SELECT	COALESCE (SUM(PriceLimit), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE	IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelimit (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		END LOOP;
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelimit;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICELIST
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceList.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return List Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE (SUM(PriceList), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricelist (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Qry=' || bom.BOMQty || ' @ ' || v_ProductPrice || ', Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricelist;
+/
+
+CREATE OR REPLACE FUNCTION BOMPRICESTD
+(
+	Product_ID 		IN NUMBER,
+	PriceList_Version_ID	IN NUMBER
+)
+RETURN NUMBER
+/*************************************************************************
+ * The contents of this file are subject to the Compiere License.  You may
+ * obtain a copy of the License at    http://www.compiere.org/license.html
+ * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
+ * express or implied. See the License for details. Code: Compiere ERP+CRM
+ * Copyright (C) 1999-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
+ *************************************************************************
+ * $Id: BOM_PriceStd.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
+ ***
+ * Title:	Return Standard Price of Product/BOM
+ * Description:
+ *			if not found: 0
+ ************************************************************************/
+AS
+	v_Price			NUMBER;
+	v_ProductPrice	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND (p.IsBOM='N' OR p.IsVerified='Y')
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE(SUM(PriceStd), 0)
+	INTO	v_Price
+   	FROM	M_PRODUCTPRICE
+	WHERE   IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN CUR_BOM LOOP
+			v_ProductPrice := Bompricestd (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		--	DBMS_OUTPUT.PUT_LINE('Price=' || v_Price);
+		END LOOP;	--	BOM
+	END IF;
+	--
+	RETURN v_Price;
+END Bompricestd;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHANDFORRESERVATION
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID
+		  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID
+                          AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+			--	How much can we make with this product
+			ProductQty := ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND bom.IsVerified = 'Y') THEN
+			ProductQty := BomqtyonhandForReservation (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(Quantity, StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END BOMQTYONHANDFORRESERVATION;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYONHAND
+(
+	Product_ID 		IN NUMBER,
+	Warehouse_ID		IN NUMBER,
+	Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity on hand for BOM
+ */
+AS
+	myWarehouse_ID	NUMBER;
+ 	Quantity		NUMBER := 99999;	--	unlimited
+	IsBOM			CHAR(1);
+	IsStocked		CHAR(1);
+	ProductType		CHAR(1);
+ 	ProductQty		NUMBER;
+	StdPrecision	NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=Product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || myWarehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	IsBOM, ProductType, IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (IsBOM='N' AND (ProductType<>'I' OR IsStocked='N')) THEN
+		RETURN Quantity;
+	--	Stocked item
+	ELSIF (IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(QtyOnHand), 0)
+		  INTO	ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+		--
+	--	DBMS_OUTPUT.PUT_LINE('Qty=' || ProductQty);
+		RETURN ProductQty;
+	END IF;
+
+	--	Go through BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(QtyOnHand), 0)
+			  INTO	ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+			--	How much can we make with this product
+			ProductQty := ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			ProductQty := Bomqtyonhand (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (ProductQty < Quantity) THEN
+				Quantity := ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(Quantity, StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END Bomqtyonhand;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYORDERED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity ordered for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM 	M_PRODUCT
+		WHERE 	M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='N'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=p_Product_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='N'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyordered (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	--
+	RETURN 0;
+END Bomqtyordered;
+/
+
+CREATE OR REPLACE FUNCTION BOMQTYRESERVED
+(
+	p_Product_ID 		IN NUMBER,
+	p_Warehouse_ID		IN NUMBER,
+	p_Locator_ID		IN NUMBER	--	Only used, if warehouse is null
+)
+RETURN NUMBER
+/******************************************************************************
+ * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
+ * Open  Source  Software        Provided "AS IS" without warranty or liability
+ * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
+ * your product name;  See license details http://www.compiere.org/license.html
+ ******************************************************************************
+ *	Return quantity reserved for BOM
+ */
+AS
+	v_Warehouse_ID		NUMBER;
+ 	v_Quantity			NUMBER := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		NUMBER;
+	v_StdPrecision		NUMBER;
+	--	Get BOM Product info
+	CURSOR CUR_BOM IS
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y';
+	--
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+--	DBMS_OUTPUT.PUT_LINE('Warehouse=' || v_Warehouse_ID);
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	NVL(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='Y'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+--	DBMS_OUTPUT.PUT_LINE('BOM');
+	FOR bom IN CUR_BOM LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	NVL(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=bom.M_ProductBOM_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='Y'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyreserved (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	NVL(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END Bomqtyreserved;
+/
+
diff --git a/migration/iD11/postgresql/202412091327_IDEMPIERE-6329.sql b/migration/iD11/postgresql/202412091327_IDEMPIERE-6329.sql
new file mode 100644
index 0000000000..d989554c41
--- /dev/null
+++ b/migration/iD11/postgresql/202412091327_IDEMPIERE-6329.sql
@@ -0,0 +1,548 @@
+-- IDEMPIERE-6329 Bug in BOM* SQL functions not getting the correct BOM children
+SELECT register_migration_script('202412091327_IDEMPIERE-6329.sql') FROM dual;
+
+CREATE OR REPLACE FUNCTION bompricelimit (in product_id numeric, in pricelist_version_id numeric) RETURNS numeric AS
+$BODY$
+DECLARE
+	v_Price	NUMERIC;
+	v_ProductPrice	NUMERIC;
+	bom RECORD;
+
+BEGIN
+	--	Try to get price from PriceList directly
+	SELECT	COALESCE (SUM(PriceLimit), 0)
+      	INTO	v_Price
+   	FROM	M_ProductPrice
+	WHERE IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN  
+			SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+			FROM M_Product_BOM b, M_Product p
+			WHERE b.M_ProductBOM_ID=p.M_Product_ID
+			AND b.M_Product_ID=Product_ID
+			AND b.M_ProductBOM_ID != Product_ID
+			AND (p.IsBOM='N' OR p.IsVerified='Y')
+			AND b.IsActive='Y'
+		LOOP
+			v_ProductPrice := bomPriceLimit (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		END LOOP;
+	END IF;
+	--
+	RETURN v_Price;
+	
+END;
+$BODY$
+LANGUAGE 'plpgsql' STABLE
+;
+
+CREATE OR REPLACE FUNCTION bompricelist (in product_id numeric, in pricelist_version_id numeric) RETURNS numeric AS
+$BODY$
+DECLARE
+	v_Price	NUMERIC;
+	v_ProductPrice	NUMERIC;
+	bom RECORD;
+
+BEGIN
+	--	Try to get price from pricelist directly
+	SELECT	COALESCE (SUM(PriceList), 0)
+	INTO	v_Price
+	FROM	M_ProductPrice
+	WHERE IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN  
+			SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+			FROM M_Product_BOM b, M_Product p
+			WHERE b.M_ProductBOM_ID=p.M_Product_ID
+			AND b.M_Product_ID=Product_ID
+			AND b.M_ProductBOM_ID != Product_ID
+			AND (p.IsBOM='N' OR p.IsVerified='Y')
+			AND b.IsActive='Y'
+		LOOP
+			v_ProductPrice := bomPriceList (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		END LOOP;
+	END IF;
+	--
+	RETURN v_Price;
+	
+END;
+$BODY$
+LANGUAGE 'plpgsql' STABLE
+;
+
+CREATE OR REPLACE FUNCTION bompricestd (in product_id numeric, in pricelist_version_id numeric) RETURNS numeric AS
+$BODY$
+DECLARE
+	v_Price	NUMERIC;
+	v_ProductPrice	NUMERIC;
+	bom RECORD;
+
+BEGIN
+	--	Try to get price from PriceList directly
+	SELECT	COALESCE(SUM(PriceStd), 0)
+	INTO	v_Price
+	FROM	M_ProductPrice
+	WHERE IsActive='Y' AND M_PriceList_Version_ID=PriceList_Version_ID AND M_Product_ID=Product_ID;
+
+	--	No Price - Check if BOM
+	IF (v_Price = 0) THEN
+		FOR bom IN  
+			SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM
+			FROM M_Product_BOM b, M_Product p
+			WHERE b.M_ProductBOM_ID=p.M_Product_ID
+			AND b.M_Product_ID=Product_ID
+			AND b.M_ProductBOM_ID != Product_ID
+			AND (p.IsBOM='N' OR p.IsVerified='Y')
+			AND b.IsActive='Y'
+		LOOP
+			v_ProductPrice := bomPriceStd (bom.M_ProductBOM_ID, PriceList_Version_ID);
+			v_Price := v_Price + (bom.BOMQty * v_ProductPrice);
+		END LOOP;
+	END IF;
+	--
+	RETURN v_Price;
+	
+END;
+$BODY$
+LANGUAGE 'plpgsql' STABLE
+;
+
+CREATE OR REPLACE FUNCTION BOMQtyOnHandForReservation (in product_id numeric, in warehouse_id numeric, in locator_id numeric) RETURNS numeric AS
+$BODY$
+DECLARE
+	myWarehouse_ID		numeric;
+ 	v_Quantity		numeric := 99999;	--	unlimited
+	v_IsBOM			CHAR(1);
+	v_IsStocked		CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		numeric;
+	v_StdPrecision		int;
+	bom			record;
+	
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN v_Quantity;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	COALESCE(SUM(QtyOnHand), 0)
+		  INTO	v_ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID
+		  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go through BOM
+	FOR bom IN 	--	Get BOM Product info
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y'
+	LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get v_ProductQty
+			SELECT 	COALESCE(SUM(QtyOnHand), 0)
+			  INTO	v_ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		  	  LEFT JOIN M_LocatorType lt ON (l.M_LocatorType_ID=lt.M_LocatorType_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID
+		  	  AND COALESCE(lt.IsAvailableForReservation,'Y')='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND bom.IsVerified = 'Y') THEN
+			v_ProductQty := BOMQtyOnHandForReservation (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	COALESCE(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END;
+$BODY$
+LANGUAGE 'plpgsql' STABLE
+;
+
+CREATE OR REPLACE FUNCTION BOMQtyOnHand (in product_id numeric, in warehouse_id numeric, in locator_id numeric) RETURNS numeric AS
+$BODY$
+DECLARE
+	myWarehouse_ID		numeric;
+ 	v_Quantity		numeric := 99999;	--	unlimited
+	v_IsBOM			CHAR(1);
+	v_IsStocked		CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		numeric;
+	v_StdPrecision		int;
+	bom			record;
+	
+BEGIN
+	--	Check Parameters
+	myWarehouse_ID := Warehouse_ID;
+	IF (myWarehouse_ID IS NULL) THEN
+		IF (Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	SUM(M_Warehouse_ID) INTO myWarehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=Locator_ID;
+		END IF;
+	END IF;
+	IF (myWarehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+	 	  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+	--	Unlimited capacity if no item
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN v_Quantity;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	COALESCE(SUM(QtyOnHand), 0)
+		  INTO	v_ProductQty
+		FROM 	M_Storageonhand s
+		  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+		WHERE s.M_Product_ID=Product_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go through BOM
+	FOR bom IN 	--	Get BOM Product info
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=product_ID
+		  AND b.M_ProductBOM_ID != Product_ID
+		  AND b.IsActive='Y'
+	LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get v_ProductQty
+			SELECT 	COALESCE(SUM(QtyOnHand), 0)
+			  INTO	v_ProductQty
+			FROM 	M_Storageonhand s
+			  JOIN M_Locator l ON (s.M_Locator_ID=l.M_Locator_ID)
+			WHERE s.M_Product_ID=bom.M_ProductBOM_ID AND l.M_Warehouse_ID=myWarehouse_ID;
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+        ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyonhand (bom.M_ProductBOM_ID, myWarehouse_ID, Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	COALESCE(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END;
+$BODY$
+LANGUAGE 'plpgsql' STABLE
+;
+
+CREATE OR REPLACE FUNCTION bomqtyordered (in p_product_id numeric, in p_warehouse_id numeric, in p_locator_id numeric) RETURNS numeric AS
+$BODY$
+DECLARE
+	v_Warehouse_ID		numeric;
+ 	v_Quantity		numeric := 99999;	--	unlimited
+	v_IsBOM			CHAR(1);
+	v_IsStocked		CHAR(1);
+	v_ProductType		CHAR(1);
+ 	v_ProductQty		numeric;
+	v_StdPrecision		int;
+	bom 			record;	
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM 	M_PRODUCT
+		WHERE 	M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	COALESCE(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='N'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+	FOR bom IN  		
+	--	Get BOM Product info
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y'
+	LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	COALESCE(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE M_Product_ID=p_Product_ID
+			  AND M_Warehouse_ID=v_Warehouse_ID
+			  AND IsSOTrx='N'
+			  AND IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyordered (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	COALESCE(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	--
+	RETURN 0;
+END;
+$BODY$
+LANGUAGE 'plpgsql' STABLE
+;
+
+CREATE OR REPLACE FUNCTION bomqtyreserved (in p_product_id numeric, in p_warehouse_id numeric, in p_locator_id numeric) RETURNS numeric AS
+$BODY$
+DECLARE
+	v_Warehouse_ID			numeric;
+ 	v_Quantity			numeric := 99999;	--	unlimited
+	v_IsBOM				CHAR(1);
+	v_IsStocked			CHAR(1);
+	v_ProductType			CHAR(1);
+ 	v_ProductQty			numeric;
+	v_StdPrecision			int;
+	bom				record;
+BEGIN
+	--	Check Parameters
+	v_Warehouse_ID := p_Warehouse_ID;
+	IF (v_Warehouse_ID IS NULL) THEN
+		IF (p_Locator_ID IS NULL) THEN
+			RETURN 0;
+		ELSE
+			SELECT 	MAX(M_Warehouse_ID) INTO v_Warehouse_ID
+			FROM	M_LOCATOR
+			WHERE	M_Locator_ID=p_Locator_ID;
+		END IF;
+	END IF;
+	IF (v_Warehouse_ID IS NULL) THEN
+		RETURN 0;
+	END IF;
+
+	--	Check, if product exists and if it is stocked
+	BEGIN
+		SELECT	IsBOM, ProductType, IsStocked
+		  INTO	v_IsBOM, v_ProductType, v_IsStocked
+		FROM M_PRODUCT
+		WHERE M_Product_ID=p_Product_ID;
+		--
+	EXCEPTION	--	not found
+		WHEN OTHERS THEN
+			RETURN 0;
+	END;
+
+	--	No reservation for non-stocked
+	IF (v_IsBOM='N' AND (v_ProductType<>'I' OR v_IsStocked='N')) THEN
+		RETURN 0;
+	--	Stocked item
+	ELSIF (v_IsStocked='Y') THEN
+		--	Get ProductQty
+		SELECT 	COALESCE(SUM(Qty), 0)
+		  INTO	v_ProductQty
+		FROM 	M_StorageReservation
+		WHERE M_Product_ID=p_Product_ID
+		  AND M_Warehouse_ID=v_Warehouse_ID
+		  AND IsSOTrx='Y'
+		  AND IsActive='Y';
+		--
+		RETURN v_ProductQty;
+	END IF;
+
+	--	Go though BOM
+	FOR bom IN 
+	--	Get BOM Product info
+		SELECT b.M_ProductBOM_ID, b.BOMQty, p.IsBOM, p.IsStocked, p.ProductType, p.IsVerified
+		FROM M_PRODUCT_BOM b, M_PRODUCT p
+		WHERE b.M_ProductBOM_ID=p.M_Product_ID
+		  AND b.M_Product_ID=p_Product_ID
+		  AND b.M_ProductBOM_ID != p_Product_ID
+		  AND b.IsActive='Y'
+	LOOP
+		--	Stocked Items "leaf node"
+		IF (bom.ProductType = 'I' AND bom.IsStocked = 'Y') THEN
+			--	Get ProductQty
+			SELECT 	COALESCE(SUM(Qty), 0)
+			  INTO	v_ProductQty
+			FROM 	M_StorageReservation
+			WHERE 	M_Product_ID=bom.M_ProductBOM_ID
+			  AND   M_Warehouse_ID =v_Warehouse_ID
+			  AND	IsSOTrx='Y'
+			  AND	IsActive='Y';
+			--	How much can we make with this product
+			v_ProductQty := v_ProductQty/bom.BOMQty;
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		--	Another BOM
+		ELSIF (bom.IsBOM = 'Y' AND BOM.IsVerified = 'Y') THEN
+			v_ProductQty := Bomqtyreserved (bom.M_ProductBOM_ID, v_Warehouse_ID, p_Locator_ID);
+			--	How much can we make overall
+			IF (v_ProductQty < v_Quantity) THEN
+				v_Quantity := v_ProductQty;
+			END IF;
+		END IF;
+	END LOOP;	--	BOM
+
+	--	Unlimited (e.g. only services)
+	IF (v_Quantity = 99999) THEN
+		RETURN 0;
+	END IF;
+
+	IF (v_Quantity > 0) THEN
+		--	Get Rounding Precision for Product
+		SELECT 	COALESCE(MAX(u.StdPrecision), 0)
+		  INTO	v_StdPrecision
+		FROM 	C_UOM u, M_PRODUCT p
+		WHERE 	u.C_UOM_ID=p.C_UOM_ID AND p.M_Product_ID=p_Product_ID;
+		--
+		RETURN TRUNC(v_Quantity, v_StdPrecision); -- RoundDown
+	END IF;
+	RETURN 0;
+END;
+$BODY$
+LANGUAGE 'plpgsql' STABLE
+;
+
diff --git a/org.idempiere.test/src/org/idempiere/test/DictionaryIDs.java b/org.idempiere.test/src/org/idempiere/test/DictionaryIDs.java
index b5b89310a1..e0504b3fbe 100644
--- a/org.idempiere.test/src/org/idempiere/test/DictionaryIDs.java
+++ b/org.idempiere.test/src/org/idempiere/test/DictionaryIDs.java
@@ -510,7 +510,18 @@ public final class DictionaryIDs {
 			this.id = id;
 		}
 	}
-	
+
+	public enum M_PriceList_Version {
+		STANDARD_2003(104),
+		IMPORT_2003(200000);
+
+		public final int id;
+
+		private M_PriceList_Version(int id) {
+			this.id = id;
+		}
+	}
+
 	public enum M_Product {
 		STANDARD(122,"c713192a-9ed3-4740-ad32-9583c30d0206"),
 		OAK(123,"220b7a9a-4917-4bb2-b431-1426afacd7b8"),
@@ -572,7 +583,19 @@ public final class DictionaryIDs {
 			this.id = id;
 		}
 	}
-	
+
+	public enum M_ProductPrice {
+		PATIOSET_STANDARD_2003(200084),
+		PATIOCHAIR_STANDARD_2003(200033),
+		PATIOCHAIR_IMPORT_2003(200095);
+
+		public final int id;
+
+		private M_ProductPrice(int id) {
+			this.id = id;
+		}
+	}
+
 	public enum M_RMAType {
 		DAMAGE_ON_ARRIVAL(100);
 		
diff --git a/org.idempiere.test/src/org/idempiere/test/base/GetBOMFunctionsTest.java b/org.idempiere.test/src/org/idempiere/test/base/GetBOMFunctionsTest.java
index a137b8c27d..150580230f 100644
--- a/org.idempiere.test/src/org/idempiere/test/base/GetBOMFunctionsTest.java
+++ b/org.idempiere.test/src/org/idempiere/test/base/GetBOMFunctionsTest.java
@@ -17,7 +17,6 @@ import static org.junit.jupiter.api.Assertions.assertTrue;
 
 import java.math.BigDecimal;
 
-import org.compiere.model.MProduct;
 import org.compiere.model.MProductPrice;
 import org.compiere.util.DB;
 import org.compiere.util.Env;
@@ -32,7 +31,6 @@ import org.junit.jupiter.api.parallel.Isolated;
 @Isolated
 public class GetBOMFunctionsTest extends AbstractTestCase
 {
-	private static final int PRODUCT_PRICE_PATIOSET_STANDARD_2003 = 200084;
 
 	@Test
 	public void test_getBOMFunctions() throws Exception
@@ -42,46 +40,91 @@ public class GetBOMFunctionsTest extends AbstractTestCase
 
 		// Prices of PatioSet in Standard 2003 Price List Version
 
-		price = DB.getSQLValueBDEx(trxName, "SELECT bompricestd(145, 104) FROM Dual");
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricestd("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
 		assertTrue(BigDecimal.valueOf(500.0).compareTo(price) == 0, "Unexpected direct bompricestd");
 		
-		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelist(145, 104) FROM Dual");
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelist("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
 		assertTrue(BigDecimal.valueOf(520.0).compareTo(price) == 0, "Unexpected direct bompricelist");
 
-		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelimit(145, 104) FROM Dual");
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelimit("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
 		assertTrue(BigDecimal.valueOf(496.0).compareTo(price) == 0, "Unexpected direct bompricelimit");
 
-		MProductPrice productPrice = new MProductPrice(Env.getCtx(), PRODUCT_PRICE_PATIOSET_STANDARD_2003, trxName);
+		MProductPrice productPrice = new MProductPrice(Env.getCtx(), DictionaryIDs.M_ProductPrice.PATIOSET_STANDARD_2003.id, trxName);
 		productPrice.setIsActive(false);
 		productPrice.saveEx();
 
-		price = DB.getSQLValueBDEx(trxName, "SELECT bompricestd(145, 104) FROM Dual");
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricestd("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
 		assertTrue(BigDecimal.valueOf(225.0).compareTo(price) == 0, "Unexpected indirect bompricestd");
 
-		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelist(145, 104) FROM Dual");
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelist("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
 		assertTrue(BigDecimal.valueOf(220.0).compareTo(price) == 0, "Unexpected indirect bompricelist");
 
-		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelimit(145, 104) FROM Dual");
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelimit("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
 		assertTrue(BigDecimal.valueOf(180.0).compareTo(price) == 0, "Unexpected indirect bompricelimit");
 
+		productPrice = new MProductPrice(Env.getCtx(), DictionaryIDs.M_ProductPrice.PATIOCHAIR_STANDARD_2003.id, trxName);
+		productPrice.setIsActive(false);
+		productPrice.saveEx();
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricestd("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(90.0).compareTo(price) == 0, "Unexpected double indirect bompricestd");
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelist("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(88.0).compareTo(price) == 0, "Unexpected double indirect bompricelist");
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelimit("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.STANDARD_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(72.0).compareTo(price) == 0, "Unexpected double indirect bompricelimit");
+
+		// Prices of PatioSet in Import 2003 Price List Version
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricestd("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.IMPORT_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(153.0).compareTo(price) == 0, "Unexpected indirect bompricestd");
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelist("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.IMPORT_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(170.0).compareTo(price) == 0, "Unexpected indirect bompricelist");
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelimit("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.IMPORT_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(144.52).compareTo(price) == 0, "Unexpected indirect bompricelimit");
+
+		productPrice = new MProductPrice(Env.getCtx(), DictionaryIDs.M_ProductPrice.PATIOCHAIR_IMPORT_2003.id, trxName);
+		productPrice.setIsActive(false);
+		productPrice.saveEx();
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricestd("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.IMPORT_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(84.8).compareTo(price) == 0, "Unexpected double indirect bompricestd");
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelist("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.IMPORT_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(107.36).compareTo(price) == 0, "Unexpected double indirect bompricelist");
+
+		price = DB.getSQLValueBDEx(trxName, "SELECT bompricelimit("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_PriceList_Version.IMPORT_2003.id+") FROM Dual");
+		assertTrue(BigDecimal.valueOf(77.52).compareTo(price) == 0, "Unexpected double indirect bompricelimit");
+
 		// Quantities of PatioSet in Standard 2003 Price List Version
 
 		BigDecimal qty;
-		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyavailable(145, 103, 0) FROM Dual");
+		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyavailable("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_Warehouse.HQ.id+",0) FROM Dual");
 		assertTrue(BigDecimal.valueOf(0.0).compareTo(qty) == 0, "Unexpected direct bomqtyavailable");
 
-		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyonhand(145, 103, 0) FROM Dual");
+		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyonhand("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_Warehouse.HQ.id+",0) FROM Dual");
 		assertTrue(BigDecimal.valueOf(0.0).compareTo(qty) == 0, "Unexpected direct bomqtyonhand");
 
-		MProduct product = new MProduct(Env.getCtx(), DictionaryIDs.M_Product.PATIOSET.id, trxName);
-		product.setIsStocked(false);
-		product.saveEx();
+		// Set PatioSet as non-stocked
+		DB.executeUpdateEx("UPDATE M_Product SET IsStocked='N' WHERE M_Product_ID=?", new Object[] {DictionaryIDs.M_Product.PATIOSET.id}, trxName);
 
-		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyavailable(145, 103, 0) FROM Dual");
-		assertTrue(BigDecimal.valueOf(12.0).compareTo(qty) == 0, "Unexpected indirect bomqtyavailable");
+		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyavailable("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_Warehouse.HQ.id+",0) FROM Dual");
+		assertTrue(BigDecimal.valueOf(7.0).compareTo(qty) == 0, "Unexpected indirect bomqtyavailable");
 
-		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyonhand(145, 103, 0) FROM Dual");
-		assertTrue(BigDecimal.valueOf(12.0).compareTo(qty) == 0, "Unexpected indirect bomqtyonhand");
+		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyonhand("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_Warehouse.HQ.id+",0) FROM Dual");
+		assertTrue(BigDecimal.valueOf(7.0).compareTo(qty) == 0, "Unexpected indirect bomqtyonhand");
+
+		// Set PatioChair as non-stocked, directly to avoid error about existing stock
+		DB.executeUpdateEx("UPDATE M_Product SET IsStocked='N' WHERE M_Product_ID=?", new Object[] {DictionaryIDs.M_Product.P_CHAIR.id}, trxName);
+
+		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyavailable("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_Warehouse.HQ.id+",0) FROM Dual");
+		assertTrue(BigDecimal.valueOf(0.0).compareTo(qty) == 0, "Unexpected double indirect bomqtyavailable");
+
+		qty = DB.getSQLValueBDEx(trxName, "SELECT bomqtyonhand("+DictionaryIDs.M_Product.PATIOSET.id+","+DictionaryIDs.M_Warehouse.HQ.id+",0) FROM Dual");
+		assertTrue(BigDecimal.valueOf(0.0).compareTo(qty) == 0, "Unexpected double indirect bomqtyonhand");
 
 	}