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

Торговый дневник 12.12.2015 (суббота) Небольшие правки в Abb Statements 1.34

09:53 Сделал ТА Технический анализ 12.12.2015 (суббота) H1 / H4 Агрессивнее всего на прошлой неделе торговался луни, после 4 недель флэта, практически всю неделю шел сильный тренд вверх.
10:18 Начинаю делать версию Abb Statements 1.34
В форме MainForm убраны условия IfIsLoaded(acForm, «…») Then — просто открывается нужная форма. Так же убрал обработку ошибок где не нужна.
11:00 Посмотрел стейт по последней демке, и увидел, что очень много закрытых позиций, у которых прибыль по пунктам очень большая: 50-70 п., хотя в реальности таких сделок не было. И в исходном стейте стоит цена открытия другая…Тикет 210596198 = в исходном стейте 1.0950-1.0968 в базе 1.0895-1.0968 … нужно исправить…
11:07 Добавил в закачку обновление полей OpenTime, PriceOpen при обновлении измененных тикетов.
11:13 Перезалил данные по закрытым позициям по двум активным демкам – цифры исправились…
11:28 В этап закачки  «4 Update dbo_Statements Open trades closed» добавлены условия, если любое поле изменилось:

Show »

strSQL = strSQL + » OR HTML.OpenTime <> nz([J].[OpenTime],0)»

        strSQL = strSQL + » OR HTML.Type <> nz([J].[Type],0)»

strSQL = strSQL + » OR HTML.Lots <> nz([J].[Lots],0)»

strSQL = strSQL + » OR HTML.PriceOpen <> nz([J].[PriceOpen],0)»

strSQL = strSQL + » OR HTML.StopLoss <> nz([J].[StopLoss],0)»

strSQL = strSQL + » OR HTML.TakeProfit <> nz([J].[TakeProfit],0)»

strSQL = strSQL + » OR HTML.PriceClose <> nz([J].[PriceClose],0)»

strSQL = strSQL + » OR HTML.Commission <> nz([J].[Commission],0)»

strSQL = strSQL + » OR HTML.Taxes <> nz([J].[Taxes],0)»

strSQL = strSQL + » OR HTML.Swap <> nz([J].[Swap],0)»

strSQL = strSQL + » OR HTML.Profit <> nz([J].[Profit],0)»

strSQL = strSQL + » OR nz([Поле11],’0.00′) <> nz([J].[Note],’0.00′)»

11:36 Проверил по последнему реальному счету 3136492… Нет измененных записей…
12:03 В Report1 добавил обработку фильтров и сортировок из журнала Statements:

Show »

Private Sub Report_Open(Cancel As Integer)

If IsLoaded(acForm, «Journal_Statements») Then

Me.Filter = Forms!Journal_Statements.Filter

Me.FilterOn = True

Me.OrderBy = Forms!Journal_Statements.OrderBy

Me.OrderByOn = True

Else

Me.Filter = «nz(CloseTime,0) <> 0»

Me.FilterOn = True

Me.OrderBy = «CloseTime, Ticket»

Me.OrderByOn = True

End If

End Sub

Function fnFilterReport1() As String

If IsLoaded(acForm, «Journal_Statements») Then

fnFilterReport1 = Forms!Journal_Statements.Filter

Else

fnFilterReport1 = «Closed Trades»

End If

End Function

Function fnOrderByReport1() As String

If IsLoaded(acForm, «Journal_Statements») Then

fnOrderByReport1 = Forms!Journal_Statements.OrderBy

Else

fnOrderByReport1 = «CloseTime, Ticket»

End If

End Function

12:10 В событие Activate формы frm_Reports добавлен автоматический выбор активного счета: Me.SelectId_Account = fnActive_Account()

Show »

14:52 Съездили на рынок – затарились продуктами, а так же купили набор для обивки двери. Нужно перетянуть стулья на кухне…
22:07 Перетянул сегодня 2 стула… завтра буду делать остальные, так что на этих выходных не получится много попрограммировать… 

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