[DAS_Alex]

Три года работал???

Может, неудачно усовершенствовали? В коде "две руки" просматриваются.

Зачем создавать док с тем же номером?
Не могу понять разницы между "стр=1" и "иначе".

Я говорил, что в программе проблемы не вижу. Теперь и Вам видно, что этот код не может удалять строки.
У меня два варианта:

1. Первый и самый важный это плохая скорость сети.
2. Проблемы ссылочной целостности - сама 1С не может восстановить строки из дбф.

[vadim007]

Зачем так сложно - копировать строки документа в цикле. Я так понял - нужно создать точную копию исходного документа? Используйте ВыгрузитьТабличнуюЧасть(..), ЗагрузитьТабличнуюЧасть(..).
PS: Использование ДокОснование.ПолучитьСтрокуПоНомеру(стр); в начале циклов Для а=стр по ДокОснование.КоличествоСтрок() Цикл лишено смысла. Условие внутри цикла Пока ДокОснование.ПолучитьСтроку()=1 Цикл не совсем прозрачное для стороннего взгляда, нужно пройтись отладчиком на реальных данных. Лучше ставьте отладочные сообщения в этом цикле, и помотрите, сколько на самом деле копируется строк в новый документ. Но все эти "выкрутасы" с циклами не совсем понятны, если цель - ввести точно такой-же документ на основании.

[Zaval]

Я говорил, что в программе проблемы не вижу. Теперь и Вам видно, что этот код не может удалять строки.

Но проблема-то есть.
И разница между доками и операциями над ними есть только внутри 1с. Сети пофиг, что именно терять.
Еще раз спрошу: как выполняется ввод на основании? Из какой формы и какими средствами?

[DAS_Alex]

Но все эти "выкрутасы" с циклами не совсем понятны, если цель - ввести точно такой-же документ на основании.

Табличная часть не всегда одинакова. Бывает точная копия, бывает со второй строки, бывает половина.

Но проблема-то есть.
И разница между доками и операциями над ними есть только внутри 1с. Сети пофиг, что именно терять.
Еще раз спрошу: как выполняется ввод на основании? Из какой формы и какими средствами?

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

[vadim007]

Табличная часть не всегда одинакова. Бывает точная копия, бывает со второй строки, бывает половина.

Получается, вы сами ответили на свой вопрос.

[DAS_Alex]

Получается, вы сами ответили на свой вопрос.

получается ответ на вопрос - бывают различные ситуации переноса табличной части и я этого не понимаю, и сижу морочу голову людям...

[Zaval]

Новому доку присваивается Номер = Номеру Основания. Это зачем?
Ищите, нет ли в системе хитрой общей процедуры, подравнивающей Основание по Подчиненному - для связки Счет - РН иногда такое делают, чтобы получить пакет доков, выправив только один.

[DAS_Alex]

Новому доку присваивается Номер = Номеру Основания. Это зачем?

Номер нового документа состоит из номера основания и отличительной буквы: новыйномер=старномер+например буква А и т.д. Так нужно производству.
Так отслеживается цепочка до конца изготовления продукции.

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

[dmiter]

Если (Число(ДокОснование.Дата_к)<>0) и (ДокОснование.ПринятоКоличество<>0) Тогда

если данное условие выполняется на 6-й строке то в новом документе введенном на основании будет на 6 строк меньше...?

[5_kopeek]

Не могу понять разницы между "стр=1" и "иначе".

Аналогично.
И еще вопрос. Переменной стр еще где-нибудь присваивается значение или она где-то еще определяется? Если данное условие

Если (Число(ДокОснование.Дата_к)<>0) и (ДокОснование.ПринятоКоличество<>0) Тогда

не выполняется, переменная стр остается неопределенной.
Но даже это не должно удалять строки из документа основания, если нет еще каких-либо процедур, принимающих участие в процессе.
Если раньше работало нормально и вдруг перестало, а при тестировании базы обнаружены ошибки, необходимо, как минимум, убрать ошибки. Удалить все индексы, выгрузить базу и загрузить в саму себя. Если получится, ошибки должны устраниться. А тогда уже анализировать работу ввода на основании.
Не исключайте вариант, что и раньше бывали удаления строк, просто их не замечали. Вы сами своими руками делали подобный ввод на основании, при котором пропадали строки, или опираетесь на слова пользователей?

[DAS_Alex]

Если (Число(ДокОснование.Дата_к)<>0) и (ДокОснование.ПринятоКоличество<>0) Тогда

если данное условие выполняется на 6-й строке то в новом документе введенном на основании будет на 6 строк меньше...?

так надо, в программе описано все правильно

Вы сами своими руками делали подобный ввод на основании, при котором пропадали строки, или опираетесь на слова пользователей?

Сам видел только результат: открытый документ, введенный на основании, с оставшимися строками.

[5_kopeek]

Сам видел только результат: открытый документ, введенный на основании, с оставшимися строками.

В таком случае нет никакой гарантии, что это не дело рук самих пользователей. Лучше лично убедиться в наличии описанной проблемы, а потом уже голову ломать. Совет из личного опыта.

[awp]

Попробуйте понаблюдать

Процедура ПриУдаленииСтроки()
ЗаписьЖурналаРегистрации("Пользователь руками полез",,"Удаление строк "  + ЛюбойРеквизитТЧ ,Объект,"");    
КонецПроцедуры

Я таким образом поймал кто удаляет БВ(через обработку внешнюю) и кричит что это программа виновата

Сообщение отредактировал Vofka - 02.06.11, 8:11

[DAS_Alex]

Попробуйте понаблюдать

Процедура ПриУдаленииСтроки()
ЗаписьЖурналаРегистрации("Пользователь руками полез",,"Удаление строк "  + ЛюбойРеквизитТЧ ,Объект,"");    
КонецПроцедуры

Я таким образом поймал кто удаляет БВ(через обработку внешнюю) и кричит что это программа виновата

Попробую

[DAS_Alex]

Новая ситуация. Пользователь открыл документ в котором были строки, документ открылся с пустой многострочной частью. Нажав на кнопку "Закрыть" - документ не изменялся - 1С попросила сохранить документ. Пользователь не согласился и при следующем открытии многострочная часть документа была с строками.

[Valerka]

А внешних компонент никаких не подвязано к базе?

[5_kopeek]

Новая ситуация. Пользователь открыл документ в котором были строки, документ открылся с пустой многострочной частью. Нажав на кнопку "Закрыть" - документ не изменялся - 1С попросила сохранить документ. Пользователь не согласился и при следующем открытии многострочная часть документа была с строками.

DAS_Alex, исправляйте базу.