Gedemin TLB.IGedemin.GetCurrRate - История изменений

SYSDBA: /* Примеры использования */

2017-01-25T12:41:03Z

‎Примеры использования

SYSDBA в 10:04, 21 января 2017

2017-01-21T10:04:45Z

SYSDBA: /* Примеры использования */

2017-01-20T16:09:41Z

‎Примеры использования

SYSDBA в 15:49, 20 января 2017

2017-01-20T15:49:07Z

SYSDBA в 15:45, 20 января 2017

2017-01-20T15:45:59Z

SYSDBA в 15:45, 20 января 2017

2017-01-20T15:45:45Z

SYSDBA в 15:45, 20 января 2017

2017-01-20T15:45:26Z

SYSDBA в 15:43, 20 января 2017

2017-01-20T15:43:00Z

SYSDBA в 15:39, 20 января 2017

2017-01-20T15:39:25Z

SYSDBA в 12:22, 20 января 2017

2017-01-20T12:22:09Z

@@ Строка 58: / Строка 58: @@
    ' курс должен рассчитаться через кросс-курс
-   MsgBox System.GetCurrRate(D, 31, -1, "USD", "GBP", "BYN", 1, False, False, False)
+   MsgBox System.GetCurrRate(D, 31, -1, "USD", "GBP", "BYN", 1, False, True, False)
 End Sub
 </syntaxhighlight>

@@ Строка 8: / Строка 8: @@
 ;ForDate: Дата или дата и время, на которую будет осуществлен пересчет.
-;ValidDays: Целочисленный параметр. Может принимать следующие значения:
+;ValidDays: Целочисленный параметр смысл которого, защититься от ситуаций, когда актуального курса нет в базе данных и запрос подхватывает устаревшие значения десятилетней давности. Может принимать следующие значения:
-   * -1 -- в таблице курсов [[GD_CURRRATE]] ищется запись равная указанной дате или ближайшая к ней более ранняя.
+   * -1 -- в таблице курсов [[GD_CURRRATE]] ищется запись равная указанной дате или ближайшая к ней более ранняя. Так работает весь существующий код.
    * 0 -- в таблице курсов ищется запись в точности соответствующая заданной дате (или дате и времени).
    * Положительное число, большее 0 -- в таблице курсов ищется запись равная указанной дате или более ранняя, но такая, чтобы интервал между двумя датами не превышал указанное число дней.

@@ Строка 47: / Строка 47: @@
    MsgBox System.GetCurrRate(D, 31, -1, "USD", "NCU", -1, 1, False, False, False)
-   ' должно получиться тоде самое, так как кросс-курс не понадобится --
+   ' должно получиться тоже самое, так как кросс-курс не понадобится --
    ' в базе данных есть прямой курс
    MsgBox System.GetCurrRate(D, 31, -1, "USD", "NCU", "EUR", 1, False, False, False)

@@ Строка 33: / Строка 33: @@
 <syntaxhighlight lang="vbnet">
 Option Explicit
-Sub gsGetCurrRate2_Demo
+Sub Macros356972760_735619482
 End Sub
 </syntaxhighlight>

@@ Строка 9: / Строка 9: @@
 ;ForDate: Дата или дата и время, на которую будет осуществлен пересчет.
 ;ValidDays: Целочисленный параметр. Может принимать следующие значения:
-* -1 -- в таблице курсов [[GD_CURRRATE]] ищется запись равная указанной дате или ближайшая к ней более ранняя.
+  * -1 -- в таблице курсов [[GD_CURRRATE]] ищется запись равная указанной дате или ближайшая к ней более ранняя.
-* 0 -- в таблице курсов ищется запись в точности соответствующая заданной дате (или дате и времени).
+  * 0 -- в таблице курсов ищется запись в точности соответствующая заданной дате (или дате и времени).
-* Положительное число, большее 0 -- в таблице курсов ищется запись равная указанной дате или более ранняя, но такая, чтобы интервал между двумя датами не превышал указанное число дней.
+  * Положительное число, большее 0 -- в таблице курсов ищется запись равная указанной дате или более ранняя, но такая, чтобы интервал между двумя датами не превышал указанное число дней.
 ;RegulatorKey: Целочисленный идентификатор записи из таблицы [[GD_COMPANY]], РУИД в строковом представлении или -1. Если параметр задан, то берется '''только''' курс, установленный указанным регулятором. Если не задан (значение -1), то сначала ищется курс, у которого поле '''gd_currrate.regulatorkey IS NULL''', затем курс, установленный любым регулятором.
 ;FromCurrKey: Исходная валюта, в которой выражено значение параметра '''Amount'''.

@@ Строка 1: / Строка 1: @@
-{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=function  gsGetCurrRate2(ForDate: TDateTime; RegulatorKey: OleVariant; FromCurrKey: OleVariant;
+{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=function  gsGetCurrRate2(ForDate: TDateTime; ValidDays: Integer; RegulatorKey: OleVariant; FromCurrKey: OleVariant;
                               ToCurrKey: OleVariant; CrossCurrKey: OleVariant; Amount: Currency;
                               ForceCross: WordBool; UseInverted: WordBool; RaiseException: WordBool): Double; safecall;}}

@@ Строка 13: / Строка 13: @@
 ;CrossCurrKey: Валюта для расчета кросс-курса. Опциональный параметр.
 ;Amount: Количество денежных единиц, выраженных в исходной валюте. Если '''Amount = 1''', то функция вернет курс исходной валюты, выраженный в валюте пересчета.
-;ForceCross: Булевский параметр. Используется только если задан '''CrossCurrKey'''. При '''ForceCross = True''' всегда рассчитывается кросс-курс. Т.е. сначала сумма переводится из исходной валюты, в валюту кросс-курса, а затем полученное значение переводится в валюту пересчета. Если '''ForceCross = False''', то система сначала попытается найти запись для прямой конвертации из исходной валюты в валюту пересчета и только при её отсутствии будет произведен пересчет через кросс-курс. При пересчете через кросс-курс, если не найдена запись с курсом, то поиск обратного кросс-курса не производится.
+;ForceCross: Булевский параметр. Используется только если задан '''CrossCurrKey'''. При '''ForceCross = True''' всегда рассчитывается кросс-курс. Т.е. сначала сумма переводится из исходной валюты, в валюту кросс-курса, а затем полученное значение переводится в валюту пересчета. Если '''ForceCross = False''', то система сначала попытается найти запись для прямой конвертации из исходной валюты в валюту пересчета и только при её отсутствии будет произведен пересчет через кросс-курс.
 ;UseInverted: Булевский параметр. Если '''UseInverted = True''' и в базе данных нет записи для курса конвертации из исходной валюты в валюту пересчета, то система попытается найти и использовать обратный курс из валюты пересчета в исходную валюту. Если одновременно заданы параметры '''UseInverted = True''', '''CrossCurrKey''' и '''ForceCross = False''', и при этом система не может найти прямой курс для конвертаци из исходной валюты в валюту пересчета, то сначала будет предпринята попытка найти обратный курс и только при ее неудаче будет использован пересчет через кросс-курс.
 ;RaiseException: Булевский параметр. Если '''RaiseException = False''', то при возникновении ошибок функция вернет 0. Исключение генерироваться не будет.