-------------------------------------
     ---   Procedure - 1st  ---- 
-------------------------------------

Procedure Customer_Credit_Only Is
Begin
  Declare
    V_Check_Value   Number;
    V_Sale_Id       Number;
    V_Balance       Number;
    V_Description   Varchar2 (30);
  Begin
    V_Check_Value  := 0;
    Select Nvl (Max (Bebit_Credit_Id), 0) + 1
      Into V_Sale_Id
      From Customer_Balance;
    Select Balance, Description
      Into V_Balance, V_Description
      From Customer_Balance
     Where Bebit_Credit_Id = (Select Max (Bebit_Credit_Id)
                                From Customer_Balance
                               Where Customer_Id = :Party_Id);
    ---------------------------------------------------
    If Form_Success Then
      If v_Description = 'Debit Amount' Then
        If V_Balance > :Credit Then
          Insert Into Customer_Balance
               Values (V_Sale_Id, :Dsp_Date, :Party_Id, :Credit,
                       V_Balance - :Credit, 'Debit Amount', :User_Description);
          V_Check_Value        := 1;
          :Credit_Balance      := V_Balance - :Credit;
          :Credit_Description  := 'Debit';
        End If;
        If     :Credit > V_Balance
           And V_Check_Value = 0 Then
          Insert Into Customer_Balance
               Values (V_Sale_Id, :Dsp_Date, :Party_Id, :Credit,
                       :Credit - V_Balance, 'Credit Amount', :User_Description);
          V_Check_Value        := 1;
          :Credit_Balance      := :Credit - V_Balance;
          :Credit_Description  := 'Credit';
        End If;
        If     :Credit = V_Balance
           And V_Check_Value = 0 Then
          Insert Into Customer_Balance
               Values (V_Sale_Id, :Dsp_date, :Party_Id, :Credit, 0,
                       'Balance Amount', :User_Description);
          V_Check_Value        := 1;
          :Credit_Balance      := 0;
          :Credit_Description  := 'Balance';
        End If;
      End If;
      ------------------------------------------------
      If     v_Description != 'Debit Amount'
         And V_Check_Value = 0 Then
        Insert Into Customer_Balance
             Values (V_Sale_Id, :Dsp_date, :Party_Id, :Credit,
                     :Credit + V_Balance, 'Credit Amount', :User_Description);
        :Credit_Balance      := :Credit + V_Balance;
        :Credit_Description  := 'Credit';
      End If;
    End If;
  ExceptioN
    WheN No_Data_Found Then
      Insert Into Customer_Balance
           Values (V_Sale_Id, :Dsp_date, :Party_Id, :Credit, :Credit,
                   'Credit Amount', :User_Description);
      :Credit_Balance      := :Credit;
      :Credit_Description  := 'Credit';
  End;
End;

----------------------------------------------
        ---   Procedure - 2nd   ----
----------------------------------------------

PROCEDURE DayBook_Credit Is
  V_Master_Id     Number;
  V_Receipt_Id    Number;
  V_Amount        Number (22, 8);
  V_Check_Id      Number;
  V_Description   Varchar2 (30);
Begin
  V_Check_Id  := 0;
  Select Amount, Description
    Into V_Amount, V_Description
    From DayBook_Master
   Where DayBook_Id = (Select Max (DayBook_Id)
                         FroM DayBook_Master);
  Select Nvl (Max (DayBook_Id), 0) + 1
    Into V_Master_Id
    From DayBook_Master;
  If V_Description = 'Debit Amount' Then
    If V_Amount > :Credit_Amount Then
      Insert Into DayBook_Master
           Values (V_Master_Id, V_Amount - :Credit_Amount, :Dsp_Date,
                   'Debit Amount', :Credit_Person_Id, :Credit_Amount,
                   :Credit_User_Description, 'Credit');
      V_Check_Id  := 1;
    End If;
    If     :Credit_Amount > V_Amount
       And V_Check_Id = 0 Then
      Insert Into DayBook_Master
           Values (V_Master_Id, :Credit_Amount - V_Amount, :Dsp_Date,
                   'Credit Amount', :Credit_Person_Id, :Credit_Amount,
                   :Credit_User_Description, 'Credit');
      V_Check_Id  := 1;
    End If;
    If     :Credit_Amount = V_Amount
       And V_Check_Id = 0 Then
      Insert Into DayBook_Master
           Values (V_Master_Id, 0, :Dsp_Date, 'Balance Amount',
                   :Credit_Person_Id, :Credit_Amount, :Credit_User_Description,
                   'Credit');
      V_Check_Id  := 1;
    End If;
  End If;
  If     V_Description != 'Debit Amount'
     And V_Check_Id = 0 Then
    Insert Into DayBook_Master
         Values (V_Master_Id, V_Amount + :Credit_Amount, :Dsp_Date,
                 'Credit Amount', :Credit_Person_Id, :Credit_Amount,
                 :Credit_User_Description, 'Credit');
  End If;
End;

-------------------------------------
            --- 3rd ---
-------------------------------------

begin
  Commit;
  :System.Message_Level  := 25;
  Go_Item ('Party_Name');
end;