<cfif NOT isDefined("form.Invoice_ID")>
 <cfset form.Invoice_ID=0>
</cfif>

<cfif NOT isDefined("form.Payment_ID")>
 <cfset form.Payment_ID=0>
</cfif> 

<cfif NOT isDefined("form.Date")>
 <cfset form.Date=0>
</cfif>

<cfif NOT isDefined("form.InvoiceTotal")>
 <cfset form.InvoiceTotal=0>
</cfif>

<cfif NOT isDefined("form.Paid")>
 <cfset form.Paid=0>
</cfif>

<cfif NOT isDefined("form.WriteOff")>
 <cfset form.WriteOff=0>
</cfif>

<cfparam default='' name='url.pr' />
 <cfif isDefined("form.pr")>
  <cfset url.pr = form.pr />
 </cfif>
 
<cfif form.Payment_ID GT 0>
			<cfset getsucess= generalCFC.AddPaymentHistory(form.Payment_ID) />

			<!--- Payment_Lock: first query; only when agency login --->
			<cfif isDefined("Session.IsAgencyLogin") AND Session.IsAgencyLogin EQ 1>
			<cfquery name="payLockUpdate" datasource="#Application.DataSrc#">
				UPDATE #Request.prefix_db_agency#.Payments SET
				Payment_Lock = <cfif isDefined("form.Lock") AND form.Lock NEQ "">1<cfelse>0</cfif>
				,Record_Modified_By = '#Session.EmployeeId#'
				,Record_Modified_Date = #now()#
				WHERE Payment_ID = #form.Payment_ID#
				AND Invoice_ID IN (SELECT Invoice_ID FROM #Request.prefix_db_agency#.Invoices WHERE Agency_ID = '#session.AgencyId#' AND Deleted <> 1)
			</cfquery>
			</cfif>

			<cfquery  name="UpdatePayment" datasource="#Application.DataSrc#"> 
				UPDATE #Request.prefix_db_agency#.Payments SET Amount = #NumberFormat(form.Paid,'_____.__')#, writeoffamount = #NumberFormat(form.WriteOff,'_____.__')#, PaymentDate = #CreateODBCDateTime(form.Date)#
                    ,Record_Modified_By = '#Session.EmployeeId#'
                    ,Record_Modified_Date = #now()#
				WHERE Payment_ID = #form.Payment_ID#
				AND (IFNULL(Payment_Lock,0) <> 1)
			</cfquery>
 			<cfset getsucess= generalCFC.AddInvoiceHistory(form.Invoice_ID) />

			<cfquery  name="UpdateInvoice" datasource="#Application.DataSrc#">
				UPDATE #Request.prefix_db_agency#.Invoices SET invoiceTotal = #NumberFormat(form.InvoiceTotal,'_____.__')#
                    ,Record_Modified_By = '#Session.EmployeeId#'
                    ,Record_Modified_Date = #now()#
				WHERE Invoice_ID = #form.Invoice_ID#
			</cfquery>
			<cfoutput>
				#form.Date#
			</cfoutput>
			<cflocation url="/agencyadmin/index.cfm?page=agency&cat=BillingReports&rpt=Paymentdetails_report&pr=#form.prr#&df=&dt=<cfif #form.prr# eq 1966>&Med=yes</cfif>" addtoken="no">
			<script type="text/javascript"> 
		//window.opener.location.focus();
		window.opener.location.reload(false);
		window.close();
	</script>
</cfif>

