Все файлы перекодированы в UTF-8

Author: diev

ABOUT.FRM

@@ -1,6 +1,6 @@
 VERSION 5.00
 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} About 
-   Caption         =   "Î ïðîãðàììå ""Áàíê-Êëèåíò"""
+   Caption         =   "О программе ""Банк-Клиент"""
    ClientHeight    =   3810
    ClientLeft      =   45
    ClientTop       =   330
@@ -31,13 +31,12 @@ End Sub
 Private Sub UserForm_Initialize()
     Application.StatusBar = AppTitle
     lblInfo.Caption = _
-        BPrintF("Ïðîãðàììà %s\n\n" & _
-        "Àâòîð: %s, %d\n%s\n\n" & _
-        "Ïðîâåðüòå ôàéëû âàøåé âåðñèè\nè çàïðîñèòå îáíîâëåíèå!", _
-        AppTitle, "Äìèòðèé Åâäîêèìîâ", 1999, "http://members.xoom.com/diev")
-    lblAddress.Caption = BPrintF("Íàø àäðåñ:\n\n%s\n%s\n%s", _
-        "Ñàíêò-Ïåòåðáóðã, Ìîñêîâñêèé ïð-ò, 143", _
-        "òåë. (812) 324-06-90, ôàêñ 324-06-95", _
+        BPrintF("Программа %s\n\n" & _
+        "Автор: %s, %d\n%s\n\n" & _
+        "Проверьте файлы вашей версии\nи запросите обновление!", _
+        AppTitle, "Дмитрий Евдокимов", 1999, "http://members.xoom.com/diev")
+    lblAddress.Caption = BPrintF("Наш адрес:\n\n%s\n%s\n%s", _
+        "Санкт-Петербург, Московский пр-т, 143", _
+        "тел. (812) 324-06-90, факс 324-06-95", _
         "e-mail [email protected], web http://www.cityinvest.sp.ru")
 End Sub
-

ABOUT.FRX

@@ -68,4 +68,3 @@ Public Function Ot36(Value As String) As Long
 ErrHandler:
     Ot36 = -1 'Overflow!
 End Function
-

BASE36.BAS

@@ -32,4 +32,3 @@ Public Sub CalendarShow()
     Calendar.Show
     Unload Calendar
 End Sub
-

BNKFORMS.BAS

@@ -164,4 +164,3 @@ Function IsArrayEmpty(ab() As Byte) As Boolean
     v = ab(LBound(ab))
     IsArrayEmpty = (Err <> 0)
 End Function
-

BYTES.BAS

@@ -1,6 +1,6 @@
 VERSION 5.00
 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Calendar 
-   Caption         =   "Êàëåíäàðü"
+   Caption         =   "Календарь"
    ClientHeight    =   4335
    ClientLeft      =   45
    ClientTop       =   330
@@ -481,31 +481,31 @@ Private Sub SetDate(d As String)
 End Sub
 
 Private Sub DisplayDate()
-    lblDate.Caption = Format(DateEntered, "dddd dd mmmm yyyy ã.", vbMonday, vbFirstJan1)
+    lblDate.Caption = Format(DateEntered, "dddd dd mmmm yyyy г.", vbMonday, vbFirstJan1)
     cmdToday.Enabled = DateEntered <> Date
 End Sub
 
 Private Sub Reset()
     DateEntered = Date
     With cmdToday
-        .ControlTipText = Format(Date, "dddd dd mmmm yyyy", vbMonday, vbFirstJan1) & " ã."
+        .ControlTipText = Format(Date, "dddd dd mmmm yyyy", vbMonday, vbFirstJan1) & " г."
         .Enabled = False
     End With
 
     With lstMonth
         .Clear
-        .AddItem "01 ßíâàðü"
-        .AddItem "02 Ôåâðàëü"
-        .AddItem "03 Ìàðò"
-        .AddItem "04 Àïðåëü"
-        .AddItem "05 Ìàé"
-        .AddItem "06 Èþíü"
-        .AddItem "07 Èþëü"
-        .AddItem "08 Àâãóñò"
-        .AddItem "09 Ñåíòÿáðü"
-        .AddItem "10 Îêòÿáðü"
-        .AddItem "11 Íîÿáðü"
-        .AddItem "12 Äåêàáðü"
+        .AddItem "01 Январь"
+        .AddItem "02 Февраль"
+        .AddItem "03 Март"
+        .AddItem "04 Апрель"
+        .AddItem "05 Май"
+        .AddItem "06 Июнь"
+        .AddItem "07 Июль"
+        .AddItem "08 Август"
+        .AddItem "09 Сентябрь"
+        .AddItem "10 Октябрь"
+        .AddItem "11 Ноябрь"
+        .AddItem "12 Декабрь"
         .ListIndex = Month(Date) - 1
     End With
 

CALENDAR.FRM

@@ -13,21 +13,21 @@ Option Compare Text
 Option Base 1
 DefLng A-Z
 
-'Àðõèâ
-Const mArchiveSheet = "Àðõèâ"
-'Ïîëÿ
-Const mArchivePayeeNick = 1 'Ïîëó÷àòåëü (êð.íàçâàíèå)
-Const mArchiveNo = 2 'Íîìåð
-Const mArchiveDate = 3 'Äàòà
-Const mArchiveFile = 4 'Ôàéë
-Const mArchiveMark = 5 'Îòìåòêà Áàíêà
-Const mArchiveAction = 6 'Ñðîê
-Const mArchiveQueue = 7 'Î÷åðåäíîñòü
-Const mArchiveSum = 8 'Ñóììà
-Const mArchiveNDS = 9 'ÍÄÑ
-Const mArchiveDescription = 10 'Íàçíà÷åíèå
-'Èòîãî
-Const mArchiveSize = 10 'Îáùåå ÷èñëî ñòîëáöîâ
+'Архив
+Const mArchiveSheet = "Архив"
+'Поля
+Const mArchivePayeeNick = 1 'Получатель (кр.название)
+Const mArchiveNo = 2 'Номер
+Const mArchiveDate = 3 'Дата
+Const mArchiveFile = 4 'Файл
+Const mArchiveMark = 5 'Отметка Банка
+Const mArchiveAction = 6 'Срок
+Const mArchiveQueue = 7 'Очередность
+Const mArchiveSum = 8 'Сумма
+Const mArchiveNDS = 9 'НДС
+Const mArchiveDescription = 10 'Назначение
+'Итого
+Const mArchiveSize = 10 'Общее число столбцов
 
 Dim mArchive As New CDataSheet
 Dim mListCount As Long
@@ -49,18 +49,18 @@ Public Sub Add(PayeeNick As String, DocNo As Variant, DocDate As Variant, Action
     arr(mArchiveNDS) = NDS
     arr(mArchiveDescription) = Description
 
-    Range("Íîìåð") = arr(mArchiveNo)
-    Range("Äàòà") = arr(mArchiveDate)
-    Range("Ñðîê") = DateAdd("d", arr(mArchiveAction), arr(mArchiveDate))
-    Range("Î÷åðåäíîñòü") = arr(mArchiveQueue)
+    Range("Номер") = arr(mArchiveNo)
+    Range("Дата") = arr(mArchiveDate)
+    Range("Срок") = DateAdd("d", arr(mArchiveAction), arr(mArchiveDate))
+    Range("Очередность") = arr(mArchiveQueue)
     s.Value = arr(mArchiveSum)
-    Range("Ñóììà") = s.PlatText
-    Range("ÑóììàÏðîïèñüþ") = s.AmountText
-    Range("Íàçíà÷åíèå") = arr(mArchiveDescription)
+    Range("Сумма") = s.PlatText
+    Range("СуммаПрописью") = s.AmountText
+    Range("Назначение") = arr(mArchiveDescription)
     Payment.FillForm
     MakeSheetVMD
 
-    arr(mArchiveFile) = Left(Range("Ôàéë").Text, 8)
+    arr(mArchiveFile) = Left(Range("Файл").Text, 8)
     mArchive.InsertRecord arr
 End Sub
 
@@ -71,18 +71,18 @@ Public Sub FillByRow(n As Long)
         Payment.Nick = .Cells(n, mArchivePayeeNick).Text
         Payment.FillForm
 
-        Range("Íîìåð") = .Cells(n, mArchiveNo).Text
-        Range("Äàòà") = .Cells(n, mArchiveDate)
-        Range("Ñðîê") = DateAdd("d", .Cells(n, mArchiveAction), .Cells(n, mArchiveDate))
-        Range("Î÷åðåäíîñòü") = .Cells(n, mArchiveQueue).Text
+        Range("Номер") = .Cells(n, mArchiveNo).Text
+        Range("Дата") = .Cells(n, mArchiveDate)
+        Range("Срок") = DateAdd("d", .Cells(n, mArchiveAction), .Cells(n, mArchiveDate))
+        Range("Очередность") = .Cells(n, mArchiveQueue).Text
         s.Value = .Cells(n, mArchiveSum)
-        Range("Ñóììà") = s.PlatText
-        Range("ÑóììàÏðîïèñüþ") = s.AmountText
-        Range("Íàçíà÷åíèå") = .Cells(n, mArchiveDescription).Text
+        Range("Сумма") = s.PlatText
+        Range("СуммаПрописью") = s.AmountText
+        Range("Назначение") = .Cells(n, mArchiveDescription).Text
 
-        'Range("Ôàéë") = .Cells(n, mArchiveFile).Text
-        'Range("Òèï") = .Cells(n, mArchiveFile).Text '///////////////////////////
-        'Range("Ïîñûëêà") = .Cells(n, mArchiveFile).Text '///////////////////////////
+        'Range("Файл") = .Cells(n, mArchiveFile).Text
+        'Range("Тип") = .Cells(n, mArchiveFile).Text '///////////////////////////
+        'Range("Посылка") = .Cells(n, mArchiveFile).Text '///////////////////////////
         MakeSheetVMD
     End With
     Application.ScreenUpdating = True

CALENDAR.FRX

@@ -12,7 +12,7 @@ Option Compare Text
 Option Base 1
 DefLng A-Z
 
-Const AppTitle = "Ïîäãîòîâêà ôàéëà ÔÑÔÌ"
+Const AppTitle = "Подготовка файла ФСФМ"
 Const AppVersion = "04.08.2015"
 
 Const CIBLS = "40702810100000000000"
@@ -24,7 +24,7 @@ Public Property Get Path() As String
 End Property
 
 Public Property Get TITLE() As String
-    TITLE = AppTitle & " âåð. " & AppVersion
+    TITLE = AppTitle & " вер. " & AppVersion
 End Property
 
 Public Property Get VERSION() As String
@@ -54,38 +54,38 @@ Public Sub Info()
     'Dim s As String, File As String, ID4 As String
     'On Error Resume Next
     'If User.Demo Then
-    '    s = Bsprintf("ÄÅÌÎÍÑÒÐÀÖÈÎÍÍÀß ÂÅÐÑÈß!\n")
+    '    s = Bsprintf("ДЕМОНСТРАЦИОННАЯ ВЕРСИЯ!\n")
     'Else
     '    With User
-    '        s = Bsprintf("Íîìåð êëèåíòà: %s\n%s\nË/ñ: %s\n", .ID, .Name, .LS)
+    '        s = Bsprintf("Номер клиента: %s\n%s\nЛ/с: %s\n", .ID, .Name, .LS)
     '    End With
     'End If
     '
-    'fmt = "\nÏðîãðàììà Áàíê-Êëèåíò: %s\nÄÀÒÀ ÂÅÐÑÈÈ: %s\n"
+    'fmt = "\nПрограмма Банк-Клиент: %s\nДАТА ВЕРСИИ: %s\n"
     's = s & Bsprintf(fmt, ThisWorkbook.FullName, App.Version)
     '
-    'fmt = "\nÐàáî÷àÿ êíèãà Excel: %s\n"
+    'fmt = "\nРабочая книга Excel: %s\n"
     's = s & Bsprintf(fmt, ActiveWorkbook.FullName)
     '
     's = s & BnkSeek2.Info
     's = s & Crypto.Info
     's = s & SMail.Info
     '
-    'fmt = "\nÇàãðóçêà: %s\nÂûãðóçêà: %s"
+    'fmt = "\nЗагрузка: %s\nВыгрузка: %s"
     's = s & Bsprintf(fmt, User.ImportList, User.ExportList)
     '
-    'If OkCancelBox("%s\n\nÎò÷åò î êîíôèãóðàöèè áóäåò âûñëàí â Áàíê.\nÅãî ïîäãîòîâêà çàéìåò íåêîòîðîå âðåìÿ.", s) Then
+    'If OkCancelBox("%s\n\nОтчет о конфигурации будет выслан в Банк.\nЕго подготовка займет некоторое время.", s) Then
     '    SendInfo
     'End If
 
     's = vbNullString
     'With User
-    '    s = s & Bsprintf("Íîìåð êëèåíòà: %s\n\n(%s)\n(ñ÷åò %s)\n\n", _
+    '    s = s & Bsprintf("Номер клиента: %s\n\n(%s)\n(счет %s)\n\n", _
     '        .ID4, .Name, .LS)
     'End With
     '
     'With App
-    '    s = s & Bsprintf("ÂÅÐÑÈß ÏÐÎÃÐÀÌÌÛ: %s\nÎáíîâëåíà: %s\nÄèðåêòîðèÿ óñòàíîâêè: %s\n\n", _
+    '    s = s & Bsprintf("ВЕРСИЯ ПРОГРАММЫ: %s\nОбновлена: %s\nДиректория установки: %s\n\n", _
     '        .Version, .Options("Updated"), QFile(.Path))
     '    s = s & Bsprintf("%s%s\n", _
     '        FileInfo(ActiveWorkbook.FullName), _
@@ -98,44 +98,44 @@ Public Sub Info()
     '    File = .File
     '    If IsFile(File) Then
     '        .LoadFile
-    '        s = s & Bsprintf("Ñïðàâî÷íèê ÁÈÊ îò %s (áàíêîâ: %d)\n%s\n", _
+    '        s = s & Bsprintf("Справочник БИК от %s (банков: %d)\n%s\n", _
     '            DtoC(.Updated), .RecCount, FileInfo(File))
     '    Else
-    '        s = s & Bsprintf("Ñïðàâî÷íèê ÁÈÊ íå óñòàíîâëåí!\n")
+    '        s = s & Bsprintf("Справочник БИК не установлен!\n")
     '    End If
     'End With
     '
     'With SMail
     '    File = App.Path & "SMail\Flags\Bank.fin"
     '    If IsFile(File) Then
-    '       s = s & Bsprintf("Ïîñëåäíèé ñåàíñ ñâÿçè: %s (%s)\n", _
+    '       s = s & Bsprintf("Последний сеанс связи: %s (%s)\n", _
     '           FileDateTime(App.Path & "SMail\Flags\Bank.fin"), _
-    '           IIf(.DialOrInet = 2, "÷åðåç Èíòåðíåò", "ïî ìîäåìó"))
-    '       s = s & Bsprintf("Ôàéëîâ â ïðèíÿòîì: %d (ïîñëåäíèé %s)\n\n", _
+    '           IIf(.DialOrInet = 2, "через Интернет", "по модему"))
+    '       s = s & Bsprintf("Файлов в принятом: %d (последний %s)\n\n", _
     '           CountFiles(.Recv & "*.*"), FileDateTime(App.Path & "SMail\Flags\Bank.rcv"))
     '    Else
-    '       s = s & Bsprintf("Ñåàíñîâ ñâÿçè íå áûëî èëè SMail íå óñòàíîâëåí!\n\n")
+    '       s = s & Bsprintf("Сеансов связи не было или SMail не установлен!\n\n")
     '    End If
     'End With
     '
     'If User.Demo Then
-    '    s = Bsprintf("ÄÅÌÎÍÑÒÐÀÖÈÎÍÍÀß ÂÅÐÑÈß\n\n%s", s)
+    '    s = Bsprintf("ДЕМОНСТРАЦИОННАЯ ВЕРСИЯ\n\n%s", s)
     'Else
-    '    s = Bsprintf("ÏÐÈ ÇÂÎÍÊÅ Â ÁÀÍÊ ÍÀÇÎÂÈÒÅ ÑËÅÄÓÞÙÅÅ:\n\n%s", s)
+    '    s = Bsprintf("ПРИ ЗВОНКЕ В БАНК НАЗОВИТЕ СЛЕДУЮЩЕЕ:\n\n%s", s)
     'End If
     'File = Dir(App.Path & "*.chm")
     'If File <> vbNullString Then
-    '    s = s & Bsprintf("Ôàéëû ïîìîùè:\n")
+    '    s = s & Bsprintf("Файлы помощи:\n")
     '    Do While File <> vbNullString
     '        s = s & Bsprintf("%s\n", FileInfo(App.Path & File))
     '        File = Dir
     '    Loop
-    '    If MsgBox(s & "Ïîêàçàòü ïîìîùü?", vbInformation + vbOKCancel, App.TITLE) = vbOK Then
+    '    If MsgBox(s & "Показать помощь?", vbInformation + vbOKCancel, App.TITLE) = vbOK Then
     '        ShowHelp
     '    End If
     'Else
-    '    's = s & Bsprintf("Ôàéëîâ ïîìîùè íå íàéäåíî!")
-    '    s = s & Bsprintf("Ïîìîùü íà ñàéòå www.cibank.ru â ðàçäåëå Áàíê-Êëèåíò")
+    '    's = s & Bsprintf("Файлов помощи не найдено!")
+    '    s = s & Bsprintf("Помощь на сайте www.cibank.ru в разделе Банк-Клиент")
     '    InfoBox "%s", s
     'End If
     '
@@ -148,7 +148,7 @@ Public Function FileInfo(File As String) As String
     Else
         s = File
     End If
-    FileInfo = Bsprintf("(ôàéë: %s, äàòà: %s, ðàçìåð: %s)\n", _
+    FileInfo = Bsprintf("(файл: %s, дата: %s, размер: %s)\n", _
         QFile(s), FileDateTime(File), FileLen(File))
 End Function
 
@@ -209,15 +209,14 @@ Public Function LocateFile(ByRef File As String) As Boolean
         ChDrive .DefaultFilePath
         ChDir .DefaultFilePath
     End With
-    WarnBox "Ôàéë %s íå íàéäåí!\nÒðåáóåòñÿ óêàçàòü åãî ìåñòîíàõîæäåíèå", File
+    WarnBox "Файл %s не найден!\nТребуется указать его местонахождение", File
     s = FileExt(File)
-    s = Bsprintf("Ôàéëû (*.%s),*.%s,Âñå ôàéëû (*.*),*.*", s, s)
-    f = Application.GetOpenFilename(s, 1, "Óêàæèòå " & File)
+    s = Bsprintf("Файлы (*.%s),*.%s,Все файлы (*.*),*.*", s, s)
+    f = Application.GetOpenFilename(s, 1, "Укажите " & File)
     If f <> False Then 'don't change this!
         File = CStr(f)
         LocateFile = True
     Else
         File = vbNullString
     End If
 End Function
-