Как автоматизировать проведение документов?

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

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

Ответить
spark
Местный житель
Сообщения: 478
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:

Как автоматизировать проведение документов?

Сообщение spark »

Добрый день!

Суть вот в чем:
Операторы, когда выписывают накладные, привязывают TXO. Проводки формируются, но часто в течение дня или вообще через неделю эти документы сами же операторы правят(меняют количество или неправильно подвязанного контрагента), а перевыбрать TXO забывают и к тому же перевыбор может повлечь привязку неправильной ТХО. Постоянно запускать групповое перепроведение в модуле хозоперации - это адЪ и по времени и по смыслу. Бухгалтерия как всегда без актуальных проводок жить не может. Поэтому появились два вопроса:
1. Можно ли программно или настройками сделать чтоб в накладной по-умолчанию стояла определенная ТХО?
2. Можно ли как-нибудь программно выполнить перепроведение документа к которому привязана ТХО? То есть повесить например на закрытие накладной или алгоритмом после списания запуск перепроведения этой накладной. Или может есть какие-то другие технологии поддержания в актуальном состоянии проводок по документам.
Три оператора в среднем за день выбивают порядка 500 документов и постоянно идут вычерки и корректировки(специфика такая).

Спасибо!
LaaLaa

Re: Как автоматизировать проведение документов?

Сообщение LaaLaa »

Могу предложить программный способ. Чтобы перепровести проводки по документу на туже дату - нужно сделать так:

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

  var iTxoBind : TxoBinder;
  iTxoBind.ResetServer;
  _loop по нужным докуметам SoprHoz
  {
    if(iTxoBind.BuildTree(SoprHoz.bufferp))
      if(iTxoBind.SetOperation(myPlansNo, wOper_ReObor, 0, 0 ))
         MakeTxobyTxoBind := iTxoBind.RealizeAndApplyOperations(SoprHoz.bufferp);

  }
  iTxoBind.ProcessProtokol;
А если нужно переразнести документы, которые попали в закрытый период (т.е. сторнировать старые проводки и создать новые), то делаем так:

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

   var iTxoBind : TxoBinder;
   iTxoBind.ResetServer;
  _loop по нужным докуметам SoprHoz
  {
    if(iTxoBind.BuildTree(SoprHoz.bufferp))
      if(iTxoBind.SetRemakeOperationInReg(myPlansNo, Date_Storno, Date_New))
         MakeTxobyTxoBind := iTxoBind.RealizeAndApplyOperations(SoprHoz.bufferp);

  }
  iTxoBind.ProcessProtokol;
Более подробное описание объекта TxoBinder найдете в архиве http://code.google.com/p/laalaa/downloa ... =F_TXO.RAR.
Там же есть тестовый интерфейс TxoBindTest.vip с которым можетете поиграться.
Dmitry_Sol
Постоянный гость
Сообщения: 76
Зарегистрирован: 07 июн 2007, 12:32
Откуда: Витебск
Контактная информация:

Re: Как автоматизировать проведение документов?

Сообщение Dmitry_Sol »

Пол года назад, столкнулся ровно с такой же проблемой. Для ее решения написал производственный вип алгоритм, который вызываю через javascript, после оприходования. Пользователи счастливы :-). Если интересно, могу выслать на ящик.
spark
Местный житель
Сообщения: 478
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:

Re: Как автоматизировать проведение документов?

Сообщение spark »

LaaLaa писал(а):Могу предложить программный способ.
Спасибо! Очень полезная информация! =)
Последний раз редактировалось m0p3e 07 фев 2011, 17:21, всего редактировалось 1 раз.
Причина: overquoting
Ответить