Галактика в вопросах и ответах

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

/*
 ╔═══════════════════════════════════════════════════════════════════════════╗
 ║                     (c) 1994,2000 корпорация ГАЛАКТИКА                    ║
 ║ Проект        : ГАЛАКТИКА                                                 ║
 ║ Система       : Бухгалтерский контур                                      ║
 ║ Версия        : 5.8x                                                      ║
 ║ Назначение    : Пример использования TXO API                              ║
 ║ Ответственный : Ларин Михаил Николаевич (larin@galaktika.by)              ║
 ║ Параметры     : есть                                                      ║
 ╚═══════════════════════════════════════════════════════════════════════════╝
*/

#include TxoApi.vih

// Начиная с версии 5.85 в наименовании интерфейса
// обязательно использовать префикс "Txo_"

// Указываем, что наш интерфейс реализует расчет идентификатора ТХО
VipInterface Txo_KatSoprDemo implements ObjTxoIdentPlugin;

// Простой интерфейс для обработки накладной
Interface Txo_KatSoprDemo;

// Логическая таблица, описывает стуктуру накладной
create view DemoView
var
  CurTiDkGal : word;
  CurSoprDoc : comp;
  P1         : String;
  P2         : String;
as select
  *
from
  Katsopr,
  SpSopr
where
((
  CurSoprDoc == KatSopr.Nrec    and
  CurSoprDoc == SpSopr.cSopr
));


function GetInfo : string;
{
   GetInfo := 'Пример использования TXO API для накладных';
}

function ParamMaster : string;
{
   Message(''#3'здесь должен быть вызов окошка, чтобы помочь пользователю'#13+
           ''#3'заполнить строку дополнительных параметров идентификатора:'#13+
           ''#3'[Param1:"xxx"][Param2:"yyy"]');
   ParamMaster := '[Param1:"xxx"][Param2:"yyy"]';
}


procedure StoreCycles(hTxo : longint; buf : TTxoApiInfoDoc);
{
   // установить ограничения на логическую таблицу
   CurTiDkGal := buf.TiDkGal;
   CurSoprDoc := buf.cSoprDoc;

   // заполнить нециклическую аналитику
   if (getfirst KatSopr = tsOk)
   {
      TxoHeadAddKau(hTxo, 0,1,KatSopr.cOrg);     // организация
      TxoHeadAddKau(hTxo, 0,2,KatSopr.cPodrTo);  // подразделение
   }

   // построить выгрузку циклов
      // очистить промежуточный буффер
      TxoBodyClear(hTxo);

      TxoBodyAddDate(hTxo,3,To_Date(1,1,2013))

      // закачать суммы
      TxoBodySetSum(hTxo, 10,10,10);

      // добавить в выгрузку
      TxoBodyInsert(hTxo);

      TxoBodyClear(hTxo);

      TxoBodyAddDate(hTxo,3,To_Date(2,2,2013))

      // закачать суммы
      TxoBodySetSum(hTxo, 11,11,11);

      // добавить в выгрузку
      TxoBodyInsert(hTxo);


}
end.

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

            Sdate:=piExAttr.sGetAttr( 1109, t1.katsopr.nrec, 'Дата скидки  за объем');
            DatePr:=To_Date(substr(SDate,1,2), substr(SDate,4,2),substr(SDate,7,4)); 
            Message(DatePr,0);  //   в этой точке мессага выдает правильную дату
            TxoBodyAddDate(hTxo,  wFlKau_Mode1, datepr);

// формируем Д 90-01 - Кр 62-03
            TxoBodyAddSchet(hTxo,wFlKau_Mode0,SchO,'01');
            TxoBodyAddSchet(hTxo,wFlKau_Mode1,SchK,'03');

            TxoBodyAddKau(hTxo,  wFlKau_Mode0, cgKau_KatOrg , cmpItem);  //Здесь формируется все правильно