администрировать по записям
Валюты
разделять валюты
Скрипты
Разработка
Разделение прва доступа на записи в справочнике Валют
Яворский Алексей
26 июня 2013 13:09

Задача:
Разделение права доступа на записи в справочнике Валют
Вводная:
Есть много офисов компании, например Московскому офису совершенно не интересно каждый раз выбирать валюту UAH, DKK и.т.д. следовательно логично разграничить доступ на валюты

Решение:
1. tbl_Currency -> поставить галочку Is Administrated By Records
2. wnd_CurrencyDictionary
a) Добавить pgAccessDetail
б) wndAccessDetail -> Window = wnd_AccessGridArea
в) Pages -> определить событие PagesOnChangeActivePage

3.wnd_CurrencyDictionaryScript
a) Use Scripts -> scr_WorkspaceUtils
Код самого скрипта нужно поменять следующим образом :

//------------------------------------------------------------------------------
// wnd_CurrencyDictionaryScript
//------------------------------------------------------------------------------

var CurrencyDictionary = new Object();
var BaseWorkspace = new Object();

function InitializeGridData() {
        CurrencyDictionary.CurrencyWindow = wndCurrency.Window;
        CurrencyDictionary.CurrencyWindow.Prepare();   
}

function InitializeCurrencyRateDetail() {
        CurrencyDictionary.CurrencyRateWindow = wndCurrencyRateDetail.Window;
        CurrencyDictionary.CurrencyRateWindow.Prepare();
}

function InitializeGlobalVariables() {
        CurrencyDictionary.CurrencyDataset = GetDatasetFromWindow(
                CurrencyDictionary.CurrencyWindow, DefDatasetLinkName);
        CurrencyDictionary.CurrencyRateDataset = GetDatasetFromWindow(
                CurrencyDictionary.CurrencyRateWindow, DefDatasetLinkName);
}

function InitializeGlobalDatalinks() {
        dlCurrency.Dataset = CurrencyDictionary.CurrencyDataset;
        dlCurrencyRate.Dataset = CurrencyDictionary.CurrencyRateDataset;
}

function OpenCurrencyDataset() {
        CurrencyDictionary.CurrencyDataset.Open();
}

function Initialize(Window) {
        InitializeGridData();
        InitializeCurrencyRateDetail();
        InitializeGlobalVariables();
        InitializeGlobalDatalinks();
        OpenCurrencyDataset();
}

function RefreshCurrencyRate() {
    CurrencyDictionary.CurrencyDataset.Open();
        var CurrencyID = CurrencyDictionary.CurrencyDataset.Values('ID');
        if (CurrencyID == null) {
                return;
        }
        SetAttribute(CurrencyDictionary.CurrencyRateWindow, 'ParentItemID',
                CurrencyID);
        RefreshDetailData(CurrencyDictionary.CurrencyDataset, 'ID',
                CurrencyDictionary.CurrencyRateDataset, 'CurrencyID');
}

// ----------------------------------------------------------------------------
// Event handlers
// ----------------------------------------------------------------------------

function wnd_CurrencyDictionaryOnPrepare(Window) {
        Initialize(Window);
}

function dlCurrencyOnDatasetAfterOpen(Dataset) {
//      RefreshCurrencyRate();
RefreshDetails()
}

function dlCurrencyOnDatasetAfterPositionChange(Dataset) {
//      RefreshCurrencyRate();
RefreshDetails()
}

function dlCurrencyOnDatasetRefreshRecord(Dataset, KeyValue, AddNewRecordOnPage) {
        if (AddNewRecordOnPage) {
//              RefreshCurrencyRate();
        RefreshDetails()
        }
}

function wnd_CurrencyDictionaryOnNotify(ScriptableService, Sender, Message, Data) {
        if (Message == MSG_CLOSE) {
                CloseWindow(Self);
        }
}


function PagesOnChangeActivePage(Pages) {
        RefreshDetails();
}

function RefreshDetails() {
        if (Pages.ActivePage.Name == pgCurrencyRate.Name) {
                RefreshCurrencyRate();
        } else
        if (Pages.ActivePage.Name == pgAccessDetail.Name) {

        //26.06 Create BaseWorkspace
        var Grid = wndCurrency.Window.ComponentsByName('grdData');     
        BaseWorkspace.GridDataset = CurrencyDictionary.CurrencyDataset;
        BaseWorkspace.Grid = Grid

        RefreshAccessDetail(BaseWorkspace, wndAccessDetail, 'tbl_CurrencyRight');
        }
}

Нравится

5 комментариев
Андросов Дмитрий
26 июня 2013 13:27

Мне кажется, как раз не логично решать задачу доступом - если Московскому офису все-таки понадобятся закрытые от них валюты?
Имхо лучше сделать какую-нибудь детальку типа CurrencyInDepartment и фильтровать справочник валют по данным оттуда. Хотя, такая реализация немного сложнее

Яворский Алексей
26 июня 2013 13:40

Дмитрий совсем Вас не понял. Права доступа разделяются на группы All Users -> Moscow -> Managers Moscow, All Users -> Moscow -> Accountant Moscow и.т.д. и как раз на группы и раздаются права.
При таком подходе Московский офис не видит не нужные им валюты, а если например бухгалтеру необходимо видеть что то дополнительно, ему раздаются права доступа (на группу Accountant Moscow)

Яворский Алексей
26 июня 2013 13:42

А то что вы предлагаете очень лихо в силу того что Валюты - это очень базовый справочник

Андросов Дмитрий
26 июня 2013 13:59

"Яворский Алексей" написал: то что вы предлагаете очень лихо в силу того что Валюты - это очень базовый справочник

С этим не поспоришь, хотя и не "очень"
Разница есть только в том, что в вашем варианте нужен кто-то сверху, кто будет права раздавать, а в моем - пользователи сами смогут этим заниматься

Даже проще можно сделать:
*добавить таблицу CurrencyInUser
*в датасет справочника валют добавить булево поле подзапроса "Показывать мне"
[sql]
(select
....
(select ShowForMe from tbl_CurrencyInUser where CurrencyID = tbl_Currency.ID and UserID = :CurrentUserContactID)
....
from tbl_Currency)
[/sql]
*создать логику автозаполнения tbl_CurrencyInUser при создании нового пользователя и валюты
*наложить на датасет валют фильтр where ShowForMe = 1
*для грида справочника отключать фильтр

Олейник Дмитрий
26 июня 2013 16:30

Алексей, спасибо за пример реализации. Так держать! :)

Показать все комментарии
currency
3.x
валюта
Валюты
курс валют
Курсы валют
Нацбанк Украины
Загрузка курса валют Национального банка Украины
Зверев Александр
14 января 2013 08:53

Вниманию предлагается набор функций для загрузки в Terrasoft 3.X актуального курса доллара к гривне по версии Нацбанка Украины. Можно получать как официальный, так и средневзвешенный рыночный курс.
Национальный банк Украины

Функция непосредственного получения курса. Если входной параметр true – получает официальный курс, если false или без параметра – средневзвешенный.

Результат - объект с двумя полями. Rate – количество украинских гривен за 1 доллар США (например, 7.993). Date – указанная на сайте дата этого курса. Для официального – следующий рабочий день, для среднего – предыдущий.

function GetUSDRate(IsOfficial) {
        try {
            var Result = new Object();
                var webAddress = 'http://bank.gov.ua/control/uk/index';
                var xmlHttpReq = new ActiveXObject("MSXML2.XMLHTTP.6.0");
                xmlHttpReq.open("GET", webAddress, false);        
            xmlHttpReq.send();
            var HtmlText = xmlHttpReq.responseText.replace(/\s/g, "");
            if (IsOfficial) {
                var BeginText = '100 ДоларівСША';
                var EndText = '100 Євро';
               
                } else {
                        var BeginText = '-->грн.за100доларівСША';
                        var EndText =  '
Детальніше...';
                }

                var BeginIndex = HtmlText.indexOf(BeginText)+ BeginText.length;
                var EndIndex = HtmlText.indexOf(EndText);
            var HtmlFragment = HtmlText.substring(BeginIndex, EndIndex);
                var Rate = parseFloat(HtmlFragment);
                if (isNaN(Rate)) {
                        Log.Write(2, 'Ошибка при получении курса Нацбанка');
                        return null;
                }
                Result.Rate = Rate/100;
            if (IsOfficial) {          
                BeginText = 'Офіційнийкурсгривнідоіноземнихвалютз14.00';
                EndText = '';
                } else {
                    BeginText = 'Середньозваженийкурснаміжбанківськомуринку(начасвстановленняофіційногокурсугривні)';
                    EndText = '

Нравится

Поделиться

4 комментария
Репко Артём
27 июля 2013 22:21

Александр, спасибо!
Правильно ли я понимаю, что функция рассчитана на текущую разметку официального сайта НБУ и Вы будете следить за ее изменениями, внося соответствующие правки в свое решение?

Зверев Александр
28 июля 2013 18:10

Да, так и есть. У НБУ, в отличие от ЦБРФ, нет публичного XML API.
За полгода дизайн сайта НБУ не менялся, пока работает нормально.

Кривонос Максим
6 марта 2014 19:07

Александр! функция перестала работать!

выдает сообщение: "Ошибка при получении курса Нацбанка"

Поправьте скрипт как можно скорее!
Спасибо.

Зверев Александр
7 марта 2014 11:21

Исправлено.

Показать все комментарии
DOMDocument
Валюты
Получение курсов валют из интернета
Кихтенко Андрей
1 декабря 2008 15:58

В примере показано, как выгрузить курсы валют (и сами валюты) на дату.

Я использовал сайт http://cbr.ru (Центральный банк Российской Федерации)

Для использования необходимо:

1. Добавить системный параметр:
CurrencyRatesDictionaryURL
http://www.cbr.ru/scripts/XML_daily_eng.asp?date_req=#DateMacro# - для англоязычной версии
http://www.cbr.ru/scripts/XML_daily.asp?date_req=#DateMacro# - для русскоязной версии

2. В сервис sq_Currency добавить фильтр и парметр ShortName

3. В скрипт scr_CurrencyUtils добавить функцию

        function GetBasicCurrencyCode() {
        if (IsEmptyGUID(CurrencyUtils.BasicCurrencyCode)) {
                CurrencyUtils.BasicCurrencyCode =
                GetDatasetFieldValueFromDatasetByUSI(
                        'ds_Currency', 'IsBase', true, 'ShortName');
        }
        return CurrencyUtils.BasicCurrencyCode;
}

4. Загрузить сервисы из архива и запусть Terrasoft с ключем -wnd=wnd_UploadCurrencyRates

П.С. Курсы валют - с российского сайта, на котором я не нашел кросс-курсов, поэтому, если базовая валюта отличается от рубля - курс получается обычным разделением на курс базовой валюты...

Вроде ничего не забыл...

Нравится

Поделиться

12 комментариев
Serega
3 декабря 2008 11:30

Добрый день! А для украинского есть что-то подобное?

Кихтенко Андрей
3 декабря 2008 11:58

Не встречал... возможно есть.... платные услуги точно должны быть...

Non noceo.

Serega
3 декабря 2008 12:55

Вот, нашёл и для нашей страны, т.е. Украины :)
сайт http://ufs.kiev.ua/xml/

+ надо немного модифицировать код функции wnd_UploadCurrencyRatesScript
Просьба к админам приатачить этот код в виде архива как вариант для Украины.
[javascript]
//-----------------------------------------------------------------------------
// wnd_UploadCurrencyRatesScript
//-----------------------------------------------------------------------------

var UploadCurrencyRatesObject = new Object();

function UploadCurrencyRates(URL) {
System.BeginProcessing();
try {
var XmlDoc = System.CreateObject('Msxml.DOMDocument');
XmlDoc.async = false;
if (XmlDoc.load(URL) != true) {
ShowWarningDialog("The currency rates can't be uploaded from the specified URL");
return;
}
pbUpload.Position = 20;
System.ProcessMessages();
var NodeList = XmlDoc.selectSingleNode('r00t');
var XmlNode = NodeList.cloneNode(true);
var RateDate = GetTodayDate().getVarDate();
NodeList = XmlDoc.selectNodes('*/item');
var Length = NodeList.length;
if (Length == 0) {
return;
}
var BasicCurrencyCode = GetBasicCurrencyCode();
var BasicRate;
for(var i = 0; i < Length; i++) {
var Node = NodeList.item(i).cloneNode(true);
var CurrencyCode = Node.selectSingleNode('title').text;
if (CurrencyCode == BasicCurrencyCode) {
BasicRate = parseFloat(Node.selectSingleNode('rate').text);
if (BasicRate == 0) {
BasicRate = 1;
}
break;
}
}
pbUpload.Position = 25;
System.ProcessMessages();
if (IsEmptyValue(BasicRate)) {
BasicRate = 1;
}
for(var i = 0; i < Length; i++) {
var Node = NodeList.item(i).cloneNode(true);
var CurrencyCode = Node.selectSingleNode('title').text;
var CurrencyName = Node.selectSingleNode('description').text;
var Nominal = parseInt(Node.selectSingleNode('qty').text);
var Value = parseFloat(Node.selectSingleNode('rate').text);
if (CurrencyCode != BasicCurrencyCode) {
UploadCurrencyRate(CurrencyCode, CurrencyName, Nominal,
Value / BasicRate, RateDate);
}
pbUpload.Position = 25 + (i / Length * 75);
System.ProcessMessages();
}
} finally {
System.EndProcessing();
}
}

function UploadCurrencyRate(CurrencyCode, CurrencyName, Nominal, Value, RateDate) {
if (!Assigned(UploadCurrencyRatesObject.CurrencyDataset)) {
UploadCurrencyRatesObject.CurrencyDataset =
Services.GetNewItemByUSI('ds_Currency');
}

var Dataset = UploadCurrencyRatesObject.CurrencyDataset;
ApplyDatasetFilter(Dataset, 'ShortName', CurrencyCode, true);
var CurrencyID;
Dataset.Open();
try {
CurrencyID = Dataset.Values('ID');
if (IsEmptyValue(CurrencyID)) {
if (edtUploadCurrencies.IsChecked) {
Dataset.Append();
CurrencyID = Connector.GenGUID();
Dataset.Values('ID') = CurrencyID;
Dataset.Values('Currency') = CurrencyName;
Dataset.Values('Description') = CurrencyName;
Dataset.Values('ShortName') = CurrencyCode;
Dataset.Values('IsBase') = false;
Dataset.Post();
} else {
return;
}
}
} finally {
Dataset.Close();
}
if (!Assigned(UploadCurrencyRatesObject.RatesDataset)) {
UploadCurrencyRatesObject.RatesDataset =
Services.GetNewItemByUSI('ds_CurrencyRate');
}
Dataset = UploadCurrencyRatesObject.RatesDataset;
ApplyDatasetFilter(Dataset, 'CurrencyID', CurrencyID, true);
ApplyDatasetFilter(Dataset, 'RateDate', RateDate, true);
Dataset.Open();
try {
if (Dataset.IsEmptyPage) {
Dataset.Append();
} else {
Dataset.Edit();
}
Dataset.Values('StartDate') = RateDate;
Dataset.Values('DueDate') = RateDate;
Dataset.Values('Rate') = Value;
Dataset.Values('For') = Nominal;
Dataset.Values('CurrencyID') = CurrencyID;
Dataset.Post();
} finally {
Dataset.Close();
}
}

function GetDateInStr(DateValue) {
var DateObject = new Date(DateValue);
var Result = '/' + DateObject.getFullYear();
var Month = DateObject.getMonth();
Month++;
if (Month < 10) {
Month = '0' + Month;
}
var Day = DateObject.getDate();
if (Day < 10) {
Day = '0' + Day;
}
Result = Day + '/' + Month + Result;
return Result;
}

// ----------------------------------------------------------------------------
// Event handlers
// ----------------------------------------------------------------------------

function wnd_UploadCurrencyRatesOnPrepare(Window) {
pbUpload.Position = 0;
edtRatesDate.Value = GetLocalDate();
}

function btnOKOnClick(Control) {
var URL;
var Message = "Please, specify the 'CurrencyRatesDictionaryURL' system parameter";
try {
URL = 'http://ufs.kiev.ua/xml/nbu_fx.php';
if (IsEmptyValue(URL)) {
ShowWarningDialog(Message);
}
} catch(e) {
ShowWarningDialog(Message);
return;
}
var DateValue = edtRatesDate.Value;
if (IsEmptyValue(DateValue)) {
DateValue = GetLocalDate();
}
if (ShowConfirmationDialog("Do you want to upload currencies from the \n " +
URL + '?') != wmrYes) {
return;
}
UploadCurrencyRates(URL);
Self.Close();
SendNotify(Self, MSG_REFRESHDATA, 0);
}

function btnCancelOnClick(Control) {
Self.Close();
}
[/javascript]

Кихтенко Андрей
3 декабря 2008 19:14

Английский вариант для доллара:
ссылка - http://data.newyorkfed.org/markets/fxrates/FXtoXML.cfm?FEXdate=#DateMac…

Контрол edtUploadCurrencies нужно удалить...

[javascript]
//-----------------------------------------------------------------------------
// wnd_UploadCurrencyRatesScript
//-----------------------------------------------------------------------------

var UploadCurrencyRatesObject = new Object();

function UploadCurrencyRates(URL) {
System.BeginProcessing();
try {
var XmlDoc = System.CreateObject('Msxml.DOMDocument');
XmlDoc.async = false;
if (XmlDoc.load(URL) != true) {
ShowWarningDialog("The currency rates can't be uploaded from the specified URL");
return;
}
pbUpload.Position = 20;
System.ProcessMessages();
var NodeList = XmlDoc.selectSingleNode('UtilityData').selectSingleNode('frbny:DataSet').childNodes;
var Length = NodeList.length;
for(var i = 0; i < Length; i++) {
var Node = NodeList.item(i).cloneNode(true);
var Unit1 = Node.getAttribute('UNIT');
var KeyNode = Node.selectSingleNode('frbny:Key');
var ObsNode = Node.selectSingleNode('frbny:Obs');
var Unit2 = KeyNode.selectSingleNode('frbny:CURR').text;
var CurrencyCode = '';
var Value = parseFloat(ObsNode.selectSingleNode('frbny:OBS_VALUE').text);
var RateDate = ObsNode.selectSingleNode('frbny:TIME_PERIOD').text;
var Year = parseInt(RateDate.substr(0, 4));
var Month = parseInt(RateDate.substr(5, 2));
var Day = parseInt(RateDate.substr(8, 2));
RateDate = (new Date(Year, Month, Day)).getVarDate();
if (Unit1 == 'USD') {
CurrencyCode = Unit2;
Value = 1 / Value;
} else {
CurrencyCode = Unit1;
}
var CurrencyName = '';
var Nominal = 1;
UploadCurrencyRate(CurrencyCode, CurrencyName, Nominal,
Value, RateDate);
pbUpload.Position = 20 + (i / Length * 70);
System.ProcessMessages();
}
} finally {
System.EndProcessing();
}
}

function UploadCurrencyRate(CurrencyCode, CurrencyName, Nominal, Value, RateDate) {
if (!Assigned(UploadCurrencyRatesObject.CurrencyDataset)) {
UploadCurrencyRatesObject.CurrencyDataset =
Services.GetNewItemByUSI('ds_Currency');
}
var Dataset = UploadCurrencyRatesObject.CurrencyDataset;
ApplyDatasetFilter(Dataset, 'ShortName', CurrencyCode, true);
var CurrencyID;
Dataset.Open();
try {
CurrencyID = Dataset.Values('ID');
if (IsEmptyValue(CurrencyID)) {
return;
}
} finally {
Dataset.Close();
}
if (!Assigned(UploadCurrencyRatesObject.RatesDataset)) {
UploadCurrencyRatesObject.RatesDataset =
Services.GetNewItemByUSI('ds_CurrencyRate');
}
Dataset = UploadCurrencyRatesObject.RatesDataset;
ApplyDatasetFilter(Dataset, 'CurrencyID', CurrencyID, true);
ApplyDatasetFilter(Dataset, 'RateDate', RateDate, true);
Dataset.Open();
try {
if (Dataset.IsEmptyPage) {
Dataset.Append();
} else {
Dataset.Edit();
}
Dataset.Values('StartDate') = RateDate;
Dataset.Values('DueDate') = RateDate;
Dataset.Values('Rate') = Value;
Dataset.Values('For') = Nominal;
Dataset.Values('CurrencyID') = CurrencyID;
Dataset.Post();
} finally {
Dataset.Close();
}
}

function GetDateInStr(DateValue) {
var DateObject = new Date(DateValue);
var Result = '' + DateObject.getFullYear();
var Month = DateObject.getMonth();
Month++;
if (Month < 10) {
Month = '0' + Month;
}
var Day = DateObject.getDate();
if (Day < 10) {
Day = '0' + Day;
}
Result = Result + '%2D' + Month + '%2D' + Day;
return Result;
}

// ----------------------------------------------------------------------------
// Event handlers
// ----------------------------------------------------------------------------

function wnd_UploadCurrencyRatesOnPrepare(Window) {
pbUpload.Position = 0;
edtRatesDate.Value = GetLocalDate();
}

function btnOKOnClick(Control) {
var URL;
var Message = "Please, specify the 'CurrencyRatesDictionaryURL' system parameter";
try {
URL = GetSystemParameterValueEx('CurrencyRatesDictionaryURL', true);
if (IsEmptyValue(URL)) {
ShowWarningDialog(Message);
}
} catch(e) {
ShowWarningDialog(Message);
return;
}
var DateValue = edtRatesDate.Value;
if (IsEmptyValue(DateValue)) {
DateValue = GetLocalDate();
}
URL = ReplaceString(URL, '#DateMacro#', GetDateInStr(DateValue));
if (ShowConfirmationDialog("Do you want to upload currencies from the \n " +
URL + '?') != wmrYes) {
return;
}
UploadCurrencyRates(URL);
Self.Close();
SendNotify(Self, MSG_REFRESHDATA, 0);
}

function btnCancelOnClick(Control) {
Self.Close();
}
[/javascript]

Non noceo.

Славянский Евгений
4 декабря 2008 10:18

может финальный вариант в "примеры решений"?

Кихтенко Андрей
4 декабря 2008 10:38

Это 3 финальных варианта - для рубля, гривны и доллара...

Non noceo.

Калинина Марина
9 июня 2012 11:25

Здравствуйте!

Загрузила сервисы. В wnd_UploadCurrencyRatesScript используется скрипт scr_SystemSettings, который не нахожу в базе. Как быть?

Подскажите, пожалуйста, еще по следующему пункту
[xml]
1. Добавить системный параметр:
CurrencyRatesDictionaryURL
[/xml]

Куда его добавлять?

Зверев Александр
11 июня 2012 11:34

"Шальнева Марина" написал:
В wnd_UploadCurrencyRatesScript используется скрипт scr_SystemSettings, который не нахожу в базе. Как быть?

Видимо, в конфигурации образца 2008 года была, сейчас нет.
Функция GetSystemParameterValueEx сейчас находится в скрипте scr_Utils.


1. Добавить системный параметр:

Речь, похоже, о системных настройках, "Файл"->"Настройки"->"Системные настройки".

Alimova Anna
11 июня 2012 14:44

Здравствуйте, Марина!

данный скрипт существовал в старых версиях,начиная с 3.3.1 полностью перенесен в базу данных - tbl_SystemSetting

Это - строковая переменная, которая должна содержать адрес, с которого мы загружаем курс.

"Кихтенко Андрей" написал:1. Добавить системный параметр:
CurrencyRatesDictionaryURL
http://www.cbr.ru/scripts/XML_daily_eng.asp?date_req=#DateMacro# - для англоязычной версии
http://www.cbr.ru/scripts/XML_daily.asp?date_req=#DateMacro# - для русскоязной версии

Для нормальной работы скрипта достаточно добавить такой параметр Системные настройки:

systemsetting

Калинина Марина
13 июня 2012 08:44

Добрый день!

Все подключила, системный параметр указала, при загрузке вываливается ошибка:

[code]
'Object 'DataField DueDate' is not assigned'
[/code]

Alimova Anna
13 июня 2012 13:52

Марина, данная реализация опубликована для старых версий Terrasoft, поэтому требуется доработка скрипта в связи с изменением структуры БД.

В данном конкретном случае для диагностики сбоя рекомендуем Вам активировать отладчик и выяснить, на какой строке возникает сбой.

Вероятная проблема - в датасете, к которому Вы обращаетесь в скрипте нет поля DueDate, либо датасет пуст.

Также рекомендуем ознакомиться с реализацией получения курсов валют в следующей теме:
http://www.community.terrasoft.ru/blogs/7673

Калинина Марина
21 июня 2012 12:19

Добрый день!

Получилось выгрузить курсы валют. В датасете действительно не было поля DueDate.

Показать все комментарии
Подписаться на Валюты