Option Compare Database
Option Explicit

'============================================================================
'   Тяжелая форма-карточка, вложенная в форму-эксплорер like
'============================================================================

Public WithEvents PersonGrid As Form
Public WithEvents CustomerChildGrid As Form
Public WithEvents InvestmentGrid As Form
Public WithEvents AccountGrid As Form
Public WithEvents RaitingGrid As Form
Public WithEvents CustomerHistoryGrid As Form
Public WithEvents CustomerSourceGrid As Form

Dim rsFind As ADODB.Recordset
Public bQueryUpdate As Boolean
Dim bLoading As Boolean
Public iTabIndex As Integer

Private Sub Form_Current()

    If bLoading Then Exit Sub
    Me.Painting = False
    
    On Error Resume Next
    Me!sTop.ForeColor =  16711680  ' синий
    Me!lblTop.ForeColor =  16711680  ' синий
    bQueryUpdate = True
    Dim s: s = Me.ActiveControl.Name
    Me!btnTransparent.SetFocus
    modCustomer.SetupCustomerForm Me
    Me.Controls(s).SetFocus
    On Error GoTo  0 
    
    On Error Resume Next
    If Me.Recordset.EOF And Me.Recordset.BOF Or Me.NewRecord Then
        Me.Parent.lblSub.Visible = True
        Me.Parent.Controls("subCustomer").Visible = False
    Else
        Me.Parent.lblSub.Visible = False
        Me.Parent.Controls("subCustomer").Visible = True
    End If
    On Error GoTo  0 
    
    Me.Painting = True

End Sub

Private Sub Form_AfterInsert()

    modCustomer.HandleAfterInsert Me
    Call Form_Current
    
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

    If bQueryUpdate Then Call modMessage.QueryUpdate(Cancel)
    modCustomer.CheckOGRN Me, Cancel
    modCustomer.CheckINN Me, Cancel
    modCustomer.CheckBIK Me, Cancel
    If Cancel Then Exit Sub
    If Me.NewRecord Then Exit Sub
        
    Dim bSaveHistory As Boolean: bSaveHistory = False
    modCustomer.CheckSaveHistory Me, bSaveHistory
    If Not bSaveHistory Then Exit Sub
    modCustomer.SaveHistory Me

End Sub

Private Sub Form_AfterUpdate()

    Me.Painting = False
    Call modCustomer.SetupCustomerForm(Me)
    Me.Painting = True

End Sub

Private Sub Form_Load()
On Error GoTo err_label

    bLoading = True
    Me.TimerInterval =  100 : Me.OnTimer = "[Event Procedure]"
    
exit_label:
    Exit Sub
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Sub

Private Sub Form_Resize()

    Dim s: s = ""
    On Error Resume Next
    s = Me.Parent.Name
    On Error GoTo  0 
    If Len(s) =  0  Then
        ResizeSubForm Me.InsideHeight, Me.InsideWidth
    End If

End Sub

Private Sub Form_Timer()
On Error GoTo err_label

    bLoading = True
    iTabIndex =  0 
    Me.TimerInterval =  0 : Me.OnTimer = ""
    Me.Repaint: Me.Painting = False
    
DoCmd.Hourglass True

    modSYS.SetList Me!lstSort_Person, "PersonPositionOrderBy"
    modSYS.SetList Me!lstFilter_Person, "PersonPositionGEFilter"
    modSYS.SetList Me!iCustomerParentID, "CustomerList"
    
    modSYS.SetList Me!lstSort_InqueryInvestment, "InqueryInvestmentOrderBy"
    modSYS.SetList Me!sInstrumentTypeCode, "InstrumentTypeFilter"
    modSYS.SetList Me!sInqueryInvestmentStatusCode, "InqueryInvestmentStatusFilter"
    modSYS.SetList Me!iCustomerBankID_InqueryInvestment, "CustomerBankFilter"
    modSYS.SetList Me!sInstrumentTypeCode, "InstrumentTypeFilter"
    
    modSYS.SetList Me!lstSort_InqueryAccount, "InqueryAccountOrderBy"
    modSYS.SetList Me!sInqueryAccountStatusCode, "InqueryAccountStatusFilter"
    modSYS.SetList Me!iCustomerBankID_InqueryAccount, "CustomerBankFilter"
    
    Me!lstSort_Person = Me!lstSort_Person.ItemData( 0 )
    Me!lstFilter_Person = Me!lstFilter_Person.ItemData( 0 )
    Me!optFilter_Person = False
    Me!optFilter_Person.Enabled = False
    Me!btnQuickFind_Person.Enabled = False
    
    Me!lstSort_InqueryInvestment = Me!lstSort_InqueryInvestment.ItemData( 0 )
    Me!optFilter_InqueryInvestment = False
    Me!optFilter_InqueryInvestment.Enabled = False
    Me!btnQuickFind_InqueryInvestment.Enabled = False
    
    Me!lstSort_InqueryAccount = Me!lstSort_InqueryAccount.ItemData( 0 )
    Me!optFilter_InqueryAccount = False
    Me!optFilter_InqueryAccount.Enabled = False
    Me!btnQuickFind_InqueryAccount.Enabled = False
    
    Call RequeryData
    bLoading = False
    Call Form_Current

    Me.Painting = True: Me.Repaint

Application.Echo True
DoCmd.Hourglass False
    
exit_label:
    Exit Sub

err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Sub

'===========================================================
'   Main Form - Загрузка данных
'===========================================================
Public Function MakeSQL() As String
On Error GoTo err_label

    MakeSQL = modSYS.FormRecordSource("CustomerAll", "", "")
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function RequeryData()

    Me.RecordSource = MakeSQL

End Function

'===========================================================
'   Sub 2 Customer - Загрузка данных
'===========================================================
Public Function MakeSQL_Customer() As String
On Error GoTo err_label

    MakeSQL_Customer = modSYS.FormRecordSource _
        ("Customer", "", "")
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function RequeryData_Customer()
On Error GoTo err_label

    DoCmd.Hourglass True
    With Me!grcCustomerChild
        If Me.ActiveControl.Name = "grcCustomerChild" Then
            Me!btnTransparent.SetFocus
        End If
        .Visible = False
        .Form.RecordSource = MakeSQL_Customer
        .Visible = True
    End With
    DoCmd.Hourglass False

exit_label:
    Exit Function

err_label:
    Me!grcCustomerChild.Visible = True
    DoCmd.Hourglass False
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume 'exit_label

End Function

'===========================================================
'   Sub 3 Person - Загрузка данных
'===========================================================
Public Function MakeWhere_Person() As String

    MakeWhere_Person = ""
    
    If Me!optFilter_Person Then
        If Me!txtQuickFind_Person <> "" Then
            MakeWhere_Person = _
                "(sPersonName1 LIKE '%" & Me!txtQuickFind_Person & "%' OR " & _
                "sPersonName2 LIKE '%" & Me!txtQuickFind_Person & "%' OR " & _
                "sPersonName3 LIKE '%" & Me!txtQuickFind_Person & "%' OR " & _
                "sPersonPositionCode LIKE '%" & Me!txtQuickFind_Person & "%')"
        End If
    End If

    '   SELECT 0 AS iPersonPositionID, '<Все записи>' AS sPersonPositionCode, 0 AS iPersonPositionRank
    '   UNION ALL SELECT iPersonPositionID, sPersonPositionCode, iPersonPositionRank
    '   FROM TBD_PersonPosition
    '   ORDER BY iPersonPositionRank
    If Me!lstFilter_Person <=  0  Then
        MakeWhere_Person = MakeWhere_Person
    Else
        If Len(MakeWhere_Person) >  0  Then MakeWhere_Person = MakeWhere_Person & " AND "
        MakeWhere_Person = MakeWhere_Person & _
            "(iPersonPositionRank<=" & Me!lstFilter_Person.Column( 2 ) & ")"
    End If
    
End Function

Public Function MakeOrderBy_Person() As String

    MakeOrderBy_Person = Nz(Me!lstSort_Person.Column( 2 ), "")
    
End Function

Public Function MakeSQL_Person() As String

    MakeSQL_Person = modSYS.FormRecordSource( _
        "CustomerPerson", _
        MakeWhere_Person, _
        MakeOrderBy_Person)
    
End Function

Public Function RequeryData_Person()

    DoCmd.Hourglass True
    With Me!grcPerson
        Me!btnTransparent.SetFocus
        .Visible = False
        Me.Repaint: Me.Painting = False
        .Form.RecordSource = MakeSQL_Person
        Me!btnOpenPerson.Enabled = _
            .Form.Recordset.RecordCount >  0  _
            And Not .Form.Recordset.BOF _
            And Not .Form.Recordset.EOF
        .Visible = True
        .SetFocus
    End With
    Me.Painting = True
    DoCmd.Hourglass False

exit_label:
    Exit Function

err_label:
    Me!grcPerson.Visible = True
    DoCmd.Hourglass False
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

'===========================================================
'   Sub 7 Investment - Загрузка данных
'===========================================================
Public Function MakeWhere_InqueryInvestment() As String
On Error GoTo err_label

    Dim s As String: s = ""

    If Nz(Me!optFilter_InqueryInvestment, False) Then
        If Me!txtQuickFind_InqueryInvestment <> "" Then
            s = _
                "(sCustomerFilialName LIKE '%" & Me!txtQuickFind_InqueryInvestment.value & "%' OR " & _
                "sCustomerFilialReportName LIKE '%" & Me!txtQuickFind_InqueryInvestment.value & "%' OR " & _
                "sCustomerBankName LIKE '%" & Me!txtQuickFind_InqueryInvestment.value & "%' OR " & _
                "sCustomerBankReportName LIKE '%" & Me!txtQuickFind_InqueryInvestment.value & "%' OR " & _
                "sInqueryInvestmentOutCode LIKE '%" & Me!txtQuickFind_InqueryInvestment.value & "%' OR " & _
                "sInstrumentTypeName LIKE '%" & Me!txtQuickFind_InqueryInvestment.value & "%')"
        End If
    End If

    Select Case Me!sInqueryInvestmentStatusCode
    Case "<Все>"
        s = s
    Case Else
        If DCount( _
            "*", "DIC_InqueryInvestmentStatus", _
            "sInqueryInvestmentStatusCode='" & Me!sInqueryInvestmentStatusCode & "'" _
        ) =  1  Then
            If Len(s) >  0  Then s = s & " AND "
            s = s & "(sInqueryInvestmentStatusCode='" & Me!sInqueryInvestmentStatusCode & "')"
        Else
            If Len(s) >  0  Then s = s & " AND "
            s = s & Me!sInqueryInvestmentStatusCode
        End If
    End Select
    
    Dim sCustomerField As String
    If Me!sCustomerCreditFlag = "Y" Then
        sCustomerField = "iCustomerFilialID"
    ElseIf Me!iCustomerFilialLevel =  3  Then
        sCustomerField = "iCustomerBankID"
    End If
    
    Select Case Me!iCustomerBankID_InqueryInvestment
    Case  0 , - 1 :
        s = s
    Case Else:
        If Len(s) >  0  Then s = s & " AND "
        s = s & "(" & sCustomerField & "=" & Me!iCustomerBankID_InqueryInvestment & ")"
    End Select
    Select Case Me!sInstrumentTypeCode
    Case "<Все>":
        s = s
    Case Else:
        If Len(s) >  0  Then s = s & " AND "
        s = s & "(sInstrumentTypeCode='" & Me!sInstrumentTypeCode & "')"
    End Select
    
    MakeWhere_InqueryInvestment = s

exit_label:
    Exit Function
err_label:
    If Err.number =  2427  Then
        'Введенное выражение не содержит значения.
        Resume Next
    Else
        Call modError.ErrorMessage(Err.number, Err.Description)
        Resume 'exit_label
    End If

End Function

Public Function MakeOrderBy_InqueryInvestment() As String
On Error GoTo err_label

    MakeOrderBy_InqueryInvestment = Me!lstSort_InqueryInvestment.Column( 2 )
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function MakeSQL_InqueryInvestment() As String
On Error GoTo err_label

    Dim sWhere As String, sOrderBy As String
    Dim sFormWhere As String, sFormSource As String, sFormOrderBy As String
    Dim sControlWhere As String, sControlOrderBy As String
    
    sWhere = ""
    sOrderBy = ""
    modSYS.FormInfo "InqueryInvestment", sFormSource, sFormWhere, sFormOrderBy
    sControlWhere = MakeWhere_InqueryInvestment
    sControlOrderBy = MakeOrderBy_InqueryInvestment
    
    If Len(sFormWhere) >  0  Then sWhere = "(" & sFormWhere & ")"
    If Len(sControlWhere) >  0  Then
        If Len(sWhere) >  0  Then sWhere = sWhere & " AND "
        sWhere = sWhere & "(" & sControlWhere & ")"
    End If
    
    If Len(sControlOrderBy) >  0  Then
        sOrderBy = sControlOrderBy
    Else
        If Len(sFormOrderBy) >  0  Then
            If Len(sOrderBy) >  0  Then sOrderBy = sOrderBy & ", "
            sOrderBy = sOrderBy & sFormOrderBy
        End If
    End If
    
    If Len(sWhere) >  0  Then sWhere = "WHERE " & sWhere
    If Len(sOrderBy) >  0  Then sOrderBy = "ORDER BY " & sOrderBy
    MakeSQL_InqueryInvestment = "SELECT * FROM " & sFormSource & " " & sWhere & " " & sOrderBy
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function RequeryData_InqueryInvestment()
On Error GoTo err_label

    On Error Resume Next
    Me.Repaint: DoEvents

    With Me!grcInqueryInvestment.Form
        .RecordSource = MakeSQL_InqueryInvestment
        If .Recordset.RecordCount >  0  Then
            .Recordset.MoveLast
        End If
    End With

    Me.Repaint: DoEvents
    On Error GoTo  0 

exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

'===========================================================
'   Sub 8 Account - Загрузка данных
'===========================================================
Public Function MakeWhere_InqueryAccount() As String
On Error GoTo err_label

    Dim s As String: s = ""

    If Nz(Me!optFilter_InqueryAccount, False) Then
        If Nz(Me!txtQuickFind_InqueryAccount, "") <> "" Then
            s = _
                "(sCustomerFilialName LIKE '%" & Me!txtQuickFind_InqueryAccount.value & "%' OR " & _
                "sCustomerFilialReportName LIKE '%" & Me!txtQuickFind_InqueryAccount.value & "%' OR " & _
                "sCustomerBankName LIKE '%" & Me!txtQuickFind_InqueryAccount.value & "%' OR " & _
                "sCustomerBankReportName LIKE '%" & Me!txtQuickFind_InqueryAccount.value & "%' OR " & _
                "sInqueryAccountOutCode LIKE '%" & Me!txtQuickFind_InqueryAccount.value & "%')"
        End If
    End If

    Select Case Nz(Me!sInqueryAccountStatusCode, "<Все>")
    Case "<Все>"
        s = s
    Case Else
        If DCount( _
            "*", "DIC_InqueryAccountStatus", _
            "sInqueryAccountStatusCode='" & Me!sInqueryAccountStatusCode & "'" _
        ) =  1  Then
            If Len(s) >  0  Then s = s & " AND "
            s = s & "(sInqueryAccountStatusCode='" & Me!sInqueryAccountStatusCode & "')"
        Else
            If Len(s) >  0  Then s = s & " AND "
            s = s & Me!sInqueryAccountStatusCode
        End If
    End Select
    
    Dim sCustomerField As String
    If Me!sCustomerCreditFlag = "Y" Then
        sCustomerField = "iCustomerFilialID"
    ElseIf Me!iCustomerFilialLevel =  3  Then
        sCustomerField = "iCustomerBankID"
    End If
    
    Select Case Me!iCustomerBankID_InqueryAccount
    Case  0 , - 1 :
        s = s
    Case Else:
        If Len(s) >  0  Then s = s & " AND "
        s = s & "(" & sCustomerField & "=" & Me!iCustomerBankID_InqueryAccount & ")"
    End Select
    Select Case Me!sInstrumentTypeCode
    Case "<Все>":
        s = s
    Case Else:
        If Len(s) >  0  Then s = s & " AND "
        s = s & "(sInstrumentTypeCode='" & Me!sInstrumentTypeCode & "')"
    End Select
    
    MakeWhere_InqueryAccount = s

exit_label:
    Exit Function

err_label:
    If Err.number =  2427  Then
        'Введенное выражение не содержит значения.
        Resume Next
    Else
        Call modError.ErrorMessage(Err.number, Err.Description)
        Resume exit_label
    End If

End Function

Public Function MakeOrderBy_InqueryAccount() As String
On Error GoTo err_label

    MakeOrderBy_InqueryAccount = Nz(Me!lstSort_InqueryAccount.Column( 2 ), "")
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function MakeSQL_InqueryAccount() As String
On Error GoTo err_label

    Dim sWhere As String, sOrderBy As String
    Dim sFormWhere As String, sFormSource As String, sFormOrderBy As String
    Dim sControlWhere As String, sControlOrderBy As String
    
    sWhere = ""
    sOrderBy = ""
    modSYS.FormInfo "InqueryAccount", sFormSource, sFormWhere, sFormOrderBy
    sControlWhere = MakeWhere_InqueryAccount
    sControlOrderBy = MakeOrderBy_InqueryAccount
    
    If Len(sFormWhere) >  0  Then sWhere = "(" & sFormWhere & ")"
    If Len(sControlWhere) >  0  Then
        If Len(sWhere) >  0  Then sWhere = sWhere & " AND "
        sWhere = sWhere & "(" & sControlWhere & ")"
    End If
    
    If Len(sControlOrderBy) >  0  Then
        sOrderBy = sControlOrderBy
    Else
        If Len(sFormOrderBy) >  0  Then
            If Len(sOrderBy) >  0  Then sOrderBy = sOrderBy & ", "
            sOrderBy = sOrderBy & sFormOrderBy
        End If
    End If
    
    If Len(sWhere) >  0  Then sWhere = "WHERE " & sWhere
    If Len(sOrderBy) >  0  Then sOrderBy = "ORDER BY " & sOrderBy
    MakeSQL_InqueryAccount = "SELECT * FROM " & sFormSource & " " & sWhere & " " & sOrderBy
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function RequeryData_InqueryAccount()

    On Error Resume Next
    Me.Repaint: DoEvents

    With Me!grcInqueryAccount.Form
        .RecordSource = MakeSQL_InqueryAccount
        If .Recordset.RecordCount >  0  Then .Recordset.MoveLast
    End With

    Me.Repaint: DoEvents
    On Error GoTo  0 

exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

'===========================================================
'   Sub 9 Raiting - Загрузка данных
'===========================================================
Public Function MakeSQL_Raiting() As String
On Error GoTo err_label

    MakeSQL_Raiting = modSYS.FormRecordSource("CustomerRaitingBase", "", "")
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function RequeryData_Raiting()
On Error GoTo err_label

    DoCmd.Hourglass True
    With Me!grcRaiting
        If Me.ActiveControl.Name = "grcRaiting" Then Me!btnTransparent.SetFocus
        .Visible = False
        .Form.RecordSource = MakeSQL_Raiting
        .Visible = True
    End With
    DoCmd.Hourglass False

exit_label:
    Exit Function

err_label:
    Me!grcRaiting.Visible = True
    DoCmd.Hourglass False
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

'===========================================================
'   Sub 10 CustomerHistory - Загрузка данных
'===========================================================
Public Function MakeSQL_CustomerHistory() As String
On Error GoTo err_label

    MakeSQL_CustomerHistory = modSYS.FormRecordSource("CustomerHistoryBase", "", "")
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function RequeryData_CustomerHistory()
On Error GoTo err_label

    DoCmd.Hourglass True
    With Me!grcCustomerHistory
        If Me.ActiveControl.Name = "grcCustomerHistory" Then Me!btnTransparent.SetFocus
        .Visible = False
        .Form.RecordSource = MakeSQL_CustomerHistory
        .Visible = True
    End With
    DoCmd.Hourglass False

exit_label:
    Exit Function

err_label:
    Me!grcCustomerHistory.Visible = True
    DoCmd.Hourglass False
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

'===========================================================
'   Sub 12 CustomerSource - Загрузка данных
'===========================================================
Public Function MakeSQL_CustomerSource() As String
On Error GoTo err_label

    MakeSQL_CustomerSource = modSYS.FormRecordSource("CustomerSource", "", "")
    
exit_label:
    Exit Function
err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

Public Function RequeryData_CustomerSource()
On Error GoTo err_label

    DoCmd.Hourglass True
    With Me!grcCustomerSource
        If Me.ActiveControl.Name = "grcCustomerSource" Then Me!btnTransparent.SetFocus
        .Visible = False
        .Form.RecordSource = MakeSQL_CustomerSource
        .Visible = True
    End With
    DoCmd.Hourglass False

exit_label:
    Exit Function

err_label:
    Me!grcCustomerSource.Visible = True
    DoCmd.Hourglass False
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label

End Function

'===========================================================
'   TabStrip - Переключение
'===========================================================
Private Sub tabStrip_Change()

    Me.Repaint
    Me.Painting = False
    Select Case iTabIndex +  1 
    Case  2 : modCustomer.DisableCustomer Me
    Case  3 : modCustomer.DisablePerson Me
    Case  7 : modCustomer.DisableInvestment Me
    Case  8 : modCustomer.DisableAccount Me
    Case  9 : modCustomer.DisableRaiting Me
    Case  10 : modCustomer.DisableCustomerHistory Me
    Case  12 : modCustomer.DisableCustomerSource Me
    End Select
    Select Case Me.tabStrip +  1 
    Case  2 : modCustomer.EnableCustomer Me
    Case  3 : modCustomer.EnablePerson Me: SetupPerson Me
    Case  7 : modCustomer.EnableInvestment Me: SetupInvestment Me
    Case  8 : modCustomer.EnableAccount Me: SetupAccount Me
    Case  9 : modCustomer.EnableRaiting Me: SetupRaiting Me
    Case  10 : modCustomer.EnableCustomerHistory Me: SetupCustomerHistory Me
    Case  12 : modCustomer.EnableCustomerSource Me: SetupCustomerSource Me
    End Select
    iTabIndex = Me.tabStrip
    modSYS.SaveUserSetting "Form.TreeCustomer.Tab", Me.tabStrip
    Me.Painting = True
    
End Sub

'===========================================================
'   Main Form - Обработка событий
'===========================================================
Private Sub btnRefresh_Click()
On Error GoTo err_label

    If Me.Dirty Then Me.Dirty = False
    Me!iCustomerParentID.Requery
    Select Case (iTabIndex +  1 )
    Case  2 : RequeryCustomer
    Case  3 : RequeryPerson
    Case  7 : RequeryInvestment
    Case  8 : RequeryAccount
    Case  9 : RequeryRaiting
    Case  10 : RequeryCustomerHistory
    Case  12 : RequeryCustomerSource
    End Select
exit_sub:
    Exit Sub
    
err_label:
    If Err.number =  2101  Or Err.number =  2115  Or Err.number =  0  Then
        'Введенное значение не подходит для данного свойства.
        Err.Clear
        Resume Next
    Else
        Call modError.ErrorMessage(Err.number, Err.Description)
        Resume exit_sub
    End If

End Sub

Private Sub iCustomerParentID_AfterUpdate()
    Me!btnOpenParentCustomer.Enabled = Not IsNull(Me!iCustomerParentID)
End Sub
Private Sub btnOpenTable_Click()
    Call OpenCustomerTable
End Sub
Private Sub btnOpenTree_Click()
    Call OpenCustomerTree
End Sub
Private Sub btnOpenParentCustomer_Click()
    Call OpenParentCustomerForm
End Sub
Private Sub iCustomerTypeID_AfterUpdate()
    Cal modCustomer.HandleCustomerTypeUpdate(frm)
End Sub
Private Sub sCustomerResidentFlag_AfterUpdate()
    Call modCustomer.HandleResidentUpdate(frm)
End Sub

'===========================================================
'   Sub 2 Customer - Обработка событий
'===========================================================
Public Sub CustomerChildGrid_Current()

    On Error GoTo exit_sub
    Me!btnOpenChildCustomer.Enabled = False
    With Me!grcCustomerChild.Form
        If .NewRecord Then GoTo exit_sub
        If .Recordset.EOF Or .Recordset.BOF Then GoTo exit_sub
    End With
    Me!btnOpenChildCustomer.Enabled = True
    
exit_sub:
    Exit Sub

End Sub
Private Sub CustomerChildGrid_DblClick(Cancel As Integer)
    Call OpenChildCustomerForm
End Sub
Private Sub btnOpenChildCustomer_Click()
    Call OpenChildCustomerForm
End Sub

'===========================================================
'   Sub 3 Person - Обработка событий
'===========================================================
Private Sub lstSort_Person_AfterUpdate()
    RequeryData_Person
End Sub
Private Sub lstFilter_Person_AfterUpdate()
    RequeryData_Person
End Sub
Private Sub txtQuickFind_Person_Change()

    If Len(Me!txtQuickFind_Person.Text) =  0  Then
        Me!btnQuickFind_Person.Enabled = False
        Me!optFilter_Person.Enabled = False
        Exit Sub
    End If
    
    Me!btnQuickFind_Person.Enabled = True
    Me!optFilter_Person.Enabled = True
    
    Dim grcPerson As Form
    Dim rsPerson As ADODB.Recordset
    Set grcPerson = Me!grcPerson.Form
    Set rsPerson = grcPerson.Recordset
    
    Dim i As Long, sFoundField As String
    If IsNumeric(Me!txtQuickFind_Person.Text) Then
    Else
FIND_NAME:
        Dim rsFind2 As ADODB.Recordset
        Set rsFind2 = grcPerson.RecordsetClone
        
        rsFind2.Bookmark = grcPerson.Bookmark
        rsFind2.Find "sPersonName1 LIKE '" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcPerson.Bookmark
        rsFind2.Find "sPersonName2 LIKE '" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcPerson.Bookmark
        rsFind2.Find "sPersonName3 LIKE '" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
    
        rsFind2.Bookmark = grcPerson.Bookmark
        rsFind2.Find "sPersonName1 LIKE '%" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcPerson.Bookmark
        rsFind2.Find "sPersonName2 LIKE '%" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcPerson.Bookmark
        rsFind2.Find "sPersonName3 LIKE '%" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
    
        rsFind2.MoveFirst
        rsFind2.Find "sPersonName1 LIKE '%" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
        rsFind2.MoveFirst
        rsFind2.Find "sPersonName2 LIKE '%" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
        rsFind2.MoveFirst
        rsFind2.Find "sPersonName3 LIKE '%" & Me!txtQuickFind_Person.Text & "*'"
        If Not rsFind2.EOF Then
            rsPerson.MoveFirst
            rsPerson.Find "iPersonID=" & rsFind2!iPersonID
            grcPerson!iPersonID.SetFocus
            GoTo exit_label
        End If
    
    End If
    
exit_label:
    Set rsFind2 = Nothing
    Exit Sub

End Sub
Private Sub btnQuickFind_Person_Click()
On Error GoTo Err_btnFindCustomer_Click

    If IsNull(Me!txtQuickFind_Person) Then
        Beep
        Exit Sub
    End If
    If Len(Me!txtQuickFind_Person.value) =  0  Then
        Beep
        Exit Sub
    End If
    Me!txtQuickFind_Person.SetFocus
    Call txtQuickFind_Person_Change

Exit_btnFindCustomer_Click:
    Exit Sub

Err_btnFindCustomer_Click:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume Exit_btnFindCustomer_Click
    
End Sub
Private Sub optFilter_Person_AfterUpdate()
    
    If Me!optFilter_Person Then
        If IsNull(Me!txtQuickFind_Person.value) Or Me!txtQuickFind_Person.value = "" Then
            Beep
            Me!optFilter_Person = False
            Me!grcPerson.SetFocus
            Exit Sub
        End If
    End If
    RequeryData

End Sub
Private Sub PersonGrid_Current()

    Me!btnOpenPerson.Enabled = False
    On Error Resume Next
    If PersonGrid.NewRecord Then Exit Sub
    If PersonGrid.Recordset.EOF Or PersonGrid.Recordset.BOF Then Exit Sub
    If Err.number <>  0  Then Exit Sub
    Err.Clear
    Me!btnOpenPerson.Enabled = True

End Sub
Private Sub PersonGrid_DblClick(Cancel As Integer)
    Call OpenPersonForm
End Sub
Private Sub btnOpenPerson_Click()
    Call OpenPersonForm
End Sub
Private Sub btnOpenPersonTable_Click()
    Call OpenPersonTable
End Sub
Private Sub btnCustomerPersonAdd_Click()
    Call CustomerPersonAdd
End Sub
Private Sub btnOpenPersonPositionTable_Click()
    Call OpenPersonPosition
End Sub

'===========================================================
'   Sub 7 Investment - Обработка событий
'===========================================================
Private Sub lstSort_InqueryInvestment_AfterUpdate()
    RequeryData_InqueryInvestment
End Sub
Private Sub iCustomerBankID_InqueryInvestment_AfterUpdate()
    RequeryData_InqueryInvestment
End Sub
Private Sub sInqueryInvestmentStatusCode_AfterUpdate()
    RequeryData_InqueryInvestment
End Sub
Private Sub sInstrumentTypeCode_AfterUpdate()
    RequeryData_InqueryInvestment
End Sub
Private Sub optFilter_InqueryInvestment_AfterUpdate()

    If Me!optFilter_InqueryInvestment Then
        If _
            IsNull(Me!txtQuickFind_InqueryInvestment.value) Or _
            Me!txtQuickFind_InqueryInvestment.value = "" _
        Then
            Beep
            Me!optFilter_InqueryInvestment = False
            Me!grcInqueryInvestment.SetFocus
            Exit Sub
        End If
    End If
    RequeryData_InqueryInvestment

End Sub
Private Sub txtQuickFind_InqueryInvestment_Change()

    If Len(Me!txtQuickFind_InqueryInvestment.Text) =  0  Then
        Me!btnQuickFind_InqueryInvestment.Enabled = False
        Me!optFilter_InqueryInvestment.Enabled = False
        Exit Sub
    End If
    
    Me!btnQuickFind_InqueryInvestment.Enabled = True
    Me!optFilter_InqueryInvestment.Enabled = True
    
    Dim grcInqueryInvestment As Form
    Set grcInqueryInvestment = Me!grcInqueryInvestment.Form
    
    Dim i As Long, sFoundField As String
    Dim rsFind As ADODB.Recordset
    Dim rsData As ADODB.Recordset
    
    Set rsFind = grcInqueryInvestment.RecordsetClone
    Set rsData = grcInqueryInvestment.Recordset
    rsFind.Bookmark = grcInqueryInvestment.Bookmark
    If IsNumeric(Me!txtQuickFind_InqueryInvestment.Text) Then
        i = CLng(Trim(Me!txtQuickFind_InqueryInvestment.Text))
        rsFind.MoveFirst
        While i <  99999999 #
            rsFind.MoveFirst
            rsFind.Find "iInqueryInvestmentID=" & CStr(i)
            If Not rsFind.EOF Then
                sFoundField = "iInqueryInvestmentID"
                GoTo FOUND_NUMBER
            Else
                rsFind.MoveFirst
                rsFind.Find "iInqueryInvestmentID >= " & CStr(i)
                If Not rsFind.EOF Then
                    sFoundField = "iInqueryInvestmentID"
                    GoTo FOUND_NUMBER
                End If
            End If
            i = i *  10 
        Wend
FOUND_NUMBER:
        If Not rsFind.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind!iInqueryInvestmentID
            grcInqueryInvestment.Controls(sFoundField).SetFocus
            GoTo exit_label
        Else
            GoTo FIND_NAME
        End If
    Else

FIND_NAME:
        Dim rsFind2 As ADODB.Recordset
        Set rsFind2 = grcInqueryInvestment.RecordsetClone
        
        Dim sCustomerRoot As String
        If Me!sCustomerCreditFlag = "Y" Then
            sCustomerRoot = "CustomerFilial"
        ElseIf Me!iCustomerFilialLevel =  3  Then
            sCustomerRoot = "CustomerBank"
        End If
        
        rsFind2.Bookmark = grcInqueryInvestment.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "s" & sCustomerRoot & "Name LIKE '" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment.Controls("i" & sCustomerRoot & "ID").SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcInqueryInvestment.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "sInstrumentTypeName LIKE '" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment!sInstrumentTypeCode.SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcInqueryInvestment.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "sInqueryInvestmentOutCode LIKE '" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment!sInqueryInvestmentOutCode.SetFocus
            GoTo exit_label
        End If
        
        rsFind2.Bookmark = grcInqueryInvestment.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "s" & sCustomerRoot & "Name LIKE '%" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment.Controls("i" & sCustomerRoot & "ID").SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcInqueryInvestment.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "sInstrumentTypeName LIKE '%" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment!sInstrumentTypeCode.SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcInqueryInvestment.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "sInqueryInvestmentOutCode LIKE '%" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment!sInqueryInvestmentOutCode.SetFocus
            GoTo exit_label
        End If
        
        rsFind2.MoveFirst
        rsFind2.Find "s" & sCustomerRoot & "Name LIKE '%" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment.Controls("i" & sCustomerRoot & "ID").SetFocus
            GoTo exit_label
        End If
        rsFind2.MoveFirst
        rsFind2.Find "sInstrumentTypeName LIKE '%" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment!sInstrumentTypeCode.SetFocus
            GoTo exit_label
        End If
        rsFind2.MoveFirst
        rsFind2.Find "sInqueryInvestmentOutCode LIKE '%" & Me!txtQuickFind_InqueryInvestment.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryInvestmentID=" & rsFind2!iInqueryInvestmentID
            grcInqueryInvestment!sInqueryInvestmentOutCode.SetFocus
            GoTo exit_label
        End If
    End If

exit_label:
    Me!txtQuickFind_InqueryInvestment.SetFocus
    Me!txtQuickFind_InqueryInvestment.SelStart = Len(Me!txtQuickFind_InqueryInvestment.Text)
    Set rsFind2 = Nothing
    Exit Sub

End Sub
Private Sub btnQuickFind_InqueryInvestment_Click()
On Error GoTo err_label

    If IsNull(Me!txtQuickFind_InqueryInvestment) Then
        Beep
        Exit Sub
    End If
    If Len(Me!txtQuickFind_InqueryInvestment.value) =  0  Then
        Beep
        Exit Sub
    End If
    Me!txtQuickFind_InqueryInvestment.SetFocus
    Call txtQuickFind_InqueryInvestment_Change

exit_label:
    Exit Sub

err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label
    
End Sub
Private Sub InvestmentGrid_Current()

    Me!btnTransparent.SetFocus
    Me!btnInqueryInvestmentID.Enabled = False
    Me!btnCustomerBankID_InqueryInvestment.Enabled = False
    On Error Resume Next
    If InvestmentGrid.NewRecord Then Exit Sub
    If InvestmentGrid.Recordset.EOF Or InvestmentGrid.Recordset.BOF Then Exit Sub
    If Err.number <>  0  Then Exit Sub
    Err.Clear
    Me!btnInqueryInvestmentID.Enabled = True
    Me!btnCustomerBankID_InqueryInvestment.Enabled = True

End Sub
Private Sub InvestmentGrid_DblClick(Cancel As Integer)
    Call OpenInqueryInvestment
End Sub
Private Sub btnInqueryInvestmentID_Click()
    Call OpenInqueryInvestment
End Sub
Private Sub btnInqueryInvestmentTable_Click()
    Call OpenInqueryInvestmentTable
End Sub
Private Sub btnInstrumentTypeCode_Click()
    Call OpenInstrumentType
End Sub
Private Sub btnInqueryInvestmentStatusCode_Click()
    Call OpenInqueryInvestmentStatusForm
End Sub
Private Sub btnCustomerBankID_InqueryInvestment_Click()
    If Me!iCustomerFilialLevel =  3  Then
        Call OpenInqueryInvestmentCustomerBank
    ElseIf Me!sCustomerCreditFlag = "Y" Then
        Call OpenInqueryInvestmentCustomerFilial
    End If
End Sub

'===========================================================
'   Sub 8 InqueryAccount - Обработка событий
'===========================================================
Private Sub lstSort_InqueryAccount_AfterUpdate()
    RequeryData_InqueryAccount
End Sub
Private Sub iCustomerBankID_InqueryAccount_AfterUpdate()
    RequeryData_InqueryAccount
End Sub
Private Sub sInqueryAccountStatusCode_AfterUpdate()
    RequeryData_InqueryAccount
End Sub
Private Sub optFilter_InqueryAccount_AfterUpdate()

    If Me!optFilter_InqueryAccount Then
        If _
            IsNull(Me!txtQuickFind_InqueryAccount.value) Or _
            Me!txtQuickFind_InqueryAccount.value = "" _
        Then
            Beep
            Me!optFilter_InqueryAccount = False
            Me!grcInqueryAccount.SetFocus
            Exit Sub
        End If
    End If
    RequeryData_InqueryAccount

End Sub
Private Sub txtQuickFind_InqueryAccount_Change()

    If Len(Me!txtQuickFind_InqueryAccount.Text) =  0  Then
        Me!btnQuickFind_InqueryAccount.Enabled = False
        Me!optFilter_InqueryAccount.Enabled = False
        Exit Sub
    End If
    
    Me!btnQuickFind_InqueryAccount.Enabled = True
    Me!optFilter_InqueryAccount.Enabled = True
    
    Dim grcInqueryAccount As Form
    Set grcInqueryAccount = Me!grcInqueryAccount.Form
    
    Dim i As Long, sFoundField As String
    Dim rsFind As ADODB.Recordset
    Dim rsData As ADODB.Recordset
    
    Set rsFind = grcInqueryAccount.RecordsetClone
    Set rsData = grcInqueryAccount.Recordset
    rsFind.Bookmark = grcInqueryAccount.Bookmark
    If IsNumeric(Me!txtQuickFind_InqueryAccount.Text) Then
        i = CLng(Trim(Me!txtQuickFind_InqueryAccount.Text))
        rsFind.MoveFirst
        While i <  99999999 #
            rsFind.MoveFirst
            rsFind.Find "iInqueryAccountID=" & CStr(i)
            If Not rsFind.EOF Then
                sFoundField = "iInqueryAccountID"
                GoTo FOUND_NUMBER
            Else
                rsFind.MoveFirst
                rsFind.Find "iInqueryAccountID >= " & CStr(i)
                If Not rsFind.EOF Then
                    sFoundField = "iInqueryAccountID"
                    GoTo FOUND_NUMBER
                End If
            End If
            i = i *  10 
        Wend
FOUND_NUMBER:
        If Not rsFind.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryAccountID=" & rsFind!iInqueryAccountID
            grcInqueryAccount.Controls(sFoundField).SetFocus
            GoTo exit_label
        Else
            GoTo FIND_NAME
        End If
    Else

FIND_NAME:
        Dim rsFind2 As ADODB.Recordset
        Set rsFind2 = grcInqueryAccount.RecordsetClone
        
        Dim sCustomerRoot As String
        If Me!sCustomerCreditFlag = "Y" Then
            sCustomerRoot = "CustomerFilial"
        ElseIf Me!iCustomerFilialLevel =  3  Then
            sCustomerRoot = "CustomerBank"
        End If
        
        rsFind2.Bookmark = grcInqueryAccount.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "s" & sCustomerRoot & "Name LIKE '" & Me!txtQuickFind_InqueryAccount.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryAccountID=" & rsFind2!iInqueryAccountID
            grcInqueryAccount.Controls("i" & sCustomerRoot & "ID").SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcInqueryAccount.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "sInqueryAccountOutCode LIKE '" & Me!txtQuickFind_InqueryAccount.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryAccountID=" & rsFind2!iInqueryAccountID
            grcInqueryAccount!sInqueryAccountOutCode.SetFocus
            GoTo exit_label
        End If
        
        rsFind2.Bookmark = grcInqueryAccount.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "s" & sCustomerRoot & "Name LIKE '%" & Me!txtQuickFind_InqueryAccount.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryAccountID=" & rsFind2!iInqueryAccountID
            grcInqueryAccount.Controls("i" & sCustomerRoot & "ID").SetFocus
            GoTo exit_label
        End If
        rsFind2.Bookmark = grcInqueryAccount.Bookmark
        rsFind2.MoveNext
        rsFind2.Find "sInqueryAccountOutCode LIKE '%" & Me!txtQuickFind_InqueryAccount.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryAccountID=" & rsFind2!iInqueryAccountID
            grcInqueryAccount!sInqueryAccountOutCode.SetFocus
            GoTo exit_label
        End If
        
        rsFind2.MoveFirst
        rsFind2.Find "s" & sCustomerRoot & "Name LIKE '%" & Me!txtQuickFind_InqueryAccount.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryAccountID=" & rsFind2!iInqueryAccountID
            grcInqueryAccount.Controls("i" & sCustomerRoot & "ID").SetFocus
            GoTo exit_label
        End If
        rsFind2.MoveFirst
        rsFind2.Find "sInqueryAccountOutCode LIKE '%" & Me!txtQuickFind_InqueryAccount.Text & "%'"
        If Not rsFind2.EOF Then
            rsData.MoveFirst
            rsData.Find "iInqueryAccountID=" & rsFind2!iInqueryAccountID
            grcInqueryAccount!sInqueryAccountOutCode.SetFocus
            GoTo exit_label
        End If
    End If

exit_label:
    Set rsFind2 = Nothing
    Me!txtQuickFind_InqueryAccount.SetFocus
    Me!txtQuickFind_InqueryAccount.SelStart = Len(Me!txtQuickFind_InqueryAccount.Text)
    Exit Sub

End Sub
Private Sub btnQuickFind_InqueryAccount_Click()
On Error GoTo err_label

    If IsNull(Me!txtQuickFind_InqueryAccount) Then
        Beep
        Exit Sub
    End If
    If Len(Me!txtQuickFind_InqueryAccount.value) =  0  Then
        Beep
        Exit Sub
    End If
    Me!txtQuickFind_InqueryAccount.SetFocus
    Call txtQuickFind_InqueryAccount_Change

exit_label:
    Exit Sub

err_label:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label
    
End Sub
Private Sub AccountGrid_Current()

    Me!btnInqueryAccountID.Enabled = False
    Me!btnCustomerBankID_InqueryAccount.Enabled = False
    On Error Resume Next
    If AccountGrid.NewRecord Then Exit Sub
    If AccountGrid.Recordset.EOF Or AccountGrid.Recordset.BOF Then Exit Sub
    If Err.number <>  0  Then Exit Sub
    Err.Clear
    Me!btnInqueryAccountID.Enabled = True
    Me!btnCustomerBankID_InqueryAccount.Enabled = True

End Sub
Private Sub AccountGrid_DblClick(Cancel As Integer)
    Call OpenInqueryAccount
End Sub
Private Sub btnInqueryAccountID_Click()
    Call OpenInqueryAccount
End Sub
Private Sub btnInqueryAccountTable_Click()
    Call OpenInqueryAccountTable
End Sub
Private Sub btnInqueryAccountStatusCode_Click()
    Call OpenInqueryAccountStatusForm
End Sub
Private Sub btnCustomerBankID_InqueryAccount_Click()

    If Me!iCustomerFilialLevel =  3  Then
        Call OpenInqueryAccountCustomerBank
    ElseIf Me!sCustomerCreditFlag = "Y" Then
        Call OpenInqueryAccountCustomerFilial
    End If

End Sub

'===========================================================
'   Sub 9 Raiting - Обработка событий
'===========================================================
Private Sub btnRaiting_Click()
    Call OpenRaitingAgencyTable
End Sub
Private Sub btnRaitingTable_Click()
    Call OpenCustomerRaitingTable
End Sub

'===========================================================
'   Main Form
'===========================================================
Public Function OpenCustomerTable()

    Dim id
    If Me!iCustomerTypeID =  7000  Or Me!iCustomerTypeID =  8000  Then
        Call modForm.GetObjectID(Me, "iCustomerID", id)
        Call modBusiness.OpenCustomerInsuaranceTable(id)
    Else
        Call modForm.GetObjectID(Me, "iCustomerID", id)
        Call modBusiness.OpenCustomerForm(id, "TABLE")
    End If
    
End Function
Public Function OpenCustomerTree()

    Dim id
    Call modForm.GetObjectID(Me, "iCustomerID", id)
    Call modBusiness.OpenCustomerForm(id, "TREE")
    
End Function
Public Function OpenParentCustomerForm()
On Error GoTo err_handler

    If Me.NewRecord Then GoTo exit_label
    If IsNull(Me!iCustomerParentID) Then GoTo exit_label
    
    Dim id: id = Me!iCustomerParentID
    With Me.Parent
        .FindCustomerID id, True
        !iCustomerID = id
    End With
    
exit_label:
    Exit Function

err_handler:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label
    
End Function

'===========================================================
'   Sub 2 Customer
'===========================================================
Public Function OpenChildCustomerForm()
On Error GoTo err_handler

    If Me.NewRecord Then GoTo exit_label
    If Me!grcCustomerChild.Form.NewRecord Then GoTo exit_label
    If IsNull(Me!grcCustomerChild.Form!iCustomerID) Then GoTo exit_label
    
    Dim id As Variant
    id = Me!grcCustomerChild.Form!iCustomerID
    
    With Me.Parent
        .FindCustomerID id, True
        !iCustomerID = id
    End With
    
exit_label:
    Exit Function

err_handler:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label
    
End Function

'===========================================================
'   Sub 3 Person
'===========================================================
Public Function OpenPersonForm()

    Dim icID, ipID
    Call modForm.GetObjectID(Me, "iCustomerID", icID)
    Call modForm.GetObjectID(Me!grcPerson.Form, "iPersonID", ipID)
    Call modBusiness.OpenPersonForm(ipID, "FORM", "iCustomerID", icID)

End Function
Public Function OpenPersonTable()

    Dim icID, ipID
    Call modForm.GetObjectID(Me, "iCustomerID", icID)
    Call modForm.GetObjectID(Me!grcPerson.Form, "iPersonID", ipID)
    Call modBusiness.OpenPersonForm(ipID, "TABLE", "iCustomerID", icID)

End Function
Public Function OpenPersonPosition()
On Error GoTo err_handler

    Dim ipID, ippID
    Call modForm.GetObjectID(Me!grcPerson.Form, "iPersonID", ipID)
    Call modForm.GetObjectID(Me!grcPerson.Form, "iPersonPositionID", ippID)
    Call modBusiness.OpenPersonPositionForm(ippID, "", "iPersonID", ipID)

exit_label:
    Exit Function

err_handler:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label
    
End Function
Public Function CustomerPersonAdd()
On Error GoTo err_handler

    If Me.NewRecord Then Exit Function
    modCustomer.AddCustomerPerson Me!grcPerson.Form

exit_label:
    Exit Function

err_handler:
    Call modError.ErrorMessage(Err.number, Err.Description)
    Resume exit_label
    
End Function

'===========================================================
'   Sub 7 Investment
'===========================================================
Public Function OpenInqueryInvestment()

    Dim id
    If modForm.GetObjectID(Me!grcInqueryInvestment.Form, "iInqueryInvestmentID", id) Then
        Call modBusiness.OpenInqueryInvestmentForm(id)
    Else
        Call modBusiness.OpenInqueryInvestmentForm(Null, "TABLE")
    End If

End Function
Public Function OpenInqueryInvestmentTable()

    Dim id
    Call modForm.GetObjectID(Me!grcInqueryInvestment.Form, "iInqueryInvestmentID", id)
    Call modBusiness.OpenInqueryInvestmentForm(id, "TABLE")

End Function
Public Function OpenInqueryInvestmentCustomerBank()

    Dim id
    If Me!iCustomerFilialLevel =  3  Then
        Call modForm.GetObjectID(Me!grcInqueryInvestment.Form, "iCustomerBankID", id)
        Me.Parent.treeCustomer.SetFocus
        Me.Parent!subCustomer.Visible = False
        Me.Parent.lblSub.Visible = True
        Me.Parent.Repaint
        Me.Parent.Painting = False
        Me.Parent.FindCustomerID id
        Me.Parent.UpdateCustomer
        Me.Parent!subCustomer.Visible = True
        Me.Parent.lblSub.Visible = False
        Me.Parent.Painting = True
    End If

End Function
Public Function OpenInqueryInvestmentCustomerFilial()

    Dim id
    If Me!sCustomerCreditFlag = "Y" Then
        Call modForm.GetObjectID(Me!grcInqueryInvestment.Form, "iCustomerFilialID", id)
        Me.Parent.treeCustomer.SetFocus
        Me.Parent!subCustomer.Visible = False
        Me.Parent.lblSub.Visible = True
        Me.Parent.Repaint
        Me.Parent.Painting = False
        Me.Parent.FindCustomerID id
        Me.Parent.UpdateCustomer
        Me.Parent!subCustomer.Visible = True
        Me.Parent.lblSub.Visible = False
        Me.Parent.Painting = True
    End If

End Function
Public Function OpenInqueryInvestmentStatusForm()

    Dim id
    Call modForm.GetObjectID(Me!grcInqueryInvestment.Form, "sInqueryInvestmentStatusCode", id)
    Call modBusiness.OpenInqueryInvestmentStatusForm(id)

End Function
Public Function OpenInstrumentType()

    Dim id
    Call modForm.GetObjectID(Me!grcInqueryInvestment.Form, "sInstrumentTypeCode", id)
    Call modBusiness.OpenInstrumentTypeForm(id)

End Function

'===========================================================
'   Sub 8 Account
'===========================================================
Public Function OpenInqueryAccount()

    Dim id
    If modForm.GetObjectID(Me!grcInqueryAccount.Form, "iInqueryAccountID", id) Then
        Call modBusiness.OpenInqueryAccountForm(id)
    Else
        Call modBusiness.OpenInqueryAccountForm(Null, "TABLE")
    End If

End Function
Public Function OpenInqueryAccountTable()

    Dim id
    Call modForm.GetObjectID(Me!grcInqueryAccount.Form, "iInqueryAccountID", id)
    Call modBusiness.OpenInqueryAccountForm(id, "TABLE")

End Function
Public Function OpenInqueryAccountCustomerBank()

    Dim id
    If Me!iCustomerFilialLevel =  3  Then
        Call modForm.GetObjectID(Me!grcInqueryAccount.Form, "iCustomerBankID", id)
        Me.Parent.treeCustomer.SetFocus
        Me.Parent!subCustomer.Visible = False
        Me.Parent.lblSub.Visible = True
        Me.Parent.Repaint
        Me.Parent.Painting = False
Application.Echo False
        Me.Parent.FindCustomerID id
        Me.Parent.UpdateCustomer
        Me.Parent!subCustomer.Visible = True
        Me.Parent.lblSub.Visible = False
        Me.Parent.Painting = True
Application.Echo True
    End If

End Function
Public Function OpenInqueryAccountCustomerFilial()

    Dim id
    If Me!sCustomerCreditFlag = "Y" Then
        Call modForm.GetObjectID(Me!grcInqueryAccount.Form, "iCustomerFilialID", id)
        Me.Parent.treeCustomer.SetFocus
        Me.Parent!subCustomer.Visible = False
        Me.Parent.lblSub.Visible = True
        Me.Parent.Repaint
        Me.Parent.Painting = False
Application.Echo False
        Me.Parent.FindCustomerID id
        Me.Parent.UpdateCustomer
        Me.Parent!subCustomer.Visible = True
        Me.Parent.lblSub.Visible = False
        Me.Parent.Painting = True
Application.Echo True
    End If

End Function
Public Function OpenInqueryAccountStatusForm()

    Dim id
    Call modForm.GetObjectID(Me!grcInqueryAccount.Form, "sInqueryAccountStatusCode", id)
    Call modBusiness.OpenInqueryAccountStatusForm(id)

End Function

'===========================================================
'   Sub 9 Raiting
'===========================================================
Public Function OpenRaitingAgencyTable()

    Call modBusiness.OpenRaitingAgencyTable
    
End Function
Public Function OpenCustomerRaitingTable()

    Dim id
    Call modForm.GetObjectID(Me, "iCustomerID", id)
    Call modBusiness.OpenCustomerRaitingTable(id)

End Function

'===========================================================
'   Resizing Form
'===========================================================
Public Sub ResizeSubForm(iFormHeight As Integer, iFormWidth As Integer)
    
    Me.Painting = False
    Me.Section( 0 ).Height = iFormHeight
    Dim h, w
    
    With Me!lblCustomerName
        .Top =  100 
        .Left =  100 
    End With
    With Me!sCustomerName
        .Width =  0 
        .Top = Me!lblCustomerName.Top
        .Left = Me!lblCustomerName.Left + Me!lblCustomerName.Width
        w = iFormWidth -  270  - .Left -  100 
        If w <  1000  Then w =  1000 
        .Width = w
    End With
    With Me!lblCustomerReportName
        .Top = Me!lblCustomerName.Top + Me!lblCustomerName.Height +  45 
        .Left = Me!lblCustomerName.Left
    End With
    With Me!sCustomerReportName
        .Width =  0 
        .Top = Me!lblCustomerReportName.Top
        .Left = Me!lblCustomerReportName.Left + Me!lblCustomerReportName.Width
        .Width = w
    End With
    With Me!lblCustomerFullName
        .Top = Me!lblCustomerReportName.Top + Me!lblCustomerReportName.Height +  30 
        .Left = Me!lblCustomerReportName.Left
    End With
    With Me!sCustomerFullName
        .Width =  0 
        .Top = Me!lblCustomerFullName.Top
        .Left = Me!lblCustomerFullName.Left + Me!lblCustomerFullName.Width
        .Width = w
    End With
    With Me!lblCustomerParentID
        .Top = Me!lblCustomerFullName.Top + Me!lblCustomerFullName.Height +  30 
        .Left = Me!lblCustomerFullName.Left
    End With
    With Me!iCustomerParentID
        .Width =  0 
        .Top = Me!lblCustomerParentID.Top
        .Left = Me!lblCustomerParentID.Left + Me!lblCustomerParentID.Width
        .Width = w - Me!btnOpenParentCustomer.Width
    End With
    With Me!btnOpenParentCustomer
        .Top = Me!iCustomerParentID.Top
        .Left = Me!iCustomerParentID.Left + Me!iCustomerParentID.Width
        .Height = Me!iCustomerParentID.Height
    End With
    Dim t, l
    t = Me!lblCustomerParentID.Top + Me!lblCustomerParentID.Height +  100 
    l = Me!lblCustomerParentID.Left
    h = iFormHeight - (Me!lblCustomerParentID.Top + Me!lblCustomerParentID.Height +  100 ) -  100 
    w = iFormWidth -  270  - Me!lblCustomerParentID.Left -  100 
    Dim htbs: htbs = h
    Dim wtbs: wtbs = w
    
    On Error Resume Next
    Me.tabStrip.Height =  0 
    Me.tabStrip.Width =  0 
    Me.tabStrip.Top = t
    Me.tabStrip.Left = l
    
    Dim ctl As Control
    For Each ctl In Me.Controls
        With ctl
            If InStr( 1 , .Tag, "wi") >  0  Then
                .Width =  0 
            End If
            If InStr( 1 , .Tag, "he") >  0  Then
                .Height =  0 
            End If
            If InStr( 1 , .Tag, "ta") >  0  Then
                .Top = t +  500 : .Left = l +  300 
            End If
        End With
    Next ctl
    
    Me.tabStrip.Height =  0 
    Me.tabStrip.Width =  0 
    Me.tabStrip.Top = t
    Me.tabStrip.Left = l
    
    Me.tabStrip.Height = h
    Me.tabStrip.Width = w
    
    On Error GoTo  0 
    
    t = Me.tabStrip.Top +  420 
    l = Me.tabStrip.Left +  140 
    Dim htab: htab = htbs -  420  -  140 
    Dim wtab: wtab = wtbs -  140  -  140 
    
    '=======================================================
    '   tab1Main
    '=======================================================
    '   Me.tab1Main.SetFocus
    With Me!lblCustomerTypeID
        .Top = Me.tabStrip.Top +  420  +  100 
        .Left = Me.tabStrip.Left +  140  +  100 
    End With
    With Me!iCustomerTypeID
        .Top = Me!lblCustomerTypeID.Top
        .Left = Me!lblCustomerTypeID.Left + Me!lblCustomerTypeID.Width +  100 
    End With
    With Me!lblCustomerFilialLevel
        .Top = Me!lblCustomerTypeID.Top + Me!lblCustomerTypeID.Height +  50 
        .Left = Me!lblCustomerTypeID.Left
    End With
    With Me!iCustomerFilialLevel
        .Top = Me!lblCustomerFilialLevel.Top
        .Left = Me!iCustomerTypeID.Left
    End With
    With Me!lblCustomerTypeExtra
        .Top = Me!lblCustomerFilialLevel.Top + Me!lblCustomerFilialLevel.Height +  50 
        .Left = Me!lblCustomerFilialLevel.Left
    End With
    With Me!grcCustomerTypeExtra
        .Top = Me!lblCustomerTypeExtra.Top + Me!lblCustomerTypeExtra.Height +  50 
        .Left = Me!lblCustomerTypeExtra.Left
        .Width = Me!lblCustomerTypeID.Width +  100  + Me!iCustomerTypeID.Width
    End With
   
    With lblCustomerEmitentFlag
        .Top = Me!grcCustomerTypeExtra.Top + Me!grcCustomerTypeExtra.Height +  100 
        .Left = Me!lblCustomerFilialLevel.Left
    End With
    With Me!sCustomerEmitentFlag
        .Top = Me!lblCustomerEmitentFlag.Top
        .Left = Me!lblCustomerEmitentFlag.Left + Me!lblCustomerEmitentFlag.Width +  100 
    End With
    With lblCustomerContragentFlag
        .Top = Me!lblCustomerEmitentFlag.Top + Me!lblCustomerEmitentFlag.Height +  50 
        .Left = Me!lblCustomerEmitentFlag.Left
    End With
    With Me!sCustomerContragentFlag
        .Top = Me!lblCustomerContragentFlag.Top
        .Left = Me!sCustomerEmitentFlag.Left
    End With
    With lblCustomerResidentFlag
        .Top = Me!lblCustomerContragentFlag.Top + Me!lblCustomerContragentFlag.Height +  50 
        .Left = Me!lblCustomerContragentFlag.Left
    End With
    With Me!sCustomerResidentFlag
        .Top = Me!lblCustomerResidentFlag.Top
        .Left = Me!sCustomerContragentFlag.Left
    End With
    With Me.lblCountryCode
        .Top = Me!sCustomerResidentFlag.Top + Me!sCustomerResidentFlag.Height +  50 
        .Left = Me!lblCustomerResidentFlag.Left
    End With
    With Me.iCountryCode
        .Top = Me.lblCountryCode.Top
        .Width =  0 
        .Left = Me.lblCountryCode.Left + Me.lblCountryCode.Width +  100 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
    End With

    With Me!lblCustomerOpenedDate
        .Top = lblCustomerTypeID.Top
        .Left = Me!iCustomerTypeID.Left + Me!iCustomerTypeID.Width +  200 
    End With
    With Me.dtCustomerOpenedDate
        .Top = Me!lblCustomerOpenedDate.Top
        .Left = Me!lblCustomerOpenedDate.Left + Me!lblCustomerOpenedDate.Width +  100 
    End With
    With Me!lblCustomerExpiredDate
        .Top = Me!lblCustomerOpenedDate.Top + Me!lblCustomerOpenedDate.Height +  50 
        .Left = Me!lblCustomerOpenedDate.Left
    End With
    With Me.dtCustomerExpiredDate
        .Top = Me!lblCustomerExpiredDate.Top
        .Left = Me.dtCustomerOpenedDate.Left
    End With
    With Me!lblCustomerExpiredFlag
        .Top = Me!lblCustomerExpiredDate.Top + Me!lblCustomerExpiredDate.Height +  50 
        .Left = Me!lblCustomerExpiredDate.Left
    End With
    With Me!sCustomerExpiredFlag
        .Top = Me!lblCustomerExpiredFlag.Top
        .Left = Me.dtCustomerExpiredDate.Left
    End With

    '=======================================================
    '   tab2Customer
    '=======================================================
    '   Me.tab2Customer.SetFocus
    With Me!btnOpenChildCustomer
        .Top = t
        .Left = l
    End With
    With Me!grcCustomerChild
        .Top = Me!btnOpenChildCustomer.Top + Me!btnOpenChildCustomer.Height +  100 
        .Left = Me!btnOpenChildCustomer.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
        Me.boxCustomer.Move .Left, .Top, .Width, .Height
    End With

    '=======================================================
    '   tab3Person
    '=======================================================
    '   Me.tab3Person.SetFocus
    With Me!lblCustomerPerson
        .Top = t
        .Left = l
        .Width = Me!btnCustomerPersonAdd.Width +  50  + Me!btnOpenPerson.Width +  50  + Me!btnOpenPersonTable.Width
    End With
    With Me!btnCustomerPersonAdd
        .Top = Me!lblCustomerPerson.Top + Me!lblCustomerPerson.Height +  30 
        .Left = Me!lblCustomerPerson.Left
    End With
    With Me!btnOpenPerson
        .Top = Me!btnCustomerPersonAdd.Top
        .Left = Me!btnCustomerPersonAdd.Left + Me!btnCustomerPersonAdd.Width +  50 
    End With
    With Me!btnOpenPersonTable
        .Top = Me!btnOpenPerson.Top
        .Left = Me!btnOpenPerson.Left + Me!btnOpenPerson.Width +  50 
    End With
    With Me.lblPersonPosition
        .Top = Me!lblCustomerPerson.Top
        .Left = Me!lblCustomerPerson.Left + Me!lblCustomerPerson.Width +  100 
        .Width = Me!btnOpenPersonPositionTable.Width
    End With
    With Me!btnOpenPersonPositionTable
        .Top = Me!btnOpenPersonTable.Top
        .Left = Me.lblPersonPosition.Left
    End With
    
    w = wtab - Me!lblCustomerPerson.Left - Me!lblCustomerPerson.Width _
        -  100  - Me.lblPersonPosition.Width _
        -  100  - Me.lblSort_Person.Width -  50  _
        -  100  - Me.lblQuickFind_Person.Width -  50  _
        - Me!btnQuickFind_Person.Width _
        - Me!optFilter_Person.Width
    w = w /  3 
    If w <  400  Then w =  400 
    With Me.lblSort_Person
        .Top = Me.lblPersonPosition.Top
        .Left = Me.lblPersonPosition.Left + Me.lblPersonPosition.Width +  100 
    End With
    With Me!lstSort_Person
        .Top = Me.lblSort_Person.Top
        .Left = Me.lblSort_Person.Left + Me.lblSort_Person.Width +  50 
        .Width =  2  * w
    End With
    With Me.lblFilter_Person
        .Top = Me.lblSort_Person.Top + Me.lblSort_Person.Height
        .Left = Me.lblSort_Person.Left
    End With
    With Me!lstFilter_Person
        .Top = Me.lblFilter_Person.Top
        .Left = Me!lstSort_Person.Left
        .Width =  2  * w
    End With
    With Me.lblQuickFind_Person
        .Top = Me!lstSort_Person.Top
        .Left = Me!lstSort_Person.Left + Me!lstSort_Person.Width +  100 
    End With
    With Me!txtQuickFind_Person
        .Top = Me.lblQuickFind_Person.Top
        .Left = Me.lblQuickFind_Person.Left + Me.lblQuickFind_Person.Width
        .Width = w
    End With
    With Me!btnQuickFind_Person
        .Top = Me!txtQuickFind_Person.Top
        .Left = Me!txtQuickFind_Person.Left + Me!txtQuickFind_Person.Width
    End With
    With Me!optFilter_Person
        .Top = Me!btnQuickFind_Person.Top
        .Left = Me!btnQuickFind_Person.Left + Me!btnQuickFind_Person.Width
    End With
    
    With Me!grcPerson
        .Top = Me!btnCustomerPersonAdd.Top + Me!btnCustomerPersonAdd.Height +  100 
        .Left = Me!btnCustomerPersonAdd.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140  -  100  - Me.lblPhone.Height
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
        Me.boxPerson.Move .Left, .Top, .Width, .Height
    End With
    With Me.lblPhone
        .Left = Me!grcPerson.Left
        .Top = Me!grcPerson.Top + Me!grcPerson.Height +  100 
        .Width = Me!grcPerson.Width
    End With

    '=======================================================
    '   tab4Registration
    '=======================================================
    '   Me.tab4Registration.SetFocus
    With Me!lblCustomerChamberCode
        .Top = t +  100 
        .Left = l +  100 
    End With
    With Me!sCustomerChamberCode
        .Top = Me!lblCustomerChamberCode.Top
        .Left = Me!lblCustomerChamberCode.Left + Me!lblCustomerChamberCode.Width +  50 
    End With
    With Me!lblCustomerChamberDate
        .Top = Me!sCustomerChamberCode.Top
        .Left = Me!sCustomerChamberCode.Left + Me!sCustomerChamberCode.Width +  100 
    End With
    With Me.dtCustomerChamberDate
        .Top = Me!lblCustomerChamberDate.Top
        .Left = Me!lblCustomerChamberDate.Left + Me!lblCustomerChamberDate.Width +  50 
    End With
    With Me!lblCustomerChamberComment
        .Top = Me.dtCustomerChamberDate.Top
        .Left = Me.dtCustomerChamberDate.Left + Me.dtCustomerChamberDate.Width +  50 
    End With
    
    With Me!lblCustomerOGRNCode
        .Top = Me!lblCustomerChamberCode.Top + Me!lblCustomerChamberCode.Height +  100 
        .Left = Me!lblCustomerChamberCode.Left
    End With
    With Me!sCustomerOGRNCode
        .Top = Me!lblCustomerOGRNCode.Top
        .Left = Me!sCustomerChamberCode.Left
    End With
    With Me!lblCustomerOGRNDate
        .Top = Me!sCustomerOGRNCode.Top
        .Left = Me!sCustomerOGRNCode.Left + Me!sCustomerOGRNCode.Width +  100 
    End With
    With Me.dtCustomerOGRNDate
        .Top = Me!lblCustomerOGRNDate.Top
        .Left = Me!lblCustomerOGRNDate.Left + Me!lblCustomerOGRNDate.Width +  50 
    End With
    With Me!lblCustomerOGRNComment
        .Top = Me.dtCustomerOGRNDate.Top
        .Left = Me.dtCustomerOGRNDate.Left + Me.dtCustomerOGRNDate.Width +  50 
    End With

    With Me!lblCustomerINNCode
        .Top = Me!lblCustomerOGRNCode.Top + Me!lblCustomerOGRNCode.Height +  100 
        .Left = Me!lblCustomerOGRNCode.Left
    End With
    With Me!sCustomerINNCode
        .Top = Me!lblCustomerINNCode.Top
        .Left = Me!sCustomerOGRNCode.Left
    End With
    With Me!lblCustomerKPPCode
        .Top = Me!lblCustomerINNCode.Top
        .Left = Me!sCustomerINNCode.Left + Me!sCustomerINNCode.Width +  100 
    End With
    With Me!sCustomerKPPCode
        .Top = Me!lblCustomerKPPCode.Top
        .Left = Me!lblCustomerKPPCode.Left + Me!lblCustomerKPPCode.Width +  50 
    End With
    With Me!lblCustomerINNKPPDate
        .Top = Me!sCustomerKPPCode.Top
        .Left = Me!sCustomerKPPCode.Left + Me!sCustomerKPPCode.Width +  100 
    End With
    With Me.dtCustomerINNKPPDate
        .Top = Me!lblCustomerINNKPPDate.Top
        .Left = Me!lblCustomerINNKPPDate.Left + Me!lblCustomerINNKPPDate.Width +  50 
    End With

    With Me!lblCustomerOKPOCode
        .Top = Me!lblCustomerINNCode.Top + Me!lblCustomerINNCode.Height +  100 
        .Left = Me!lblCustomerINNCode.Left
    End With
    With Me!sCustomerOKPOCode
        .Top = Me!lblCustomerOKPOCode.Top
        .Left = Me!sCustomerINNCode.Left
    End With
    With Me!lblCustomerBIKCode
        .Top = Me!sCustomerOKPOCode.Top
        .Left = Me!sCustomerOKPOCode.Left + Me!sCustomerOKPOCode.Width +  100 
    End With
    With Me!sCustomerBIKCode
        .Top = Me!lblCustomerBIKCode.Top
        .Left = Me!lblCustomerBIKCode.Left + Me!lblCustomerBIKCode.Width +  50 
    End With

    With Me!lblCustomerRegistrationCode
        .Top = Me!lblCustomerOKPOCode.Top + Me!lblCustomerOKPOCode.Height +  100 
        .Left = Me!lblCustomerOKPOCode.Left
    End With
    With Me!iCustomerRegistrationCode
        .Top = Me!lblCustomerRegistrationCode.Top
        .Left = Me!sCustomerOKPOCode.Left
    End With
    With Me!lblCustomerRegistrationDate
        .Top = Me!iCustomerRegistrationCode.Top
        .Left = Me!iCustomerRegistrationCode.Left + Me!iCustomerRegistrationCode.Width +  100 
    End With
    With Me.dtCustomerRegistrationDate
        .Top = Me!lblCustomerRegistrationDate.Top
        .Left = Me!lblCustomerRegistrationDate.Left + Me!lblCustomerRegistrationDate.Width +  50 
    End With
    With Me!lblCustomerRegistrationRevokeFlag
        .Top = Me.dtCustomerRegistrationDate.Top
        .Left = Me.dtCustomerRegistrationDate.Left + Me.dtCustomerRegistrationDate.Width +  100 
    End With
    With Me!sCustomerRegistrationRevokeFlag
        .Top = Me!lblCustomerRegistrationRevokeFlag.Top
        .Left = Me!lblCustomerRegistrationRevokeFlag.Left + Me!lblCustomerRegistrationRevokeFlag.Width +  50 
    End With
    
    With Me!lblCustomerInsuaranceData
        .Top = Me!lblCustomerRegistrationCode.Top + Me!lblCustomerRegistrationCode.Height +  100 
        .Left = Me!lblCustomerRegistrationCode.Left
    End With
    With Me!grcCustomerInsuaranceData
        .Top = Me!lblCustomerInsuaranceData.Top + Me!lblCustomerInsuaranceData.Height +  50 
        .Left = Me!lblCustomerInsuaranceData.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
    End With
    
    '=======================================================
    '   tab5Comment
    '=======================================================
    '   Me.tab5Comment.SetFocus
    With Me!lblCustomerComment
        .Top = t
        .Left = l
    End With
    With Me!sCustomerComment
        .Top = Me!lblCustomerComment.Top
        .Left = Me!lblCustomerComment.Left + Me!lblCustomerComment.Width +  50 
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
    End With
    
    '=======================================================
    '   tab6Declension
    '=======================================================
    '   Me.tab6Declension.SetFocus
    With Me!lblCustomerDeclension
        .Top = t
        .Left = l
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
    End With
    With Me!grcCustomerDeclension
        .Top = Me!lblCustomerDeclension.Top + Me!lblCustomerDeclension.Height +  50 
        .Left = Me!lblCustomerDeclension.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
    End With
    
    '=======================================================
    '   tab7InqueryInvestment
    '=======================================================
    '   Me.tab7InqueryInvestment.SetFocus
    With Me.lblInqueryInvestment
        .Top = t
        .Left = l
        .Width = Me!btnInqueryInvestmentID.Width +  50  + Me!btnInqueryInvestmentTable.Width
    End With
    With Me!btnInqueryInvestmentID
        .Top = Me.lblInqueryInvestment.Top + Me.lblInqueryInvestment.Height +  30 
        .Left = Me.lblInqueryInvestment.Left
    End With
    With Me!btnInqueryInvestmentTable
        .Top = Me!btnInqueryInvestmentID.Top
        .Left = Me!btnInqueryInvestmentID.Left + Me!btnInqueryInvestmentID.Width +  50 
    End With
    
    With Me!lblCustomerBank_InqueryInvestment
        .Top = Me.lblInqueryInvestment.Top
        .Left = Me!btnInqueryInvestmentTable.Left + Me!btnInqueryInvestmentTable.Width +  100 
        .Width = Me!btnCustomerBankID_InqueryInvestment.Width
    End With
    With Me!btnCustomerBankID_InqueryInvestment
        .Top = Me!lblCustomerBank_InqueryInvestment.Top + Me!lblCustomerBank_InqueryInvestment.Height +  30 
        .Left = Me!lblCustomerBank_InqueryInvestment.Left
    End With
    
    With Me.lblDictionary_InqueryInvestment
        .Top = Me!lblCustomerBank_InqueryInvestment.Top
        .Left = Me!lblCustomerBank_InqueryInvestment.Left + Me!lblCustomerBank_InqueryInvestment.Width +  100 
        .Width = Me!btnInstrumentTypeCode.Width +  50  + Me!btnInqueryInvestmentStatusCode.Width
    End With
    With Me!btnInstrumentTypeCode
        .Top = Me.lblDictionary_InqueryInvestment.Top + Me.lblDictionary_InqueryInvestment.Height +  30 
        .Left = Me.lblDictionary_InqueryInvestment.Left
    End With
    With Me!btnInqueryInvestmentStatusCode
        .Top = Me!btnInstrumentTypeCode.Top
        .Left = Me!btnInstrumentTypeCode.Left + Me!btnInstrumentTypeCode.Width +  50 
    End With
    
    w = wtab - Me.lblDictionary_InqueryInvestment.Left - Me.lblDictionary_InqueryInvestment.Width _
        -  100  - Me.lblSort_InqueryInvestment.Width _
        -  100  - Me!lblCustomerBankID_InqueryInvestment.Width _
        -  100  - Me.lblQuickFind_InqueryInvestment.Width _
        - Me!btnQuickFind_InqueryInvestment.Width _
        - Me!optFilter_InqueryInvestment.Width
    w = w *  0 . 2 
    If w <  100  Then w =  100 
    
    With Me.lblSort_InqueryInvestment
        .Top = Me.lblDictionary_InqueryInvestment.Top
        .Left = Me.lblDictionary_InqueryInvestment.Left + Me.lblDictionary_InqueryInvestment.Width +  100 
    End With
    With Me!lstSort_InqueryInvestment
        .Top = Me.lblSort_InqueryInvestment.Top
        .Left = Me.lblSort_InqueryInvestment.Left + Me.lblSort_InqueryInvestment.Width
        .Width = w *  2 
    End With
    With Me.lblInstrumentTypeCode
        .Top = Me.lblSort_InqueryInvestment.Top + Me.lblSort_InqueryInvestment.Height
        .Left = Me.lblSort_InqueryInvestment.Left
    End With
    With Me!sInstrumentTypeCode
        .Top = Me.lblInstrumentTypeCode.Top
        .Left = Me!lstSort_InqueryInvestment.Left
        .Width = w *  2 
    End With
    
    With Me!lblCustomerBankID_InqueryInvestment
        .Top = Me.lblSort_InqueryInvestment.Top
        .Left = Me!lstSort_InqueryInvestment.Left + Me!lstSort_InqueryInvestment.Width +  100 
    End With
    With Me!iCustomerBankID_InqueryInvestment
        .Top = Me!lblCustomerBankID_InqueryInvestment.Top
        .Left = Me!lblCustomerBankID_InqueryInvestment.Left + Me!lblCustomerBankID_InqueryInvestment.Width
        .Width = w *  2 
    End With
    With Me.lblInqueryInvestmentStatusCode
        .Top = Me.lblInstrumentTypeCode.Top
        .Left = Me!lblCustomerBankID_InqueryInvestment.Left
    End With
    With Me!sInqueryInvestmentStatusCode
        .Top = Me.lblInqueryInvestmentStatusCode.Top
        .Left = Me!iCustomerBankID_InqueryInvestment.Left
        .Width = w *  2 
    End With
        
    With Me.lblQuickFind_InqueryInvestment
        .Top = Me!lblCustomerBankID_InqueryInvestment.Top
        .Left = Me!iCustomerBankID_InqueryInvestment.Left + Me!iCustomerBankID_InqueryInvestment.Width +  100 
    End With
    With Me!txtQuickFind_InqueryInvestment
        .Top = Me.lblQuickFind_InqueryInvestment.Top
        .Left = Me.lblQuickFind_InqueryInvestment.Left + Me.lblQuickFind_InqueryInvestment.Width
        .Width = w
    End With
    With Me!btnQuickFind_InqueryInvestment
        .Top = Me!txtQuickFind_InqueryInvestment.Top
        .Left = Me!txtQuickFind_InqueryInvestment.Left + Me!txtQuickFind_InqueryInvestment.Width
    End With
    With Me!optFilter_InqueryInvestment
        .Top = Me!btnQuickFind_InqueryInvestment.Top
        .Left = Me!btnQuickFind_InqueryInvestment.Left + Me!btnQuickFind_InqueryInvestment.Width
    End With
    
    With Me!grcInqueryInvestment
        .Top = Me!btnInqueryInvestmentID.Top + Me!btnInqueryInvestmentID.Height +  50 
        .Left = Me!btnInqueryInvestmentID.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
        Me.boxInqueryInvestment.Move .Left, .Top, .Width, .Height
    End With
    
    '=======================================================
    '   tab8InqueryAccount
    '=======================================================
    '   Me.tab8InqueryAccount.SetFocus
    With Me.lblInqueryAccount
        .Top = t
        .Left = l
        .Width = Me!btnInqueryAccountID.Width +  50  + Me!btnInqueryAccountTable.Width
    End With
    With Me!btnInqueryAccountID
        .Top = Me.lblInqueryAccount.Top + Me.lblInqueryAccount.Height +  30 
        .Left = Me.lblInqueryAccount.Left
    End With
    With Me!btnInqueryAccountTable
        .Top = Me!btnInqueryAccountID.Top
        .Left = Me!btnInqueryAccountID.Left + Me!btnInqueryAccountID.Width +  50 
    End With
    
    With Me!lblCustomerBank_InqueryAccount
        .Top = Me.lblInqueryAccount.Top
        .Left = Me!btnInqueryAccountTable.Left + Me!btnInqueryAccountTable.Width +  100 
        .Width = Me!btnCustomerBankID_InqueryAccount.Width
    End With
    With Me!btnCustomerBankID_InqueryAccount
        .Top = Me!lblCustomerBank_InqueryAccount.Top + Me!lblCustomerBank_InqueryAccount.Height +  30 
        .Left = Me!lblCustomerBank_InqueryAccount.Left
    End With
    
    With Me.lblDictionary_InqueryAccount
        .Top = Me!lblCustomerBank_InqueryAccount.Top
        .Left = Me!lblCustomerBank_InqueryAccount.Left + Me!lblCustomerBank_InqueryAccount.Width +  100 
        .Width = Me!btnInqueryAccountStatusCode.Width
    End With
    With Me!btnInqueryAccountStatusCode
        .Top = Me.lblDictionary_InqueryAccount.Top + Me.lblDictionary_InqueryAccount.Height +  30 
        .Left = Me.lblDictionary_InqueryAccount.Left
    End With
    
    w = wtab _
        - Me.lblDictionary_InqueryAccount.Left - Me.lblDictionary_InqueryAccount.Width _
        -  100  - Me.lblSort_InqueryAccount.Width _
        -  100  - Me!lblCustomerBankID_InqueryAccount.Width _
        -  100  - Me.lblQuickFind_InqueryAccount.Width _
        - Me!btnQuickFind_InqueryAccount.Width _
        - Me!optFilter_InqueryAccount.Width
    w = w *  0 . 2 
    If w <  100  Then w =  100 
    
    With Me.lblSort_InqueryAccount
        .Top = Me.lblDictionary_InqueryAccount.Top
        .Left = Me.lblDictionary_InqueryAccount.Left + Me.lblDictionary_InqueryAccount.Width +  100 
    End With
    With Me!lstSort_InqueryAccount
        .Top = Me.lblSort_InqueryAccount.Top
        .Left = Me.lblSort_InqueryAccount.Left + Me.lblSort_InqueryAccount.Width
        .Width = w *  2 
    End With
    
    With Me!lblCustomerBankID_InqueryAccount
        .Top = Me.lblSort_InqueryAccount.Top
        .Left = Me!lstSort_InqueryAccount.Left + Me!lstSort_InqueryAccount.Width +  100 
    End With
    With Me!iCustomerBankID_InqueryAccount
        .Top = Me!lblCustomerBankID_InqueryAccount.Top
        .Left = Me!lblCustomerBankID_InqueryAccount.Left + Me!lblCustomerBankID_InqueryAccount.Width
        .Width = w *  2 
    End With
    With Me.lblInqueryAccountStatusCode
        .Top = Me!lblCustomerBankID_InqueryAccount.Top + Me!lblCustomerBankID_InqueryAccount.Height
        .Left = Me!lblCustomerBankID_InqueryAccount.Left
    End With
    With Me!sInqueryAccountStatusCode
        .Top = Me.lblInqueryAccountStatusCode.Top
        .Left = Me!iCustomerBankID_InqueryAccount.Left
        .Width = w *  2 
    End With
        
    With Me.lblQuickFind_InqueryAccount
        .Top = Me!lblCustomerBankID_InqueryAccount.Top
        .Left = Me!iCustomerBankID_InqueryAccount.Left + Me!iCustomerBankID_InqueryAccount.Width +  100 
    End With
    With Me!txtQuickFind_InqueryAccount
        .Top = Me.lblQuickFind_InqueryAccount.Top
        .Left = Me.lblQuickFind_InqueryAccount.Left + Me.lblQuickFind_InqueryAccount.Width
        .Width = w
    End With
    With Me!btnQuickFind_InqueryAccount
        .Top = Me!txtQuickFind_InqueryAccount.Top
        .Left = Me!txtQuickFind_InqueryAccount.Left + Me!txtQuickFind_InqueryAccount.Width
    End With
    With Me!optFilter_InqueryAccount
        .Top = Me!btnQuickFind_InqueryAccount.Top
        .Left = Me!btnQuickFind_InqueryAccount.Left + Me!btnQuickFind_InqueryAccount.Width
    End With
    
    With Me!grcInqueryAccount
        .Top = Me!btnInqueryAccountID.Top + Me!btnInqueryAccountID.Height +  50 
        .Left = Me!btnInqueryAccountID.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
        Me.boxInqueryAccount.Move .Left, .Top, .Width, .Height
    End With
    
    '=======================================================
    '   tab9Raiting
    '=======================================================
    '   Me.tab9Raiting.SetFocus
    With Me!btnRaiting
        .Left = l
        .Top = t
    End With
    With Me!btnRaitingTable
        .Left = Me!btnRaiting.Left + Me!btnRaiting.Width +  100 
        .Top = Me!btnRaiting.Top
    End With
    With Me!grcRaiting
        .Top = Me!btnRaiting.Top + Me!btnRaiting.Height +  85 
        .Left = Me!btnRaiting.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
        Me.boxRaiting.Move .Left, .Top, .Width, .Height
    End With
    
    '=======================================================
    '   tab10CustomerHistory
    '=======================================================
    '   Me.tab10CustomerHistory.SetFocus
    With Me!lblCustomerHistory
        .Left = l
        .Top = t
    End With
    With Me!grcCustomerHistory
        .Top = Me!lblCustomerHistory.Top + Me!lblCustomerHistory.Height +  50 
        .Left = Me!lblCustomerHistory.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
        Me.boxCustomerHistory.Move .Left, .Top, .Width, .Height
    End With
    
    '=======================================================
    '   tab11Contact
    '=======================================================
    '   Me.tab11Contact.SetFocus
    w = wtab -  100  - Me!lblCustomerPhone1.Width _
        -  50  -  100  - Me!lblCustomerFax1.Width -  50  -  100 
    w = w /  2 
    With lblCustomerPhone1
        .Top = Me.tabStrip.Top +  420  +  100 
        .Left = Me.tabStrip.Left +  140  +  100 
    End With
    With Me!sCustomerPhone1
        .Top = Me!lblCustomerPhone1.Top
        .Left = Me!lblCustomerPhone1.Left + Me!lblCustomerPhone1.Width +  50 
        .Width = w
    End With
    With lblCustomerPhone2
        .Top = Me!lblCustomerPhone1.Top + Me!lblCustomerPhone1.Height +  100 
        .Left = Me!lblCustomerPhone1.Left
    End With
    With Me!sCustomerPhone2
        .Top = Me!lblCustomerPhone2.Top
        .Left = Me!sCustomerPhone1.Left
        .Width = Me!sCustomerPhone1.Width
    End With
    With lblCustomerFax1
        .Top = Me!lblCustomerPhone1.Top
        .Left = Me!sCustomerPhone1.Left + Me!sCustomerPhone1.Width +  100 
    End With
    With Me!sCustomerFax1
        .Top = Me!lblCustomerFax1.Top
        .Left = Me!lblCustomerFax1.Left + Me!lblCustomerFax1.Width +  50 
        .Width = w
    End With
    With lblCustomerFax2
        .Top = Me!lblCustomerPhone2.Top
        .Left = Me!lblCustomerFax1.Left
    End With
    With Me!sCustomerFax2
        .Top = Me!lblCustomerPhone2.Top
        .Left = Me!sCustomerFax1.Left
        .Width = Me!sCustomerFax1.Width
    End With
    With Me!lblCustomerAddress
        .Top = Me!lblCustomerPhone2.Top + Me!lblCustomerPhone2.Height +  100 
        .Left = Me!lblCustomerPhone2.Left
    End With
    With Me!sCustomerAddress
        .Top = Me!lblCustomerAddress.Top
        .Left = Me!lblCustomerAddress.Left + Me!lblCustomerAddress.Width +  50 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140  -  100 
    End With
    With Me!lblCustomerAddressPost
        .Top = Me!lblCustomerAddress.Top + Me!lblCustomerAddress.Height +  100 
        .Left = Me!lblCustomerAddress.Left
    End With
    With Me!sCustomerAddressPost
        .Top = Me!lblCustomerAddressPost.Top
        .Left = Me!lblCustomerAddressPost.Left + Me!lblCustomerAddressPost.Width +  50 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140  -  100 
    End With
    With Me!lblCustomerEmail
        .Top = Me!lblCustomerAddressPost.Top + Me!lblCustomerAddressPost.Height +  100 
        .Left = Me!lblCustomerAddressPost.Left
    End With
    With Me!sCustomerEmail
        .Top = Me!lblCustomerEmail.Top
        .Left = Me!lblCustomerEmail.Left + Me!lblCustomerEmail.Width +  50 
        .Width = w
    End With
    With Me!lblCustomerWWW
        .Top = Me!lblCustomerEmail.Top
        .Left = Me!lblCustomerFax2.Left
    End With
    With Me!sCustomerWWW
        .Top = Me!lblCustomerWWW.Top
        .Left = Me!sCustomerFax2.Left
        .Width = Me!sCustomerFax2.Width
    End With
    
    '=======================================================
    '   tab12CustomerSource
    '=======================================================
    '   Me.tab12CustomerSource.SetFocus
    With Me!btnCustomerSource
        .Left = l
        .Top = t
    End With
    With Me!grcCustomerSource
        .Top = Me!btnCustomerSource.Top + Me!btnCustomerSource.Height +  90 
        .Left = Me!btnCustomerSource.Left
        .Height = Me.tabStrip.Top + htbs - .Top -  140 
        .Width = Me.tabStrip.Left + wtbs - .Left -  140 
        Me.boxCustomerSource.Move .Left, .Top, .Width, .Height
    End With

GoTo End_Proc
    
End_Proc:
    Me.Section( 0 ).Height = iFormHeight
    Me.Painting = True

End Sub