3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.7 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2016 |
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
10 | CiviCRM is free software; you can copy, modify, and distribute it |
11 | under the terms of the GNU Affero General Public License |
12 | Version 3, 19 November 2007 and the CiviCRM Licensing Exception. |
14 | CiviCRM is distributed in the hope that it will be useful, but |
15 | WITHOUT ANY WARRANTY; without even the implied warranty of |
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
17 | See the GNU Affero General Public License for more details. |
19 | You should have received a copy of the GNU Affero General Public |
20 | License and the CiviCRM Licensing Exception along |
21 | with this program; if not, contact CiviCRM LLC |
22 | at info[AT]civicrm[DOT]org. If you have questions about the |
23 | GNU Affero General Public License or the licensing of CiviCRM, |
24 | see the CiviCRM license FAQ at http://civicrm.org/licensing |
25 +--------------------------------------------------------------------+
31 * @copyright CiviCRM LLC (c) 2004-2016
33 class CRM_Contribute_BAO_ContributionRecur
extends CRM_Contribute_DAO_ContributionRecur
{
36 * Create recurring contribution.
38 * @param array $params
39 * (reference ) an assoc array of name/value pairs.
42 * activity contact object
44 public static function create(&$params) {
45 return self
::add($params);
49 * Takes an associative array and creates a contribution object.
51 * the function extract all the params it needs to initialize the create a
52 * contribution object. the params array could contain additional unused name/value
55 * @param array $params
56 * (reference ) an assoc array of name/value pairs.
58 * @return CRM_Contribute_BAO_Contribution
59 * @todo move hook calls / extended logic to create - requires changing calls to call create not add
61 public static function add(&$params) {
62 if (!empty($params['id'])) {
63 CRM_Utils_Hook
::pre('edit', 'ContributionRecur', $params['id'], $params);
66 CRM_Utils_Hook
::pre('create', 'ContributionRecur', NULL, $params);
69 // make sure we're not creating a new recurring contribution with the same transaction ID
70 // or invoice ID as an existing recurring contribution
71 $duplicates = array();
72 if (self
::checkDuplicate($params, $duplicates)) {
73 $error = CRM_Core_Error
::singleton();
74 $d = implode(', ', $duplicates);
75 $error->push(CRM_Core_Error
::DUPLICATE_CONTRIBUTION
,
78 "Found matching recurring contribution(s): $d"
83 $recurring = new CRM_Contribute_BAO_ContributionRecur();
84 $recurring->copyValues($params);
85 $recurring->id
= CRM_Utils_Array
::value('id', $params);
87 // set currency for CRM-1496
88 if (empty($params['id']) && !isset($recurring->currency
)) {
89 $config = CRM_Core_Config
::singleton();
90 $recurring->currency
= $config->defaultCurrency
;
92 $result = $recurring->save();
94 if (!empty($params['id'])) {
95 CRM_Utils_Hook
::post('edit', 'ContributionRecur', $recurring->id
, $recurring);
98 CRM_Utils_Hook
::post('create', 'ContributionRecur', $recurring->id
, $recurring);
101 if (!empty($params['custom']) &&
102 is_array($params['custom'])
104 CRM_Core_BAO_CustomValueTable
::store($params['custom'], 'civicrm_contribution_recur', $recurring->id
);
111 * Check if there is a recurring contribution with the same trxn_id or invoice_id.
113 * @param array $params
114 * (reference ) an assoc array of name/value pairs.
115 * @param array $duplicates
116 * (reference ) store ids of duplicate contributions.
119 * true if duplicate, false otherwise
121 public static function checkDuplicate($params, &$duplicates) {
122 $id = CRM_Utils_Array
::value('id', $params);
123 $trxn_id = CRM_Utils_Array
::value('trxn_id', $params);
124 $invoice_id = CRM_Utils_Array
::value('invoice_id', $params);
130 $clause[] = "trxn_id = %1";
131 $params[1] = array($trxn_id, 'String');
135 $clause[] = "invoice_id = %2";
136 $params[2] = array($invoice_id, 'String');
139 if (empty($clause)) {
143 $clause = implode(' OR ', $clause);
145 $clause = "( $clause ) AND id != %3";
146 $params[3] = array($id, 'Integer');
149 $query = "SELECT id FROM civicrm_contribution_recur WHERE $clause";
150 $dao = CRM_Core_DAO
::executeQuery($query, $params);
152 while ($dao->fetch()) {
153 $duplicates[] = $dao->id
;
160 * Get the payment processor (array) for a recurring processor.
163 * @param string $mode
164 * - Test or NULL - all other variants are ignored.
168 public static function getPaymentProcessor($id, $mode = NULL) {
170 SELECT r.payment_processor_id
171 FROM civicrm_contribution_recur r
173 $params = array(1 => array($id, 'Integer'));
174 $paymentProcessorID = CRM_Core_DAO
::singleValueQuery($sql,
177 if (!$paymentProcessorID) {
181 return CRM_Financial_BAO_PaymentProcessor
::getPayment($paymentProcessorID, $mode);
185 * Get the number of installment done/completed for each recurring contribution.
188 * (reference ) an array of recurring contribution ids.
191 * an array of recurring ids count
193 public static function getCount(&$ids) {
194 $recurID = implode(',', $ids);
195 $totalCount = array();
198 SELECT contribution_recur_id, count( contribution_recur_id ) as commpleted
199 FROM civicrm_contribution
200 WHERE contribution_recur_id IN ( {$recurID}) AND is_test = 0
201 GROUP BY contribution_recur_id";
203 $res = CRM_Core_DAO
::executeQuery($query);
205 while ($res->fetch()) {
206 $totalCount[$res->contribution_recur_id
] = $res->commpleted
;
212 * Delete Recurring contribution.
214 * @param int $recurId
218 public static function deleteRecurContribution($recurId) {
224 $recur = new CRM_Contribute_DAO_ContributionRecur();
225 $recur->id
= $recurId;
226 $result = $recur->delete();
232 * Cancel Recurring contribution.
234 * @param int $recurId
235 * Recur contribution id.
236 * @param array $objects
237 * An array of objects that is to be cancelled like.
238 * contribution, membership, event. At least contribution object is a must.
240 * @param array $activityParams
244 public static function cancelRecurContribution($recurId, $objects, $activityParams = array()) {
249 $contributionStatus = CRM_Contribute_PseudoConstant
::contributionStatus(NULL, 'name');
250 $canceledId = array_search('Cancelled', $contributionStatus);
251 $recur = new CRM_Contribute_DAO_ContributionRecur();
252 $recur->id
= $recurId;
253 $recur->whereAdd("contribution_status_id != $canceledId");
255 if ($recur->find(TRUE)) {
256 $transaction = new CRM_Core_Transaction();
257 $recur->contribution_status_id
= $canceledId;
258 $recur->start_date
= CRM_Utils_Date
::isoToMysql($recur->start_date
);
259 $recur->create_date
= CRM_Utils_Date
::isoToMysql($recur->create_date
);
260 $recur->modified_date
= CRM_Utils_Date
::isoToMysql($recur->modified_date
);
261 $recur->cancel_date
= date('YmdHis');
264 $dao = CRM_Contribute_BAO_ContributionRecur
::getSubscriptionDetails($recurId);
265 if ($dao && $dao->recur_id
) {
266 $details = CRM_Utils_Array
::value('details', $activityParams);
267 if ($dao->auto_renew
&& $dao->membership_id
) {
268 // its auto-renewal membership mode
269 $membershipTypes = CRM_Member_PseudoConstant
::membershipType();
270 $membershipType = CRM_Core_DAO
::getFieldValue('CRM_Member_DAO_Membership', $dao->membership_id
, 'membership_type_id');
271 $membershipType = CRM_Utils_Array
::value($membershipType, $membershipTypes);
273 <br/>' . ts('Automatic renewal of %1 membership cancelled.', array(1 => $membershipType));
277 <br/>' . ts('The recurring contribution of %1, every %2 %3 has been cancelled.', array(
279 2 => $dao->frequency_interval
,
280 3 => $dao->frequency_unit
,
283 $activityParams = array(
284 'source_contact_id' => $dao->contact_id
,
285 'source_record_id' => CRM_Utils_Array
::value('source_record_id', $activityParams),
286 'activity_type_id' => CRM_Core_OptionGroup
::getValue('activity_type',
287 'Cancel Recurring Contribution',
290 'subject' => CRM_Utils_Array
::value('subject', $activityParams, ts('Recurring contribution cancelled')),
291 'details' => $details,
292 'activity_date_time' => date('YmdHis'),
293 'status_id' => CRM_Core_OptionGroup
::getValue('activity_status',
298 $session = CRM_Core_Session
::singleton();
299 $cid = $session->get('userID');
301 $activityParams['target_contact_id'][] = $activityParams['source_contact_id'];
302 $activityParams['source_contact_id'] = $cid;
304 CRM_Activity_BAO_Activity
::create($activityParams);
307 // if there are associated objects, cancel them as well
309 $transaction->commit();
313 $baseIPN = new CRM_Core_Payment_BaseIPN();
314 return $baseIPN->cancelled($objects, $transaction);
318 // if already cancelled, return true
320 $recur->whereAdd("contribution_status_id = $canceledId");
321 if ($recur->find(TRUE)) {
330 * Get list of recurring contribution of contact Ids.
332 * @param int $contactId
336 * list of recurring contribution fields
339 public static function getRecurContributions($contactId) {
341 $recurDAO = new CRM_Contribute_DAO_ContributionRecur();
342 $recurDAO->contact_id
= $contactId;
344 $contributionStatus = CRM_Contribute_PseudoConstant
::contributionStatus();
346 while ($recurDAO->fetch()) {
347 $params[$recurDAO->id
]['id'] = $recurDAO->id
;
348 $params[$recurDAO->id
]['contactId'] = $recurDAO->contact_id
;
349 $params[$recurDAO->id
]['start_date'] = $recurDAO->start_date
;
350 $params[$recurDAO->id
]['end_date'] = $recurDAO->end_date
;
351 $params[$recurDAO->id
]['next_sched_contribution_date'] = $recurDAO->next_sched_contribution_date
;
352 $params[$recurDAO->id
]['amount'] = $recurDAO->amount
;
353 $params[$recurDAO->id
]['currency'] = $recurDAO->currency
;
354 $params[$recurDAO->id
]['frequency_unit'] = $recurDAO->frequency_unit
;
355 $params[$recurDAO->id
]['frequency_interval'] = $recurDAO->frequency_interval
;
356 $params[$recurDAO->id
]['installments'] = $recurDAO->installments
;
357 $params[$recurDAO->id
]['contribution_status_id'] = $recurDAO->contribution_status_id
;
358 $params[$recurDAO->id
]['contribution_status'] = CRM_Utils_Array
::value($recurDAO->contribution_status_id
, $contributionStatus);
359 $params[$recurDAO->id
]['is_test'] = $recurDAO->is_test
;
360 $params[$recurDAO->id
]['payment_processor_id'] = $recurDAO->payment_processor_id
;
367 * @param int $entityID
368 * @param string $entity
370 * @return null|Object
372 public static function getSubscriptionDetails($entityID, $entity = 'recur') {
374 SELECT rec.id as recur_id,
375 rec.processor_id as subscription_id,
376 rec.frequency_interval,
384 rec.financial_type_id,
385 rec.next_sched_contribution_date,
386 rec.failure_retry_date,
388 con.id as contribution_id,
389 con.contribution_page_id,
393 if ($entity == 'recur') {
395 FROM civicrm_contribution_recur rec
396 LEFT JOIN civicrm_contribution con ON ( con.contribution_recur_id = rec.id )
397 LEFT JOIN civicrm_membership_payment mp ON ( mp.contribution_id = con.id )
401 elseif ($entity == 'contribution') {
403 FROM civicrm_contribution con
404 INNER JOIN civicrm_contribution_recur rec ON ( con.contribution_recur_id = rec.id )
405 LEFT JOIN civicrm_membership_payment mp ON ( mp.contribution_id = con.id )
408 elseif ($entity == 'membership') {
410 FROM civicrm_membership_payment mp
411 INNER JOIN civicrm_membership mem ON ( mp.membership_id = mem.id )
412 INNER JOIN civicrm_contribution_recur rec ON ( mem.contribution_recur_id = rec.id )
413 INNER JOIN civicrm_contribution con ON ( con.id = mp.contribution_id )
414 WHERE mp.membership_id = %1";
417 $dao = CRM_Core_DAO
::executeQuery($sql, array(1 => array($entityID, 'Integer')));
427 * Does the recurring contribution support financial type change.
429 * This is conditional on there being only one line item or if there are no contributions as yet.
431 * (This second is a bit of an unusual condition but might occur in the context of a
437 public static function supportsFinancialTypeChange($id) {
438 // At this stage only sites with no Financial ACLs will have the opportunity to edit the financial type.
439 // this is to limit the scope of the change and because financial ACLs are still fairly new & settling down.
440 if (CRM_Financial_BAO_FinancialType
::isACLFinancialTypeStatus()) {
443 $contribution = self
::getTemplateContribution($id);
444 return CRM_Contribute_BAO_Contribution
::isSingleLineItem($contribution['id']);
448 * Get the contribution to be used as the template for later contributions.
450 * Later we might merge in data stored against the contribution recur record rather than just return the contribution.
453 * @param array $overrides
454 * Parameters that should be overriden. Add unit tests if using parameters other than total_amount & financial_type_id.
457 * @throws \CiviCRM_API3_Exception
459 public static function getTemplateContribution($id, $overrides = array()) {
460 $templateContribution = civicrm_api3('Contribution', 'get', array(
461 'contribution_recur_id' => $id,
462 'options' => array('limit' => 1, 'sort' => array('id DESC')),
464 'contribution_test' => '',
466 if ($templateContribution['count']) {
467 $result = array_merge($templateContribution['values'][0], $overrides);
468 $result['line_item'] = CRM_Contribute_BAO_ContributionRecur
::calculateRecurLineItems($id, $result['total_amount'], $result['financial_type_id']);
474 public static function setSubscriptionContext() {
475 // handle context redirection for subscription url
476 $session = CRM_Core_Session
::singleton();
477 if ($session->get('userID')) {
479 $cid = CRM_Utils_Request
::retrieve('cid', 'Integer');
480 $mid = CRM_Utils_Request
::retrieve('mid', 'Integer');
481 $qfkey = CRM_Utils_Request
::retrieve('key', 'String');
482 $context = CRM_Utils_Request
::retrieve('context', 'String');
486 $url = CRM_Utils_System
::url('civicrm/contact/view',
487 "reset=1&selectedChild=contribute&cid={$cid}"
492 $url = CRM_Utils_System
::url('civicrm/contact/view',
493 "reset=1&selectedChild=member&cid={$cid}"
498 $url = CRM_Utils_System
::url('civicrm/user', "reset=1&id={$cid}");
505 $url = CRM_Utils_System
::url('civicrm/member', "force=1&context={$context}&key={$qfkey}");
509 $url = CRM_Utils_System
::url('civicrm/member/search', "force=1&context={$context}&key={$qfkey}");
514 $session->pushUserContext($url);
520 * CRM-16285 - Function to handle validation errors on form, for recurring contribution field.
522 * @param array $fields
523 * The input form values.
524 * @param array $files
525 * The uploaded files if any.
526 * @param CRM_Core_Form $self
527 * @param array $errors
529 public static function validateRecurContribution($fields, $files, $self, &$errors) {
530 if (!empty($fields['is_recur'])) {
531 if ($fields['frequency_interval'] <= 0) {
532 $errors['frequency_interval'] = ts('Please enter a number for how often you want to make this recurring contribution (EXAMPLE: Every 3 months).');
534 if ($fields['frequency_unit'] == '0') {
535 $errors['frequency_unit'] = ts('Please select a period (e.g. months, years ...) for how often you want to make this recurring contribution (EXAMPLE: Every 3 MONTHS).');
541 * Send start or end notification for recurring payments.
544 * @param CRM_Contribute_BAO_ContributionRecur $recur
545 * @param bool $isFirstOrLastRecurringPayment
547 public static function sendRecurringStartOrEndNotification($ids, $recur, $isFirstOrLastRecurringPayment) {
548 if ($isFirstOrLastRecurringPayment) {
549 $autoRenewMembership = FALSE;
551 isset($ids['membership']) && $ids['membership']
553 $autoRenewMembership = TRUE;
556 //send recurring Notification email for user
557 CRM_Contribute_BAO_ContributionPage
::recurringNotify($isFirstOrLastRecurringPayment,
559 $ids['contributionPage'],
567 * Copy custom data of the initial contribution into its recurring contributions.
569 * @param int $recurId
570 * @param int $targetContributionId
572 static public function copyCustomValues($recurId, $targetContributionId) {
573 if ($recurId && $targetContributionId) {
574 // get the initial contribution id of recur id
575 $sourceContributionId = CRM_Core_DAO
::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id');
577 // if the same contribution is being processed then return
578 if ($sourceContributionId == $targetContributionId) {
581 // check if proper recurring contribution record is being processed
582 $targetConRecurId = CRM_Core_DAO
::getFieldValue('CRM_Contribute_DAO_Contribution', $targetContributionId, 'contribution_recur_id');
583 if ($targetConRecurId != $recurId) {
588 $extends = array('Contribution');
589 $groupTree = CRM_Core_BAO_CustomGroup
::getGroupDetail(NULL, NULL, $extends);
591 foreach ($groupTree as $groupID => $group) {
592 $table[$groupTree[$groupID]['table_name']] = array('entity_id');
593 foreach ($group['fields'] as $fieldID => $field) {
594 $table[$groupTree[$groupID]['table_name']][] = $groupTree[$groupID]['fields'][$fieldID]['column_name'];
598 foreach ($table as $tableName => $tableColumns) {
599 $insert = 'INSERT IGNORE INTO ' . $tableName . ' (' . implode(', ', $tableColumns) . ') ';
600 $tableColumns[0] = $targetContributionId;
601 $select = 'SELECT ' . implode(', ', $tableColumns);
602 $from = ' FROM ' . $tableName;
603 $where = " WHERE {$tableName}.entity_id = {$sourceContributionId}";
604 $query = $insert . $select . $from . $where;
605 CRM_Core_DAO
::executeQuery($query);
612 * Add soft credit to for recurring payment.
614 * copy soft credit record of first recurring contribution.
615 * and add new soft credit against $targetContributionId
617 * @param int $recurId
618 * @param int $targetContributionId
620 public static function addrecurSoftCredit($recurId, $targetContributionId) {
621 $soft_contribution = new CRM_Contribute_DAO_ContributionSoft();
622 $soft_contribution->contribution_id
= CRM_Core_DAO
::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id');
624 // Check if first recurring contribution has any associated soft credit.
625 if ($soft_contribution->find(TRUE)) {
626 $soft_contribution->contribution_id
= $targetContributionId;
627 unset($soft_contribution->id
);
628 $soft_contribution->save();
633 * Add line items for recurring contribution.
635 * @param int $recurId
636 * @param $contribution
640 public static function addRecurLineItems($recurId, $contribution) {
641 $foundLineItems = FALSE;
643 $lineSets = self
::calculateRecurLineItems($recurId, $contribution->total_amount
, $contribution->financial_type_id
);
644 foreach ($lineSets as $lineItems) {
645 if (!empty($lineItems)) {
646 foreach ($lineItems as $key => $value) {
647 if ($value['entity_table'] == 'civicrm_membership') {
649 // @todo this should be done by virtue of editing the line item as this link
650 // is deprecated. This may be the case but needs testing.
651 civicrm_api3('membership_payment', 'create', array(
652 'membership_id' => $value['entity_id'],
653 'contribution_id' => $contribution->id
,
656 catch (CiviCRM_API3_Exception
$e) {
657 // we are catching & ignoring errors as an extra precaution since lost IPNs may be more serious that lost membership_payment data
658 // this fn is unit-tested so risk of changes elsewhere breaking it are otherwise mitigated
662 $foundLineItems = TRUE;
665 if (!$foundLineItems) {
666 CRM_Price_BAO_LineItem
::processPriceSet($contribution->id
, $lineSets, $contribution);
672 * Update pledge associated with a recurring contribution.
674 * If the contribution has a pledge_payment record pledge, then update the pledge_payment record & pledge based on that linkage.
676 * If a previous contribution in the recurring contribution sequence is linked with a pledge then we assume this contribution
677 * should be linked with the same pledge also. Currently only back-office users can apply a recurring payment to a pledge &
678 * it should be assumed they
679 * do so with the intention that all payments will be linked
681 * The pledge payment record should already exist & will need to be updated with the new contribution ID.
682 * If not the contribution will also need to be linked to the pledge
684 * @param int $contributionID
685 * @param int $contributionRecurID
686 * @param int $contributionStatusID
687 * @param float $contributionAmount
689 * @throws \CiviCRM_API3_Exception
691 public static function updateRecurLinkedPledge($contributionID, $contributionRecurID, $contributionStatusID, $contributionAmount) {
692 $returnProperties = array('id', 'pledge_id');
693 $paymentDetails = $paymentIDs = array();
695 if (CRM_Core_DAO
::commonRetrieveAll('CRM_Pledge_DAO_PledgePayment', 'contribution_id', $contributionID,
696 $paymentDetails, $returnProperties
699 foreach ($paymentDetails as $key => $value) {
700 $paymentIDs[] = $value['id'];
701 $pledgeId = $value['pledge_id'];
705 //payment is not already linked - if it is linked with a pledge we need to create a link.
706 // return if it is not recurring contribution
707 if (!$contributionRecurID) {
711 $relatedContributions = new CRM_Contribute_DAO_Contribution();
712 $relatedContributions->contribution_recur_id
= $contributionRecurID;
713 $relatedContributions->find();
715 while ($relatedContributions->fetch()) {
716 CRM_Core_DAO
::commonRetrieveAll('CRM_Pledge_DAO_PledgePayment', 'contribution_id', $relatedContributions->id
,
717 $paymentDetails, $returnProperties
721 if (empty($paymentDetails)) {
722 // payment is not linked with a pledge and neither are any other contributions on this
726 foreach ($paymentDetails as $key => $value) {
727 $pledgeId = $value['pledge_id'];
730 // we have a pledge now we need to get the oldest unpaid payment
731 $paymentDetails = CRM_Pledge_BAO_PledgePayment
::getOldestPledgePayment($pledgeId);
732 if (empty($paymentDetails['id'])) {
733 // we can assume this pledge is now completed
734 // return now so we don't create a core error & roll back
737 $paymentDetails['contribution_id'] = $contributionID;
738 $paymentDetails['status_id'] = $contributionStatusID;
739 $paymentDetails['actual_amount'] = $contributionAmount;
741 // put contribution against it
742 $payment = civicrm_api3('PledgePayment', 'create', $paymentDetails);
743 $paymentIDs[] = $payment['id'];
746 // update pledge and corresponding payment statuses
747 CRM_Pledge_BAO_PledgePayment
::updatePledgePaymentStatus($pledgeId, $paymentIDs, $contributionStatusID,
748 NULL, $contributionAmount
755 public static function recurringContribution(&$form) {
756 // Recurring contribution fields
757 foreach (self
::getRecurringFields() as $key => $label) {
758 if ($key == 'contribution_recur_payment_made' && !empty($form->_formValues
) &&
759 !CRM_Utils_System
::isNull(CRM_Utils_Array
::value($key, $form->_formValues
))
761 $form->assign('contribution_recur_pane_open', TRUE);
764 CRM_Core_Form_Date
::buildDateRange($form, $key, 1, '_low', '_high');
765 // If data has been entered for a recurring field, tell the tpl layer to open the pane
766 if (!empty($form->_formValues
) && !empty($form->_formValues
[$key . '_relative']) ||
!empty($form->_formValues
[$key . '_low']) ||
!empty($form->_formValues
[$key . '_high'])) {
767 $form->assign('contribution_recur_pane_open', TRUE);
772 // Add field to check if payment is made for recurring contribution
773 $recurringPaymentOptions = array(
774 1 => ts('All recurring contributions'),
775 2 => ts('Recurring contributions with at least one payment'),
777 $form->addRadio('contribution_recur_payment_made', NULL, $recurringPaymentOptions, array('allowClear' => TRUE));
778 CRM_Core_Form_Date
::buildDateRange($form, 'contribution_recur_start_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth');
779 CRM_Core_Form_Date
::buildDateRange($form, 'contribution_recur_end_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth');
780 CRM_Core_Form_Date
::buildDateRange($form, 'contribution_recur_modified_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth');
781 CRM_Core_Form_Date
::buildDateRange($form, 'contribution_recur_next_sched_contribution_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth');
782 CRM_Core_Form_Date
::buildDateRange($form, 'contribution_recur_failure_retry_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth');
783 CRM_Core_Form_Date
::buildDateRange($form, 'contribution_recur_cancel_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth');
784 $form->addElement('text', 'contribution_recur_processor_id', ts('Processor ID'), CRM_Core_DAO
::getAttribute('CRM_Contribute_DAO_ContributionRecur', 'processor_id'));
785 $form->addElement('text', 'contribution_recur_trxn_id', ts('Transaction ID'), CRM_Core_DAO
::getAttribute('CRM_Contribute_DAO_ContributionRecur', 'trxn_id'));
787 CRM_Core_BAO_Query
::addCustomFormFields($form, array('ContributionRecur'));
792 * Get fields for recurring contributions.
796 public static function getRecurringFields() {
798 'contribution_recur_payment_made' => ts(''),
799 'contribution_recur_start_date' => ts('Recurring Contribution Start Date'),
800 'contribution_recur_next_sched_contribution_date' => ts('Next Scheduled Recurring Contribution'),
801 'contribution_recur_cancel_date' => ts('Recurring Contribution Cancel Date'),
802 'contribution_recur_end_date' => ts('Recurring Contribution End Date'),
803 'contribution_recur_create_date' => ('Recurring Contribution Create Date'),
804 'contribution_recur_modified_date' => ('Recurring Contribution Modified Date'),
805 'contribution_recur_failure_retry_date' => ts('Failed Recurring Contribution Retry Date'),
810 * Update recurring contribution based on incoming payment.
812 * Do not rename or move this function without updating https://issues.civicrm.org/jira/browse/CRM-17655.
814 * @param int $recurringContributionID
815 * @param string $paymentStatus
816 * Payment status - this correlates to the machine name of the contribution status ID ie
820 * @throws \CiviCRM_API3_Exception
822 public static function updateOnNewPayment($recurringContributionID, $paymentStatus) {
823 if (!in_array($paymentStatus, array('Completed', 'Failed'))) {
827 'id' => $recurringContributionID,
829 'contribution_status_id',
830 'next_sched_contribution_date',
832 'frequency_interval',
838 $existing = civicrm_api3('ContributionRecur', 'getsingle', $params);
840 if ($paymentStatus == 'Completed'
841 && CRM_Contribute_PseudoConstant
::contributionStatus($existing['contribution_status_id'], 'name') == 'Pending') {
842 $params['contribution_status_id'] = 'In Progress';
844 if ($paymentStatus == 'Failed') {
845 $params['failure_count'] = $existing['failure_count'];
847 $params['modified_date'] = date('Y-m-d H:i:s');
849 if (!empty($existing['installments']) && self
::isComplete($recurringContributionID, $existing['installments'])) {
850 $params['contribution_status_id'] = 'Completed';
853 // Only update next sched date if it's empty or 'just now' because payment processors may be managing
854 // the scheduled date themselves as core did not previously provide any help.
855 if (empty($existing['next_sched_contribution_date']) ||
strtotime($existing['next_sched_contribution_date']) ==
856 strtotime(date('Y-m-d'))) {
857 $params['next_sched_contribution_date'] = date('Y-m-d', strtotime('+' . $existing['frequency_interval'] . ' ' . $existing['frequency_unit']));
860 civicrm_api3('ContributionRecur', 'create', $params);
864 * Is this recurring contribution now complete.
866 * Have all the payments expected been received now.
868 * @param int $recurringContributionID
869 * @param int $installments
873 protected static function isComplete($recurringContributionID, $installments) {
874 $paidInstallments = CRM_Core_DAO
::singleValueQuery(
875 'SELECT count(*) FROM civicrm_contribution WHERE id = %1',
876 array(1 => array($recurringContributionID, 'Integer'))
878 if ($paidInstallments >= $installments) {
885 * Calculate line items for the relevant recurring calculation.
887 * @param int $recurId
888 * @param string $total_amount
889 * @param int $financial_type_id
893 public static function calculateRecurLineItems($recurId, $total_amount, $financial_type_id) {
894 $originalContributionID = CRM_Core_DAO
::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id');
895 $lineItems = CRM_Price_BAO_LineItem
::getLineItemsByContributionID($originalContributionID);
897 if (count($lineItems) == 1) {
898 foreach ($lineItems as $index => $lineItem) {
899 if ($financial_type_id) {
900 // CRM-17718 allow for possibility of changed financial type ID having been set prior to calling this.
901 $lineItem['financial_type_id'] = $financial_type_id;
903 if ($lineItem['line_total'] != $total_amount) {
904 // We are dealing with a changed amount! Per CRM-16397 we can work out what to do with these
905 // if there is only one line item, and the UI should prevent this situation for those with more than one.
906 $lineItem['line_total'] = $total_amount;
907 $lineItem['unit_price'] = round($total_amount / $lineItem['qty'], 2);
909 $priceField = new CRM_Price_DAO_PriceField();
910 $priceField->id
= $lineItem['price_field_id'];
911 $priceField->find(TRUE);
912 $lineSets[$priceField->price_set_id
][] = $lineItem;
915 // CRM-19309 if more than one then just pass them through:
916 elseif (count($lineItems) > 1) {
917 foreach ($lineItems as $index => $lineItem) {
918 $lineSets[$index][] = $lineItem;