Курсы валют
<a href="https://www.instaforex.com/ru/" target="blank">ИнстаФорекс портал"</a>
Новости от FOREXPF.RU
<a href="https://www.instaforex.com/ru/">Форекс портал</a>
Ноябрь 2019
Пн Вт Ср Чт Пт Сб Вс
« Июн    
 123
45678910
11121314151617
18192021222324
252627282930  
При поддержке: деньги и фен шуй.

Торговый дневник 15.02.2015 (воскресенье) Сделал закачку стейтов в программу

17:54 Сегодня целый день занимаюсь разработкой программы. В
основном сделал закачку данных из стейтов. Исходные файлы подменяются в зависимости от активного счета. Сейчас тестирую правильность цифр и устраняю мелкие недочеты.

20:23 Сделал навороченную форму журнала стейтов со всеми данными по счетам. Осталось сделать разнесение итогов в таблицу Accountsи можно приступать к аналитике – графикам и отчетам…

2015-02-14 12-06-46 ABB Statements Journal_Statements

Добавлены фильтры в журналах 

Show »

If Me.grpFilterTrades = 0 Then

ElseIf Me.grpFilterTrades = 1 Then ‘Open trades

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘buy’ Or Type = ‘sell’) And
nz(CloseTime,0)=0 «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Open trades»

ElseIf Me.grpFilterTrades = 2 Then ‘Closed trades

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘buy’ Or Type = ‘sell’) And
nz(CloseTime,0)<>0 «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Closed trades»

ElseIf Me.grpFilterTrades = 3 Then ‘Working orders

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘buy limit’ Or Type = ‘sell limit’ or Type =
‘buy stop’ Or Type = ‘sell stop’) And nz(CloseTime,0)=0 «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Working orders»

ElseIf Me.grpFilterTrades = 4 Then ‘Cancelled orders

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘buy limit’ Or Type = ‘sell limit’ or Type =
‘buy stop’ Or Type = ‘sell stop’) And nz(CloseTime,0)<>0 «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Cancelled orders»

ElseIf Me.grpFilterTrades = 5 Then ‘Deposits

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter = strFilter & » Type =
‘balance’ And Note Not Like ‘*BONUS*’ And Profit > 0″

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Deposits»

ElseIf Me.grpFilterTrades = 6 Then ‘Withdrawals

    If strFilter <> «» Then
strFilter = strFilter & » AND «

    strFilter
= strFilter & » (Type = ‘balance’) And Note Not Like ‘*BONUS*’ And
Profit < 0″

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Withdrawals»

ElseIf Me.grpFilterTrades = 7 Then ‘All credits

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘credit’) «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «

    strFilterNote
= strFilterNote + «All credits»

ElseIf Me.grpFilterTrades = 8 Then ‘Credits In

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘credit’) And Note Like ‘*In*’ «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Credits In»

ElseIf Me.grpFilterTrades = 9 Then ‘ Credits Out

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘credit’) And Note Like ‘* Out*’ «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Credits Out»

ElseIf Me.grpFilterTrades = 10 Then ‘ Credits
Cancelled

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘credit’) And Note Like ‘*Cancelled*’ «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Credits Cancelled»

ElseIf Me.grpFilterTrades = 11 Then ‘ Credits
StopOut

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘credit’) And Note Like ‘*StopOut*’ «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «


strFilterNote = strFilterNote + «Credits StopOut»

ElseIf Me.grpFilterTrades = 12 Then ‘Bonuses

    If
strFilter <> «» Then strFilter = strFilter & » AND
«

    strFilter
= strFilter & » (Type = ‘balance’) And Note Like ‘*BONUS*’ «

    If
strFilterNote <> «» Then strFilterNote = strFilterNote +
» + «

    strFilterNote = strFilterNote +
«Bonuses»

End If

 

2015-02-20 09-40-04 About_History 1 07

23:11
Добил наконец-то обновление данных в таблице
Accounts – сделал через функцию fnUpdate_dboAccount_Itogs()

Show »

Function
fnUpdate_dboAccount_Itogs() As Boolean

    Dim lFlag As Boolean

    lFlag = True

    Dim dbs As Database

    Dim rst As Recordset

    Dim rstStItog As Recordset

    Dim strSQL As String

    Dim iField As Integer, i As Integer

    Set dbs = CurrentDb()

    Set rstStItog =
dbs.OpenRecordset(«SELECT * From dbo_Accounts WHERE flagActive =
true;»)

    rstStItog.MoveFirst

    strSQL = «SELECT * FROM
qry_ItogAll;»

    Set rst = dbs.OpenRecordset(strSQL)

    If rst.RecordCount = 0 Then

        lFlag = False

    Else

        rst.MoveFirst

        ‘Do While Not rst.EOF

            With rstStItog

                .Edit

                !DateBegin =
rst![Min-OpenTime]

                !DateEnd =
rst![Max-CloseTime]

                !Balance = rst![Balance]

                !Equity = rst![Equity]

                !Deposits = rst![Deposits]

                !DepositsCount =
rst![DepositsCount]

                !Credits = rst![Credits]

                !CreditsCount =
rst![CreditsCount]

                !CreditsIn = rst![CreditsIn]

                !CreditsInCount =
rst![CreditsInCount]

                !CreditsOut =
rst![CreditsOut]

                !CreditsOutCount =
rst![CreditsOutCount]

                !CreditsCancelled =
rst![CreditsCancelled]

                !CreditsCancelledCount =
rst![CreditsCancelledCount]

                !CreditsStopOut =
rst![CreditsStopOut]

                !CreditsStopOutCount =
rst![CreditsStopOutCount]

                !Bonuses = rst![Bonuses]

                !BonusesCount =
rst![BonusesCount]

                !Withdrawals =
rst![Withdrawals]

                !WithdrawalsCount =
rst![WithdrawalsCount]

                .Update

            End With

            ‘rst.MoveNext

        ‘Loop

    End If

    rst.Close

    rstStItog.Close

    Set dbs = Nothing

    fnUpdate_dbo_Account_Itogs = lFlag

End Function

Оставить комментарий