Кто программит на qpile - есть вопрос
Кто разбирается в 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