Сохранение документов

  • Автор темы Автор темы XOXOJI
  • Дата начала Дата начала
Удалять документы вместо того, чтобы правильно реализовать ввод на основании... готично, что еще тут можно сказать.
Готовимся к вопросу "Документы удаляются, а база все равно пухнет! 1С сакс" и все в этом роде.
 
Код:
Док=СоздатьОбъект("Документ.Залоговый");
Док1=СоздатьОбъект("Документ.НаТорги");
Док.ВыбратьДокументы();
Пока Док.ПолучитьДокумент() > 0 Цикл		 
Если Док.Льгот<ДатТ Тогда			 
Док1.Новый();
Док1.НомерЗал=Док.НомерДок;
Док1.Метка="Нет"; 
сообщить (""+Док.ТекущийДокумент());
док1.номердок=док1.номерзал;
сообщить (""+Док1.ТекущийДокумент()); 

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

создал новую базу, загрузил тот конфиг, все стало нормально работать... что делать... базу сносить низя... (

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

но они всетаки были :)
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab