Помогите разобраться с TXOAPI

[Sytin]

Проблема в следущем.
Есть временная таблица с занесенными записями по аналитике. Необходимо из нее перенести в спецификацию проводки (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);
}

Помогите разобраться.

[Алексей]

1. При настройке ТХО в Галактике - ТХО должна быть циклическая
2. Режим на указанных КАУ должен стоять "режим0"
3 В циклической обработке необходимо указать ваши аналитики.

[Sytin]

В TXOAPI есть функция ParamMaster. Она вызывается при настройке алгоритма. Как и куда можно сохранить выбранные параметры, чтобы их можно было использовать при обработке алгоритма.
Например:

Код: Выделить всё

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.

Хочу в ParamMaster сохранить значение переменной Param, чтобы далее ее использовать в StoreCycles. Ну как у меня сейчас написано естественно не работает))

[Nikos]

Вот пример с параметрами:

Код: Выделить всё

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);
...

[Sytin]

Спасибо огромное!