4 +--------------------------------------------------------------------+
5 | CiviCRM version 4.3 |
6 +--------------------------------------------------------------------+
7 | Copyright CiviCRM LLC (c) 2004-2013 |
8 +--------------------------------------------------------------------+
9 | This file is a part of CiviCRM. |
11 | CiviCRM is free software; you can copy, modify, and distribute it |
12 | under the terms of the GNU Affero General Public License |
13 | Version 3, 19 November 2007 and the CiviCRM Licensing Exception. |
15 | CiviCRM is distributed in the hope that it will be useful, but |
16 | WITHOUT ANY WARRANTY; without even the implied warranty of |
17 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
18 | See the GNU Affero General Public License for more details. |
20 | You should have received a copy of the GNU Affero General Public |
21 | License and the CiviCRM Licensing Exception along |
22 | with this program; if not, contact CiviCRM LLC |
23 | at info[AT]civicrm[DOT]org. If you have questions about the |
24 | GNU Affero General Public License or the licensing of CiviCRM, |
25 | see the CiviCRM license FAQ at http://civicrm.org/licensing |
26 +--------------------------------------------------------------------+
32 * @copyright CiviCRM LLC (c) 2004-2013
38 * Page for displaying list of financial type accounts
40 class CRM_Financial_Page_FinancialTypeAccount
extends CRM_Core_Page
{
42 * The action links that we need to display for the browse screen
47 static $_links = null;
50 * The account id that we need to display for the browse screen
60 * @return string Classname of BAO.
62 function getBAOName() {
63 return 'CRM_Financial_BAO_FinancialTypeAccount';
69 * @return array (reference) of action links
72 if (!(self
::$_links)) {
73 self
::$_links = array(
74 CRM_Core_Action
::UPDATE
=> array(
76 'url' => 'civicrm/admin/financial/financialType/accounts',
77 'qs' => 'action=update&id=%%id%%&aid=%%aid%%&reset=1',
78 'title' => ts('Edit Financial Type Account'),
80 CRM_Core_Action
::DELETE
=> array(
81 'name' => ts('Delete'),
82 'url' => 'civicrm/admin/financial/financialType/accounts',
83 'qs' => 'action=delete&id=%%id%%&aid=%%aid%%',
84 'title' => ts('Delete Financial Type Account'),
94 * This method is called after the page is created. It checks for the
95 * type of action and executes that action.
96 * Finally it calls the parent's run method.
103 // get the requested action
104 $action = CRM_Utils_Request
::retrieve('action', 'String', $this, false, 'browse'); // default to 'browse'
106 // assign vars to templates
107 $this->assign('action', $action);
108 $id = CRM_Utils_Request
::retrieve('id', 'Positive', $this, false, 0);
109 $this->_aid
= CRM_Utils_Request
::retrieve('aid', 'Positive', $this, false, 0);
111 // what action to take ?
112 if ($action & (CRM_Core_Action
::UPDATE | CRM_Core_Action
::ADD | CRM_Core_Action
::DELETE
)) {
113 $this->edit($action, $id) ;
116 $this->browse($action, $id);
120 return parent
::run();
124 * Browse all Financial Type Account data
131 // get all Financial Type Account data sorted by weight
132 $financialType = array();
134 $dao = new CRM_Financial_DAO_EntityFinancialAccount();
135 $params['entity_id'] = $this->_aid
;
136 $params['entity_table'] = 'civicrm_financial_type';
138 $relationTypeId = key(CRM_Core_PseudoConstant
::accountOptionValues('account_relationship', NULL, " AND v.name LIKE 'Accounts Receivable Account is' "));
139 $this->_title
= CRM_Core_DAO
::getFieldValue('CRM_Financial_DAO_FinancialType', $this->_aid
, 'name');
140 CRM_Utils_System
::setTitle($this->_title
.' - '.ts( 'Assigned Financial Accounts'));
141 $financialAccountType = CRM_Core_PseudoConstant
::accountOptionValues('financial_account_type');
142 $accountRelationship = CRM_Core_PseudoConstant
::accountOptionValues('account_relationship');
143 $dao->copyValues($params);
145 while ($dao->fetch()) {
146 $financialType[$dao->id
] = array();
147 CRM_Core_DAO
::storeValues($dao, $financialType[$dao->id
]);
149 $params = array('id' => $dao->financial_account_id
);
151 $financialAccount = CRM_Financial_BAO_FinancialAccount
::retrieve($params, $defaults);
152 if (!empty($financialAccount)) {
153 $financialType[$dao->id
]['financial_account'] = $financialAccount->name
;
154 $financialType[$dao->id
]['accounting_code'] = $financialAccount->accounting_code
;
155 $financialType[$dao->id
]['account_type_code'] = $financialAccount->account_type_code
;
156 $financialType[$dao->id
]['is_active'] = $financialAccount->is_active
;
157 if (!empty($financialAccount->contact_id
)) {
158 $financialType[$dao->id
]['owned_by'] = CRM_Contact_BAO_Contact
::displayName($financialAccount->contact_id
);
160 if (!empty($financialAccount->financial_account_type_id
)) {
161 $optionGroupName = 'financial_account_type';
162 $financialType[$dao->id
]['financial_account_type'] = CRM_Utils_Array
::value($financialAccount->financial_account_type_id
, $financialAccountType);
165 if (!empty($dao->account_relationship
)) {
166 $optionGroupName = 'account_relationship';
167 $financialType[$dao->id
]['account_relationship'] = CRM_Utils_Array
::value($dao->account_relationship
, $accountRelationship);
170 // form all action links
171 $action = array_sum(array_keys($this->links()));
172 $links = self
::links();
175 if ($dao->account_relationship
== $relationTypeId) {
176 unset($links[CRM_Core_Action
::DELETE
]);
178 $financialType[$dao->id
]['action'] = CRM_Core_Action
::formLink($links, $action,
181 'aid'=> $dao->entity_id
,
185 $this->assign('rows', $financialType);
186 $this->assign( 'aid', $this->_aid
);
187 $this->assign('financialTypeTitle', $this->_title
);
190 CRM_Core_Error
::fatal( );
196 * edit CiviCRM Financial Type Account data.
198 * editing would involved modifying existing financial Account Type + adding data
199 * to new financial Account Type.
201 * @param string $action the action to be invoked
206 function edit( $action ) {
207 // create a simple controller for editing CiviCRM Profile data
208 $controller = new CRM_Core_Controller_Simple( 'CRM_Financial_Form_FinancialTypeAccount', ts('Financial Account Types'), $action );
210 // set the userContext stack
211 $session = CRM_Core_Session
::singleton();
212 $session->pushUserContext( CRM_Utils_System
::url( 'civicrm/admin/financial/financialType/accounts',
213 'reset=1&action=browse&aid=' . $this->_aid
) );
214 $controller->set( 'aid', $this->_aid
);
216 $controller->setEmbedded( true );
217 $controller->process();