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

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

Добавлено: 07 фев 2011, 14:18
spark
Добрый день!

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

Спасибо!

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

Добавлено: 07 фев 2011, 15:21
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 с которым можетете поиграться.

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

Добавлено: 07 фев 2011, 15:24
Dmitry_Sol
Пол года назад, столкнулся ровно с такой же проблемой. Для ее решения написал производственный вип алгоритм, который вызываю через javascript, после оприходования. Пользователи счастливы :-). Если интересно, могу выслать на ящик.

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

Добавлено: 07 фев 2011, 16:37
spark
LaaLaa писал(а):Могу предложить программный способ.
Спасибо! Очень полезная информация! =)