DECLARE
	V_GLOBAL_STOCK NUMBER(10):=0;
	V_FACT_LIMIT NUMBER(5):=0;
BEGIN
	V_GLOBAL_STOCK:=GET_STOCK(:CTRL_DETAILS.P_ID);
	V_FACT_LIMIT:= GET_LIMIT(:CTRL_DETAILS.P_ID);
IF	:CTRL_DETAILS.QTY>V_GLOBAL_STOCK OR V_FACT_LIMIT>:CTRL_DETAILS.QTY THEN
	CLEAR_BLOCK;

ELSE	
--	++++-----------------
IF :DELIVERY_MST.CF='N' THEN
	 		:SYSTEM.MESSAGE_LEVEL:= 10;
	 		COMMIT_FORM;
	 		:SYSTEM.MESSAGE_LEVEL:=0;
	 :DELIVERY_MST.CF:='Y';
ELSE
	NULL;
END IF;

DECLARE    
	V_SL_NO NUMBER;
	V_DUPLICATE NUMBER:=NULL;
  BEGIN
	SELECT NVL(max(to_number(SL_NO)),0)+1 INTO V_SL_NO 	FROM DELIVERY_DETAILS;

--++++++++++
		SELECT NVL(MAX(PROD_ID),0) INTO V_DUPLICATE FROM DELIVERY_DETAILS
		WHERE  		PROD_ID =:CTRL_DETAILS.P_ID
					AND INV_NO  = :DELIVERY_MST.INV_NO
					AND INV_BY  =:GLOBAL.G_USER 
					AND DELIVERY_DATE=TRUNC(SYSDATE);
					--AND ROWNUM=1;
					
	IF V_DUPLICATE = 0 THEN
	-->>>>
		INSERT INTO DELIVERY_DETAILS (
		SL_NO, INV_NO, INV_BY, 
		DELIVERY_DATE, PROD_ID, DELIVERY_RATE, 
		TOTAL_PRICE, 
		PROD_QTY, DELIVERY_RATE_FRANC) 
	VALUES (
		V_SL_NO ,:DELIVERY_MST.INV_NO ,:GLOBAL.G_USER,
		TRUNC(SYSDATE) ,:CTRL_DETAILS.P_ID ,:CTRL_DETAILS.UNIT_PRICE$,
		:CTRL_DETAILS.UNIT_PRICE_FC*:CTRL_DETAILS.QTY ,
		:CTRL_DETAILS.QTY,:CTRL_DETAILS.UNIT_PRICE_FC );
		forms_ddl('COMMIT');
		:SYSTEM.MESSAGE_LEVEL:=25;
		:SYSTEM.MESSAGE_LEVEL:=15;
		
		GO_BLOCK('DELIVERY_DETAILS');
		EXECUTE_QUERY;
	--	LAST_RECORD;
		GO_BLOCK('CTRL_DETAILS');
		CLEAR_BLOCK;
		GO_ITEM('CTRL_DETAILS.P_ID');

	ELSE
	CLEAR_BLOCK;
	END IF;
--+++++++++++++++++++++++++++++++++

EXCEPTION
	WHEN NO_DATA_FOUND THEN MESSAGE('No Data');
	WHEN OTHERS THEN MESSAGE(SQLERRM);
end;

Set_Item_Property( 'CTRL_DETAILS.P_NAME'			, VISIBLE,PROPERTY_FALSE);
Set_Item_Property( 'CTRL_DETAILS.UNIT_PRICE$'	, VISIBLE,PROPERTY_FALSE);
Set_Item_Property( 'CTRL_DETAILS.UNIT_PRICE_FC', VISIBLE,PROPERTY_FALSE);
Set_Item_Property( 'CTRL_DETAILS.QTY'					, VISIBLE,PROPERTY_FALSE);
Set_Item_Property( 'CTRL_DETAILS.INSERT'			, VISIBLE,PROPERTY_FALSE);
GO_ITEM('CTRL_DETAILS.P_ID');
-------+++++++++++++
END IF;
END;