Блог им. roma095

Кто программит на qpile - есть вопрос

    • 17 августа 2012, 11:57
    • |
    • roma095
  • Еще
Кто разбирается в qpile, можете подсказать, как после фильтра в текстовый файл мне экспортировать сделки?

Есть рабочий вариант с заявками, но мне нужна именна таблица всех сделок. спасибо

n=GET_NUMBER_OF(«ORDERS»)
map=CREATE_MAP()
delete_all_items()

FOR i FROM 1 to n
TRADE = GET_ITEM («ORDERS», i)
NUM = GET_VALUE (TRADE,«NUMBER»)
TIME = GET_VALUE (TRADE,«TIME»)
OPERATION = GET_VALUE (TRADE,«OPERATION»)
ACCOUNT = GET_VALUE (TRADE,«ACCOUNT»)
QUANT = GET_VALUE (TRADE,«QUANTITY»)
OSTATOK = GET_VALUE (TRADE,«BALANCE»)
SOSTOYAN = GET_VALUE (TRADE,«STATUS»)
map=SET_VALUE(map,«NUMER»,0+NUM)
TIME=SUBSTR(TIME,0,2) & ":" & SUBSTR(TIME,2,2) & ":" & SUBSTR(TIME,4,2)
map=SET_VALUE(map,«TIME»,""&TIME)
map=SET_VALUE(map,«OPER»,""&OPERATION)
map=SET_VALUE(map,«ACCOUNT»,""&ACCOUNT)

map=SET_VALUE(map,«QUANTITY»,0+QUANT)
map=SET_VALUE(map,«QUANTITY»,0+QUANT)
map=SET_VALUE(map,«OSTATOK»,0+OSTATOK)
map=SET_VALUE(map,«SOSTOYAN»,""&SOSTOYAN)
WRITELN(«C:\TABLZAYAV.TXT»,«ORDER_N:»&NUM&" TIME:"&TIME&" OPERATION:"&OPERATION&" ACCOUNT:"&ACCOUNT&" QUANTITY:"&QUANT&" OSTATOK:"&OSTATOK&" STATUS:"&SOSTOYAN)
add_item(i,map)
END FOR

END_PROGRAM

PARAMETER NUMER;
PARAMETER_TITLE Nзаявки;
PARAMETER_DESCRIPTION Null;
PARAMETER_TYPE NUMERIC(9,0);
END

PARAMETER TIME;
PARAMETER_TITLE Время;
PARAMETER_DESCRIPTION Null;
PARAMETER_TYPE STRING(256);
END

PARAMETER OPER;
PARAMETER_TITLE Операция;
PARAMETER_DESCRIPTION Null;
PARAMETER_TYPE STRING(256);
END

PARAMETER ACCOUNT;
PARAMETER_TITLE Счет;
PARAMETER_DESCRIPTION Null;
PARAMETER_TYPE STRING(256);
END

PARAMETER QUANTITY;
PARAMETER_TITLE Количество;
PARAMETER_DESCRIPTION Null;
PARAMETER_TYPE NUMERIC(6,0);
END

PARAMETER OSTATOK;
PARAMETER_TITLE Остаток;
PARAMETER_DESCRIPTION Null;
PARAMETER_TYPE NUMERIC(6,0);
END

PARAMETER SOSTOYAN;
PARAMETER_TITLE Состояние;
PARAMETER_DESCRIPTION Null;
PARAMETER_TYPE STRING(256);
END

END_PORTFOLIO_EX
  • Ключевые слова:
  • qpile
3 комментария
я не шарю, но может надо созданную тут таблицу через DDE или ODBC выводить
avatar
Mr. Bean, мне именно в текстовый файл надо
avatar
Наверное вместо «ORDERS» нужно разбирать таблицу «ALL_TRADES». Или я вопрос не понял?
avatar

теги блога roma095

....все тэги



UPDONW
Новый дизайн