Public Function AddDeposit()

    ' Значения PK-Identity извлекаемые сразу после вставки
    ' Строки для формирования SQL операторов по вставке данных
    Dim sDealSQL As String
    Dim sDealProlongationSQL As String
    Dim sDealOperationSQL As String
    Dim sDealInterestSQL As String
    
    ' Инициализация значения PK-Identity, извлекаемых сразу после вставки
    Me!iDealID = Null:             sDealSQL = ""
    Me!iDealProlongationID = Null: sDealProlongationSQL = ""
    Me!iDealOperationID = Null:    sDealOperationSQL = ""
    Me!iDealInterestID = Null:     sDealInterestSQL = ""
    
    ' Рекордсет для получения PK-Identity
    Dim rsID As ADODB.Recordset, n As Integer
    ' Справочник типов инструментов
    Dim rsType As ADODB.Recordset
    Set rsType = CurrentProject.Connection.Execute( _
        "SELECT * FROM qrInstrumentType " & _
        "WHERE sInstrumentTypeCode='" & Me.sub3Instrument.Form!sInstrumentTypeCode & "'" _
    )
    If rsType.EOF Then
        Beep
        MsgBox _
            "В справочнике инструментов не найден " & _
            "депозит выбранного типа " & _
            "'" & Me.sub3Instrument.Form!sInstrumentTypeCode & "'. " & _
            vbExclamation + vbOKOnly, Me.lblStep.Caption
        Me.bOK = False
        Exit Function
    End If
    
    ' Объекты ADODB для организации транзакции
    Dim cnn As ADODB.Connection, sServerName As String, sDatabaseName As String
        
    DoCmd.Hourglass True
    Application.Echo False
    DoCmd.OpenForm "dlgDealWizardInsert", acNormal, , , acFormEdit, acWindowNormal
    Forms!dlgDealWizardInsert.SetFocus
    Forms!dlgDealWizardInsert.Repaint
    Application.Echo True
    Forms!dlgDealWizardInsert.Repaint: Sleep  700 : DoEvents
    
    On Error GoTo Err_Transaction
    Call modSQL.GetConnectionInfo(sServerName, sDatabaseName)
    Call modSQL.OpenConnection(sServerName, sDatabaseName, cnn)
    cnn.BeginTrans
    
    With Me.sub3Instrument.Form
        
        '
        ' TODO: !!!Проверить на NULL sDealSeriesCode для НЕ серификатов
        '
        sDealSQL = _
            "INSERT INTO dbo.TAB_Deal (" & _
                "sInstrumentTypeCode, " & _
                "iAssetCustomerID, iInvestmentCustomerID, " & _
                "sDealSeriesCode, mnDealPrincipalAmount, sCurrencyCode, dbDealParameter, " & _
                "dbDealInterestRate, dtDealFromDate, dtDealToDate " & _
            ") VALUES (" & _
                modSQL.AddString(!sInstrumentTypeCode) & _
                modSQL.AddLong(!iAssetCustomerID) & _
                modSQL.AddLong(!iInvestmentCustomerID) & _
                modSQL.AddString(!sDepositSertificateNomer) & _
                modSQL.AddDecimal(!mnDealPrincipalAmount) & _
                modSQL.AddString(!sCurrencyCode) & _
                modSQL.AddDecimal(!dbDepositParameter) & _
                modSQL.AddDecimal(!dbDealInterestRate) & _
                modSQL.AddDate(!dtDealFromDate) & _
                modSQL.AddDate(!dtDealToDate, True) & _
            ")"
            
        On Error Resume Next
        n =  0 : cnn.Execute sDealSQL, n
        Set rsID = cnn.Execute("SELECT IDENT_CURRENT('dbo.TAB_Deal'), SCOPE_IDENTITY()")
        If n <>  1  Then
            modError.ErrorMessage  509 , "Запись в таблицу сделок не была добавлена."
            GoTo Err_Transaction
        End If
        On Error GoTo Err_Transaction
        If rsID.Fields( 0 ) <> rsID.Fields( 1 ) Then
            modError.ErrorMessage  509 , _
                "При добавлении записи о сделке в базу данных " & _
                "неправильно определился уникальный код сделки."
            GoTo Err_Transaction
        End If
        Me!iDealID = rsID.Fields( 0 )
        rsID.Close: Set rsID = Nothing
    
        If Nz(rsType!sInstrumentTypeInterestMultyPaymentFlag, "N") = "N" Then
            ' Простые депозиты с единственным процентным периодом
            sDealProlongationSQL = _
                "INSERT INTO dbo.TAB_DealProlongation (" & _
                    "iDealID, " & _
                    "sDealProlongationContractCode, sDealProlongationContractDate, " & _
                    "dtDealProlongationFromDate, dtDealProlongationToDate, dbDealProlongationInterestRate " & _
                ") VALUES (" & _
                    modSQL.AddLong(Me!iDealID) & _
                    modSQL.AddString(!sDealOperationContractCode) & _
                    modSQL.AddDate(!dtDealOperationContractDate) & _
                    modSQL.AddDate(!dtDealFromDate) & _
                    modSQL.AddDate(!dtDealToDate) & _
                    modSQL.AddDecimal(!dbDealInterestRate, True) & _
                ")"
            On Error Resume Next
            n =  0 : cnn.Execute sDealProlongationSQL, n
            Set rsID = cnn.Execute("SELECT IDENT_CURRENT('dbo.TAB_DealProlongation'), SCOPE_IDENTITY()")
            If n <>  1  Then
                modError.ErrorMessage  509 , "Запись в таблицу сделок не была добавлена."
                GoTo Err_Transaction
            End If
            On Error GoTo Err_Transaction
            If rsID.Fields( 0 ) <> rsID.Fields( 1 ) Then
                modError.ErrorMessage  509 , _
                    "При добавлении записи о сделке в базу данных " & _
                    "неправильно определился уникальный код сделки."
                GoTo Err_Transaction
            End If
            Me!iDealProlongationID = rsID.Fields( 0 )
            rsID.Close: Set rsID = Nothing
            
            sDealOperationSQL = _
                "INSERT INTO dbo.TAB_DealOperation (" & _
                    "iDealID, sDealOperationTypeCode, iCustomerID, " & _
                    "sDealOperationContractCode, dtDealOperationContractDate, " & _
                    "dtDealOperationValueDate, dtDealOperationFactDate, " & _
                    "mnDealOperationPrincipalAmount, mnDealOperationInterestAmount, " & _
                    "mnDealOperationPrincipalFact, mnDealOperationInterestFact" & _
                ") VALUES (" & _
                    modSQL.AddLong(Me!iDealID) & _
                    modSQL.AddString("PI") & _
                    modSQL.AddLong(!iAssetCustomerID) & _
                    modSQL.AddString(!sDealOperationContractCode) & _
                    modSQL.AddDate(!dtDealOperationContractDate) & _
                    modSQL.AddDate(!dtDealOperationValueDate) & _
                    modSQL.AddDate(!dtDealOperationFactDate) & _
                    modSQL.AddDecimal((- 1 ) * !mnDealPrincipalAmount) & _
                    modSQL.AddDecimal( 0 ) & _
                    modSQL.AddDecimal((- 1 ) * !mnDealPrincipalAmount) & _
                    modSQL.AddDecimal( 0 , True) & _
                ")"
            On Error Resume Next
            n =  0 : cnn.Execute sDealOperationSQL, n
            Set rsID = cnn.Execute("SELECT IDENT_CURRENT('dbo.TAB_DealOperation'), SCOPE_IDENTITY()")
            If n <>  1  Then
                modError.ErrorMessage  509 , _
                    "Запись об операции покупки не была добавлена " & _
                    "в таблицу операций по сделкам."
                GoTo Err_Transaction
            End If
            On Error GoTo Err_Transaction
            If rsID.Fields( 0 ) <> rsID.Fields( 1 ) Then
                modError.ErrorMessage  509 , _
                    "При добавлении записи об операции покупки в базу данных " & _
                    "неправильно определился уникальный код операции ."
                GoTo Err_Transaction
            End If
            Me!iDealOperationID = rsID.Fields( 0 )
            
            sDealInterestSQL = _
                "INSERT INTO dbo.TAB_DealInterest (" & _
                    "iDealID, iDealOperationID, " & _
                    "mnDealPrincipalAmountCalc, dbDealInterestRateCalc, " & _
                    "dtDealInterestFromCalc, dtDealInterestToCalc, mnDealInterestAmountCalc, " & _
                    "sMethodCode" & _
                ") VALUES (" & _
                    modSQL.AddLong(Me!iDealID) & _
                    modSQL.AddLong(Me!iDealOperationID) & _
                    modSQL.AddDecimal(!mnDealPrincipalAmountCalc) & _
                    modSQL.AddDecimal(!dbDealInterestRate) & _
                    modSQL.AddDate(!dtDealFromDate) & _
                    modSQL.AddDate(!dtDealToDate) & _
                    modSQL.AddDecimal(!mnDealInterestAmountCalc) & _
                    modSQL.AddString("D", True) & _
                ")"
            On Error Resume Next
            n =  0 : cnn.Execute sDealInterestSQL, n
            Set rsID = cnn.Execute("SELECT IDENT_CURRENT('dbo.TAB_DealInterest'), SCOPE_IDENTITY()")
            If n <>  1  Then
                modError.ErrorMessage  509 , _
                    "Не была добавлена запись о начислении процентов по векселю " & _
                    "в таблицу процентных периодов."
                GoTo Err_Transaction
            End If
            On Error GoTo Err_Transaction
            If rsID.Fields( 0 ) <> rsID.Fields( 1 ) Then
                modError.ErrorMessage  509 , _
                    "При добавлении записи о начислении процентов в базу данных " & _
                    "неправильно определился уникальный код процентного периода."
                GoTo Err_Transaction
            End If
            Me!iDealOperationID = rsID.Fields( 0 )
            rsID.Close: Set rsID = Nothing
        Else
            ' Сложные депозиты с нескольким процентными периодами
            '
            ' TODO: Insert Code
            '
        End If
    End With
    
    cnn.CommitTrans: cnn.Close: Set cnn = Nothing
    DoCmd.Close acForm, "dlgDealWizardInsert", acSaveNo
    Me.bOK = True
    AddDeposit = True
    Exit Function
    
Err_Transaction:
    On Error Resume Next
    rsID.Close: Set rsID = Nothing
    cnn.RollbackTrans: cnn.Close: Set cnn = Nothing
    DoCmd.Close acForm, "dlgDealWizardInsert", acSaveNo
    On Error GoTo  0 
    Me.bOK = False
    AddDeposit = False
    Exit Function

End Function