Форум QUIK [тема: Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION]

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION

Tue, 23 Jun 2020 20:46:43 +0300

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION Возвращается TRANS2QUIK_SUCCESS, а значение тикета в pdOrderNum равно нулю в форуме Динамический импорт транзакций.

====quote====
GrigoriyA написал:
у меня такая же проблема . и такой же демо счет финама. Никто ничего ответить не может форум экспертов блин
=============
Ну почему же никто?
Отправка ассинхронного ордера

procedure TExpert.OnTrade;
var
outStr, id: string;
res: long;
ErrCode: long;
ErrSize: Dword;
ErrStr: LPSTR;
Dt: TDateTime;
begin
FOrder:= 0;
FTransID:= GetTransID();
id:= IntToStr(TransID);
FMustSpotVol:= (Volume * ExpData.FutData.Lot)/ExpData.SpotData.Lot; //Get spot volume
case aSell of
0: begin //Buy trade, sell spot (output position)
outStr:= 'ACCOUNT=' + ExpData.SpotAccaunt + '; CLIENT_CODE=' +
ExpData.Client + '; TYPE=L; TRANS_ID=' + id + '; CLASSCODE=' +
ExpData.SpotData.ClassCode + '; SECCODE=' + ExpData.SpotData.SecCode +
'; ACTION=NEW_ORDER; OPERATION=S' + '; PRICE=' +
FloatToStr(ExpData.SpotData.BuyPrice - 10 * ExpData.SpotData.Step) +
'; QUANTITY=' + FloatToStr(MustSpotVol) + ';';
end;
else begin
outStr:= 'ACCOUNT=' + ExpData.SpotAccaunt + '; CLIENT_CODE=' +
ExpData.Client + '; TYPE=L; TRANS_ID=' + id +
'; CLASSCODE=' + ExpData.SpotData.ClassCode + '; SECCODE=' +
ExpData.SpotData.SecCode +
'; ACTION=NEW_ORDER; OPERATION=B' + '; PRICE=' +
FloatToStr(ExpData.SpotData.SellPrice + 10 * ExpData.SpotData.Step) +
'; QUANTITY=' + FloatToStr(MustSpotVol) + ';';
end;
end;
ErrCode:= 0;
ErrSize:= 0;
ErrStr:= nil;
res:= T2QSendASyncTrans(LPSTR(AnsiString(outStr)), ErrCode, ErrStr, ErrSize);
if(res <> TRANS2QUIK_SUCCESS) then
begin
FTransID:= 0;
FTransBusy:= false;
end else
begin
Dt:= now();
FMemo.Lines.Add(DateToStr(Dt) + ' ' + FormatDateTime('hh:mm:ss.zzz', Now()) +
' --> Ордер ' + ExpData.SpotData.SecCode + ' отправлен.');
end;
end;

Получение тикета

//--- Transaction callback -----
procedure pfTransReplyCB;
var
i: integer;
Child: TMDIChild;
begin
Mutex.Lock;
try
for i:= 0 to MainForm.MDIChildCount - 1 do
begin
Child:= TMDIChild(MainForm.MDIChildren[i]);
if(Child <> nil) then
begin
if(dwTransId = Child.Expert.TransID) then
begin
if(nTransactionResult = TRANS2QUIK_SUCCESS) then
Child.Expert.FOrder:= nOrderNum else //Get order done
Child.Expert.FTransBusy:= false; //Get order fail
break;
end;
end;
end;
finally
Mutex.UnLock;
end;
end;

Смотрим, что произошло с ордером

//--- Order status callback -----
procedure pfOrderStatusCB;
var
i: integer;
Child: TMDIChild;
StartQty: Quantity;
// s: string;
begin
if((nMode = 0) and (dwTransID > 0)) then
begin
Mutex.Lock;
try
for i := 0 to MainForm.MDIChildCount - 1 do
begin
Child:= TMDIChild(MainForm.MDIChildren[i]);
if(Child <> nil) then
begin
if(Child.Expert.TransID = dwTransID) then
begin
if(dNumber = Child.Expert.Order) then
begin
StartQty:= T2QOrderQty(ordDescr); //Order start volume
if(string(SecCode) = Child.Expert.ExpData.FutData.SecCode) then //future
begin
case nStatus of
1: {active};
2: begin
if(StartQty = nBalance) then //Canceled
begin
Child.Expert.FOrder:= 0;
Child.Expert.FTransID:= 0;
Child.Expert.FTransBusy:= false;
end else
begin //Partial done
case nIsSell of
0: Child.Expert.FFutVol:= Child.Expert.FFutVol + (StartQty - nBalance);
else Child.Expert.FFutVol:= Child.Expert.FFutVol - (StartQty - nBalance);
end;
Child.Expert.FVolume:= StartQty - nBalance;
Child.Expert.FaSell:= nIsSell;
Child.Expert.FOrder:= 0;
PostMessage(Child.Expert.Handle, WM_ON_TRADE,
NativeUint(Child.Expert.Handle), 0);
end;
end;
else begin //Future order Done
case nIsSell of
0: Child.Expert.FFutVol:= Child.Expert.FFutVol + (StartQty - nBalance);
else Child.Expert.FFutVol:= Child.Expert.FFutVol - (StartQty - nBalance);
end;
Child.Expert.FVolume:= StartQty - nBalance;
Child.Expert.FaSell:= nIsSell;
Child.Expert.FOrder:= 0;
PostMessage(Child.Expert.Handle, WM_ON_TRADE,
NativeUint(Child.Expert.Handle), 0);
end;
end;
break;
end else
if(string(SecCode) = Child.Expert.ExpData.SpotData.SecCode) then //spot
begin
case nStatus of
1:{active};
2: begin //Canceled
Child.Expert.FOrder:= 0;
Child.Expert.FTransID:= 0;
Child.Expert.FOrder:= 0;
Child.Expert.FTransBusy:= false;
end;
else begin //Spot order Done
Child.Expert.FOrder:= 0;
Child.Expert.FTransID:= 0;
case nIsSell of
0: Child.Expert.FSpotVol:= Child.Expert.FSpotVol + (StartQty - nBalance);
else Child.Expert.FSpotVol:= Child.Expert.FSpotVol - (StartQty - nBalance);
end;
Child.Expert.FOrder:= 0;
Child.Expert.FTransBusy:= false;
end;
end;
break;
end;
end;
end;
end;
end;
finally
Mutex.Unlock;
end;
end;
end;
23.06.2020 20:46:43, Михаил Филимонов.

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION

Tue, 15 Oct 2019 11:46:14 +0300

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION

Tue, 15 Oct 2019 09:37:00 +0300

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION Возвращается TRANS2QUIK_SUCCESS, а значение тикета в pdOrderNum равно нулю в форуме Динамический импорт транзакций.
GrigoriyA,
ответ уже был дан выше
15.10.2019 09:37:00, Sergey Gorokhov.

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION

Mon, 14 Oct 2019 15:15:36 +0300

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION Возвращается TRANS2QUIK_SUCCESS, а значение тикета в pdOrderNum равно нулю в форуме Динамический импорт транзакций.
у меня такая же проблема . и такой же демо счет финама. Никто ничего ответить не может форум экспертов блин
14.10.2019 15:15:36, GrigoriyA.

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION

Fri, 11 Oct 2019 05:20:41 +0300

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION Возвращается TRANS2QUIK_SUCCESS, а значение тикета в pdOrderNum равно нулю в форуме Динамический импорт транзакций.

====quote====
Сергей написал:
Функция TRANS2QUIK_SEND_SYNC_TRANSACTION возвращает TRANS2QUIK_SUCCESS, а значение тикета в pdOrderNum равно нулю, заявки нет в терминале QUIK. Это случается не для каждого запуска функции. Происходит на Демо-счете Финама. В каком направлении двигаться дальше)?
=============

Успешность отправки транзакции не гарантирует регистрацию заявки.
Например если биржа по каким-то причинам отвергла регистрацию. Транзакция дошла до биржи? Да дошла. Значит и статус у нее соответствующий.
А то что биржа отвергла регистрацию заявки это уже вопрос к бирже.
Могут быть и другие примеры ситуации, в любом случае нужно смотреть на ошибку которую вернула система.
11.10.2019 05:20:41, Sergey Gorokhov.

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION

Thu, 10 Oct 2019 20:26:31 +0300

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION Возвращается TRANS2QUIK_SUCCESS, а значение тикета в pdOrderNum равно нулю в форуме Динамический импорт транзакций.
Сейчас не могу восстановить историю, но заявки могут не проходить из-за отсутствия денежных средств.
10.10.2019 20:26:31, Сергей.

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION

Thu, 10 Oct 2019 19:57:45 +0300

Проблемы с TRANS2QUIK_SEND_SYNC_TRANSACTION Возвращается TRANS2QUIK_SUCCESS, а значение тикета в pdOrderNum равно нулю в форуме Динамический импорт транзакций.
Функция TRANS2QUIK_SEND_SYNC_TRANSACTION возвращает TRANS2QUIK_SUCCESS, а значение тикета в pdOrderNum равно нулю, заявки нет в терминале QUIK. Это случается не для каждого запуска функции. Происходит на Демо-счете Финама. В каком направлении двигаться дальше)?
10.10.2019 19:57:45, Сергей.