Программно меняю реквизиты ТЧ части документа
ДВижения формируются по новым реквизитам
При открытии формы документа - всё старое

в чем может быть проблема?

(55) была бы она у меня... ветка то не моя)))

(56) а ну да ... пардоньте ))) хотя .... судя по имени ТС - точно бухи прячуть, а потом достают из засады ... вот ))))

выборка движений регистра по данному документу может повлиять?

(58) если смотреть сверху -  то сбоку кажется, что снизу ничего не видно ©...

да вряд ли, документ то сам не трогается

(58) Могут, если после удара бейсбольной битой по голове у тебя шнурки развязываются.

(58) поскольку речь идет о ценах ... смею предположить, что речь будет идти или о периодике или об отдельном справочнике с ценами ... но это чистый дедуктивный метод ... )))

вот и я думаю что не причем
но ощущение что реквизиты дока блокируются от изменения
причем все

(62) я выше писал что возможно есть типы цен, а это как раз и предполагает отдельный или справочник или регистр

(63) код покажешь али так и будешь ломаться как ц..а ?

вот так:


Док.ВыбратьДокументы(НачДата, КонДата);
Пока Док.ПолучитьДокумент() = 1 Цикл
Рег.ВыбратьДвиженияДокумента(Док);
Пока Рег.ПолучитьДвижение() = 1 Цикл
 Если Рег.Приход = 1 Тогда
   Продолжить;
 КонецЕсли;
 стр = рег.НомерСтроки();
 Док.ПолучитьСтрокуПоНомеру(стр);    
 ТЗ.НоваяСтрока();
 ТЗ.Номер = стр;
 ТЗ.Номенклатура = Рег.Номенклатура;
 ТЗ.Количество = Док.Количество;
 ТЗ.ЦенаСтарая = Док.Цена;
 ТЗ.Коэффициент = Док.Коэффициент;
 ТЗ.Единица = Док.Единица;
КонецЕсли;
ТЗ.ЦенаНовая  = Окр(Рег.СуммаРуб / Рег.Количество,2);
Док.Цена = ТЗ.ЦенаНовая;
Док.Сумма = Док.Цена * Док.Количество;

КонецЦикла;
док.Записать(); док.Провести();


КонецЦикла

(66) покажи весь код

(66) сначала умножаем, потом делим

хотя не надо .. и так виден бред сразу

(70) ткни носом

(71) ну для начала вот это :
стр = рег.НомерСтроки();
 Док.ПолучитьСтрокуПоНомеру(стр);

Уверен, что есть привязка строки в регистре ?

//Рег.ВыбратьДвиженияДокумента(Док);
Рег.ВыбратьДвиженияДокумента(Док.ТекущийДокумент());

Нахрена там ТЗ уперлаь для этого кода ?!

(73) ну ведь было же заявлено что отладчик после записи показывает нужный вариант )))

(72) а как надо?

потом, нужно делать так:

Док.Сумма  = Рег.СуммаРуб;
глПересчетТабЧасти(Док,"Сумма")..

И.. больше кода - т.е весь целиком

(73) уверен
(74) пробовал, всё так же
(75) тз используется еще в другом месте

Нам отсюда не видно твоей незавершенной транзакции

И СуммаРуб - это ресурс ПартииНаличие, там номер строки не привязывается + если автоподбор партий - то может быть несколько строк с одной номенклатурой и разными партиями, т.е весь код в (66) в топку.

че пытался делать автор и так понятно - продать товар по себестоимости, которая на тот момент есть в регистре, токма сделал всё это через ж..у , еще и код не хочет показывать

даже, если строки и привязываются - еще хуже при данном коде

(78) Док.Сумма может не соответствовать Рег.СуммаРуб
этот регистр останется без изменений, содержимое ТЧ влияет на другой
(79) да нет больше ничего

(82) да может быть несколько, но выбирается одна

в данном случае партия одна

(85) :)

ты не поверишь - и на этот тоже - изменятся реквизиты регистра.

А код не весь, не ври
Хотя пофик - он и так идеологически не верный.
Нужно сворачивать движуху регистра по номенклатуре сперва - потом уже изменять СУММУ (а не цену документа)
И у тебя один фиг - незавершенная транзакция в коде. которую ты до сих пор не показал.

(80) > (73) уверен

в курсе, что одна стока может породить несколько движений ?!

(83) да, смысл примерно такой
для расчета цены берется последняя партия по конкретной номенклатуре

нет транзакции

(90) это не верно, нет понятия цены - всегда нужно опперировать понятием сумма

(91) есть, покажи весь код целиком

+ если это типовой Тис, то как минимум, ты не установил новую СуммВзаиморасчетов - тоже болт в регистрах

в общем,  один сплошной косяк.
ЗЫ: покажи весь код целиком

(93) док не реализация, а переделка Перемещения

Регистр ПартииНаличие не изменяется

(96) че правда ?!
И давно это у нас в перемещении появилась сумма ?
Али это перемещение в розницу ?

и если что ПродСтоимость меняется в регистре при перемещении в розницу

(97) да в розницу

Сотка

и .. весь код показывай..
:)

да нечего больше показывать
там несколько условий на выборку и всё
транзакций нет, если только они из каментов конечно как-нибудь вылазят

секретный код

да ничего секретного
все выдал как есть
убрал пару условий и срач коментариев

Как проверяешь

1. что движения в регистре привязаны и привязка соответствует тому, что в табличной части дока ?
2. как проверяешь, что документ не записался ?

(104) не совсем понял вопрос

Движения ПартииНиличие привязываются к строкам, это при проведении задано
а проверка записи документа
Попытка
Док.Записать();
Исключение
Сообщить("Ошибка записи");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Док.Провести();
Исключение
Сообщить("Ошибка проведения");
Сообщить(ОписаниеОшибки());
КонецПопытки;

Процедура сформировать()


Док= создатьОбъект("Документ.ПеремещениеТМЦ");
Рег = СоздатьОбъект("Регистр.ПартииНаличие");
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Номенклатура");
ТЗ.НоваяКолонка("Сумма");

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

КонецПроцедуры

наслаждайся


док.Записать(); док.Провести();

(106) это п..ц а не проверка..
:)

вот подправил..

Процедура сформировать()


Док= создатьОбъект("Документ.ПеремещениеТМЦ");
Рег = СоздатьОбъект("Регистр.ПартииНаличие");
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Номенклатура");
ТЗ.НоваяКолонка("Сумма");

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

КонецПроцедуры

ну и синтаксис там сам исправишь - мне лень.

Спасибо
т.е. получается через ПолучитьСТрокуПоНомеру() не выйдет
и нужен перебор ТЧ

(111) ты не догоняешь - в регистре может быть 20 строк с одинаковой номенклатурой и разных партий.

(112) Понимаю, нужную строку я найду и выберу партию что мне нужна

(113) ?

какая из 20-ти будет нужная ?

(114) та которую укажет бух
может приход в определенную дату, может с опреденным ВхНомером
но скорее всего последняя из списываемых партий

(115) и как твоя поделка узнает об этом, когда ты в цикле перебираешь документы ?

(116) типа из регистра нельзя получить инфу о документе прихода

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

(117) чудак человек.
Как ты слова буха будешь превращать в действия ?
будешь делать таблицу соответствия для каждой номенклатуры ?
Для каждого документа ?

(118) скорее всего нужна будет последняя партия из набора партий
это третье дело

(119) что значит последня ?

Последняя попавшая в документ по данной позиции номенклатуры

короче проблему с незаписью реквизитов решил
как - говорить не буду - стыдно

(122) это, еще сыграем в угадайку на 100 постов ?
:)

колись давай, нам всем за тебя стыдно

(123) :))))

СделатьНеПроведенным() слегка не вовремя :)

(125) ну ёпт, грили же тебе - больше кода

зато пятница удалась

(125) хммм .... ну и как это коррелирует с заявлением "в отладчике при записи все гуд"???

Ну наконец-то :). Правда я тоже не понял как СделатьНеПроведенным повлияло на незапись документа.

(128)потому что "не вовремя"
попробуй такую последовательность
заполняется реквизит, Распроводится, Записывается, Проводится

(129) при переборе движений в цикл не заходило, таб часть дока не менялась

(131) ТС утверждал, что в момент записи отладчик показывал результат, нужный ТС ... КАК????

(132) и продолжаю утверждать, так и было

(132) я хз, код то свой он так и не показал весь целиком

(131) Теперь понятно. ТС'у надо разведчиком работать :).

(135)+ или шпионом, смотря с какой стороны смотреть :).

(136) я Наш :)
было примерно так

Процедура сформировать()


Док= создатьОбъект("Документ.ПеремещениеТМЦ");
Рег = СоздатьОбъект("Регистр.ПартииНаличие");
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Номенклатура");
ТЗ.НоваяКолонка("Сумма");

Док.УстановитьФильтр(1,0);
Док.ВыбратьДокументы(НачДата, КонДата);
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Склад.РозничныйСклад+Док.СкладПолучатель.РозничныйСклад = 0 Тогда Продолжить; КонецЕсли;
ТЗ.УдалитьСтроки();
Рег.ВыбратьДвиженияДокумента(Док.ТекущийДокмент);
Пока Рег.ПолучитьДвижение() = 1 Цикл
    Если Рег.Приход = 1 Тогда
        Продолжить;
    КонецЕсли;
    ТЗ.НоваяСтрока();
    ТЗ.Номенклатура = Рег.Номенклатура;
    ТЗ.Сумма = Рег.СуммаРуб;
КонецЦикла;
ТЗ.Свернуть("Номенклатура","Сумма");
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
   сч="";
   Если ТЗ.НайтиЗначение(Док.Номенклатура,Сч,"Номенклатура")=1 Тогда
      Док.Сумма = ТЗ.ПолучитьтЗначение(сч,"Сумма");
      глПересчетТаблЧасти(Док,"Сумма");
   КонецЕсли;
КонецЦикла;
//------
Док. СделатьНеПроведенным();
//------
Док.Записать();
Док.Провести();
КонецЦикла;          

КонецПроцедуры

не понимаю как СделатьНеПроведенным() повлияло на изменение суммы в ТЧ. Я тупой наверное

(133) да дело в том что наиболее вероятный вариант в (131) .. и он абсолютно противоречит варианту в (130) ... в общем, что-то тут не так )))). ну да ладно - проблема решилась и хорошо ... только вот реально: в след раз лучше сначала отладчиком проверяй, а не на 130 постов телепатические навыки ёпрста проверяй )))

(137) а приведи-ка, мил человек, код Обработки отмены проведения ....

(137) забавно, отменяет ли СделатьНеПроведенным все изменения с переменной Док ?
лень проверять - никогда так не писал, хотя, всё может быть

(138)вот в том то и фокус
переставил перед Док.ВыбратьСтроки() и получилось щастье
(140) а нет ее

(142) а зачем ты его распроводишь?

(141) если и изменяет то весьма странно, после отмены проведения в самой переменной ничего не изменилось, точнее всё осталось измененным
и движения сформировались с измененными данными

(141) У меня тоже была первая мысль об этом.

(143) это с первого варианта еще осталось
время документа изменял

(142) ну так а как же отладчик при записи???

(147) если предположение в (141) верно, то отладчик будет всё верно казать.. как и говорил автор

(148) с каких делов? ведь отмена проведения происходила после заполнения ТЧ, но перед записью ... соответственно - если отмена проведения сбрасывает все итерации с ТЧ, то как жеж отладчик будет правильно казать? ... ниче не понимаю ((((

(148) Заинтриговали. Проверил. СделатьНеПроведенным не отменяет изменения.

Процедура Сформировать()
   ДокРН = СоздатьОбъект("Документ.РасходнаяНакладная") ;
   
   ДокРН.НайтиДокумент(фасРН);
   Сообщить(ДокРН.ВидРасхода);
   ДокРН.ВидРасхода = Перечисление.ВидыРасхода.Нал ;
   Сообщить(ДокРН.ВидРасхода);
   ДокРН.СделатьНеПроведенным() ;
   Сообщить(ДокРН.ВидРасхода);
   ДокРН.Записать();
   Сообщить(ДокРН.ВидРасхода);
КонецПроцедуры

Результат.

По счету
Нал
Нал
Нал

то есть СделатьНеПроведенным вызывает неявную запись объекта с изменениями.

А посыпаю голову. В базе все осталось по старому :).

Вот так нагляднее будет.

//*******************************************
Процедура Сформировать()
   ДокРН = СоздатьОбъект("Документ.РасходнаяНакладная") ;
   ДокРНПроверка = СоздатьОбъект("Документ.РасходнаяНакладная") ;
   ДокРНПроверкаЗапись = СоздатьОбъект("Документ.РасходнаяНакладная") ;
   
   ДокРН.НайтиДокумент(фасРН);
   Сообщить(ДокРН.ВидРасхода);
   
   ДокРН.ВидРасхода = Перечисление.ВидыРасхода.Нал ;
   Сообщить(ДокРН.ВидРасхода);
   
   ДокРН.СделатьНеПроведенным() ;
   
   ДокРНПроверка.НайтиДокумент(ДокРН.ТекущийДокумент());
   Сообщить(ДокРНПроверка.ВидРасхода);
   
   ДокРН.Записать();
   ДокРНПроверкаЗапись.НайтиДокумент(ДокРН.ТекущийДокумент());
   
   Сообщить(ДокРНПроверкаЗапись.ВидРасхода);    
   //Сообщить(ДокРН.ВидРасхода);
КонецПроцедуры


Результат.

По счету
Нал
По счету
По счету

(151), (152) - офигеть ... ТС, приношу свои извинения за недоверчивость ))))

секретная недокументированная фича 1С :)

вот веть пиляха муха