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

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Sytin
Постоянный обитатель
Сообщения: 159
Зарегистрирован: 28 сен 2005, 19:48
Откуда: mos
Контактная информация:

Помогите разобраться с 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);
}

Помогите разобраться.
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Сообщение Алексей »

1. При настройке ТХО в Галактике - ТХО должна быть циклическая
2. Режим на указанных КАУ должен стоять "режим0"
3 В циклической обработке необходимо указать ваши аналитики.
Sytin
Постоянный обитатель
Сообщения: 159
Зарегистрирован: 28 сен 2005, 19:48
Откуда: mos
Контактная информация:

Сообщение 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
Местный житель
Сообщения: 577
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Томск

Сообщение 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
Постоянный обитатель
Сообщения: 159
Зарегистрирован: 28 сен 2005, 19:48
Откуда: mos
Контактная информация:

Сообщение Sytin »

Спасибо огромное!
Ответить