Эмуляция некоторых функций ClnInter для RS-Bank 5.00.086

Данная библиотека может быть полезна при подготовке перехода с 5.00.086 на 5.00.090, в котором существенно изменена идеология работы с клиентами и их данными.
Используя библиотеку можно еще на версии 5.00.086 подготовить и использовать макросы работы с клиентами в стиле 5.00.090 (синтаксис, имена и выполняемые функции аналогичны описанным в документе rsl_proc.pdf 5.00.090) - только функции по чтению данных!

Перед началом работы необходимо в настроечные константы занести свои данные:

/* Настройки под конкретный банк */
const bumOWNER_CLIENT_NUMBER:integer =3; /* номер клиента-наш банк */
const bumOWNER_CLIENT_CODE:string ="041946748"; /* строковый код клиента-наш банк */

Для работы с записями адресов и документов используется собственный словарь clninter.def

Реализованы следующие функции:

macro GetClientNames( Client:variant, FullName:string, ShortName:string, AddName:string ):integer

macro GetClientFullName( Client:variant, FullName:string ):integer

macro GetClientShortName( Client:variant, ShortName:string ):integer

macro GetClientAddName( Client:variant, AddName:string ):integer

macro GetClientAddressArray( Client:variant, AdrType:integer, AdrArray:TArray, ErrorCode:integer ):integer

macro GetClientAddresses( Client:variant, AdrArray:TArray, AdrType:integer, isMain:integer, dt:date ):integer

macro GetClientCapital( Client:variant, DeclareCapital:moneyl, RealCapital:moneyl, CurCode:integer ):integer

macro GetClientDeclareCapital( Client:variant, DeclareCapital:moneyl ):integer

macro GetClientRealCapital( Client:variant, RealCapital:moneyl ):integer

macro GetClientCapitalCurCode( Client:variant, CurCode:integer ):integer

macro GetClientCodeByID( id:integer, ErrorCode:integer ):string

macro GetClientDates( Client:variant, StartDate:date, FinishDate:date ):integer

macro GetClientStartDate( Client:variant, StartDate:date ):integer

macro GetClientFinishDate( Client:variant, FinishDate:date ):integer

macro GetClientDocumentsArray( Client:variant, DocKind:integer, docArray:TArray, ErrorCode:integer ):integer

macro GetClientDocuments( Client:variant, docArray:TArray, DocKind:integer, isMain:integer, dt:date ):integer

macro GetClientDocNum( Client:variant, RDKind:integer,
RegNum:string, Series:string, DocNum:string, RegDocArr:TArray,
ErrorCode:integer ):string

macro GetClientGroup( Client:variant, UserGroup:integer ):integer

macro GetClientIDByCode( code:string, ErrorCode:integer ):integer

macro GetClientINN( Client:variant, ErrorCode:integer ):string

macro GetClientKPP( Client:variant, ErrorCode:integer ):string

macro GetClientLegalForm( Client:variant, IsEmployer:bool, ErrorCode:integer ):integer

macro GetClientUserField1( Client:variant, UserField1:string ):integer

macro GetClientUserField2( Client:variant, UserField2:string ):integer

macro GetClientUserField3( Client:variant, UserField3:string ):integer

macro GetClientUserField4( Client:variant, UserField4:string ):integer

macro GetClientUserType( Client:variant, UserType:string ):integer

macro GetClientBirthday( Client:variant ):date

macro IsNotResident( Client:variant, CountryNR:string, ErrorCode:integer ):bool