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

• Обсуждение:Эмуляция некоторых функций ClnInter для RS-Bank 5.00.086 ( Обсуждение примера  17.05.2007 10:35 )
  Оценка:0(0)

  Данная библиотека может быть полезна при подготовке перехода с 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
  
  Посмотреть пример
  >> Ответить