Проблема в следущем.
Есть временная таблица с занесенными записями по аналитике. Необходимо из нее перенести в спецификацию проводки (FPOBOROT).
Попробовал использовать функции TxoBodyAddKau(...), но что-то у меня ничего не вышло.
_loop TabSpec{
message(TabSpec._Summa);
TxoBodyAddKau(hTxo,wFlKau_mode0,cgKau_FpCO,TabSpec._FPCONrec);
TxoBodyAddKau(hTxo,wFlKau_mode0,cgKau_FPSTBud,TabSpec._FPSTBudNrec);
TxoBodySetSum(hTxo,TabSpec._Summa,0,0);
TxoBodyInsert(hTxo);
}
Помогите разобраться.
Помогите разобраться с TXOAPI
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный обитатель
- Сообщения: 159
- Зарегистрирован: 28 сен 2005, 19:48
- Откуда: mos
- Контактная информация:
В TXOAPI есть функция ParamMaster. Она вызывается при настройке алгоритма. Как и куда можно сохранить выбранные параметры, чтобы их можно было использовать при обработке алгоритма.
Например:
Хочу в ParamMaster сохранить значение переменной Param, чтобы далее ее использовать в StoreCycles. Ну как у меня сейчас написано естественно не работает))
Например:
Код: Выделить всё
const
cmButOK=12323;
end;
Interface CheckParam AlwaysReturn;
show at(1,1,50,10);
create view
var
Param:string;
wParam:word;
from TmpGRN;
parameters
Param;
screen scrParam;
show at(,,,);
fields
wParam:[list 'param1','param2'];
buttons
cmButOK;
<<
.@@@@@@@@@@@@@@@@@@
<. OK .>
>>
end;
HandleEvent
cmInit:{
}
cmButOK:{
if (wParam=0) Param:='Param1';
if (wParam=1) Param:='Param2';
CloseInterface(cmDefault);
stop;
}
end;
end.
Interface Txo_AnalPKP (,hcTXOWVIPParam);
...............
function ParamMaster : string;
{
/*Message(''#3'здесь должен быть вызов окошка, чтобы помочь пользователю'#13+
''#3'заполнить строку дополнительных параметров идентификатора:'#13+
''#3'[Param1:"xxx"][Param2:"yyy"]');
ParamMaster := '[Param1:"xxx"][Param2:"yyy"]'; */
RunInterface(CheckParam,Param);
message(Param);
//Param1:=Param;
}
procedure StoreCycles(hTxo : longint; buf : TTxoApiInfoDoc);
{
message(Param);
...........
}
.........
end.
Вот пример с параметрами:
Код: Выделить всё
function ParamMaster : string;
{
ParamMaster := '[NDS:][SCHET:][AGENT:]';
}
...
procedure StoreCycles(hTxo : longint; buf : TTxoApiInfoDoc);
{
var nds :word;
var schet :word;
var agent :word;
nds := TxoParamValue(hTxo,1);
schet := TxoParamValue(hTxo,2);
agent := TxoParamValue(hTxo,3);
...