Страница 1 из 1

TXO API или аналог

Добавлено: 03 апр 2015, 13:12
Masygreen
Собственно суть .. есть документ в документе есть строки спецификации.
Пускай будет приход ОС.
ТХО идет по спецификации циклически и обрабатывает каждую строчку, есть сложный алгоритм определения аналитики по строчке. Хочу засунуть её в функцию.

Пробую ТХОАПИ на эту тему

1) разбор параметров .. не понял

Определение параметров

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

  ParamMaster := '[cSpSopr:]';
В настройке

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

&1 = &SoprDoc[Рез:СпНаклАкта]
&2 = &VIP_[Obj:"MRT_GETSCH"][cSpSopr:&1]
Получение параметра

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

_cSpSopr := TxoParamValue(hTxo, 1) ;
в логе получаю _cSpSopr = &1

Не понял как передать значение, а не строку??

2)совершенно не понятно как вернуть значение
у меня это строка текста ..

Изображение

Re: TXO API или аналог

Добавлено: 03 апр 2015, 15:03
pk
Masygreen писал(а):Не понял как передать значение, а не строку??
Никак:)
Можно через какой-либо врем файл, откуда ваша ТХО считает его значение.
С ув..

Re: TXO API или аналог

Добавлено: 03 апр 2015, 15:04
edward_K

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

  for(i := 1; i <= TxoParamCount(hTxo); i := i + 1)
  {
    case upcase(TxoParamName(hTxo, i)) of
      'РЕЗ':
       { TxoDebugMsg(hTxo, 'KatSoprSpr','РЕЗ='+upcase(TxoParamValue(hTxo, i)) )
         if upcase(TxoParamValue(hTxo, i)) ='ПРОД' then ParamResult := 0;
         else
         if upcase(TxoParamValue(hTxo, i)) = 'СКЛАД' then ParamResult := 1;
         else
         if upcase(TxoParamValue(hTxo, i)) = 'НДС'   then ParamResult := 2;
         else
         if upcase(TxoParamValue(hTxo, i)) = 'БНДС'  then ParamResult := 3;
       }  
      'ДТ'            : div_by_dt:=word(TxoParamValue(hTxo, i));
      'ДОК'           : w_vidsopr:=word(TxoParamValue(hTxo, i));
      'ФГРП'          : 
      { w_kGroupParty :=TxoParamValue(hTxo, i)
        if getfirst  GroupParty where (( w_kGroupParty == GroupParty.Kod ))=0
          w_cGroupParty:=GroupParty.Nrec
      }
    end;
  }
В Oborot разбор делается но там кусок код строк на 300 и сводится к вычислению параметров по ключу

Re: TXO API или аналог

Добавлено: 03 апр 2015, 15:16
Masygreen
1)если получить значение нельзя то не подходит .. хотя я вижу пути обхода
2) насчет параметра не понял, у меня функция TxoParamValue возвращает &1, а я как бэ хотел nrec строки спецификации документа ...
т.е

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

_cSpSopr := TxoParamValue(hTxo, 1) ;
в логе получаю _cSpSopr = &1

Re: TXO API или аналог

Добавлено: 03 апр 2015, 19:36
Алексей
Если это Ваш ТХО АПИ, нельзя самому цикл по спецификации сделать? А что то даже понять не могу, чего вы добиться хотите...

Re: TXO API или аналог

Добавлено: 06 апр 2015, 12:58
pk
Ну и dsk-переменная поможет:)

Re: TXO API или аналог

Добавлено: 06 апр 2015, 15:25
Masygreen
Алексей писал(а):Если это Ваш ТХО АПИ, нельзя самому цикл по спецификации сделать? А что то даже понять не могу, чего вы добиться хотите...
Цикл делать не хочу, мне нужна разная сумма, это ОС и мне для проводки надо определить одну аналитику.
Для ОС есть нормальный алгоритм .. там разные суммы амортизация, сумма покупки, сумма оприходования - и в разных методах учета ..переписывать это все самому ... нет уж ..
мне надо просто для каждой строки которую формирует стандартное ТХО получить один параметр ... увы похоже