Очистить план счетов, и все с ним связанное, как?

SergeyY

18.06.2009 - 11:05

Хочу заново загрузить план счетов и всю аналитику. Чегото не нашел штатного средства. Плохо искал?

К списку тем

К списку форумов

Интересные темы

odines.ru

30.11.2025 - 13:40

Смотри также:
ЗиК Вычеты
СводнаяКарточкаУчетаЕСН
ШП для сверхнормативных выплат некорректна

Re: Очистить план счетов, и все с ним связанное, как?

roma n

1 - 18.06.2009 - 11:09

при загрузке нового ПС всё пометится на удаление само.

Re: Очистить план счетов, и все с ним связанное, как?

victuan

2 - 18.06.2009 - 11:10

(0) А ШП (шаблоны проводок) ты уже заводил?
Если нет, то просто удали *.dbf, в котором хранится план счетов (подсмотри в 1cv77.dd)
А вообще, возьми за правило: перед выполнением объемной операции (напр. загрузка плана счетов) делай бэкап. Если вдруги результаты не устроят, легко откатишься.

Re: Очистить план счетов, и все с ним связанное, как?

Толяныч

3 - 18.06.2009 - 11:17

Проводку по умолчанию, проводки в документах, в справочниках сотрудники, подразделениях тоже надо удалять.

Re: Очистить план счетов, и все с ним связанное, как?

SergeyY

4 - 18.06.2009 - 11:25

(1) неа. оно пытается прогрузить новую аналитику и глючит на одинаковых кодах
(2) заводил. таблички где "оно" лежит видел.
Клиент копирнул базу ЗиК с другой конторы. Грохнули всех работников и мило работали себе годик. Потом решили данные сливать в бухию, а в бухии план счетов и аналитика то другая, не от этой базы!!!
(3) дак я сам знаю чо удалить надо. я ищу готовое решение чтоб "велосипед" не ваять

Re: Очистить план счетов, и все с ним связанное, как?

Толяныч

5 - 18.06.2009 - 11:28

// Моя обработка по очистке плана счетов и шаблонов
//Очищаем проводку по умолчанию (SHIFT+F4) и ставим программу бухучета -
//другая программа хозрасчетной организации
//*******************************************
Процедура Сформировать()

Расчеты = СоздатьОбъект("Справочник.ВидыРасчетов");
ВидСубконто = СоздатьОбъект("Справочник.ВидыСубконто");
ДопПроводки = СоздатьОбъект("Справочник.ДополнительныеПроводки");
ЗначСубконто = СоздатьОбъект("Справочник.ЗначенияСубконто");
ПлСчетов  = СоздатьОбъект("Справочник.ПланСчетов");
ШаблПроводок  = СоздатьОбъект("Справочник.ШаблоныПроводок");
Сотры = СоздатьОбъект("Справочник.Сотрудники");
Подразд = СоздатьОбъект("Справочник.Подразделения");

Расчеты.ВыбратьЭлементы();
Пока Расчеты.ПолучитьЭлемент() = 1 Цикл
Если Расчеты.ШаблонПроводки = "" Тогда
Продолжить;
Иначе
Расчеты.ШаблонПроводки = "";
Расчеты.Записать();
КонецЕсли;

КонецЦикла;

ВидСубконто.ВыбратьЭлементы();
Пока ВидСубконто.ПолучитьЭлемент() = 1 Цикл
Если ((ВидСубконто.Наименование = "Сотрудники") или (ВидСубконто.Наименование = "Подразделения")) Тогда
Продолжить;
Иначе
ВидСубконто.Удалить(0);
КонецЕсли;
КонецЦикла;

ЗначСубконто.ВыбратьЭлементы();
Пока ЗначСубконто.ПолучитьЭлемент() = 1 Цикл
ЗначСубконто.Удалить(0);
КонецЦикла;

ПлСчетов.ВыбратьЭлементы();
Пока ПлСчетов.ПолучитьЭлемент() = 1 Цикл
ПлСчетов.Удалить(0);
КонецЦикла;

ШаблПроводок.ВыбратьЭлементы();
Пока ШаблПроводок.ПолучитьЭлемент() = 1 Цикл
Если ((ШаблПроводок.Наименование = "Не отражать в бухгалтерском учете") или (ШаблПроводок.Наименование = "Пропорционально расчетной базе")) Тогда
Продолжить;
Иначе
ШаблПроводок.Удалить(0);
КонецЕсли;
КонецЦикла;

Сотры.ВыбратьЭлементы();
Пока Сотры.ПолучитьЭлемент() = 1 Цикл
Если Сотры.ШаблонПроводки = "" Тогда
Продолжить;
Иначе
Сотры.ШаблонПроводки = "";
Сотры.Записать();
КонецЕсли;
КонецЦикла;

Подразд.ВыбратьЭлементы();
Пока Подразд.ПолучитьЭлемент() = 1 Цикл
Если Подразд.ШаблонПроводки = "" Тогда
Продолжить;
Иначе
Подразд.ШаблонПроводки = "";
Подразд.Записать();
КонецЕсли;
КонецЦикла;

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