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

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

В чём угодно, даже в ДНК.

(0) телепатирую. при записи документ куда-то сохраняет старые данные, а при открытии достаёт их и подставляет в себя обратно

(2) так док записывается, проводится
движения уже с новыми реквизитами

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

какую инфу сообщить чтоб с телепатией не заморачиваться?

(0) отладчик твой друг и товарищ?
а так же docprint.ert

отладчик кажет годно - новые реквизиты, и после записи, и после проведения
а докпринт - старые

и всё это поди в незакрытой транзакции

вроде закрывается
после транзакции отладчик тоже годно кажет
да и транзакцию пробовал убирать - один хрен

:)

ага
мне тоже смешно

нам отсюда не видно, как ты "программно" меняешь реквизиты документа

примерно так

Док.ПолучитьСтрокуПоНомеру(стр);
Док.Цена = ЦенаНовая;
Док.Сумма = Док.Цена * Док.Количество;

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

и ? где тут транзакция в коде ?

(0) может есть какой-нибудь реквизит вроде типа цен и при открытии документ его считывает, считывает цену согласно типа и пересчитывает и суммы в соответствии с этой ценой

(15) врят ли - он же докпринтом проверяет потом.
тут 99% - (8)

(14) да не в транзакции дело, пробовал и без нее
а так - тоже самое, но  с НАчать... Зафиксировать...

(16) даже если предположить что так, движения то документа с измененными реквизитами

(16) ПОчему вряд ли? Докпринтом проверяет после своего изменения, а при следующем открытии, возможно, изменяется.
Ведь после повторного открытия и записи никто проводки не проверял?

(16) а при чем здесь докпринт? он же не открывает документы интерактивно, а такая вещь может в "ПриОткрытии" быть зашита

Думаю, надо при открытии смотреть.

(16) вот он и делает движения верные, а при следующем открытии перерассчитывает документ. Попробовать закрыть не сохраняя изменения и посмотреть проводки ис-под журнала

(19,20)  ну вы п..ц просто :

docprint.ert смотрит ЗАПИСАННЫЙ документ - если там старые реквизиты - то поделка автора не записывает НИЧЕГО
При чем тут ПриОткрытии вообще ?!

(23) а-а-а, не понял я. думал, что докпринт новые данные показывает. Тогда правда не записывает.

(23) и... не ругайся.

(23) смотри, чел изменил ТЧ, записал, провел, документ сохранился, посдле этого смотрит докпринт - тот показывает нормуль, потому что документ еще изменен, потом открывает форму и только в этот момент документ перерассчитывается. в момент докпринта реквизиты то новые и все норм.

(24) хотя, хрен знает где автор свой код выполняет - во внешней обработке или в самой форме документа.. :)))

А может надо ДокЖЖЖ = СоздатьОбъект("Документ"), а потом ДокЖЖЖ.НайтиДОкумент(Док.ТекущийДокумент())?
Чем черт не шутит. Это так на всякий случай.

(27) сорри не заметил что докпринт тоже старые данные показывает

(27) код во внешней обработке
(28) Док через выборку получается, естественно Док = СоздатьОбъект

(30) Ну вот и смотри(28).

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

+(31) Если Док - это выборка. То отдельно надо объект получить для изменения = ДокОбъект.НайтиДОкумент(Док.ТекущийДокумент())

ну , пока кода нет, можно еще поугадывать в чем затупил ТС

(33) :)))))))))))))))))

сам этот бред придумал, али подсказал кто ?

если дата документа не меняется - выборка не сбивается

(35) У тебя другое мнение? Попробуй изменить документ:
Док = СоздатьОБъект(Документ.Акт);
Док.ВыбратьДокументы()
Пока ДОк.ПолучитьДокумент() = 1 Цикл
  Док.Номер = "333";
  Док.Записать();
КонецЦикла;

Вопрос: даст изменить?

+(37)Док = СоздатьОБъект("Документ.Акт");

(37) Ты откуда вообще вылез то ?
Конечно даст

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

(39) Оттуда, от откуда и ты. Проверил?

(38) а тот же докпринт не может быть дописанным? если отладчик нормальные реквизиты после проведения дока показывает?

(36) а если время?
в принципе там всего один документ
(37) а, типа в шапке чтото изменить?

(41) Зачем? Я и так это всё знаю, а проверял еще лет 10 назад

Пятница

(45) 146%
не изменяется ничего
пичалька

(46) код своей поделки покажешь весь или и дальше будешь пичалиться ?

Ого. Блин, и правда работает.
Че-то я не понял. А бывало, что не работало. Приходилось писать:

Док = СоздатьОБъект("Документ.Акт");
ДокОб = СоздатьОБъект("Документ");
Док.ВыбратьДокументы()
Пока ДОк.ПолучитьДокумент() = 1 Цикл
  ДокОб.НайтиДокумент(Док.ТекущийДокумент());
  ДокОб.Номер = "333";
  ДокОб.Записать();
КонецЦикла;

Ладно. Согласен, что затупил в этот раз.
Но дело точно такое бывало. И только у меня.
ТИпа справочники в цикле изменяли, а доки - нет.

(46) так как в (7) - не бывает ... что-то не договариваешь ...

+(49) ставлю на то, что изменения откатываются взад при проведении ... ))))

+(48) "И только у меня" =  "И НЕ только у меня. "

(50) а как они могут откатываться? реквизиты то новые уже записаны

(52) перезаписываются ...

(53) имею в виду откуда старые значения возьмутся?

(54) та хз ... анализируй обработку проведения ...

(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С :)

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