If :BillMain.DB_Amount > 0 Then
	 If :BillMain.DNRemarks is Null Then
	 	  Message('DN Amount > 0.  DN Remarks is Null !!');
	 	  Raise form_trigger_failure;
	 End if;
End if;	 
If :BillMain.CR_Amount > 0 Then
	 If :BillMain.CNRemarks is Null Then
	 	  Message('CN Amount > 0.  CN Remarks is Null !!');
	 	  Raise form_trigger_failure;
	 End if;
End if;	 

If :ClosedYear = 'Y' Then
	 Message('Saving records for Closed Financial Years not permitted !!');
	 Raise form_trigger_failure;
End if;

PickAPNo;

If :Ap_DocumentDate < :PoDate Then
   Message('Bill Passing Date < Job Order Date !!');
   Raise form_trigger_failure;
End if;

If :BillMain.Advdocno is Null Then
   AdvanceChk;
End if;

UpdateLedger;

If Nvl(:BillMain.TDS_Amount,0) > 0 Then
   UpdtTDSData;
End if;

Update LastDocs Set Serial_Number = To_Number(Substr(:BillMain.AP_DocumentNo,5,4)),
                    Doc_Date      = :BillMain.AP_DocumentDate
              Where Periodid      = :Global.Periodid
                and Doc_Type      = :Prefix || :APDType
                and Unitid        = :Global.Unitid;

If :BillMain.Db_Amount > 0 Then
   MakeDbNote;
End if;

If :BillMain.Cr_Amount > 1 Then
   MakeCrNote;
End if;

if :BillMain.Advdocno is null then
    null;
else
   adv_selection;
end if;



If :Billmain.Advamt is Not null Then
	If Nvl(:BillMain.Advamt,0) > Nvl(:BillMain.Ap_amount,0) Then
		 :Billmain.Paid_Amount := Nvl(:Billmain.Paid_amount,0)+(Nvl(:BillMain.Ap_amount,0) - Nvl(:BillMain.TDS_Amount,0));
		 Message('tds Amount'||:Billmain.TDS_Amount);
		 Message('AP Amount'||:Billmain.AP_Amount);
		 Message('Paid Amount'||:Billmain.Paid_Amount);
	Else
		 :BillMain.Paid_Amount := Nvl(:Billmain.Paid_Amount,0)+Nvl(:BillMain.Advamt,0);
		 Message('Paid Amount'||:Billmain.Paid_Amount);
	End If;
End If;

do_key('commit_form');

Go_Item('apmenu.Clear');

If :Billmain.Advamt is Not null Then
	If Nvl(:BillMain.Advamt,0) > Nvl(:BillMain.Ap_amount,0) Then
		 :Billmain.Paid_Amount := Nvl(:Billmain.Paid_amount,0)+(Nvl(:BillMain.Ap_amount,0) - Nvl(:BillMain.TDS_Amount,0));
		 Message('tds Amount'||:Billmain.TDS_Amount);
		 Message('AP Amount'||:Billmain.AP_Amount);
		 Message('Paid Amount'||:Billmain.Paid_Amount);
	Else
		 :BillMain.Paid_Amount := Nvl(:Billmain.Paid_Amount,0)+Nvl(:BillMain.Advamt,0);
		 Message('Paid Amount'||:Billmain.Paid_Amount);
	End If;
End If;