[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Fmsystem-commits] [17240] prepare for custom code outside tree
From: |
sigurdne |
Subject: |
[Fmsystem-commits] [17240] prepare for custom code outside tree |
Date: |
Wed, 1 Nov 2017 15:07:10 -0400 (EDT) |
Revision: 17240
http://svn.sv.gnu.org/viewvc/?view=rev&root=fmsystem&revision=17240
Author: sigurdne
Date: 2017-11-01 15:07:10 -0400 (Wed, 01 Nov 2017)
Log Message:
-----------
prepare for custom code outside tree
Added Paths:
-----------
thirdparty/PE_custom/BK_EBF/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php
Copied:
thirdparty/PE_custom/BK_EBF/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php
(from rev 17218,
trunk/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php)
===================================================================
---
thirdparty/PE_custom/BK_EBF/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php
(rev 0)
+++
thirdparty/PE_custom/BK_EBF/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php
2017-11-01 19:07:10 UTC (rev 17240)
@@ -0,0 +1,238 @@
+<?php
+ /**
+ * phpGroupWare - property: a Facilities Management System.
+ *
+ * @author Sigurd Nes <address@hidden>
+ * @copyright Copyright (C) 2016 Free Software Foundation, Inc.
http://www.fsf.org/
+ * This file is part of phpGroupWare.
+ *
+ * phpGroupWare is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * phpGroupWare is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with phpGroupWare; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
02110-1301 USA
+ *
+ * @license http://www.gnu.org/licenses/gpl.html GNU General Public
License
+ * @internal Development of this application was funded by
http://www.bergen.kommune.no/bbb_/ekstern/
+ * @package property
+ * @subpackage helpdesk
+ * @version $Id$
+ */
+ /**
+ * Description
+ * @package property
+ */
+ //if (false)
+ if (!empty($data['order_id']) && !empty($data['send_order']) &&
!empty($data['vendor_email'][0]))
+ {
+ $exporter_ordre = new lag_agresso_ordre_fra_melding();
+ $data['purchase_grant_error'] = $exporter_ordre->transfer($id)
== 3 ? true : false;
+ $data['purchase_grant_checked'] = true;
+ }
+
+ class lag_agresso_ordre_fra_melding
+ {
+
+ var $debug = true;
+ function __construct()
+ {
+
+ }
+
+ public function transfer( $id )
+ {
+ $_ticket = ExecMethod('property.sotts.read_single',
$id);
+ if (!$this->debug && $_ticket['order_sent'])
+ {
+ return 2;
+ }
+
+ $price = 0;
+ $budgets = ExecMethod('property.botts.get_budgets',$id);
+ foreach ($budgets as $budget)
+ {
+
+ $price += $budget['amount'];
+ }
+
+ try
+ {
+ $purchase_grant_ok =
CreateObject('property.botts')->validate_purchase_grant( $_ticket['ecodimb'],
$price, $_ticket['order_id'] );
+ }
+ catch (Exception $ex)
+ {
+ throw $ex;
+ }
+
+ if (!$this->debug && !$purchase_grant_ok)
+ {
+ return 3;
+ }
+ // _debug_array($_ticket);die();
+
+ $contacts = CreateObject('property.sogeneric');
+ $contacts->get_location_info('vendor', false);
+
+ $custom = createObject('property.custom_fields');
+ $vendor_data['attributes'] = $custom->find('property',
'.vendor', 0, '', 'ASC', 'attrib_sort', true, true);
+
+ $vendor_data = $contacts->read_single(array('id' =>
$_ticket['vendor_id']), $vendor_data);
+ if (is_array($vendor_data))
+ {
+ foreach ($vendor_data['attributes'] as
$attribute)
+ {
+ if ($attribute['name'] == 'adresse')
+ {
+ $vendor['address'] =
$attribute['value'];
+ }
+ if ($attribute['name'] == 'org_name')
+ {
+ $vendor['name'] =
$attribute['value'];
+ }
+ }
+ }
+ unset($contacts);
+
+
+ if (phpgw::get_var('on_behalf_of_assigned', 'bool') &&
isset($_ticket['assignedto_name']))
+ {
+ $user_name = $_ticket['assignedto_name'];
+
$GLOBALS['phpgw']->preferences->set_account_id($_ticket['assignedto'], true);
+ $GLOBALS['phpgw_info']['user']['preferences'] =
$GLOBALS['phpgw']->preferences->data;
+ $account_lid =
$GLOBALS['phpgw']->accounts->id2lid($_ticket['assignedto']);
+ }
+ else
+ {
+ $user_name =
$GLOBALS['phpgw_info']['user']['fullname'];
+ $account_lid =
$GLOBALS['phpgw_info']['user']['account_lid'];
+ }
+ // $ressursnr =
$GLOBALS['phpgw_info']['user']['preferences']['property']['ressursnr'];
+
+ $address =
mb_substr(htmlspecialchars($_ticket['address'], ENT_QUOTES, 'UTF-8', true), 0,
50);
+
+
+ $buyer = array(
+ 'Name' => $user_name,
+ 'AddressInfo' => array(
+ array(
+ 'Address' =>
htmlspecialchars_decode($address, ENT_QUOTES)
+ )
+ ),
+ 'BuyerReferences' => array(
+ array(
+ 'Responsible' =>
strtoupper($account_lid),
+ 'RequestedBy' =>
strtoupper($account_lid),
+ 'Accountable' =>
strtoupper($account_lid),
+ )
+ )
+ );
+ if ($_ticket['location_data'])
+ {
+ $dim3 =
isset($_ticket['location_data']['loc2']) && $_ticket['location_data']['loc2'] ?
"{$_ticket['location_data']['loc1']}{$_ticket['location_data']['loc2']}" :
"{$_ticket['location_data']['loc1']}01";
+ }
+ else
+ {
+ $dim3 = 9;
+ }
+
+ if($dim3 == 9999)
+ {
+ $dim3 = 9;
+ }
+
+ $dim6 = 9;
+
+ if ($_ticket['order_dim1'])
+ {
+ $sogeneric = CreateObject('property.sogeneric',
'order_dim1');
+ $sogeneric_data =
$sogeneric->read_single(array('id' => $_ticket['order_dim1']));
+ if ($sogeneric_data)
+ {
+ $dim6 =
"{$_ticket['building_part']}{$sogeneric_data['num']}";
+ }
+ }
+ /*
+ P3: EBF Innkjøpsordre Portico : 45000000-45249999
+ V3: EBF Varemotttak Portico : 45500000-45749999
+ P4: EBE Innkjøpsordre Portico : 45250000-45499999
+ V4: EBE Varemotttak Portico : 45750000-45999999
+ */
+
+
+ if($_ticket['order_id'] >= 45000000 &&
$_ticket['order_id'] <= 45249999)
+ {
+ $voucher_type = 'P3';
+ }
+ else if ($_ticket['order_id'] >= 45250000 &&
$_ticket['order_id'] <= 45499999)
+ {
+ $voucher_type = 'P4';
+ }
+ else
+ {
+ throw new Exception("Ordrenummer
'{$_ticket['order_id']}' er utenfor serien:<br/>" . __FILE__ . '<br/>linje:' .
__LINE__);
+ }
+
+
+ $param = array(
+ 'voucher_type' => $voucher_type,
+ 'dim0' => $_ticket['b_account_id'],
// Art
+ 'dim1' => $_ticket['ecodimb'],
// Ansvar
+ 'dim2' => $_ticket['service_id'] ?
$_ticket['service_id'] : 9, // Tjeneste liste 30 stk, default 9
+ 'dim3' => $dim3,
// Objekt: eiendom + bygg: 6 siffer
+ 'dim4' => $_ticket['contract_id'] == '-1' ? ''
: $_ticket['contract_id'], // Kontrakt - frivillig / 9, 7 tegn - alfanumerisk
+ 'dim5' => $_ticket['external_project_id'],
// Prosjekt
+ 'dim6' => $dim6,
// Aktivitet - frivillig: bygningsdel, 3 siffer +
bokstavkode
+ 'vendor_id' => $_ticket['vendor_id'],
+ 'vendor_name' => $vendor['name'],
+ 'vendor_address' =>
mb_substr($vendor['address'], 0, 50),
+ 'order_id' => $_ticket['order_id'],
+ 'tax_code' => $_ticket['tax_code'],
+ 'buyer' => $buyer,
+ 'lines' => array(
+ array(
+ 'unspsc_code' =>
$_ticket['unspsc_code'] ? $_ticket['unspsc_code'] : 'UN-72000000',
+ 'descr' => '',
+ 'price' => $price,
+ )
+ )
+ );
+
+ $exporter_ordre = new
BkBygg_exporter_data_til_Agresso(array(
+ 'order_id' => $_ticket['order_id'],
+ 'voucher_type' => $voucher_type
+ )
+ );
+ $exporter_ordre->create_transfer_xml($param);
+
+ $export_ok = $exporter_ordre->transfer($this->debug);
+
+ if ($export_ok)
+ {
+ phpgwapi_cache::message_set("Ordre
#{$_ticket['order_id']} er overført");
+ $this->log_transfer( $id );
+ }
+ }
+
+ private function log_transfer( $id )
+ {
+ $historylog = CreateObject('property.historylog',
'tts');
+ $historylog->add('RM', $id, "Ordre overført til
agresso");
+ $now = time();
+ $GLOBALS['phpgw']->db->query("UPDATE fm_tts_tickets SET
order_sent = {$now} WHERE id = {$id}");
+ }
+
+ private function get_unspsc_code_descr( $unspsc_code )
+ {
+ $GLOBALS['phpgw']->db->query("SELECT name FROM
fm_unspsc_code WHERE id = '{$unspsc_code}'");
+ $GLOBALS['phpgw']->db->next_record();
+ return $GLOBALS['phpgw']->db->f('name');
+ }
+ }
\ No newline at end of file
Property changes on:
thirdparty/PE_custom/BK_EBF/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php
___________________________________________________________________
Added: svn:mergeinfo
## -0,0 +1,3 ##
+/branches/dev-syncromind/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php:13653
+/branches/dev-syncromind-2/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php:14933-16846
+/branches/stavangerkommune/property/inc/custom/default/BkBygg_lag_Agresso_ordre_fra_melding.php:12743-12875,12986
\ No newline at end of property
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Fmsystem-commits] [17240] prepare for custom code outside tree,
sigurdne <=