Dim Rnew As Predpr.TableSQL, ID As Integer
        Dim i As Integer

        Rnew = DB.OpenRecordset("DBParamNames", 2) ' . RuSettings
        Rnew.FindFirst("ParamName='RuSettings'")
        If Rnew.NoMatch = True Then
            Rnew.AddNew()
            Rnew("ParamName") = "RuSettings"
            Rnew("TypeID") = 4
            Rnew("Flag") = True
            Rnew.Update()
            Rnew.MoveLast()
        End If
        ID = Rnew("ID")
        Rnew.Close()
        Rnew = DB.OpenRecordset("DBParams", 2) ' RuSettings
        Rnew.FindFirst("ParamID=" & ID)
        If Rnew.NoMatch = True Then
            Rnew.AddNew()
            Rnew("ParamID") = ID
        Else
            Rnew.Edit()
        End If
        Rnew("Val_4") = True
        Rnew.Update()
        Rnew.Close()

Predpr.DataMain.RuSettings = True

        Rnew = DB.OpenRecordset("DBParamNames", 2) ' . DocLangv
        Rnew.FindFirst("ParamName='DocLangv'")
        If Rnew.NoMatch = True Then
            Rnew.AddNew()
            Rnew("ParamName") = "DocLangv"
            Rnew("TypeID") = 3
            Rnew("Flag") = True
            Rnew.Update()
            Rnew.MoveLast()
        End If
        ID = Rnew("ID")
        Rnew.Close()
        Rnew = DB.OpenRecordset("DBParams", 2) ' DocLangv
        Rnew.FindFirst("ParamID=" & ID)
        If Rnew.NoMatch = True Then
            Rnew.AddNew()
            Rnew("ParamID") = ID
        Else
            Rnew.Edit()
        End If
        Rnew("Val_3") = "RU"
        Rnew.Update()
        Rnew.Close()

        Rnew = DB.OpenRecordset("Currencies", 2)
        Rnew.FindFirst("ID=1")
        Rnew.Edit()
        Rnew("TextName") = ""
        Rnew("Imenit") = ""
        Rnew("RoditOne") = ""
        Rnew("RoditMany") = ""
        Rnew("UkrImenit") = ""
        Rnew("UkrRoditOne") = ""
        Rnew("UkrRoditMany") = ""
        Rnew("KopUkrImenit") = ""
        Rnew("KopUkrRoditOne") = ""
        Rnew("KopUkrRoditMany") = ""
        Rnew.Update()
        Rnew.Close()

        Rnew = DB.OpenRecordset("Accounts", 2) ' 
        Rnew.FindFirst("ID=19")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("Percent") = 18
            Rnew.Update()
        End If
        Rnew.FindFirst("ID=24")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("Percent") = 18
            Rnew.Update()
        End If
        Rnew.Close()

        Rnew = DB.OpenRecordset("OperationTypes", 2) ' 
        Rnew.FindFirst("ID=11")
        Rnew.Edit()
        Rnew("TextName") = "-"
        Rnew.Update()
        Rnew.FindFirst("ID=17")
        Rnew.Edit()
        Rnew("TextName") = "- "
        Rnew.Update()
        Rnew.Close()

        Rnew = DB.OpenRecordset("BlankForms", 2) '
        Rnew.FindFirst("ID=13")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("Blank") = "-"
            Rnew.Update()
        End If

        Rnew.AddNew()
        Rnew("Blank") = "-12"
        Rnew.Update()
        Rnew.MoveLast()
        ID = Rnew("ID")
        Rnew.Close()

        Rnew = DB.OpenRecordset("BuhTempls", 2) '- 
        Rnew.FindFirst("ID=101")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("BlankID") = ID
            Rnew.Update()
        End If
        Rnew.Close()

        Rnew = DB.OpenRecordset("BlankFormRows", 2) ' 
        Rnew.AddNew()
        Rnew("BlankID") = ID
        Rnew("TypeID") = 2
        Rnew("FileExcel") = "\_12.xlt"
        Rnew("FileProgramm") = "\_12.bk"
        Rnew.Update()

        Rnew.FindFirst("BlankID=5")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("FileExcel") = "\.xlt"
            Rnew("FileProgramm") = "\.bk"
            Rnew.Update()
        End If

        Rnew.FindFirst("BlankID=35")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("FileExcel") = "\.XLT"
            Rnew("FileProgramm") = "\.bk"
            Rnew.Update()
        End If

        Rnew.Filter = "BlankID=13"
        Rnew = Rnew.OpenRecordset
        Do While Not Rnew.EOF
            Rnew.Edit()
            Rnew("FileExcel") = "\_.xlt"
            Rnew("FileProgramm") = "\_.bk"
            Rnew.Update()
            Rnew.MoveNext()
        Loop
        Rnew.Close()

        Rnew = DB.OpenRecordset("CurrRates", 2) ' 
        Rnew.FindFirst("CurrID=2")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("RateValue") = 24.5
            Rnew.Update()
        End If
        Rnew.FindFirst("CurrID=3")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("RateValue") = 36
            Rnew.Update()
        End If
        Rnew.Close()

        Dim Str As String, StrFull As String
        Rnew = DB.OpenRecordset("Persons", 2) ' 
        Do While Not Rnew.EOF
            Select Case Rnew("ID")
                Case -14
                    Str = " .."
                    StrFull = "     "
                Case -13
                    Str = " "
                    StrFull = " "
                Case -10
                    Str = ""
                    StrFull = ""
                Case -16
                    Str = "" ' " "
                    StrFull = "    " ' "
                Case -15
                    Str = "" ' " "
                    StrFull = "    " '"     "
                Case Else
                    GoTo NextStepPerson
            End Select
            Rnew.Edit()
            Rnew("TextName") = Str
            Rnew("FullName") = StrFull
            Rnew.Update()
NextStepPerson: Rnew.MoveNext()
        Loop
        Rnew.Close()

        DB.Execute("DELETE TempValues.* FROM TempValues WHERE ID In (0,1,2,3,4,5,6,7,11,12);") ' 
        Rnew = DB.OpenRecordset("TempValues", 2)
        For i = 0 To 12
            If i = 8 Or i = 9 Or i = 10 Then GoTo NextStepTax
            Rnew.AddNew()
            Rnew("ID") = i
            Rnew("StartDate") = New System.DateTime(System.DateTime.Now.Year, 1, 1)
            Select Case i
                Case 0 '
                    Rnew("Rate") = 13
                Case 1 '
                    Rnew("Rate") = 0
                Case 2 '.
                    Rnew("Rate") = 0
                Case 3 '.
                    Rnew("Rate") = 0

                Case 4 '.
                    Rnew("Rate") = 14
                Case 5 '.
                    Rnew("Rate") = 2.9
                Case 6 './
                    Rnew("Rate") = 1.1
                Case 7 '/
                    Rnew("Rate") = 2

                Case 11 '.
                    Rnew("Rate") = 0 '4000
                Case 12 '..
                    Rnew("Rate") = 40000
            End Select
            Rnew.Update()
NextStepTax: Next
        Rnew.Close()

        '  . 
        Rnew = DB.OpenRecordset("SELECT ColumnSetup.* FROM ColumnSetup WHERE ColumnSetup.Form='FrmSalary';")
        Do While Not Rnew.EOF
            Select Case Rnew("Column")
                Case "Sum6", "Sum7", "Sum8"
                    Rnew.Edit()
                    Rnew("Show") = 0
                    Rnew("ShowStart") = 0
                    Rnew.Update()
                Case "Sum1", "Sum2"
                    Rnew.Edit()
                    Rnew("Show") = -1
                    Rnew("ShowStart") = -1
                    Rnew.Update()
            End Select
            Rnew.MoveNext()
        Loop
        Rnew.Close()

        '   ()
        Rnew = DB.OpenRecordset("BuhTempls", 2)
        Rnew.FindFirst("ID=123")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("DocText") = "    " '
            Rnew.Update()
        End If
        Rnew.FindFirst("ID=124")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("DocText") = "   " '
            Rnew.Update()
        End If
        Rnew.FindFirst("ID=133")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("DocText") = "                  " '
            Rnew.Update()
        End If
        Rnew.FindFirst("ID=134")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("DocText") = " " '
            Rnew.Update()
        End If
        Rnew.FindFirst("ID=135")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("DocText") = "" './
            Rnew("TextName") = " "
            Rnew.Update()
        End If
        Rnew.FindFirst("ID=136")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("DocText") = "" './
            Rnew("TextName") = " "
            Rnew.Update()
        End If
        Rnew.Close()

        '  /
        DB.Execute("DELETE BuhTemplRows.*, BuhTemplRows.TemplID, BuhTemplRows.AccountType, BuhTemplRows.TransNum FROM BuhTemplRows WHERE BuhTemplRows.TemplID In (108,138) AND BuhTemplRows.AccountType=0 AND BuhTemplRows.TransNum>3;")

        Rnew = DB.OpenRecordset("SELECT BuhTemplRows.* FROM BuhTemplRows WHERE BuhTemplRows.TemplID In (108,138) AND BuhTemplRows.AccountType=1;")
        Do While Not Rnew.EOF
            Select Case Rnew("TransNum")
                Case 2, 3, 4
                    Rnew.Edit()
                    Rnew("Caption") = "< >"
                    Rnew("AccCrID") = 0
                    Rnew("FlagCr") = 0
                    Rnew.Update()
                Case 6
                    Rnew.Edit()
                    Rnew("Caption") = " ()"
                    Rnew("FlagCr") = -1
                    Rnew.Update()
                Case 7
                    Rnew.Edit()
                    Rnew("FlagCr") = -1
                    Rnew.Update()
                Case 8
                    Rnew.Edit()
                    Rnew("Caption") = " ()"
                    Rnew.Update()
            End Select
            Rnew.MoveNext()
        Loop
        Rnew.Close()

        '
        Rnew = DB.OpenRecordset("Accounts", 2)
        Rnew.FindFirst("ID=34")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("TextName") = "" '.
            Rnew.Update()
        End If
        Rnew.FindFirst("ID=35")
        If Rnew.NoMatch = False Then
            Rnew.Edit()
            Rnew("TextName") = "" '.
            Rnew.Update()
        End If
        Rnew.Close()