Здравствуйте, такой вопрос: есть документы "счет" из них происходит движение приход в регистр "РезервыПоАкциям"

Если Сред(НомерДок,4,1)="А" Тогда
       ДокРН=СоздатьОбъект ("Документ.РасходнаяНакладная");
       ДокРН=СсылкаНаРасходнуюНакладную;
       ВыбратьСтроки();
       Пока ПолучитьСтроку()=1 Цикл
           Регистр.РезервыПоАкциям.ПривязыватьСтроку(НомерСтроки);
           Регистр.РезервыПоАкциям.Товар=Товар;
           Регистр.РезервыПоАкциям.Ссылка=ТекущийДокумент();
           Регистр.РезервыПоАкциям.Количество=Количество;
           Регистр.РезервыПоАкциям.Контрагент=Контрагент;
           Регистр.РезервыПоАкциям.Склад=ДокРН.Склад;
           Регистр.РезервыПоАкциям.ДвижениеПриходВыполнить();
       КонецЦикла;            
   КонецЕсли;  

В конце месяца мы вытягиваем все данные из регистраПоАкциям Засовываем в табличную часть Документа Расходная накладная Товар и колличество(группируем по товару). И пытаемся провести движение расход, но почему то не взлетает.

Если Сред(НомерДок,4,1)="А" Тогда
       ВыбратьСтроки();
       Пока ПолучитьСтроку()=1 Цикл
           Регистр.РезервыПоАкциям.ПривязыватьСтроку(НомерСтроки);
           Регистр.РезервыПоАкциям.Товар=Товар;
           Регистр.РезервыПоАкциям.Количество=Количество;
           Регистр.РезервыПоАкциям.ДвижениеРасходВыполнить();
       КонецЦикла;            
   КонецЕсли;

В отчете как были цифры про проведения расходной накладной так и остались. Это не может быть из за того что выкинул из движения расход контрагента и склад и сгруппировал товар. И нормально ли как вариант в обработке проведения поставить запрос который вытягивал бы весь регистрПоАкциям и тут же проводил все вытянутое по расходу. Заранее спасибо)

Попробуй посмотри , а делает ли документ движения ваапще ?

ну смотрел через отладчик вроде как делает. А есть ещё способ посмотреть?

ага , правой кнопокой  в журнале . "Движения документа "

ПКМ по документу в журнале - Движения документа - выбираем регистр - смотрим

(2) меню Действия\Движения документа

да делает но в отчете вообще ничего не меняется, может быть из за того что нет контрагента и склада?

Измерения не выкидывай. Регистры не будут закрываться и получишь много неприятностей

(6) проверяй фильтры в отчете

+7 И отчет у тебя наверняка смотрит измерения Контрагент и Склад, а они у тебя пустые

Вот за это "Если Сред(НомерДок,4,1)="А" Тогда" нужно отрывать все выступающие части тела. Чтобы не плодились такие программеры.

(7) Подумаешь , проблема, регистр опухнет да и все .... )))

(10) А что в этом такого страшного ?

(11)И через пол года появится тема типо "Висит ТИИ" или "Не могу выгрузить базу"

(13) а ты, значит, хочешь лишить человека радости общения? ;-)

(12) Что может быть страшного в быдлокоде? Ничего. Но желательно все же чтобы не плодились.

(13) тут все зависит от количества движений по регистру .... если их немного , то появится эта тема оооочень нескоро ))

(0)

>>Регистр.РезервыПоАкциям.Ссылка=ТекущийДокумент();

если Ссылка - это Измерение регистра, то это Полный ПЭ.

(14)Давай подскажем человеку не делать бэкапы и мдешник подменить... развлекухи будет ))))

(15) Все равно непонятно ....
ну предоложим , дал шеф задачу (определить чтобы в документе 4 знак в коде означал , что документ ..... ) и как изволите делать ?

(17)Автор очень хочет не закрывающиеся регистры

Ссылка нужно для группировки по счету,
на счет быдло кода обычно счета имееют префикс в три буквы, только акционные счета имеют четвертую букву а, создавать дополнительные реквизиты запрещено. Вот я так и проверяю акционный это счет или нет. Не понимаю что здесь ужасного(

(19) Послать шефа заниматься непосредственными обязанностями. А самому добавить реквизит документа, который должен "что-то значить".

(21) Соберите, для примера, только "акцизные" счета запросом.

(21)До документа можно добраться и без твоей Ссылки. Убирай ее. И измерения все заполняй когда расход делаешь.

а как без сслыки добраться до документа?

(24) ТекущийДокумент

то есть в регистре и так хранится информация с какойого документа пришёл приход или расход?

(26) См. (25). Движение по регистру невозможно в обход документа.

ага понял спаибо) будем пробовать)

стоп не совсем понял это должно происходить как то так?

Таб=СоздатьОбъект ("Таблица");
       Таб.ВывестиСекцию ("Заголовок");
       Пока Запрос.Группировка(1)=1 Цикл
           СчетВЯчейке=СоздатьОбъект ("Документ.Счет");
           СчетВЯчейке=СчетВЯчейке.ТекущийДокумент(); //расшифровка
           Таб.ВывестиСекцию ("Счет");
           Пока Запрос.Группировка(2)=1 Цикл
               Если Запрос.Товар.ЭтоГруппа()=1 Тогда
               Иначе Таб.ВывестиСекцию("Товар");
               КонецЕсли;
           КонецЦикла;
       КонецЦикла;

(29) нет.

а как?

(31)
|Период с НачДата ПоКонДата;
|Количество = Регистр.РезервыПоАкциям.Количество;
|Док = Регистр.РезервыПоАкциям.ТекущийДокумент;
|Функция Приход= Приход(Количество);
|Функция Расход= Расход(Количество);
|Группировка Док;
....

Пока Запрос.Группировка(1)=1 Цикл
  Сообщить(Запрос.Док +" "+Запрос.Приход+"  "+Запрос.Расход);
.........

ага понял спасибо)