fmb_promotion: 23 programs convert in part

PROCEDURE Show_List(Lov_Name Varchar2) IS
  v_Bol_Lov boolean;
BEGIN
  v_Bol_Lov := Show_Lov(Lov_Name);
END;

FUNCTION Get_Plu_Code(Item varchar2) RETURN Varchar2 IS
  v_Plu Varchar2(50);
BEGIN
  Select ITEMPLU_CODE Into v_Plu from M_Item_Plu Where ItemPlu_Item_Code = Item;
  Return v_Plu;
Exception When Others Then
  Return Null;
END;

Declare
  v_divn_code varchar2(10);
Begin
  select loc_divn_code into v_divn_code from m_location 
        where loc_comp_code =:Global.COMPANY
            and loc_code =:promh_loc_code;
  :PromAI_Wac := Nvl(Fn_Get_Cost(:PromAI_Item_Code, :Global.Company, v_Divn_Code, Sysdate, 'WAC', 0), 0) * Nvl(:PromAI_Max_Loose, 0);
  :PromAI_Fifo := Nvl(Fn_Get_Cost(:PromAI_Item_Code, :Global.Company, v_Divn_Code, Sysdate, 'FIFO', 0), 0) * Nvl(:PromAI_Max_Loose, 0);
  
  :PROMAI_Edt_User := :Global.User;
  :PROMAI_Edt_Dt := SysDate;
  :PROMAI_PLU_CODE := get_plu_code(:PROMAI_ITEM_CODE);
End;

Declare
  v_Stk_Flag Number;
Begin
  v_Stk_Flag := Item_Stock_Compare(:Global.Company, :PromH_Loc_Code, :PromAI_Item_Code, :PromAI_Uom_Code, :PromAI_Qty, :PromAI_Loose, 0, 0);
  If v_Stk_Flag = 1 Then
    :PromAI_Qty := Null;
  End If;
  If Nvl(:Frm_Cost_Valuation_Method, 'WAC') = 'WAC' Then
    :PromAI_Wac_Val := Nvl(:PromAI_Wac*:PromAI_Qty, 0) + Nvl(:PromAI_Wac*:PromAI_Loose/:PromAI_Max_Loose, 0);
    :PromI_Rate := Round(:PromAI_Tot_Wac_Val*Nvl(:PromI_Max_Loose, 0)/(Nvl(:PromI_Qty*:PromI_Max_Loose, 0)+Nvl(:PromI_Loose, 0)), 2);
  Else
    :PromAI_Fifo_Val := Nvl(:PromAI_Fifo*:PromAI_Qty, 0) + Nvl(:PromAI_Fifo*:PromAI_Loose/:PromAI_Max_Loose, 0);
    :PromI_Rate := Round(:PromAI_Tot_Fifo_Val*Nvl(:PromI_Max_Loose, 0)/(Nvl(:PromI_Qty*:PromI_Max_Loose, 0)+Nvl(:PromI_Loose, 0)), 2);
  End If;
End;

Declare
  v_Stk_Flag Number;
Begin
  v_Stk_Flag := Item_Stock_Compare(:Global.Company, :PromH_Loc_Code, :PromAI_Item_Code, :PromAI_Uom_Code, :PromAI_Qty, :PromAI_Loose, 0, 0);
  If v_Stk_Flag = 1 Then
    :PromAI_Loose := Null;
  End If;
  If Nvl(:PromAI_Loose, 0) > 0 And :PromAI_Loose <> :AOld_Loose Then
    :PromAI_Sl_Manual_Flag:=0;
  End If;
  If Nvl(:Frm_Cost_Valuation_Method, 'WAC') = 'WAC' Then
    :PromAI_Wac_Val := Nvl(:PromAI_Wac*:PromAI_Qty, 0) + Nvl(:PromAI_Wac*:PromAI_Loose/:PromAI_Max_Loose, 0);
    :PromI_Rate := Round(:PromAI_Tot_Wac_Val*Nvl(:PromI_Max_Loose, 0)/(Nvl(:PromI_Qty*:PromI_Max_Loose, 0)+Nvl(:PromI_Loose, 0)), 2);
  Else
    :PromAI_Fifo_Val := Nvl(:PromAI_Fifo*:PromAI_Qty, 0) + Nvl(:PromAI_Fifo*:PromAI_Loose/:PromAI_Max_Loose, 0);
    :PromI_Rate := Round(:PromAI_Tot_Fifo_Val*Nvl(:PromI_Max_Loose, 0)/(Nvl(:PromI_Qty*:PromI_Max_Loose, 0)+Nvl(:PromI_Loose, 0)), 2);
  End If;
End;

Declare
  v_Divn_Code Varchar2(10);
Begin
  If Nvl(:PARAMETER.P_GRP, 'N') = 'A' 
      And Get_Record_Property(1, 'T_PROM_ALLOC_ITEM', Status) = 'NEW' Then
    Prom_Message('Item Allocation Details Not Entered!');
    Raise Form_Trigger_Failure;
  End If;
  
  Select Loc_Divn_Code Into v_Divn_Code From M_Location 
  Where Loc_Comp_Code = :Global.Company
    And Loc_Code = :PromH_Loc_Code;
  :PromAI_Wac := Nvl(Fn_Get_Cost(:PromAI_Item_Code, :Global.Company, v_Divn_Code, Sysdate, 'WAC', 0), 0) * Nvl(:PromAI_Max_Loose, 0);
  :PromAI_Fifo := Nvl(Fn_Get_Cost(:PromAI_Item_Code, :Global.Company, v_Divn_Code, Sysdate, 'FIFO', 0), 0) * Nvl(:PromAI_Max_Loose, 0);
  
  :PromAI_Id := Fn_Get_Next_Id('PROM_ALLOC_ITEM');
  :PromAI_Cr_User := :Global.User;
  :PromAI_Cr_Dt := SysDate;
  :PromAI_Plu_Code := Get_Plu_Code(:PromAI_Item_Code);
  
  WP_Qty_Ratio_Checking;   --Added by mojish on 10/05/13
End;

Declare
  v_Stk_Flag Number;
  v_MxLoose Number;
Begin
  If :PromI_Qty Is Not Null Then
    If Nvl(:PARAMETER.P_GRP, 'N') = 'N' Then  --stock verification
      v_Stk_Flag := Item_Stock_Compare(:Global.Company, :PromH_Loc_Code, :PromI_Item_Code, :PromI_Uom_Code, :PromI_Qty, :PromI_Loose, 0, 0);
      If v_Stk_Flag = 1 Then
        :PromI_Qty := Null;
      End If;
    Else
      Select Uom_Max_Loose Into  v_MxLoose From M_Uom 
        Where uom_code = :PromI_Uom_Code;
      If :PromH_Option <> 'P' And Nvl(:PromI_Qty * v_MxLoose, 0) + Nvl(:PromI_Loose, 0) > Nvl(:PromH_Qty_Limit_Bu, 0) Then
        Prom_Message('Promotion Limit Qty is Less!');
        :PromI_Loose := :PromH_Qty_Limit_Bu;
        If Nvl(:PromI_Loose, 0) >= Nvl(v_MxLoose, 1) Then  --Convert Qty to Carton and Loose
          :PromI_Qty := Floor(:PromI_Loose / Nvl(v_MxLoose, 1));
          :PromI_Loose := Mod(:PromI_Loose, Nvl(v_MxLoose, 1));
        End If;  
      End IF;    
    End If;
  End If;
End;

Declare
  v_Stk_Flag Number;
  v_MxLoose Number;
Begin
  If :PromI_Loose Is Not Null Then
    If Nvl(:PARAMETER.P_GRP, 'N') = 'N' Then  --stock verification
      v_Stk_Flag := Item_Stock_Compare(:Global.Company, :PromH_Loc_Code, :PromI_Item_Code, :PromI_Uom_Code, :PromI_Qty, :PromI_Loose, 0, 0);
      If v_Stk_Flag = 1 Then
        :Promi_Loose := Null;
      End If;
    Else
      Select Uom_Max_Loose Into  v_MxLoose From M_Uom 
        Where uom_code = :PromI_Uom_Code;
      If :PromH_Option <> 'P' And Nvl(:PromI_Qty * v_MxLoose, 0) + Nvl(:PromI_Loose, 0) > Nvl(:PromH_Qty_Limit_Bu, 0) Then
        Prom_Message('Promotion Limit Qty is Less!');
        :PromI_Loose := :PromH_Qty_Limit_Bu;
        If Nvl(:PromI_Loose, 0) >= Nvl(v_MxLoose, 1) Then  --Convert Qty to Carton and Loose
          :PromI_Qty := Floor(:PromI_Loose / Nvl(v_MxLoose, 1));
          :PromI_Loose := Mod(:PromI_Loose, Nvl(v_MxLoose, 1));
        End If;  
      End IF;    
    End If;
  End If;
End;

Declare
  v_Sl_To Number;
  v_Num_Rec Number;
  v_Count Number;
Begin
  v_Sl_To := Nvl(:PromAI_Qty * :PromAI_Max_Loose, 0) + Nvl(:PromAI_Loose, 0);
  If v_Sl_To > 0 And :PromAI_Item_Sl_Status In ('Auto', 'Manual') And v_Sl_To <> Nvl(:Sum_PaiSl_Qty_Bu, 0) Then
    Prom_Message('Serial number records insufficient/ more!');
    Raise Form_Trigger_Failure;
  Else
    Post;
  End If;
  
  Select Count(*) Into v_Count From T_Prom_Alloc_Item_Serial a, 
  (Select c.PaiSl_PromAI_Id, c.PaiSl_Items_Sl_Ref Fm_Qty, Min(b.PaiSl_Items_Sl_Ref) Min_Fm_Qty
  From T_Prom_Alloc_Item_Serial b, T_Prom_Alloc_Item_Serial c
  Where c.PaiSl_PromAI_Id = b.PaiSl_PromAI_Id And c.PaiSl_PromAI_Id = :PromAI_Id 
  And b.PaiSl_PromAI_Id = :PromAI_Id And b.PaiSl_Items_Sl_Ref > c.PaiSl_Items_Sl_Ref
  Group By c.PaiSl_PromAI_Id, c.PaiSl_Items_Sl_Ref) k
  Where k.PaiSl_PromAI_Id = a.PaiSl_PromAI_Id And k.Fm_Qty = a.PaiSl_Items_Sl_Ref
  And a.PaiSl_PromAI_Id = :PromAI_Id And k.Min_Fm_Qty <= (a.PaiSl_Items_Sl_Ref + a.PaiSl_Qty_Bu - 1);
  
  If v_Count > 0 Then
    Prom_Message('Serial number invalid range!');
    Raise Form_Trigger_Failure;
  End If;
  
  :AOld_Qty := :PromAI_Qty;
  :AOld_Loose := :PromAI_Loose;
  Go_Block('T_Prom_Alloc_Item');
End;

Declare
  v_Rec_Num Number;
  v_Rec_Num_Sl Number;
Begin
  v_Rec_Num := Get_Block_Property('T_PROM_ALLOC_ITEM', Current_Record);
  Go_Block('T_Prom_Item_Serial');
  Last_Record;
  v_Rec_Num_Sl := Get_Block_Property('T_Prom_Item_Serial', Current_Record);
  If :PiSl_Items_Sl_Ref Is Null Then
    v_Rec_Num_Sl:= v_Rec_Num_Sl - 1;
  End If;
  If :PromAI_Check_Sl = 'Y' Then
    First_Record;
    Loop
      If :PromAI_Check_Sl ='Y' Then
        :PromAI_Check_Sl := 'N';
      End If;
      If :System.Last_Record = 'TRUE' Then
        Exit;
      End If;
      Next_Record;
    End Loop;
    Go_Record(v_Rec_Num);
    If Nvl(:PromI_Qty * :PromI_Max_Loose, 0) + Nvl(:PromI_Loose, 0) <> Nvl(:PromAI_Qty * :PromI_Max_Loose, 0) + Nvl(:PromAI_Loose, 0) Then
      Prom_Message('Allocated qty is mismatch with promotion Item qty!');
    ElsIf v_Rec_Num_Sl > 0 Then
      Prom_Message('Already serial number entered!!');
    Else
      :PromAI_Check_Sl := 'Y';
    End If;
  End If;
End;

Declare
  v_Sl_To Number;
  v_Num_Rec Number;
  v_Count Number;
Begin
  v_Sl_To := Nvl(:PromFq_Qty * :PromFq_Max_Loose, 0) + Nvl(:PromFq_Loose, 0);
  If v_Sl_To > 0 And :PromFq_Item_Sl_Status In ('Auto', 'Manual') And v_Sl_To <> Nvl(:Sum_PfqS_Qty_Bu, 0) Then
    Prom_Message('Serial number records insufficient/ more!');
    Raise Form_Trigger_Failure;
  Else
    Post;
  End If;
  
  
  Select Count(*) Into v_Count From T_Prom_Foc_Qualify_Serial a, 
  (Select c.PfQs_PromFq_Id, c.PfQs_Items_Sl_Ref Fm_Qty, Min(b.PfQs_Items_Sl_Ref) Min_Fm_Qty
  From T_Prom_Foc_Qualify_Serial b, T_Prom_Foc_Qualify_Serial c
  Where c.PfQs_PromFq_Id = b.PfQs_PromFq_Id And c.PfQs_PromFq_Id = :PromFq_Id 
  And b.PfQs_PromFq_Id = :PromFq_Id And b.PfQs_Items_Sl_Ref > c.PfQs_Items_Sl_Ref
  Group By c.PfQs_PromFq_Id, c.PfQs_Items_Sl_Ref) k
  Where k.PfQs_PromFq_Id = a.PfQs_PromFq_Id And k.Fm_Qty = a.PfQs_Items_Sl_Ref
  And a.PfQs_PromFq_Id = :PromFq_Id And k.Min_Fm_Qty <= (a.PfQs_Items_Sl_Ref + a.PfQs_Qty_Bu - 1);
  
  If v_Count > 0 Then
    Prom_Message('Serial number invalid range!');
    Raise Form_Trigger_Failure;
  End If;
  :OldFq_Item_Code   := :PromFq_Item_Code;
  :OldFq_Qty   := :PromFq_Qty;
  :OldFq_Loose := :PromFq_Loose;
  Go_Block('T_Prom_Foc_Qualify');
End;

Declare
  v_Sl_To Number;
  v_Num_Rec Number;
  v_Count Number;
Begin
  v_Sl_To := Nvl(:PromFi_Qty * :PromFi_Max_Loose, 0) + Nvl(:PromFi_Loose, 0);
  If v_Sl_To > 0 And :PromFi_Item_Sl_Status In ('Manual', 'Auto') 
    And v_Sl_To <> Nvl(:Sum_PfiS_Qty_Bu, 0) Then
    Prom_Message('Serial number records insufficient/ more!');
    Raise Form_Trigger_Failure;
  Else
    Post;
   End If;
    
  Select Count(*) Into v_Count From T_Prom_Foc_Item_Serial a, 
  (Select c.Pfis_PromFi_Id, c.Pfis_Items_Sl_Ref Fm_Qty, Min(b.Pfis_Items_Sl_Ref) Min_Fm_Qty
  From T_Prom_Foc_Item_Serial b, T_Prom_Foc_Item_Serial c
  Where c.Pfis_PromFi_Id = b.Pfis_PromFi_Id And c.Pfis_PromFi_Id = :PromFi_Id 
  And b.Pfis_PromFi_Id = :PromFi_Id And b.Pfis_Items_Sl_Ref > c.Pfis_Items_Sl_Ref
  Group By c.Pfis_PromFi_Id, c.Pfis_Items_Sl_Ref) k
  Where k.Pfis_PromFi_Id = a.Pfis_PromFi_Id And k.Fm_Qty = a.Pfis_Items_Sl_Ref
  And a.Pfis_PromFi_Id = :PromFi_Id And k.Min_Fm_Qty <= (a.Pfis_Items_Sl_Ref + a.Pfis_Qty_Bu - 1);
  
  If v_Count > 0 Then
    Prom_Message('Serial number invalid range!');
    Raise Form_Trigger_Failure;
  End If;
  :OldFi_Item_Code := :PromFi_Item_Code;
  :OldFi_Qty   := :PromFi_Qty;
  :OldFi_Loose := :PromFi_Loose;
  Go_Block('T_Prom_Foc_Item');
End;

PROCEDURE Updation_Alloc_Serial IS
Cursor CurAiSl Is 
    Select PaiSl_PromAI_Id, PaiSl_Items_Sl_Ref, PaiSl_Qty_Bu 
    From T_Prom_Alloc_Item_Serial, T_Prom_Alloc_Item
    Where PromAI_Id = PaiSl_PromAI_Id And PromAI_Item_Sl_Status In ('Manual', 'Auto')
    And PromAI_PromH_Id = :PromH_Id And Nvl(PromAI_Check_Sl, 'N') = 'Y';
  v_Rec_Num_Sl Number;
BEGIN
  If :PromI_Item_Sl_Status In ('Auto', 'Manual') And Nvl(:PARAMETER.P_GRP, 'N') = 'A' Then
    Set_Block_Property('T_Prom_Item_Serial', Insert_Allowed, Property_True);
    Set_Block_Property('T_Prom_Item_Serial', Update_Allowed, Property_True);
    Set_Block_Property('T_Prom_Item_Serial', Delete_Allowed, Property_True);
    Go_Block('T_Prom_Item_Serial');
    Clear_Block(No_Commit);
    First_Record;
    For c In CurAiSl Loop
      :PiSl_PromI_Id := :PromI_Id;
      :PiSl_Items_Sl_Ref := c.PaiSl_Items_Sl_Ref;
      :PiSl_Qty_Bu := c.PaiSl_Qty_Bu;
      :PiSl_Load_Flag := 'Loaded';
      Next_Record;
    End Loop;
    First_Record;
    
    Go_Block('T_Prom_Item_Serial');
    Last_Record;
    v_Rec_Num_Sl := Get_Block_Property('T_Prom_Item_Serial', Current_Record);
    If :PiSl_Items_Sl_Ref Is Null Then
      v_Rec_Num_Sl:= v_Rec_Num_Sl - 1;
    End If;
    If v_Rec_Num_Sl <= 0 Then
      Prom_Message('Promotion Item has no Serial Numbers!');
      Raise Form_Trigger_Failure;
    End If;
  End If;
END;

Begin
  If :PromFq_Item_Code Is Not Null Then
    If :OldFq_Item_Code Is Not Null And :OldFq_Item_Code <> :PromFq_Item_Code Then
       Prom_Message('Serial number already entered. Can''t change itemcode!');
       Raise Form_Trigger_Failure;
    End If;
    If Nvl(:Frm_Loc_Validate_Stock, 'Y') = 'Y' Then
      Select Item_Name, Nvl(:PromFq_Uom_Code,Item_Uom_Code), Item_Serial_Status, Nvl(:PromFq_Max_Loose,Uom_Max_Loose)
      Into :PromFq_Item_Name, :PromFq_Uom_Code, :PromFq_Item_Sl_Status, :PromFq_Max_Loose
      From M_Item, M_Stock, M_Stock_Company, M_Uom
      Where Stkc_Item_Code = Item_Code And Uom_Code = Item_Uom_Code
        And Stkc_Comp_Code = Stk_Comp_Code(+)  And Stkc_Item_Code = Stk_Item_Code(+)
        And Stk_Loc_Code(+) = :PromH_Loc_Code
        And Stkc_Comp_Code = :Global.Company And Item_Code = :PromFq_Item_Code
        And Stk_Unconf_Qty >0;
      If :PromFq_Item_Name Is Null AND Nvl(:PROMH_PROMT_CODE,'N') <> 'PP' Then   ---Added By Faisal Habeeb on 12/01/2015
        Prom_Message('Invalid Item Code/ Insufficient Stock!');
        Raise Form_Trigger_Failure;
      End If;
    Else
      Select Item_Name,  Nvl(:PromFq_Uom_Code,Item_Uom_Code), Item_Serial_Status, Nvl(:PromFq_Max_Loose,Uom_Max_Loose) 
      Into :PromFq_Item_Name, :PromFq_Uom_Code, :PromFq_Item_Sl_Status, :PromFq_Max_Loose
      From M_Item, M_Uom
      Where Item_Uom_Code = Uom_Code And Item_Code = :PromFq_Item_Code
      And Nvl(Item_Status, 'Open') = 'Open';
      
      If :PromFq_Item_Name Is Null Then
        Prom_Message('Item not found!');
        Raise Form_Trigger_Failure;
      End If;
    End If;
    
    If :PromFq_Uom_Code = 'PCS' Then
      :PromFq_Loose := Null;
      Set_Item_Property('PromFq_Loose', ENABLED, PROPERTY_FALSE);
    Else
      Set_Item_Property('PromFq_Loose', ENABLED, PROPERTY_TRUE);
      Set_Item_Property('PromFq_Loose', NAVIGABLE, PROPERTY_TRUE);
    End If;
    If :PromFq_Item_Sl_Status In ('Manual', 'Auto') Then
      Set_Item_Property('Pb_Fq_Manual_Sl', Enabled, Property_True);
      Set_Item_Property('Pb_Fq_Manual_Sl', Navigable, Property_True);  
    End If;
  End If;
Exception When No_Data_Found Then
  Prom_Message('Invalid Item Code/ Insufficient Stock!');
  Raise Form_Trigger_Failure;
End;

Declare
  v_PromFq_Qty_Bu Number;
Begin
  If :PromFi_Item_Code Is Not Null Then
    If :OldFi_Item_Code Is Not Null And :OldFi_Item_Code <> :PromFi_Item_Code Then
       Prom_Message('Serial number already entered. Can''t change itemcode!');
       Raise Form_Trigger_Failure;
    End If;
    
    If Nvl(:Frm_Loc_Validate_Stock, 'Y') = 'Y' Then
      Select Item_Name, Nvl(:PromFi_Uom_Code, Item_Uom_Code), Item_Serial_Status, Nvl(:PromFi_Max_Loose, Uom_Max_Loose) 
      Into :PromFi_Item_Name, :PromFi_Uom_Code, :PromFi_Item_Sl_Status, :PromFi_Max_Loose
        From M_Item, M_Stock, M_Stock_Company, M_Uom
          Where Stkc_Item_Code = Item_Code And Uom_Code = Item_Uom_Code
            And Stkc_Comp_Code = Stk_Comp_Code(+)  And Stkc_Item_Code = Stk_Item_Code(+)
            And Stk_Loc_Code(+) = :PromH_Loc_Code
            And Stkc_Comp_Code = :Global.Company And Item_Code = :PromFi_Item_Code
            And Stk_Unconf_Qty >0 ;
            
      If :PromFi_Item_Name Is Null Then
        Prom_Message('Invalid Item Code/ Insufficient Stock!');
        Raise Form_Trigger_Failure;
      End If;
    Else
      Select Item_Name, Nvl(:PromFi_Uom_Code, Item_Uom_Code), Item_Serial_Status, Nvl(:PromFi_Max_Loose, Uom_Max_Loose)  
      Into :PromFi_Item_Name, :PromFi_Uom_Code, :PromFi_Item_Sl_Status, :PromFi_Max_Loose
      From M_Item, M_Uom
      Where Item_Uom_Code = Uom_Code  And Item_Code = :PromFi_Item_Code
      And Nvl(Item_Status, 'Open') = 'Open';
      
      If :PromFi_Item_Name Is Null Then
        Prom_Message('Item not found!');
        Raise Form_Trigger_Failure;
      End If;
    End If;  
    
    If :PromFi_Uom_Code = 'PCS' Then
      :PromFi_Loose := Null;
      Set_Item_Property('PromFi_Loose', ENABLED, PROPERTY_FALSE);
    Else
      Set_Item_Property('PromFi_Loose', ENABLED, PROPERTY_TRUE);
      Set_Item_Property('PromFi_Loose', NAVIGABLE, PROPERTY_TRUE);
    End If;
    If :PromH_Promt_Code In ('FG','AS') And :PromH_Option <> 'P' And :PromFi_Item_Sl_Status In ('Manual', 'Auto') Then               --Checking Foc Qty
      If Nvl(:PromH_Qty_Bu, 0) = 0 Or Nvl(:PromH_Foc_Bu, 0) = 0 Then
         Prom_Message('Foc Qty is not defined!');
         Raise Form_Trigger_Failure;
      End If;
      v_PromFq_Qty_Bu := Nvl(:PromFq_Qty * :PromFq_Max_Loose, 0) + Nvl(:PromFq_Loose, 0);
      :PromFi_Loose:= Floor((v_PromFq_Qty_Bu/:PromH_Qty_Bu)* :PromH_Foc_Bu);
      If Nvl(:PromFi_Loose, 0) >= Nvl(:PromFi_Max_Loose, 1) Then  --Convert Qty to Carton and Loose
        :PromFi_Qty := Floor(:PromFi_Loose / Nvl(:PromFi_Max_Loose, 1));
        :PromFi_Loose := Mod(:PromFi_Loose, Nvl(:PromFi_Max_Loose, 1));
      End If;
    End If;
    If :PromFi_Item_Sl_Status In ('Manual', 'Auto') Then
      Set_Item_Property('Pb_Fi_Manual_Sl', Enabled, Property_True);
      Set_Item_Property('Pb_Fi_Manual_Sl', Navigable, Property_True);
    End If;
  End If;
Exception When No_Data_Found Then
  Prom_Message('Invalid Item Code/ Insufficient Stock!');
  Raise Form_Trigger_Failure;
End;

Declare
  v_Uom_Code Varchar2(10);
  v_Max_Loose Number;
Begin
  If :PromI_Item_Code Is Not Null Then
    If :PromH_Promt_Code In ('FG','AS') Then  -- Free Goods
      If :PromI_Item_Code <> Nvl(:Old_Item_Code, 'Xx') Then
        Prom_Message('Item Code Mismatch with Qualified Item Code!');
        Raise Form_Trigger_Failure;
      End If;
    End If;
    
    If (Nvl(:PARAMETER.P_GRP, 'N') = 'A' Or  Nvl(:Frm_Loc_Validate_Stock, 'Y') = 'N') Then  --Wrapped Items/ no validate stock then no stock verification
      Select Item_Name, Item_Uom_Code, Item_Serial_Status, Uom_Max_Loose, Item_Exp_Type 
      Into :T_PROM_ITEM.Item_Name, v_Uom_Code, :PromI_Item_Sl_Status, v_Max_Loose, :En_Batch1
      From M_Item, M_Uom
      Where Item_Uom_Code = Uom_Code And Nvl(Item_Status, 'Open') = 'Open' And Item_Code = :PromI_Item_Code;
    Else                                      --Stock Verification
      Select Item_Name, Item_Uom_Code, Item_Serial_Status, Uom_Max_Loose
      Into :T_PROM_ITEM.Item_Name, v_Uom_Code, :PromI_Item_Sl_Status, v_Max_Loose
      From M_Item, M_Stock, M_Stock_Company, M_Uom
      Where Stkc_Item_Code = Item_Code And Uom_Code = Item_Uom_Code
          And Stkc_Comp_Code = Stk_Comp_Code(+)  And Stkc_Item_Code = Stk_Item_Code(+)
          And Stk_Loc_Code(+) = :PromH_Loc_Code
          And Stkc_Comp_Code = :Global.Company And Item_Code = :PromI_Item_Code
          And Stk_Unconf_Qty >0;
    End If;
    
    If :PromI_Plu_Code Is Null And :PromI_Item_Code Is Not Null Then
      :PromI_Uom_Code := v_Uom_Code;
    End If;
    
    If :PromI_Uom_Code Is Not Null Then
      Select Uom_Max_Loose Into :PromI_Max_Loose 
      From M_Uom
      Where Uom_Code = :PromI_Uom_Code;
    End If;
    
    If :PromI_Uom_Code = 'PCS' Then
      :PromI_Loose := Null;
      Set_Item_Property('PROMI_LOOSE', ENABLED, PROPERTY_FALSE);
    Else
      Set_Item_Property('PROMI_LOOSE', ENABLED, PROPERTY_TRUE);
      Set_Item_Property('PROMI_LOOSE', NAVIGABLE, PROPERTY_TRUE);
    End If;
    If :PromI_Item_Sl_Status In ('Manual', 'Auto') Then
      Set_Item_Property('Pb_Pi_manual_Sl', Enabled, Property_True);
      Set_Item_Property('Pb_Pi_manual_Sl', Navigable, Property_True);
    End If;
    
   
    If Nvl(:En_Batch1,'N') = 'N' Then
      Set_Item_Property('PromI_Batch', Enabled, Property_False);
      Set_Item_Property('PromI_Exp_Dt', Enabled, Property_False);
     Else
      Set_Item_Property('PromI_Batch', Enabled, Property_True);
      Set_Item_Property('PromI_Exp_Dt', Required, Property_True);
      Set_Item_Property('PromI_Exp_Dt', Enabled, Property_True);
    End If;


  End If;
  
  
Exception When No_Data_Found Then
  Prom_Message('Invalid Item Code/ Insufficient Stock!');
  Raise Form_Trigger_Failure;  
End;

PROCEDURE Proc_Draft IS
 v_Alert Number;
BEGIN
  
  Set_Block_Property('T_PROM_HEAD', Update_Allowed, Property_True);
  Set_item_Property('Promh_Status',Enabled,Property_True);    
  Set_item_Property('Promh_Status',Update_allowed,Property_True);
  Set_item_Property('PromH_Approval_Status',Enabled,Property_True);  
  Set_item_Property('PromH_Approval_Status',Update_allowed,Property_True);
  Set_item_Property('Promh_Draft_Yn',Enabled,Property_True);  
  Set_item_Property('Promh_Draft_Yn',Update_allowed,Property_True);
  
  :Frm_En_Draft := Fn_Get_Stk_Txn_Param(:PromH_Txn_Code,:Global.Company, 'PROM_EN_DRAFT');  ---Added on 06/Aug/2020 , Adding Draft.      
  If Nvl(:Frm_En_Draft,'N') = 'N' Then --- For No Darft Companies, without manual approval
      :Promh_Draft_Yn := 'N';
     If Nvl(Fn_Get_Stk_Txn_Param(:PromH_Txn_Code, :Global.Company, 'PROM_REQ_APPROVAL'), 'N') = 'N' Then
        :PromH_Approval_Status := 'F';               
        :Promh_Status := 'F';
        :Promh_Draft_Yn := 'N';
     End If;            
  Else --- For Companies with Draft option enabled
      --- Added on 18/10/2019,Shebin,  -- Confirm Documents
      If Nvl(:Frm_En_Draft,'N') ='Y' and Nvl(:Promh_Approval_Status,'N') <>'F' 
         and Nvl(:Promh_Draft_Yn,' ') <> 'N' Then ---to avoid the already saved record , saving as Draft again. --06/08/2020
        Set_Alert_Property('CAUTION', ALERT_MESSAGE_TEXT, 'Would you like to keep this document as draft?');
        V_Alert := Show_Alert ('CAUTION');
      End If;
        If Nvl(Fn_Get_Stk_Txn_Param(:PromH_Txn_Code, :Global.Company, 'PROM_REQ_APPROVAL'), 'N') = 'Y' Then    --- Added on 27/7/2020,Anju,5603
           If V_Alert = Alert_Button1 Then
             :Promh_Draft_Yn := 'Y';
           ElsIf V_Alert = Alert_Button2 Then
             :Promh_Draft_Yn := 'N';       
           Else --- if cancel button is clicked
              Set_Block_Property('T_PROM_HEAD', Update_Allowed, Property_False);
              Set_item_Property('Promh_Status',Enabled,Property_False);    
              Set_item_Property('Promh_Status',Update_allowed,Property_False);
              Set_item_Property('PromH_Approval_Status',Enabled,Property_False);  
              Set_item_Property('PromH_Approval_Status',Update_allowed,Property_False);
              Set_item_Property('Promh_Draft_Yn',Enabled,Property_False);  
              Set_item_Property('Promh_Draft_Yn',Update_allowed,Property_False);
              Raise Form_Trigger_Failure;
           End If; --till
       ElsIf Nvl(Fn_Get_Stk_Txn_Param(:PromH_Txn_Code, :Global.Company, 'PROM_REQ_APPROVAL'), 'N') = 'N' Then  --Auto Then   --till here
            If V_Alert = Alert_Button2 or V_Alert is Null  Then 
               :PromH_Approval_Status := 'F';               
               :Promh_Status := 'F';
               :Promh_Draft_Yn := 'N';
            ElsIf V_Alert = Alert_Button1 Then
              :Promh_Draft_Yn := 'Y';     
            Else --- If cancel button is clicked              
              Set_Block_Property('T_PROM_HEAD', Update_Allowed, Property_False);
              Set_item_Property('Promh_Status',Enabled,Property_False);    
              Set_item_Property('Promh_Status',Update_allowed,Property_False);
              Set_item_Property('PromH_Approval_Status',Enabled,Property_False);  
              Set_item_Property('PromH_Approval_Status',Update_allowed,Property_False);
              Set_item_Property('Promh_Draft_Yn',Enabled,Property_False);  
              Set_item_Property('Promh_Draft_Yn',Update_allowed,Property_False);
              Raise Form_Trigger_Failure;
            End If;
        End If;
   End If;--- Else ---  Nvl(:Frm_En_Draft,'N') = 'N' Then
  Set_Block_Property('T_PROM_HEAD', Update_Allowed, Property_False);
  Set_item_Property('Promh_Status',Enabled,Property_False);    
  Set_item_Property('Promh_Status',Update_allowed,Property_False);
  Set_item_Property('PromH_Approval_Status',Enabled,Property_False);  
  Set_item_Property('PromH_Approval_Status',Update_allowed,Property_False);
  Set_item_Property('Promh_Draft_Yn',Enabled,Property_False);  
  Set_item_Property('Promh_Draft_Yn',Update_allowed,Property_False);
  
  Approval_Validation; 
END;

PROCEDURE Load_Foc_Items IS
  rg_Name Varchar(20):= 'RG_FOC_QUALIFY';
  rg_Id RecordGroup;
  rg_Col GroupColumn;
  v_Row_Num Number := 1;
  Cursor CurFqSl(v_PromFq_Id Number) Is 
    Select PfqS_PromFq_Id, PfqS_Items_Sl_Ref, PfqS_Qty_Bu 
    From T_Prom_Foc_Qualify_Serial, T_Prom_Foc_Qualify
    Where PromFq_Id = PfqS_PromFq_Id And PromFq_Item_Sl_Status In ('Manual', 'Auto')
    And PromFq_PromH_Id = :PromH_Id And PfqS_PromFq_Id = v_PromFq_Id;
BEGIN
  If :PromH_Promt_Code In ('FG','AS') Then  --Free Goods    
    rg_Id := Find_Group(rg_Name); 
    If Not Id_Null(rg_Id) Then
      Delete_Group_Row(rg_Id, ALL_ROWS);
    End If;
    If Id_Null(rg_Id) Then
      rg_Id := Create_Group('RG_FOC_QUALIFY');
      rg_Col := Add_Group_Column(rg_Id, 'Fq_Id', NUMBER_COLUMN);
      rg_Col := Add_Group_Column(rg_Id, 'ITEM_CODE', CHAR_COLUMN);
      rg_Col := Add_Group_Column(rg_Id, 'UOM_CODE', CHAR_COLUMN);
      rg_Col := Add_Group_Column(rg_Id, 'Fq_Qty', NUMBER_COLUMN);
      rg_Col := Add_Group_Column(rg_Id, 'Fq_Loose', NUMBER_COLUMN);
      rg_Col := Add_Group_Column(rg_Id, 'Fq_Sl_Ref', NUMBER_COLUMN);
    End If;
    
    Go_Block('T_Prom_Foc_Qualify');
    First_Record;
    Loop
      Add_Group_Row(rg_Id, v_Row_Num);
      Set_Group_Number_Cell('RG_FOC_QUALIFY.Fq_Id', v_Row_Num, :PromFq_Id);
      Set_Group_Char_Cell('RG_FOC_QUALIFY.ITEM_CODE', v_Row_Num, :PromFq_Item_Code);
      Set_Group_Char_Cell('RG_FOC_QUALIFY.UOM_CODE', v_Row_Num, :PromFq_Uom_Code);
      Set_Group_Number_Cell('RG_FOC_QUALIFY.Fq_Qty', v_Row_Num, :PromFq_Qty);
      Set_Group_Number_Cell('RG_FOC_QUALIFY.Fq_Loose', v_Row_Num, :PromFq_Loose);
      --Set_Group_Number_Cell('RG_FOC_QUALIFY.Fq_Sl_Ref', v_Row_Num, :PromFq_Item_Sl_Ref);
      If :System.Last_Record = 'TRUE' Then
        Exit;
      End If;
      v_Row_Num := v_Row_Num + 1;
      Next_Record;
    End Loop;
    First_Record;
    
    Set_Block_Property('T_Prom_Item_Serial', Insert_Allowed, Property_True);
    Set_Block_Property('T_Prom_Item_Serial', Update_Allowed, Property_True);
    Set_Block_Property('T_Prom_Item_Serial', Delete_Allowed, Property_True);
    
    Go_Block('T_Prom_Item');
    v_Row_Num := 1;
    First_Record;
    While (v_Row_Num <= Get_Group_Row_Count(rg_Id)) Loop
      :PromI_Item_Code := Get_Group_Char_Cell('RG_FOC_QUALIFY.ITEM_CODE', v_Row_Num);
      :PromI_Uom_Code := Get_Group_Char_Cell('RG_FOC_QUALIFY.UOM_CODE', v_Row_Num);
      :PromI_Qty := Get_Group_Number_Cell('RG_FOC_QUALIFY.Fq_Qty', v_Row_Num);
      :PromI_Loose := Get_Group_Number_Cell('RG_FOC_QUALIFY.Fq_Loose', v_Row_Num);  
      --:PromI_Item_Sl_Ref := Get_Group_Number_Cell('RG_FOC_QUALIFY.Fq_Sl_Ref', v_Row_Num);  
      :PromI_Sl_Manual_Flag := 1;
      :Old_Item_Code := :PromI_Item_Code;
      :Old_Qty := :PromI_Qty;
      :Old_Loose := :PromI_Loose;
    
      --Assigned Manual serial Number
      Go_Block('T_Prom_Item_Serial');
      First_Record;
      For sl In CurFqSl(Get_Group_Number_Cell('RG_FOC_QUALIFY.Fq_Id', v_Row_Num)) Loop
        :PiSl_Items_Sl_Ref := sl.PfqS_Items_Sl_Ref;
        :PiSl_Qty_Bu := sl.PfqS_Qty_Bu;
        Next_Record;
      End Loop;
      Previous_Record;
      Post;
      Clear_Block(No_Commit);
      Go_Block('T_Prom_Item');
      --End of Assigned Manual serial Number
      v_Row_Num := v_Row_Num + 1;
      Next_Record;
    End Loop;
    First_Record;
    --Set_Item_Property('PromI_Item_Sl_Ref', Enabled, Property_False);
    Set_Block_Property('T_Prom_Foc_Qualify', Insert_Allowed, Property_False);
    Set_Block_Property('T_Prom_Foc_Qualify', Update_Allowed, Property_False);
    Set_Block_Property('T_Prom_Foc_Qualify', Delete_Allowed, Property_False);

    Set_Block_Property('T_Prom_Foc_Qualify_Serial', Insert_Allowed, Property_False);
    Set_Block_Property('T_Prom_Foc_Qualify_Serial', Update_Allowed, Property_False);
    Set_Block_Property('T_Prom_Foc_Qualify_Serial', Delete_Allowed, Property_False);
    
    Set_Block_Property('T_Prom_Item_Serial', Insert_Allowed, Property_False);
    Set_Block_Property('T_Prom_Item_Serial', Update_Allowed, Property_False);
    Set_Block_Property('T_Prom_Item_Serial', Delete_Allowed, Property_False);
    
    Set_Item_Property('PromI_Item_Code', Insert_Allowed, Property_False);
    Set_Item_Property('PromI_Item_Code', Update_Allowed, Property_False);
    Set_Item_Property('PromI_Uom_Code', Enabled, Property_False);
    Set_Item_Property('PromI_Qty', Enabled, Property_False);
    Set_Item_Property('PromI_Loose', Enabled, Property_False);
  End If;
END;

PROCEDURE Print_Promotion IS
  Pl_Id     ParamList;
  v_Status  VarChar2(20);
  v_Log_Id  Number;
  v_Report  Varchar2(30);
  v_Report VarChar2(30) :=  'rep_prom_voucher';
  v_Rep_Id  Report_Object;
  v_Rep_Job_Id VarChar2(100);
  v_Job_Id VarChar2(100);
  v_Rep_Status VarChar2(100);
  v_Rep_URL VarChar2(1000);
  v_Host_Name VarChar2(100) := :Global.Rep_Host_Name;
  v_Port    VarChar2(100) := :Global.Rep_Port;
  v_Rep_Server VarChar2(100) := :Global.Rep_Server;
  v_Dt       Date;
Begin
  /*Select count(*) INTO :PromH_Prn_Count From T_Txn_Print_Log
  Where Log_Comp_Code =:PROMH_Comp_Code
  and Log_Loc_Code =:PROMH_Loc_Code
  and Log_Ayr_Code =:PROMH_Ayr_Code
  and Log_Txn_Code =:PROMH_Txn_Code
  and :PROMH_No Between log_No_From and Log_No_To;*/

  :Frm_Desformat  :=  Fn_Get_Stk_Txn_Param(:PROMH_Txn_Code,:Global.Company, 'PROM_REP_DESFORMAT');
  :Frm_Skip_Print :=  Fn_Get_Stk_Txn_Param(:PROMH_Txn_Code,:Global.Company, 'PROM_SKIP_PRINT');
  :Frm_Report := Fn_Get_Stk_Txn_Param(:PROMH_Txn_Code,:Global.Company, 'PROM_REPORT');

  /*If Nvl(:PROMH_Prn_Count, 0) > 0 Then
      Exit_Form(No_Commit, No_RollBack);
  Els*/
  If Nvl(:PROMH_Prn_Count, 0) = 0 AND Nvl(:Frm_Skip_Print, 'N') = 'N'  Then  
    PL_Id := Get_Parameter_List('Print');
    If Not Id_Null(Pl_Id) Then
       Destroy_Parameter_List(Pl_Id);
    End If;

     PL_Id := Create_Parameter_List('Print');

    
    Add_Parameter(PL_Id, 'Comp_Code', Text_Parameter, :Global.Company);
    Add_Parameter(PL_Id, 'Loc_Code', Text_Parameter, :PROMH_Loc_Code);
    Add_Parameter(PL_Id, 'Txn_Code', Text_Parameter, :PROMH_Txn_Code);
    Add_Parameter(PL_Id, 'Ayear_Code', Text_Parameter, :PROMH_AYr_Code);
    Add_Parameter(PL_Id, 'Doc_No', Text_Parameter, :PROMH_No);
    Add_Parameter(PL_Id, 'User_Code', Text_Parameter, :Global.User);
    Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No');


    v_Rep_Id := Find_Report_Object('rep_prom_voucher');
    --Communication Mode
    Set_Report_Object_Property(v_Rep_Id, Report_Comm_Mode, Synchronous);
    Set_Report_Object_Property(v_Rep_Id, Report_Desformat, 'PDF');

    --User pref.Printer    
    :Frm_Printer_Name := Fn_Get_User_Preference(:Global.User, :Global.Company, :PROMH_Txn_Code, 'USR_PRINTER');
    
    If :Frm_Printer_Name Is Null Then
      :Frm_Printer_Name := Fn_Get_Stk_Txn_Param(:PROMH_Txn_Code, :Global.Company, 'PROMH_PRINTER');
    End If;

    --Handled Destination Type and Name
    If Nvl(:Frm_Printer_Name,:Mnu_Printer_Name) Is Not Null Then
       Set_Report_Object_Property(v_Rep_Id, Report_DesName, Nvl(:Frm_Printer_Name,:Mnu_Printer_Name));
    Else
       Set_Report_Object_Property(v_Rep_Id, Report_DesType,CACHE);
    End If;
    
    --Specify Report Server and Report File Name
     Set_Report_Object_Property(v_Rep_Id, Report_Server, v_Rep_Server);
     Set_Report_Object_Property(v_Rep_Id, Report_FileName,lower(:FRM_REPORT));
     
    --Run Report
    v_Rep_Job_Id := Run_Report_Object(v_Rep_Id, PL_Id);
    v_Rep_Status := Report_Object_Status(v_Rep_Job_Id);
    
    
    SET_CUSTOM_PROPERTY('CTRL.PRINTBEAN',1,'DEFAULT_PRINTER',Nvl(:Frm_Printer_Name,:Mnu_Printer_Name));
    If v_Rep_Status = 'FINISHED' Then
      If Upper(:Mnu_Dest_Name) = 'PRINTER' Then
           v_Job_Id := SubStr(v_Rep_Job_Id, length(v_Rep_Server)+2);
           v_Rep_URL := 'http://' || v_Host_Name || ':' || v_Port || '/reports/rwservlet/getjobid' || v_Job_Id || '?server=' || v_Rep_Server;
           Message(v_Rep_URL);
           SET_CUSTOM_PROPERTY('CTRL.PRINTBEAN',1,'FILE_NAME',v_Rep_URL);
           SET_CUSTOM_PROPERTY('CTRL.PRINTBEAN',1,'PRINT_FILE','');
           Message(v_Rep_URL);
           --Web.Show_Document(v_Rep_URL, '_blank');
      Elsif Upper(:Mnu_Dest_Name) = 'CACHE' Then
            v_Job_Id := SubStr(v_Rep_Job_Id, length(v_Rep_Server)+2);
           v_Rep_URL := 'http://' || v_Host_Name || ':' || v_Port || '/reports/rwservlet/getjobid' || v_Job_Id || '?server=' || v_Rep_Server;
           Message(v_Rep_URL);
           Web.Show_Document(v_Rep_URL, '_blank');
      End If;
    Else
      Message('Error Running Report');
    End If;
  
    Proc_Insert_Txn_Print_Log1(:Global.Company,
                  :PROMH_Loc_Code,:PROMH_Ayr_Code,:PROMH_Txn_Code,:PROMH_No,:PROMH_No, Sysdate,:Global.User);
    Standard.Commit;  
  End If;        
End;

PROCEDURE INIT_FORM IS
BEGIN
  Clear_Form(No_Commit);
  
  
  :Frm_Comp_Name := :Global.Company_Name;
  :Frm_Mand_Eod := Fn_Get_Company_Param(:Global.Company,'COM_MAND_EOD');
  :Frm_Cost_Valuation_Method := Fn_Get_Company_Param(:Global.Company,'COM_COST_VALUATION_METHOD');
  
  --Date Formats
  Set_Item_Property('PROMH_Dt', Format_Mask, :Global.DateFormat);
  Set_Item_Property('PROMH_Dt_Fm', Format_Mask, :Global.DateFormat);
  Set_Item_Property('PROMH_Dt_to', Format_Mask, :Global.DateFormat);
  Set_Item_Property('PROMI_EXP_DT', Format_Mask, :Global.DateFormat);
  Set_Item_Property('PROMAI_EXP_DT', Format_Mask, :Global.DateFormat);

  Set_Item_Property('PROMH_EXT_UPTO', Format_Mask, :Global.DateFormat);

  :Frm_Rights_New := Fn_Get_User_Rights(:Global.Company, :Parameter.Menu_Code, :Global.User, 'New');
  :Frm_Rights_Edt := Fn_Get_User_Rights(:Global.Company, :Parameter.Menu_Code, :Global.User, 'Edit');
  :Frm_Rights_Can := Fn_Get_User_Rights(:Global.Company, :Parameter.Menu_Code, :Global.User, 'Cancel');
  :Frm_Rights_Prn := Fn_Get_User_Rights(:Global.Company, :Parameter.Menu_Code, :Global.User, 'Print');
  
  --Menu Parameters
  :Mnu_Txn := Fn_Get_Menu_Param(:Parameter.Menu_Code, 'MNU_DEF_TXN_CODE');
  :Mnu_En_Txn := Fn_Get_Menu_Param(:Parameter.Menu_Code, 'MNU_EN_TXN_CODE');
  :Mnu_Dest_Name := Fn_Get_Menu_Param(:Parameter.Menu_Code, 'MNU_DEST_NAME');
  :Mnu_Title := Fn_Get_Menu_Param(:Parameter.Menu_Code, 'MNU_TITLE');
  :Mnu_FormColor := Fn_Get_Menu_Param(:Parameter.Menu_Code, 'MNU_FORMCOLOR');  
  
  SET_ITEM_PROPERTY('BT_NEXT_CUST',LABEL,'&Next');
  SET_ITEM_PROPERTY('BT_NEXT_SUPP',LABEL,'&Next');
  SET_ITEM_PROPERTY('BT_NEXT_ITEMS',LABEL,'&Finish');
  
  SET_TAB_PAGE_PROPERTY('PROM_CUSTOMER', Visible, Property_False);  
  SET_TAB_PAGE_PROPERTY('PROM_SUPP_CHARGE', Visible, Property_False);  
  SET_TAB_PAGE_PROPERTY('PROM_ITEM', Visible, Property_False);
  
  Set_Item_Property('PROMH_TXN_CODE', Enabled, Property_True);
  Set_Item_Property('PROMH_TXN_CODE', Navigable, Property_True);
  Set_Item_Property('LOV_PROMT_CODE', Enabled, Property_True);
  Set_Item_Property('PROMH_PROMT_CODE', Enabled, Property_True);
  Set_Item_Property('PROMH_PROMT_CODE', Navigable, Property_True);
  Set_Item_Property('PROMH_CHARG_TYPE', Enabled, Property_True);
  Set_Item_Property('PROMH_CUST_ALLOC', Enabled, Property_True);
  Set_Item_Property('PROMH_OPTION', Enabled, Property_True);  --Qty and period enabled
  
   If :Frm_Rights_New > 0 Then -- If condition added , 21/Aug/2020
    Set_Block_Property('T_PROM_HEAD', Insert_Allowed, Property_True);
    Set_Block_Property('T_PROM_HEAD', Update_Allowed, Property_True);
    Set_Block_Property('T_PROM_HEAD', Delete_Allowed, Property_True);
  
    Set_Block_Property('T_PROM_CUSTOMER', Insert_Allowed, Property_True);
    Set_Block_Property('T_PROM_CUSTOMER', Update_Allowed, Property_True);
    Set_Block_Property('T_PROM_CUSTOMER', Delete_Allowed, Property_True);
  
    Set_Block_Property('T_PROM_SUPP_CHARGE', Insert_Allowed, Property_True);
    Set_Block_Property('T_PROM_SUPP_CHARGE', Update_Allowed, Property_True);
    Set_Block_Property('T_PROM_SUPP_CHARGE', Delete_Allowed, Property_True);
  
    Set_Block_Property('T_PROM_ITEM', Insert_Allowed, Property_True);
    Set_Block_Property('T_PROM_ITEM', Update_Allowed, Property_True);
    Set_Block_Property('T_PROM_ITEM', Delete_Allowed, Property_True);
    
    Set_Item_Property('BT_NEXT_ITEMS', Enabled, Property_True);   
   Else ---else part added , 21/Aug/2020
    Set_Block_Property('T_PROM_HEAD', Insert_Allowed, Property_False);
    Set_Block_Property('T_PROM_HEAD', Update_Allowed, Property_False);
    Set_Block_Property('T_PROM_HEAD', Delete_Allowed, Property_False);
  
    Set_Block_Property('T_PROM_CUSTOMER', Insert_Allowed, Property_False);
    Set_Block_Property('T_PROM_CUSTOMER', Update_Allowed, Property_False);
    Set_Block_Property('T_PROM_CUSTOMER', Delete_Allowed, Property_False);
  
    Set_Block_Property('T_PROM_SUPP_CHARGE', Insert_Allowed, Property_False);
    Set_Block_Property('T_PROM_SUPP_CHARGE', Update_Allowed, Property_False);
    Set_Block_Property('T_PROM_SUPP_CHARGE', Delete_Allowed, Property_False);
  
    Set_Block_Property('T_PROM_ITEM', Insert_Allowed, Property_False);
    Set_Block_Property('T_PROM_ITEM', Update_Allowed, Property_False);
    Set_Block_Property('T_PROM_ITEM', Delete_Allowed, Property_False);
    
    Set_Item_Property('BT_NEXT_ITEMS', Enabled, Property_False);         
   End If;  


  Set_Block_Property('T_PROM_ALLOC_ITEM', INSERT_ALLOWED, Property_False); --not wrapped items block disabled
  Set_Block_Property('T_PROM_ALLOC_ITEM', UPDATE_ALLOWED, Property_False);
  Set_Block_Property('T_PROM_ALLOC_ITEM', DELETE_ALLOWED, Property_False);
  Set_Item_Property('BT_ITEM_ALLOC', Enabled, Property_False);
  
  Set_Item_Property('PROMH_DT_FM', Enabled, Property_False);
  Set_Item_Property('PROMH_DT_TO', Enabled, Property_False);
  Set_Item_Property('PROMH_EXT_UPTO', Enabled, Property_False);
  
  Set_Lov_Property('LOV_ITEM',GROUP_NAME,'LOV_ITEM'); 
  Set_Item_Property('PROMI_WLOC_CODE', Required, Property_False);
  
    
  If :Frm_Rights_Prn > 0 Then
    Set_Item_Property('PB_DUPLICATE', Enabled, Property_True);
  Else
    Set_Item_Property('PB_DUPLICATE', Enabled, Property_False);
  End If;
  
END;

Declare
  v_Al Number;
  v_Cnt_Qual Number;
  v_Cnt_Item Number;
  v_Count Number;
Begin
  Go_Block('T_PROM_FOC_QUALIFY');
  If :PromH_Promt_Code In ('FG','AS') And Get_Record_Property(1, 'T_PROM_FOC_QUALIFY', Status) = 'NEW' Then
    Prom_Message('Foc Qualified Item Details Not Entered!');
    Raise Form_Trigger_Failure;
  End If;
  Last_Record;
  v_Cnt_Qual := Get_Block_Property('T_PROM_FOC_QUALIFY', Current_Record);
  
  Go_Block('T_PROM_FOC_ITEM');
  If :PromH_Promt_Code In ('FG','AS') And Get_Record_Property(1, 'T_PROM_FOC_ITEM', Status) = 'NEW' Then
    Prom_Message('Foc Item Details Not Entered!');
    Raise Form_Trigger_Failure;
  End If;
  Go_Block('T_PROM_CUSTOMER');
  If Nvl(:PromH_Cust_Alloc, 'N') = 'Y' And Get_Record_Property(1, 'T_PROM_CUSTOMER', Status) = 'NEW' Then
    Prom_Message('Customer Details Not Entered!');
    Raise Form_Trigger_Failure;
  End If;
  Go_Block('T_PROM_SUPP_CHARGE');
  If Nvl(:PromH_Charg_Type, 'NONE') = 'SUPP'  And  Get_Record_Property(1, 'T_PROM_SUPP_CHARGE', Status) = 'NEW' Then
    Prom_Message('Supplier Details Not Entered!');
    Raise Form_Trigger_Failure;
  End If;
  Go_Block('T_PROM_PLIST');
  If Get_Record_Property(1, 'T_PROM_PLIST', Status) = 'NEW' Then
    PROM_Message('Price Details Not Entered!');
    Raise Form_Trigger_Failure;
  End If;
  Go_Block('T_PROM_ITEM');
  If Get_Record_Property(1, 'T_PROM_ITEM', Status) = 'NEW' Then
    PROM_Message('Item Details Not Entered!');
    Raise Form_Trigger_Failure;
  End If;
  Last_Record;
  v_Cnt_Item := Get_Block_Property('T_PROM_ITEM', Current_Record);
  
  Go_Block('T_PROM_ALLOC_ITEM');
  If Nvl(:PARAMETER.P_GRP, 'N') = 'A' And Get_Record_Property(1, 'T_PROM_ALLOC_ITEM', Status) = 'NEW' Then
    Prom_Message('Item Allocation Details Not Entered!');
    Raise Form_Trigger_Failure;
  End If;
  
  If v_Cnt_Qual <> v_Cnt_Item And :PromH_Promt_Code In ('FG','AS') Then
    Prom_Message('Item and Foc Item mismatch!');
    Raise Form_Trigger_Failure;
  End If;
  
  Check_Dupicate_Promo_Item;        --Checking Duplicate Promotion Item
  Post;
  If :PromI_Item_Sl_Status In ('Auto','Manual') And :PromI_Sl_Manual_Flag = 1 Then
    Select Count(*) Into v_Count From T_Prom_Item_Serial a, 
    (Select c.PiSl_PromI_Id, c.PiSl_Items_Sl_Ref Fm_Qty, Min(b.PiSl_Items_Sl_Ref) Min_Fm_Qty
    From T_Prom_Item_Serial b, T_Prom_Item_Serial c
    Where c.PiSl_PromI_Id = b.PiSl_PromI_Id And c.PiSl_PromI_Id = :PromI_Id 
    And b.PiSl_PromI_Id = :PromI_Id And b.PiSl_Items_Sl_Ref > c.PiSl_Items_Sl_Ref
    Group By c.PiSl_PromI_Id, c.PiSl_Items_Sl_Ref) k
    Where k.PiSl_PromI_Id = a.PiSl_PromI_Id And k.Fm_Qty = a.PiSl_Items_Sl_Ref
    And a.PiSl_PromI_Id = :PromI_Id And k.Min_Fm_Qty <= (a.PiSl_Items_Sl_Ref + a.PiSl_Qty_Bu - 1);
    
    If v_Count > 0 Then
      Prom_Message('Serial number invalid range!');
      Raise Form_Trigger_Failure;
    End If;
  End If;
  
  Updation_Alloc_Serial; --Updating wrapped promotion serial to items if check_cl= 'Y'

  --Proc_Draft; ---Added on 06/Aug/2020, Draft Option enabled      --- Commented on 20/8/2020, Draft option is not needed, reverting back
  If Nvl(Fn_Get_Stk_Txn_Param(:PromH_Txn_Code, :Global.Company, 'PROM_REQ_APPROVAL'), 'N') = 'N' Then  --Auto Then
      :PromH_Approval_Status := 'F';
  End If; --Added on 20/Aug/2020 , Moved from below
  
  Commit_Form;
  
  ---Price applicable for all branch--------
  If Nvl(:PromH_Price_All_Branch, 'N') = 'Y' Then
    Insert Into T_Prom_PList(Promp_Id, Promp_Promh_Id, Promp_Promi_Id, Promp_Plh_Code, Promp_Comp_Code,
    Promp_Item_Code, Promp_Uom_Code,  Promp_Rate, Promp_Disc_Perc, Promp_Disc_Amt, Promp_Cr_User, Promp_Cr_Dt)
    Select Fn_Get_Next_Id('PROM_PLIST'), Promp_Promh_Id, Promp_Promi_Id, Locpar_Par_Value, Promp_Comp_Code,
    Promp_Item_Code, Promp_Uom_Code,  Promp_Rate, Promp_Disc_Perc, Promp_Disc_Amt, :Global.User, Sysdate
    From T_Prom_Plist, (Select Locpar_Comp_Code, Locpar_Par_Value, Count(*) From M_Location_Param
    Where Locpar_Comp_Code = :Global.Company And Locpar_Par_Code = 'LOC_POSDATA_PLIST' And Locpar_Par_Value Is Not Null
    group by Locpar_Comp_Code, Locpar_Par_Value)
    Where Locpar_Par_Value <> Promp_Plh_Code
    And Exists (Select 'x' From M_Pl_Head
    Where PlH_Comp_Code = :Global.Company And Plh_Code = Locpar_Par_Value And Nvl(Plh_Auto_Update, 'N') = 'Y')
    And PromP_PromH_Id = :PromH_Id;
    Standard.Commit;
  End If;
 

  If Form_Success And :System.Form_Status = 'QUERY' Then
  /*
    If Nvl(Fn_Get_Stk_Txn_Param(:PromH_Txn_Code, :Global.Company, 'PROM_REQ_APPROVAL'), 'N') = 'N' Then  --Auto Then
      :PromH_Approval_Status := 'F';
    End If; */ --- Moved just before Commit_Form, Proc_draft is commented - 20/Aug/20
    
    Print_Promotion;                      --Added By Mojish 07/03/15
    
    Prom_Message('Do#: '||:PromH_Loc_Code||'/'||:PromH_Txn_Code||'/'||:PromH_No);
    Clear_Form(Do_Commit);
    Init_Form;
    
  End If;
End;

PROCEDURE BUTTON_NEXT(Tab_Name varchar2) IS
  v_Block_Status varchar2(15);
BEGIN
  If Tab_Name Is Null Then         --default then  
    v_Block_Status := Get_Block_Property('T_PROM_HEAD', STATUS);
    If v_block_status = 'QUERY' And :Parameter.Exec_Qry_Flag = 1 Then
      Set_Block_Property('T_PROM_CUSTOMER', Insert_Allowed, Property_False);
      Set_Block_Property('T_PROM_CUSTOMER', Update_Allowed, Property_False);
      Set_Block_Property('T_PROM_CUSTOMER', Delete_Allowed, Property_False);
      Go_Block('T_PROM_CUSTOMER'); Execute_Query(No_Commit);
        
      Set_Block_Property('T_PROM_SUPP_CHARGE', Insert_Allowed, Property_False);
      Set_Block_Property('T_PROM_SUPP_CHARGE', Update_Allowed, Property_False);
      Set_Block_Property('T_PROM_SUPP_CHARGE', Delete_Allowed, Property_False);
      Go_Block('T_PROM_SUPP_CHARGE'); Execute_Query(No_Commit);
        
      Set_Block_Property('T_PROM_ITEM', Insert_Allowed, Property_False);
      Set_Block_Property('T_PROM_ITEM', Update_Allowed, Property_False);
      Set_Block_Property('T_PROM_ITEM', Delete_Allowed, Property_False);
      Go_Block('T_PROM_ITEM'); Execute_Query(No_Commit);
      
      Set_Block_Property('T_PROM_PLIST', Insert_Allowed, Property_False);
      Set_Block_Property('T_PROM_PLIST', Update_Allowed, Property_False);
      Set_Block_Property('T_PROM_PLIST', Delete_Allowed, Property_False);  
        
      Set_Block_Property('T_PROM_ALLOC_ITEM', Insert_Allowed, Property_False);
      Set_Block_Property('T_PROM_ALLOC_ITEM', Update_Allowed, Property_False);
      Set_Block_Property('T_PROM_ALLOC_ITEM', Delete_Allowed, Property_False);
      Go_Block('T_PROM_ALLOC_ITEM'); Execute_Query(No_Commit);
      
      Set_Block_Property('T_PROM_FOC_QUALIFY', Insert_Allowed, Property_False);
      Set_Block_Property('T_PROM_FOC_QUALIFY', Update_Allowed, Property_False);
      Set_Block_Property('T_PROM_FOC_QUALIFY', Delete_Allowed, Property_False);
      
      Set_Block_Property('T_PROM_FOC_ITEM', Insert_Allowed, Property_False);
      Set_Block_Property('T_PROM_FOC_ITEM', Update_Allowed, Property_False);
      Set_Block_Property('T_PROM_FOC_ITEM', Delete_Allowed, Property_False);
      
      Set_Block_Property('T_Prom_Foc_Qualify_Serial', Insert_Allowed, Property_False);
      Set_Block_Property('T_Prom_Foc_Qualify_Serial', Update_Allowed, Property_False);
      Set_Block_Property('T_Prom_Foc_Qualify_Serial', Delete_Allowed, Property_False);
      
      Set_Block_Property('T_Prom_Foc_Item_Serial', Insert_Allowed, Property_False);
      Set_Block_Property('T_Prom_Foc_Item_Serial', Update_Allowed, Property_False);
      Set_Block_Property('T_Prom_Foc_Item_Serial', Delete_Allowed, Property_False);  
      
      Set_Block_Property('T_Prom_Item_Serial', Insert_Allowed, Property_False);
      Set_Block_Property('T_Prom_Item_Serial', Update_Allowed, Property_False);
      Set_Block_Property('T_Prom_Item_Serial', Delete_Allowed, Property_False);
      
      Set_Block_Property('T_Prom_Alloc_Item_Serial', Insert_Allowed, Property_False);
      Set_Block_Property('T_Prom_Alloc_Item_Serial', Update_Allowed, Property_False);
      Set_Block_Property('T_Prom_Alloc_Item_Serial', Delete_Allowed, Property_False);
    Else
      Form_Validation;                  -- Form Validations
      If :PromH_Promt_Code In ('FG','AS') Then  -- Free Goods
        Load_Foc_Items;
      End If;
    End If;
    
    SET_TAB_PAGE_PROPERTY('PROM_CUSTOMER', Visible, Property_False);  
    SET_TAB_PAGE_PROPERTY('PROM_SUPP_CHARGE', Visible, Property_False);  
    SET_TAB_PAGE_PROPERTY('PROM_ITEM', Visible, Property_False);
      
    Set_Item_Property('PROMH_OPTION', Enabled, Property_False);  --Qty and period disabled
      
    If :PROMH_CUST_ALLOC = 'Y' Then  --Limited Customer
      SET_TAB_PAGE_PROPERTY('PROM_CUSTOMER', Visible, Property_True);
      Set_Item_Property('PROMH_CUST_ALLOC', Enabled, Property_False);  
      Go_Item('PROMC_CUST_CODE');
    End If;
      
    If Nvl(:PROMH_CHARG_TYPE, 'NONE') = 'SUPP' Then             --Supplier Charge
      SET_TAB_PAGE_PROPERTY('PROM_SUPP_CHARGE', Visible, Property_True);
      Set_Item_Property('PROMH_CHARG_TYPE', Enabled, Property_False);
      If :PROMH_CUST_ALLOC = 'N' Then
        Go_Item('PROMS_SUPP_CODE');
      End If;
    End If;  
      
    SET_TAB_PAGE_PROPERTY('PROM_ITEM', Visible, Property_True);
    Set_Item_Property('PROMH_TXN_CODE', Enabled, Property_False);
    Set_Item_Property('PROMH_PROMT_CODE', Enabled, Property_False);
    Set_Item_Property('LOV_PROMT_CODE', Enabled, Property_False);
      
    If :PROMH_CUST_ALLOC = 'N' And :PROMH_CHARG_TYPE Is Null Then
      Go_Item('PROMI_PLU_CODE');
    End If;
    SET_ITEM_PROPERTY('BT_NEXT_ITEMS', LABEL, '&Finish');
      
    If Nvl(:PARAMETER.P_GRP, 'N') = 'A' And v_block_status <> 'QUERY' Then  -- Allocated Items which means wrapped items only.
      Set_Block_Property('T_PROM_ALLOC_ITEM', INSERT_ALLOWED, Property_True);
      Set_Block_Property('T_PROM_ALLOC_ITEM', UPDATE_ALLOWED, Property_True);
      Set_Block_Property('T_PROM_ALLOC_ITEM', DELETE_ALLOWED, Property_True);
      Set_Item_Property('BT_ITEM_ALLOC', Enabled, Property_True);
      If Nvl(:Frm_Wh_Trans, 'Y') = 'Y' Then
        Set_Item_Property('PROMI_WLOC_CODE', Required, Property_True);
      End If;
    ElsIf v_block_status <> 'QUERY' Then
      Set_Lov_Property('LOV_ITEM',GROUP_NAME,'LOV_ALOC_ITEM'); 
    END IF;
  ElsIf Tab_Name = 'PROM_CUSTOMER' Then       -- Customer limit
    If Nvl(:PROMH_CHARG_TYPE, 'NONE') = 'SUPP' Then  
      Go_Item('PROMS_SUPP_CODE');
    Else
      Go_Item('PROMI_PLU_CODE');
    End If;
  ElsIf Tab_Name = 'PROM_SUPP_CHARGE' Then    -- Supplier
        Go_Item('PROMI_PLU_CODE');
  End If;   
  
--- Commented on 20/8/2020, Draft option is not needed, reverting back
/*
If Nvl(:Promh_Approval_Status ,' ') In ('F','R') Or  Nvl(:Promh_Draft_YN,' ') = 'N'  Then 
 Set_Item_Property('BT_NEXT_ITEMS', Enabled, Property_False);
Else ---If :Promh_Draft_YN = 'Y' And Nvl(:Promh_Approval_Status ,' ') not in ('F','R') Then 
 Set_Item_Property('BT_NEXT_ITEMS', Enabled, Property_True);
End If;  */

END;

PROCEDURE Check_Dupicate_Promo_Item IS
  v_Count Number; 
  v_Chk_Val Number := 0;
  rg_Name Varchar(20):= 'RG_PROM_CUST';
  rg_Id RecordGroup;
  rg_Col GroupColumn;
  v_Row_Num Number := 1;
  v_Cust_Code Varchar2(10);
BEGIN
  --Checking For Item_Code and Customer Code has Multipile Promotion
  rg_Id := Find_Group(rg_Name); 
  If Not Id_Null(rg_Id) Then
    Delete_Group_Row(rg_Id, ALL_ROWS);
  End If;
  
  If Id_Null(rg_Id) Then
    rg_Id := Create_Group('RG_PROM_CUST');
    rg_Col := Add_Group_Column(rg_Id, 'CUST_CODE', CHAR_COLUMN);
  End If;
  
  If Nvl(:PromH_Cust_Alloc, 'N') = 'Y' Then            --Selected Customer
    Go_Block('T_PROM_CUSTOMER');
    First_Record;
    Loop       -- T_Prom_Customer  
      Add_Group_Row(rg_Id, v_Row_Num);
      Set_Group_Char_Cell('RG_PROM_CUST.CUST_CODE', v_Row_Num, :PromC_Cust_Code); 
      If :System.Last_Record = 'TRUE' Then
        Exit;
      End If;
      v_Row_Num := v_Row_Num + 1;
      Next_Record;
    End Loop;
    First_Record;
  End If;
    
  Go_Block('T_PROM_ITEM');                               --Checking Qualifty Item Code
  If Get_Block_Property('T_PROM_ITEM', Status) = 'QUERY' Then
    v_Chk_Val := 1;
  ElsIf Get_Block_Property('T_PROM_ITEM', Status) = 'CHANGED' Then
    v_Chk_Val := 0;
  End If;
  First_Record;
  Loop             -- T_Prom_Item
    If Nvl(:PromH_Cust_Alloc, 'N') = 'Y' Then             --Selected Customer
      v_Row_Num := 1;
      While (v_Row_Num <= Get_Group_Row_Count(rg_Id)) Loop
        v_Cust_Code := Get_Group_Char_Cell('RG_PROM_CUST.CUST_CODE', v_Row_Num);
        
        SELECT Count(*) INTO v_Count                                
        FROM T_Prom_Head, T_Prom_Item, T_Prom_Customer
        WHERE  PromH_Id = PromI_PromH_Id AND PromH_Id = PromC_PromH_Id(+)  
          AND PromH_Comp_Code = :Global.Company And Nvl(PromH_Status, 'F') = 'F' And PromH_Loc_Code = :PromH_Loc_Code
          AND ((PromH_Cust_Alloc = 'Y' AND PromC_Cust_Code = v_Cust_Code) OR PromH_Cust_Alloc = 'N')
          AND PromI_Item_Code = :PromI_Item_Code AND PromI_Uom_Code = :PromI_Uom_Code And Nvl(PromI_Item_Sl_Status, 'NA') = 'NA'
          AND ((PromH_Option = 'Q' AND NVL(PromH_Qty_Limit_Bu, 0) > NVL(PromH_Inv_Qty_Bu, 0)) 
          OR (PromH_Option = 'P' AND :PromH_Dt BETWEEN PromH_Dt_Fm AND Nvl(PromH_Ext_Upto, PromH_Dt_To))
          OR (PromH_Option = 'B' AND NVL(PromH_Qty_Limit_Bu, 0) > NVL(PromH_Inv_Qty_Bu, 0)
          AND :PromH_Dt BETWEEN PromH_Dt_Fm AND Nvl(PromH_Ext_Upto, PromH_Dt_To)))
          AND Not EXISTS (SELECT 'X' FROM M_Prom_Type WHERE PromT_Code=PromH_PromT_Code AND PromT_Grp='A'); --Added By Faissal On 04/05/2015 (Ref:support #30344)
          
        If v_Count > v_Chk_Val Then
          Null; --commneted by shibu on 05/01/17
          --Prom_Message('Duplicate Promotion Item Code '||:PromI_Item_Code||' Customer Code '||v_Cust_Code);
          --Raise Form_Trigger_Failure;
           Exit;
        End If;  
        
        v_Row_Num := v_Row_Num + 1;
      End Loop;
    Else  
      /******** Checking for All Customers  *************/
      SELECT Count(*) INTO v_Count 
      FROM T_Prom_Head, T_Prom_Item, T_Prom_Customer
      WHERE  PromH_Id = PromI_PromH_Id AND PromH_Id = PromC_PromH_Id(+)  
        AND PromH_Comp_Code = :Global.Company And Nvl(PromH_Status, 'F') = 'F' And PromH_Loc_Code = :PromH_Loc_Code
        AND PromI_Item_Code = :PromI_Item_Code AND PromI_Uom_Code = :PromI_Uom_Code And Nvl(PromI_Item_Sl_Status, 'NA') = 'NA'
        AND ((PromH_Option = 'Q' AND Nvl(PromH_Qty_Limit_Bu, 0) > Nvl(PromH_Inv_Qty_Bu, 0)) 
        OR (PromH_Option = 'P' AND :PromH_Dt BETWEEN PromH_Dt_Fm AND Nvl(PromH_Ext_Upto, PromH_Dt_To))
        OR (PromH_Option = 'B' AND NVL(PromH_Qty_Limit_Bu, 0) > NVL(PromH_Inv_Qty_Bu, 0)
        AND :PromH_Dt BETWEEN PromH_Dt_Fm AND Nvl(PromH_Ext_Upto, PromH_Dt_To)))
        AND Not EXISTS (SELECT 'X' FROM M_Prom_Type WHERE PromT_Code=PromH_PromT_Code AND PromT_Grp='A'); --Added By Faissal On 04/05/2015 (Ref:support #30344);
          
      If v_Count > v_Chk_Val Then
        Null; --commneted by shibu on 05/01/17
        --Prom_Message('Duplicate Promotion Item Code '||:PromI_Item_Code);
         --Raise Form_Trigger_Failure;
         Exit;
      End If;      
    End If; 
    
    If :System.Last_Record = 'TRUE' Then
      Exit;
    End If;
    Next_Record;
  End Loop;
  First_Record;
  
  /*********** Checking Foc Item for Duplicate *************/
  Go_Block('T_PROM_FOC_ITEM');  
  If Get_Block_Property('T_PROM_FOC_ITEM', Status) = 'QUERY' Then
    v_Chk_Val := 1;
  ElsIf Get_Block_Property('T_PROM_FOC_ITEM', Status) = 'CHANGED' Then
    v_Chk_Val := 0;
  End If;                             --Checking Foc Item Code
  First_Record;
  Loop             -- T_Prom_Item
    If Nvl(:PromH_Cust_Alloc, 'N') = 'Y' Then             --Selected Customer
      v_Row_Num := 1;
      While (v_Row_Num <= Get_Group_Row_Count(rg_Id)) Loop
        v_Cust_Code := Get_Group_Char_Cell('RG_PROM_CUST.CUST_CODE', v_Row_Num);
        
        SELECT Count(*) INTO v_Count                                
        FROM T_Prom_Head, T_Prom_Foc_Item, T_Prom_Customer
        WHERE  PromH_Id = PromFi_PromH_Id AND PromH_Id = PromC_PromH_Id(+)  
          AND PromH_Comp_Code = :Global.Company And Nvl(PromH_Status, 'F') = 'F' And PromH_Loc_Code = :PromH_Loc_Code
          AND ((PromH_Cust_Alloc = 'Y' AND PromC_Cust_Code = v_Cust_Code) OR PromH_Cust_Alloc = 'N')
          AND PromFi_Item_Code = :PromFi_Item_Code AND PromFi_Uom_Code = :PromFi_Uom_Code AND Nvl(PromFi_Item_Sl_Status, 'NA') = 'NA'
          AND ((PromH_Option = 'Q' AND NVL(PromH_Qty_Limit_Bu, 0) > NVL(PromH_Inv_Qty_Bu, 0)) 
          OR (PromH_Option = 'P' AND :PromH_Dt BETWEEN PromH_Dt_Fm AND Nvl(PromH_Ext_Upto, PromH_Dt_To))
          OR (PromH_Option = 'B' AND NVL(PromH_Qty_Limit_Bu, 0) > NVL(PromH_Inv_Qty_Bu, 0)
          AND :PromH_Dt BETWEEN PromH_Dt_Fm AND Nvl(PromH_Ext_Upto, PromH_Dt_To)));
       
        If v_Count > v_Chk_Val Then
          --Prom_Message('Duplicate Promotion Foc Item Code '||:PromFi_Item_Code||' Customer Code '||v_Cust_Code);
          --Raise Form_Trigger_Failure;
           Exit;
        End If;  
        
        v_Row_Num := v_Row_Num + 1;
      End Loop;
    Else  
      /******** Checking for All Customers  *************/
      SELECT Count(*) INTO v_Count 
      FROM T_Prom_Head, T_Prom_Foc_Item, T_Prom_Customer
      WHERE  PromH_Id = PromFi_PromH_Id AND PromH_Id = PromC_PromH_Id(+)  
        AND PromH_Comp_Code = :Global.Company And Nvl(PromH_Status, 'F') = 'F' And PromH_Loc_Code = :PromH_Loc_Code
        AND PromFi_Item_Code = :PromFi_Item_Code AND PromFi_Uom_Code = :PromFi_Uom_Code AND Nvl(PromFi_Item_Sl_Status, 'NA') = 'NA'
        AND ((PromH_Option = 'Q' AND Nvl(PromH_Qty_Limit_Bu, 0) > Nvl(PromH_Inv_Qty_Bu, 0)) 
        OR (PromH_Option = 'P' AND :PromH_Dt BETWEEN PromH_Dt_Fm AND Nvl(PromH_Ext_Upto, PromH_Dt_To))
        OR (PromH_Option = 'B' AND NVL(PromH_Qty_Limit_Bu, 0) > NVL(PromH_Inv_Qty_Bu, 0)
        AND :PromH_Dt BETWEEN PromH_Dt_Fm AND Nvl(PromH_Ext_Upto, PromH_Dt_To)));
          
      If v_Count > v_Chk_Val Then
        --Prom_Message('Duplicate Promotion Foc Item Code '||:PromFi_Item_Code);
         --Raise Form_Trigger_Failure;
         Exit;
      End If;      
    End If; 
    
    If :System.Last_Record = 'TRUE' Then
      Exit;
    End If;
    Next_Record;
  End Loop;
  First_Record;
  /*********** End of Checking Foc Item for Duplicate *************/
END;