Задача - Объект изменен Изменены строки (2, 2) <--- Идентификатор "УРС Бухгалтерский учет, редакция 4.538" -->- Идентификатор "Бухгалтерский учет, редакция 4.5" Глобальный модуль - Объект изменен Текст - Объект изменен Добавлены строки (67, 74) <--// Shved <--// { <--// Глобальная переменная текущего пользователя <--Перем глПользователь Экспорт; <--Перем глВыход Экспорт; <--Перем shСпСчетовВзаиморасчетов Экспорт; <--// } Shved Добавлены строки (2402, 2408) <-- // Shved <-- // { <-- ИначеЕсли ТипЗначенияСтр(Расшифровка) = "ТаблицаЗначений" Тогда <-- Расшифровка.ВыбратьСтроку(); <-- // } Shved <-- Изменены строки (3016, 3019) <-- // Shved <-- // { в с/ф при смене покупателя сбрасывалось основание <-- //ДокОсн = ""; <-- // } Shved --> .......... --> --> ДокОсн = ""; Добавлены строки (5642, 5645) <--// Shved <--// { <--Процедура sh_ПриНачалеРаботыСистемы() Далее <--// } Shved Добавлены строки (5652, 5659) <-- // Shved <-- // { <-- Если (ФС.СуществуетФайл(КаталогИБ()+"Выход.txt")=1) и (ИмяПользователя()<>"SB") Тогда <-- СтатусВозврата(0); <-- Возврат; <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (5691, 5695) <-- // Shved <-- // { <-- sh_ПриНачалеРаботыСистемы(); <-- // } Shved <-- Добавлены строки (5918, 5925) <-- // Shved <-- // { <-- ИначеЕсли ИмяКонстанты = "ДатаЗапретаРедактирования" Тогда <-- СтЗначение = Константа.ДатаЗапретаРедактирования; <-- ЗаписьЖурналаРегистрации("Дата запрета редактирования: "+СокрЛП(СтЗначение)+" -> "+СокрЛП(Значение)+ <-- " "+СокрЛП(ИмяПользователя())+" "+СокрЛП(РабочаяДата())+" в "+СокрЛП(ТекущееВремя()),"Ай-яй-яй!","Сдвиг даты!",,4); <-- // } Shved <-- Изменены строки (6153, 6153) <-- Если (ЗапрашиватьПодтверждениеПриВыходе = 1) и (глВыход = 0) Тогда --> Если ЗапрашиватьПодтверждениеПриВыходе = 1 Тогда Добавлены строки (7096, 7100) <--// Shved <--// { <--Процедура глДобавитьИзДокумента(Конт) Экспорт Далее <--// } Shved Добавлены строки (7141, 7162) <-- // Shved <-- // { <-- ИначеЕсли Действие = "Установить цены" Тогда <-- ОткрытьФорму ("Отчет",Конт,КаталогИБ()+"\ExtErt\sh_SetCeny.ert"); <-- <-- ИначеЕсли Действие = "Выписку в РЦК" Тогда <-- ОткрытьФорму ("Отчет",Конт,КаталогИБ()+"\ExtErt\sh_ExpRCK.ert"); <-- <-- ИначеЕсли Действие = "ПП в РЦК" Тогда <-- ОткрытьФорму ("Отчет",Конт,КаталогИБ()+"\ExtErt\sh_PPExpRCK.ert"); <-- <-- ИначеЕсли Действие = "Реестр платежных документов" Тогда <-- ОткрытьФорму ("Отчет",Конт,КаталогИБ()+"\ExtErt\sh_РеестрПП.ert"); <-- <-- ИначеЕсли Действие = "Извещение по счету" Тогда <-- ОткрытьФорму ("Отчет",Конт,КаталогИБ()+"\ExtErt\sh_Извещение.ert"); <-- <-- ИначеЕсли Действие = "Добавить из документа" Тогда <-- глДобавитьИзДокумента(Конт); <-- <-- // } Shved <-- Изменены строки (9080, 9090) <-- // Shved <-- // { <-- <-- // закоментировали, т.к. после сменили аналитику на 20ом счете <-- //Если ПустоеЗначение(ВидНоменклатуры) = 0 Тогда <-- // Если ВидНоменклатуры.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда <-- // СчетНУ = ПолучитьПустоеЗначение("Счет"); <-- // КонецЕсли; <-- //КонецЕсли; <-- <-- // } Shved --> .......... --> --> Если ПустоеЗначение(ВидНоменклатуры) = 0 Тогда --> Если ВидНоменклатуры.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда --> СчетНУ = ПолучитьПустоеЗначение("Счет"); --> КонецЕсли; --> КонецЕсли; Изменены строки (9797, 9814) <-- // Shved <-- // { <-- // закоментировали, т.к. после смены аналитики на 20 счете, исчезло - СтатьиЗатратНаПроизводство <-- // для ТребованияНакладной <-- <-- //СтатьяЗатрат = ОбъектыАналитикиБУ.Получить("СтатьиЗатратНаПроизводство"); <-- //Сообщить(" СтатьяЗатрат = "+СокрЛП(СтатьяЗатрат)); <-- //ВидРасходов = СтатьяЗатрат.ВидРасходовДляНалоговогоУчета; <-- // <-- //Если (ВидРасходов <> Перечисление.ГруппыВидыРасходов.ГарантийныйРемонтИОбслуживание) И <-- //(ВидРасходов <> Перечисление.ГруппыВидыРасходов.ПредставительскиеРасходы) И <-- //(ВидРасходов <> Перечисление.ГруппыВидыРасходов.РасходыНаРекламу) И <-- //(ВидРасходов <> Перечисление.ГруппыВидыРасходов.ГарантийныйРемонтИОбслуживание) И <-- //(ПустоеЗначение(ВидРасходов) = 0) Тогда <-- // глОпределитьПрямыеРасходыПроизводства(Субконто1, Субконто2, Субконто3, ОбъектыАналитикиНУ, ПереченьСтатейЗатрат, СчетКт); <-- //Иначе <-- // глОпределитьСтатьюРасходовНУ(Счет, ОбъектыАналитикиБУ, ОбъектыАналитикиНУ, Конт.ДатаДок); <-- //КонецЕсли; --> .......... --> --> СтатьяЗатрат = ОбъектыАналитикиБУ.Получить("СтатьиЗатратНаПроизводство"); --> ВидРасходов = СтатьяЗатрат.ВидРасходовДляНалоговогоУчета; Изменены строки (9816, 9824) <-- // } Shved --> Если (ВидРасходов <> Перечисление.ГруппыВидыРасходов.ГарантийныйРемонтИОбслуживание) И --> (ВидРасходов <> Перечисление.ГруппыВидыРасходов.ПредставительскиеРасходы) И --> (ВидРасходов <> Перечисление.ГруппыВидыРасходов.РасходыНаРекламу) И --> (ВидРасходов <> Перечисление.ГруппыВидыРасходов.ГарантийныйРемонтИОбслуживание) И --> (ПустоеЗначение(ВидРасходов) = 0) Тогда --> глОпределитьПрямыеРасходыПроизводства(Субконто1, Субконто2, Субконто3, ОбъектыАналитикиНУ, ПереченьСтатейЗатрат, СчетКт); --> Иначе --> глОпределитьСтатьюРасходовНУ(Счет, ОбъектыАналитикиБУ, ОбъектыАналитикиНУ, Конт.ДатаДок); --> КонецЕсли; Добавлены строки (23846, 24782) <--// Shved <--// { <--//****************************************************************************** <--// глДобавитьИзДокумента(Док) <--// <--// Параметры: <--// Док - Документ. <--// <--// Описание: <--// Добавляет строки в документ из другого документа. <--// <--Процедура глДобавитьИзДокумента(Конт) Экспорт <-- <-- Докум = СоздатьОбъект("Документ"); <-- <-- Если Конт.Вид()="ТребованиеНакладная" Тогда <-- СписокВидов="ПоступлениеМатериалов"; <-- ИначеЕсли Конт.Вид()="ВозвратИзТорговойТочки" Тогда <-- СписокВидов="ПеремещениеЕНВД"; <-- Иначе <-- СписокВидов="ПоступлениеТоваров"; <-- КонецЕсли; <-- <-- Докум.ВидыДляВыбора(СписокВидов); <-- Если Докум.Выбрать("Выбор документа для добавления")=0 Тогда <-- Возврат; <-- КонецЕсли; <-- <-- КонтВид=Докум.Вид(); <-- ТабТов=СоздатьОбъект("ТаблицаЗначений"); <-- Конт.ВыгрузитьТабличнуюЧасть(ТабТов); <-- <-- Если Конт.Вид()="РасходнаяНакладная" Тогда <-- Докум.ВыбратьСтроки(); <-- Пока Докум.ПолучитьСтроку()=1 Цикл <-- НомСтр=0; <-- НомСтрДоп = 0; <-- Товар=Докум.Товар; <-- ЕстьТовар=0; <-- //Если Товар.ВидТовара=Перечисление.ВидыТоваров.Услуга Тогда <-- // Продолжить; <-- //КонецЕсли; <-- Если ТабТов.НайтиЗначение(Товар,НомСтр,"Товар")=1 Тогда <-- // Такое товар уже есть в документе <-- Конт.ПолучитьСтрокуПоНомеру(НомСтр); <-- ЕстьТовар=1; <-- Иначе <-- Конт.НоваяСтрока(); <-- Конт.Товар =Товар; <-- ТабТов.НоваяСтрока(); <-- ТабТов.Товар =Товар; <-- КонецЕсли; <-- <-- Если ЕстьТовар=0 Тогда <-- Если (Конт.ТипЦен.Выбран() = 1) или (Константа.ИспользоватьТипыЦен = Нет) Тогда <-- ЗнЦены = глПолучитьЦену(Конт,Товар,Конт.ТипЦен,Конт.ДатаДок, ?(Конт.Договор.Выбран() = 0,"",Конт.Договор.ВалютаДоговора), Конт.Курс); <-- // ЗнЦены = глПолучитьЦену(Контекст,Товар,Конт.ТипЦен,ДатаДок,?(Договор.Выбран() = 0,"",Договор.ВалютаДоговора),Курс) <-- Конт.Цена=ЗнЦены; <-- КонецЕсли; <-- КонецЕсли; <-- <-- <-- Если КонтВид="ПоступлениеТоваров" Тогда <-- Конт.Количество=Конт.Количество+Докум.Количество; <-- КонецЕсли; <-- <-- Конт.Сумма = Конт.Цена * Конт.Количество; <-- <-- Конт.НДС = глПоказательДокумента(Конт, "НДС"); <-- Конт.НП = глПоказательДокумента(Конт, "НП"); <-- Конт.Всего = глПоказательДокумента(Конт, "СуммаСНалогами"); <-- <-- КонецЦикла; <-- ИначеЕсли Конт.Вид()="ПеремещениеЕНВД" Тогда <-- Докум.ВыбратьСтроки(); <-- Пока Докум.ПолучитьСтроку()=1 Цикл <-- НомСтр=0; <-- НомСтрДоп = 0; <-- Товар=Докум.Товар; <-- ЕстьТовар=0; <-- //Если Товар.ВидТовара=Перечисление.ВидыТоваров.Услуга Тогда <-- // Продолжить; <-- //КонецЕсли; <-- Если ТабТов.НайтиЗначение(Товар,НомСтр,"Товар")=1 Тогда <-- // Такое товар уже есть в документе <-- Конт.ПолучитьСтрокуПоНомеру(НомСтр); <-- ЕстьТовар=1; <-- Иначе <-- Конт.НоваяСтрока(); <-- Конт.Товар =Товар; <-- ТабТов.НоваяСтрока(); <-- ТабТов.Товар =Товар; <-- КонецЕсли; <-- <-- Если ЕстьТовар=0 Тогда <-- Если (Конт.ТипЦен.Выбран() = 1) или (Константа.ИспользоватьТипыЦен = Нет) Тогда <-- ЗнЦены = глПолучитьЦену(Конт,Товар,Конт.ТипЦен,Конт.ДатаДок,"",""); <-- // ЗнЦены = глПолучитьЦену(Контекст,Товар,Конт.ТипЦен,ДатаДок,?(Договор.Выбран() = 0,"",Договор.ВалютаДоговора),Курс) <-- Конт.ЦенаПродажи=ЗнЦены; <-- КонецЕсли; <-- КонецЕсли; <-- <-- Если КонтВид="ПоступлениеТоваров" Тогда <-- Конт.Количество=Конт.Количество+Докум.Количество; <-- Конт.Всего = Конт.Количество*Конт.ЦенаПродажи; <-- КонецЕсли; <-- <-- КонецЦикла; <-- <-- // Shved <-- // { <-- ИначеЕсли Конт.Вид()="Перемещение" Тогда <-- <-- Докум.ВыбратьСтроки(); <-- Пока Докум.ПолучитьСтроку()=1 Цикл <-- НомСтр = 0; <-- НомСтрДоп = 0; <-- Товар = Докум.Товар; <-- ЕстьТовар = 0; <-- //Если Товар.ВидТовара=Перечисление.ВидыТоваров.Услуга Тогда <-- // Продолжить; <-- //КонецЕсли; <-- Если ТабТов.НайтиЗначение(Товар,НомСтр,"Товар")=1 Тогда <-- // Такое товар уже есть в документе <-- Конт.ПолучитьСтрокуПоНомеру(НомСтр); <-- ЕстьТовар = 1; <-- Иначе <-- Конт.НоваяСтрока(); <-- Конт.Товар = Товар; <-- ТабТов.НоваяСтрока(); <-- ТабТов.Товар = Товар; <-- КонецЕсли; <-- <-- //Если ЕстьТовар=0 Тогда <-- // Если (Конт.ТипЦен.Выбран() = 1) или (Константа.ИспользоватьТипыЦен = Нет) Тогда <-- // ЗнЦены = глПолучитьЦену(Конт,Товар,Конт.ТипЦен,Конт.ДатаДок,"",""); <-- // // ЗнЦены = глПолучитьЦену(Контекст,Товар,Конт.ТипЦен,ДатаДок,?(Договор.Выбран() = 0,"",Договор.ВалютаДоговора),Курс) <-- // Конт.ЦенаПродажи=ЗнЦены; <-- // КонецЕсли; <-- //КонецЕсли; <-- <-- Если КонтВид="ПоступлениеТоваров" Тогда <-- Конт.Количество = Конт.Количество + Докум.Количество; <-- Конт.Всего = Конт.Количество * Конт.Цена; <-- КонецЕсли; <-- КонецЦикла; <-- <-- ИначеЕсли Конт.Вид()="ВозвратИзТорговойТочки" Тогда <-- <-- Докум.ВыбратьСтроки(); <-- Пока Докум.ПолучитьСтроку()=1 Цикл <-- <-- Конт.НоваяСтрока(); <-- Конт.Товар = Докум.Товар; <-- Конт.Количество = Докум.Количество; <-- Конт.ЦенаПродажи = Докум.ЦенаПродажи; <-- Конт.Всего = Докум.Всего; <-- Конт.ЦенаУчет = Докум.ЦенаУчет; <-- Конт.ВсегоУчет = Докум.ВсегоУчет; <-- <-- КонецЦикла; <-- <-- ИначеЕсли Конт.Вид()="ТребованиеНакладная" Тогда <-- <-- Докум.ВыбратьСтроки(); <-- Пока Докум.ПолучитьСтроку()=1 Цикл <-- //НомСтр = 0; <-- //НомСтрДоп = 0; <-- //Материал = Докум.Материал; <-- //ЕстьТовар = 0; <-- ////Если Товар.ВидТовара=Перечисление.ВидыТоваров.Услуга Тогда <-- //// Продолжить; <-- ////КонецЕсли; <-- //Если ТабТов.НайтиЗначение(Товар,НомСтр,"Материал")=1 Тогда <-- // // Такое товар уже есть в документе <-- // Конт.ПолучитьСтрокуПоНомеру(НомСтр); <-- // ЕстьТовар = 1; <-- //Иначе <-- Конт.НоваяСтрока(); <-- Конт.Материал = Докум.Материал; <-- Конт.КоличествоЗатребовано = Докум.Количество; <-- Конт.КоличествоОтпущено = Докум.Количество; <-- //ТабТов.НоваяСтрока(); <-- //ТабТов.Товар = Товар; <-- //КонецЕсли; <-- // <-- ////Если ЕстьТовар=0 Тогда <-- //// Если (Конт.ТипЦен.Выбран() = 1) или (Константа.ИспользоватьТипыЦен = Нет) Тогда <-- //// ЗнЦены = глПолучитьЦену(Конт,Товар,Конт.ТипЦен,Конт.ДатаДок,"",""); <-- //// // ЗнЦены = глПолучитьЦену(Контекст,Товар,Конт.ТипЦен,ДатаДок,?(Договор.Выбран() = 0,"",Договор.ВалютаДоговора),Курс) <-- //// Конт.ЦенаПродажи=ЗнЦены; <-- //// КонецЕсли; <-- ////КонецЕсли; <-- // <-- //Если КонтВид="ПоступлениеТоваров" Тогда <-- // Конт.Количество = Конт.Количество + Докум.Количество; <-- // Конт.Всего = Конт.Количество * Конт.Цена; <-- //КонецЕсли; <-- <-- КонецЦикла; <-- // } Shved <-- <-- КонецЕсли; <-- <--КонецПроцедуры // глДобавитьИзДокумента() <--//****************************************************************************** <--// <--Функция sh_ПроверкаДубля(Конт) Экспорт <-- <-- Если ПустаяСтрока(Конт.НомерДокВходящий)=1 Тогда <-- Возврат (1); <-- КонецЕсли; <-- <-- МаксДата = Макс (Конт.ДатаДок,Конт.ДатаДокВходящий); <-- МинДата = Мин (Конт.ДатаДок,Конт.ДатаДокВходящий); <-- <-- Док = СоздатьОбъект("Документ."+Конт.Вид()); <-- Док.ВыбратьДокументы(МинДата,МаксДата); <-- Пока Док.ПолучитьДокумент()=1 Цикл <-- Если (Док.Контрагент = Конт.Контрагент) и (СокрЛП(Док.НомерДокВходящий)=СокрЛП(Конт.НомерДокВходящий)) Тогда <-- Если Конт.ТекущийДокумент()=Док.ТекущийДокумент() Тогда <-- Продолжить; <-- КонецЕсли; <-- Возврат (Док.ТекущийДокумент()); <-- КонецЕсли; <-- КонецЦикла; <-- Возврат (1); <-- <--КонецФункции //sh_ПроверкаДубля(Конт) <--//****************************************************************************** <--// <--Функция ЭтоЦентр() Экспорт <-- Возврат (Метаданные.Константа("sh_Филиал").Выбран()); <--КонецФункции //ЭтоЦентр <--//****************************************************************************** <--// <--Процедура sh_ПроведениеБюджета(Конт) Экспорт <-- <-- Если (Конт.ДатаДок < Константа.sh_ДатаНачалаБюджетирования) или <-- (ПустоеЗначение(Константа.sh_ДатаНачалаБюджетирования)=1) Тогда <-- Возврат; <-- КонецЕсли; <-- <-- СчБДДС = СчетПоКоду("БДС"); <-- СчБДР = СчетПоКоду("БДР"); <-- <-- КонтВид = Конт.Вид(); <-- Если КонтВид = "Выписка" Тогда <-- Конт.ВыбратьСтроки(); <-- Пока Конт.ПолучитьСтроку()=1 Цикл <-- //Если Конт.СтатьяДДС.Выбран()=1 Тогда <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = СокрЛП(Конт.ВидДвижения); <-- Конт.Операция.ПервичныйДокумент = "Выписка №"+глПредставлениеПервичногоДокумента(Конт); <-- Если Конт.Приход > 0 Тогда <-- Конт.Операция.Дебет.Счет = СчБДДС; <-- Если Конт.СтатьяДДС.Выбран()=1 Тогда <-- СтатьяДДС = Конт.СтатьяДДС; <-- Иначе <-- СтатьяДДС = Конт.ВидДвижения.СтатьяДДС; <-- КонецЕсли; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Дебет.sh_СтатьиБДДС = СтатьяДДС; <-- <-- Для А = 1 По 3 Цикл <-- Тип = ТипЗначенияСтр(Конт.ПолучитьАтрибут("Субконто"+А)); <-- Если Тип = "Справочник" Тогда <-- Если Конт.ПолучитьАтрибут("Субконто"+А).Вид() = "Контрагенты" Тогда <-- Конт.Операция.Дебет.Контрагенты = Конт.ПолучитьАтрибут("Субконто"+А); <-- КонецЕсли; <-- КонецЕсли; <-- КонецЦикла; <-- <-- ИначеЕсли Конт.Расход > 0 Тогда <-- Конт.Операция.Кредит.Счет = СчБДДС; <-- Если Конт.СтатьяДДС.Выбран()=1 Тогда <-- СтатьяДДС = Конт.СтатьяДДС; <-- Иначе <-- СтатьяДДС = Конт.ВидДвижения.СтатьяДДС; <-- КонецЕсли; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Кредит.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Кредит.sh_СтатьиБДДС = СтатьяДДС; <-- <-- Для А = 1 По 3 Цикл <-- Тип = ТипЗначенияСтр(Конт.ПолучитьАтрибут("Субконто"+А)); <-- Если Тип = "Справочник" Тогда <-- Если Конт.ПолучитьАтрибут("Субконто"+А).Вид() = "Контрагенты" Тогда <-- Конт.Операция.Кредит.Контрагенты = Конт.ПолучитьАтрибут("Субконто"+А); <-- КонецЕсли; <-- КонецЕсли; <-- КонецЦикла; <-- <-- КонецЕсли; <-- Конт.Операция.Сумма = Конт.Приход + Конт.Расход; <-- <-- //Иначе <-- // <-- // Сообщить("В строке №"+СокрЛП(Конт.НомерСтроки)+" не указана статья БДДС!","!"); <-- // <-- //КонецЕсли; <-- КонецЦикла; <-- <-- ИначеЕсли КонтВид = "ПриходныйОрдер" Тогда <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = СокрЛП(Конт.Основание); <-- Конт.Операция.ПервичныйДокумент = "ПКО №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Дебет.Счет = СчБДДС; <-- Если Конт.СтатьяДДС.Выбран()=1 Тогда <-- СтатьяДДС = Конт.СтатьяДДС; <-- Иначе <-- СтатьяДДС = Конт.ДвижениеДенежныхСредств.СтатьяДДС; <-- КонецЕсли; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- <-- Конт.Операция.Дебет.sh_СтатьиБДДС = СтатьяДДС; <-- Конт.Операция.Сумма = Конт.Сумма; <-- <-- Для А = 1 По 3 Цикл <-- Тип = ТипЗначенияСтр(Конт.ПолучитьАтрибут("Субконто"+А)); <-- Если Тип = "Справочник" Тогда <-- Если Конт.ПолучитьАтрибут("Субконто"+А).Вид() = "Контрагенты" Тогда <-- Конт.Операция.Дебет.Контрагенты = Конт.ПолучитьАтрибут("Субконто"+А); <-- КонецЕсли; <-- КонецЕсли; <-- КонецЦикла; <-- <-- ИначеЕсли КонтВид = "РасходныйОрдер" Тогда <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = СокрЛП(Конт.Основание); <-- Конт.Операция.ПервичныйДокумент = "РКО №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Кредит.Счет = СчБДДС; <-- Если Конт.СтатьяДДС.Выбран()=1 Тогда <-- СтатьяДДС = Конт.СтатьяДДС; <-- Иначе <-- СтатьяДДС = Конт.ДвижениеДенежныхСредств.СтатьяДДС; <-- КонецЕсли; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Кредит.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Кредит.sh_СтатьиБДДС = СтатьяДДС; <-- Конт.Операция.Сумма = Конт.Сумма; <-- <-- Для А = 1 По 3 Цикл <-- Тип = ТипЗначенияСтр(Конт.ПолучитьАтрибут("Субконто"+А)); <-- Если Тип = "Справочник" Тогда <-- Если Конт.ПолучитьАтрибут("Субконто"+А).Вид() = "Контрагенты" Тогда <-- Конт.Операция.Кредит.Контрагенты = Конт.ПолучитьАтрибут("Субконто"+А); <-- КонецЕсли; <-- КонецЕсли; <-- КонецЦикла; <-- <-- ИначеЕсли КонтВид = "ПоступлениеТоваров" Тогда <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Поступление товаров"; <-- Конт.Операция.ПервичныйДокумент = "Пост.товаров №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Кредит.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Кредит.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Кредит.sh_СтатьиБДР = Конт.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Итог("Всего"); <-- <-- ИначеЕсли КонтВид = "УслугиСтороннихОрганизаций" Тогда <-- <-- Конт.ВыбратьСтроки(); <-- Пока Конт.ПолучитьСтроку()=1 Цикл <-- Если Конт.КоррСчет.ПринадлежитГруппе(СчетПоКоду("44.1"))=1 Тогда <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Оказание услуг"; <-- Конт.Операция.ПервичныйДокумент = "Оказание услуг №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Дебет.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Дебет.sh_СтатьиБДР = Конт.Субконто1.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Сумма; <-- <-- ИначеЕсли Конт.КоррСчет = СчетПоКоду("91.2") Тогда <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Оказание услуг"; <-- Конт.Операция.ПервичныйДокумент = "Оказание услуг №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Кредит.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Кредит.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Кредит.sh_СтатьиБДР = Конт.Субконто1.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Сумма; <-- <-- КонецЕсли; <-- КонецЦикла; <-- <-- ИначеЕсли КонтВид = "АвансовыйОтчет" Тогда <-- <-- Конт.ВыбратьСтроки(); <-- Пока Конт.ПолучитьСтроку()=1 Цикл <-- Если Конт.КоррСчет.ПринадлежитГруппе(СчетПоКоду("44.1"))=1 Тогда <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = Конт.КомуЗаЧто; <-- Конт.Операция.ПервичныйДокумент = "Авансовый отчет №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Кредит.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Кредит.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Кредит.sh_СтатьиБДР = Конт.Субконто1.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Сумма - Конт.НДС; <-- <-- ИначеЕсли Конт.КоррСчет.ПринадлежитГруппе(СчетПоКоду("91.2"))=1 Тогда <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = Конт.КомуЗаЧто; <-- Конт.Операция.ПервичныйДокумент = "Авансовый отчет №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Кредит.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Кредит.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Кредит.sh_СтатьиБДР = Конт.Субконто1.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Сумма - Конт.НДС; <-- <-- КонецЕсли; <-- КонецЦикла; <-- <-- ИначеЕсли КонтВид = "РасходнаяНакладная" Тогда <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Отгрузка товаров, продукции"; <-- Конт.Операция.ПервичныйДокумент = "Отгрузка №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Дебет.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Дебет.sh_СтатьиБДР = Конт.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Итог("Всего"); <-- <-- ИначеЕсли КонтВид = "ОказаниеУслуг" Тогда <-- <-- Если Конт.ТипУслуги = 3 Тогда <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Бухгалтерская справка"; <-- Конт.Операция.ПервичныйДокумент = "Бухгалтерская справка №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Дебет.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Дебет.sh_СтатьиБДР = Конт.СтатьяПрочихДоходовИРасходов.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Итог("Всего") - Конт.Итог("НДС"); <-- КонецЕсли; <-- <-- ИначеЕсли КонтВид = "ТребованиеНакладная" Тогда <-- <-- Если Конт.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("44.1"))=1 Тогда <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Передача в производство"; <-- Конт.Операция.ПервичныйДокумент = "Передача в производство №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Дебет.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Дебет.sh_СтатьиБДР = Конт.Субконто1.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Операция.СуммаОперации; <-- <-- КонецЕсли; <-- <-- //ИначеЕсли КонтВид = "ПередачаМатериаловСпецназначенияВПроизводство" Тогда <-- // <-- // Если Конт.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("44.1"))=1 Тогда <-- // <-- // Конт.Операция.НоваяПроводка(); <-- // Конт.Операция.НомерЖурнала = "БЮ"; <-- // Конт.Операция.СодержаниеПроводки = "Передача материалов в эксплуатацию"; <-- // Конт.Операция.ПервичныйДокумент = "Передача материалов в эксплуатацию №"+глПредставлениеПервичногоДокумента(Конт); <-- // Конт.Операция.Дебет.Счет = СчБДР; <-- // Если ЭтоЦентр() = 1 Тогда <-- // Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- // КонецЕсли; <-- // Конт.Операция.Дебет.sh_СтатьиБДР = Конт.Субконто1.СтатьяДР; <-- // Конт.Операция.Сумма = Конт.Всего; <-- // <-- // КонецЕсли; <-- // <-- ИначеЕсли КонтВид = "БухгалтерскаяСправка" Тогда <-- <-- Конт.ВыбратьСтроки(); <-- Пока Конт.ПолучитьСтроку()=1 Цикл <-- Если Конт.СчетДт.ПринадлежитГруппе(СчетПоКоду("44.1"))=1 Тогда <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Бухгалтерская справка"; <-- Конт.Операция.ПервичныйДокумент = "Бухгалтерская справка №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Дебет.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Дебет.sh_СтатьиБДР = Конт.СубконтоДт1.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Сумма; <-- <-- ИначеЕсли Конт.СчетКт = СчетПоКоду("91.1") Тогда // прочие доходы <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Бухгалтерская справка"; <-- Конт.Операция.ПервичныйДокумент = "Бухгалтерская справка №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Дебет.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Дебет.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Дебет.sh_СтатьиБДР = Конт.СубконтоКт1.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Сумма; <-- <-- ИначеЕсли Конт.СчетКт = СчетПоКоду("91.2") Тогда // прочие расходы <-- <-- Конт.Операция.НоваяПроводка(); <-- Конт.Операция.НомерЖурнала = "БЮ"; <-- Конт.Операция.СодержаниеПроводки = "Бухгалтерская справка"; <-- Конт.Операция.ПервичныйДокумент = "Бухгалтерская справка №"+глПредставлениеПервичногоДокумента(Конт); <-- Конт.Операция.Кредит.Счет = СчБДР; <-- Если ЭтоЦентр() = 1 Тогда <-- Конт.Операция.Кредит.sh_Филиалы = Константа.sh_Филиал; <-- КонецЕсли; <-- Конт.Операция.Кредит.sh_СтатьиБДР = Конт.СубконтоКт1.СтатьяДР; <-- Конт.Операция.Сумма = Конт.Сумма; <-- <-- КонецЕсли; <-- КонецЦикла; <-- <-- КонецЕсли; <-- <--КонецПроцедуры <--//****************************************************************************** <--// <--Функция С(Ч) Экспорт <-- Возврат (СокрЛП(Формат(Ч,"Ч015.2.,"))); <--КонецФункции //С <--//****************************************************************************** <--// <--Функция Месяц(Д) <-- <-- Возврат (Перечисление.sh_Месяцы.ЗначениеПоНомеру(ДатаМесяц(Д))); <-- <--КонецФункции //Месяц <--//****************************************************************************** <--// <--Функция ПланСтатьи(Конт,Статья,Д) Экспорт <-- <-- БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); <-- <-- Если Статья.Вид()="sh_СтатьиБДДС" Тогда <-- Сч = СчетПоКоду ("ПЛ.ДС"); <-- БухИт.ИспользоватьСубконто(ВидыСубконто.sh_СтатьиБДДС, Статья, 2); <-- ИначеЕсли Статья.Вид()="sh_СтатьиБДР" Тогда <-- Сч = СчетПоКоду ("ПЛ.ДР"); <-- БухИт.ИспользоватьСубконто(ВидыСубконто.sh_СтатьиБДР, Статья, 2); <-- КонецЕсли; <-- <-- БухИт.ИспользоватьСубконто(ВидыСубконто.sh_Месяцы, Месяц(Д), 2); <-- БухИт.ВыполнитьЗапрос(НачГода(Д),Мин(КонГода(Д),КонецПериодаБИ()),Сч,,,,,"С"); <-- <-- Возврат (БухИт.СКД("С")+БухИт.СКК("С")); <-- <--КонецФункции //ПланСтатьи(Конт,Статья,Д) <--//****************************************************************************** <--// <--Функция ФактСтатьи(Конт,Статья,Д) Экспорт <-- <-- БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); <-- <-- Если Статья.Вид()="sh_СтатьиБДДС" Тогда <-- Сч = СчетПоКоду ("БДС"); <-- БухИт.ИспользоватьСубконто(ВидыСубконто.sh_СтатьиБДДС, Статья, 2); <-- ИначеЕсли Статья.Вид()="sh_СтатьиБДР" Тогда <-- Сч = СчетПоКоду ("БДР"); <-- БухИт.ИспользоватьСубконто(ВидыСубконто.sh_СтатьиБДР, Статья, 2); <-- КонецЕсли; <-- <-- БухИт.ВыполнитьЗапрос(НачМесяца(Д),КонМесяца(Д),Сч,,,,,"С"); <-- <-- Возврат (БухИт.ДО("С")+БухИт.КО("С")); <-- <--КонецФункции //ФактСтатьи(Конт,Статья,Д) <--//****************************************************************************** <--// <--Функция ОстатокСтатьи(Конт,Статья,Д) Экспорт <-- <-- //Сообщить("ПланСтатьи(Конт,Статья,Д) = "+СокрЛП(ПланСтатьи(Конт,Статья,Д))); <-- //Сообщить("ФактСтатьи(Конт,Статья,Д) = "+СокрЛП(ФактСтатьи(Конт,Статья,Д))); <-- <-- Если Статья.Выбран()=0 <-- Тогда <-- Возврат (0); <-- КонецЕсли; <-- <-- Возврат (ПланСтатьи(Конт,Статья,Д) - ФактСтатьи(Конт,Статья,Д)); <-- <--КонецФункции //ОстатокСтатьи(Статья) <--//****************************************************************************** <--// <--Функция ФД(Д) Экспорт <-- Возврат (СокрЛП(Формат(Д,"Д(0)ДДММММГГГГ"))); <--КонецФункции //ФД <--//****************************************************************************** <--// <--Функция ФД4(Д) Экспорт <-- Д4 = СокрЛП(Формат(Д,"Д(0)ДДММГГГГ")); <-- Возврат (Лев(Д4,6))+ДатаГод(Д); <--КонецФункции //ФД <--//****************************************************************************** <--// <--Процедура ВывестиТЗ(тз,Заголовок="Вывод ТЗ",Таб="") Экспорт <-- <-- Если тз.КоличествоСтрок()=0 Тогда <-- Сообщить("В тз нет строк"); <-- Возврат; <-- КонецЕсли; <-- <-- Если Таб="" Тогда <-- Таб = СоздатьОбъект("Таблица"); <-- Таб.ИсходнаяТаблица(КаталогИБ()+"\ExtErt\ВыводТЗ.mxl"); <-- КонецЕсли; <-- <-- Таб.ВывестиСекцию("Заголовок"); <-- Таб.ВывестиСекцию("Шапка|Начало"); <-- Для i=1 По тз.КоличествоКолонок() Цикл <-- ИмяК = тз.ПолучитьПараметрыКолонки(i); <-- Таб.ПрисоединитьСекцию("Шапка|Колонка_1"); <-- КонецЦикла; <-- <-- Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); <-- <-- тз.ВыбратьСтроки(); <-- Пока тз.ПолучитьСтроку()=1 Цикл <-- Состояние ("Вывод тз: "+СокрЛП(тз.КоличествоСтрок()-тз.НомерСтроки)); <-- Таб.ВывестиСекцию("Строка_1|Начало"); <-- Для i=1 По тз.КоличествоКолонок() Цикл <-- Тип = ""; <-- Длина = ""; <-- Точность= ""; <-- ИмяК = тз.ПолучитьПараметрыКолонки(i,Тип,Длина,Точность); <-- ЗнК = тз.ПолучитьЗначение(тз.НомерСтроки,i); <-- Если Тип="Число" Тогда <-- ЗнК = Формат (ЗнК,"Ч"+СокрЛП(Длина)+"."+СокрЛП(Точность)+",'"); <-- ИначеЕсли Тип="Дата" Тогда <-- ЗнК = Формат (ЗнК,"ДДДММГГГГ"); <-- КонецЕсли; <-- Таб.ПрисоединитьСекцию("Строка_1|Колонка_1"); <-- Если ТипЗначения(ЗнК)="ТаблицаЗначений" Тогда <-- ВывестиТЗ(ЗнК,"",Таб) <-- КонецЕсли; <-- КонецЦикла; <-- КонецЦикла; <-- <-- Таб.ВывестиСекцию("Подвал|Начало"); <-- Для i=1 По тз.КоличествоКолонок() Цикл <-- ЗнК = ""; <-- Тип = ""; <-- Длина = ""; <-- Точность= ""; <-- ИмяК = тз.ПолучитьПараметрыКолонки(i,Тип,Длина,Точность); <-- Если Тип="Число" Тогда <-- Если Длина = 6 Тогда <-- Иначе <-- ЗнК = Формат (тз.Итог(ИмяК),"Ч"+СокрЛП(Длина)+"."+СокрЛП(Точность)+",'"); <-- КонецЕсли; <-- КонецЕсли; <-- Таб.ПрисоединитьСекцию("Подвал|Колонка_1"); <-- КонецЦикла; <-- <-- //Таб.ВывестиСекцию("Подвал"); <-- Таб.ТолькоПросмотр(1); <-- Таб.Показать(Заголовок,""); <-- <--КонецПроцедуры //ВывестиТЗ(тз) <--//****************************************************************************** <--// <--Функция sh_КраткоФИО(Сотр,Реж=1) Экспорт <-- <-- СпИмя = СоздатьОбъект ("СписокЗначений"); <-- СтрИмя = Сотр.Наименование; <-- СтрИмя = """"+СтрЗаменить(СтрИмя," ",""",""")+""""; <-- <-- СпИмя.ИзСтрокиСРазделителями(СтрИмя); <-- <-- Если Реж=1 Тогда <-- Возврат (СпИмя.ПолучитьЗначение(1,"")+" "+ <-- Лев(СпИмя.ПолучитьЗначение(2,""),1)+"."+ <-- Лев(СпИмя.ПолучитьЗначение(3,""),1)+"."); <-- КонецЕсли; <-- <--КонецФункции //sh_КраткоФИО(Сотр,Реж=1) <--//****************************************************************************** <--// <--Процедура Флаг() Экспорт <-- Если (ФС.СуществуетФайл(КаталогИБ()+"Выход.txt")=1) и (ИмяПользователя()<>"SB") Тогда <-- глВыход = 1; <-- ЗаписьЖурналаРегистрации("Выход по флагу","!",,,4); <-- ЗавершитьРаботуСистемы(0); <-- КонецЕсли; <--КонецПроцедуры //Флаг <--//****************************************************************************** <--// <--Функция КрайняяЦена(Товар,Конт) Экспорт <-- <-- СпрЦена = СоздатьОбъект("Справочник.Цены"); <-- СпрЦена.ИспользоватьВладельца(Товар); <-- <-- Если СпрЦена.НайтиПоРеквизиту("ТипЦен",Константа.ОсновнаяЦенаПриобретения,0)=1 Тогда <-- Пер = СоздатьОбъект("Периодический"); <-- Пер.ИспользоватьОбъект("Цена",СпрЦена.ТекущийЭлемент()); <-- Пер.ОбратныйПорядок(1); <-- //Пер.ВыбратьЗначения('01.01.2012',); <-- Пер.ВыбратьЗначения(); <-- Пер.ПолучитьЗначение(); <-- Если Пер.ТекущийДокумент()=Конт.ТекущийДокумент() Тогда <-- Пер.ПолучитьЗначение(); <-- КонецЕсли; <-- Если Пер.Значение>0 Тогда <-- Док = Пер.ТекущийДокумент(); <-- Если Док.Выбран()=1 Тогда <-- Возврат (СокрЛП(Док.НомерДок)+" "+СокрЛП(Пер.ДатаЗнач)+": "+С(Пер.Значение)); <-- Иначе <-- Возврат (""+СокрЛП(Пер.ДатаЗнач)+": "+С(Пер.Значение)); <-- КонецЕсли; <-- <-- КонецЕсли <-- КонецЕсли; <-- <-- Возврат (""); <-- <--КонецФункции //КрайняяЦена(Товар) <--//****************************************************************************** <--// <--Функция КрайняяЦенаЧ(Товар,Конт) Экспорт <-- <-- СпрЦена = СоздатьОбъект("Справочник.Цены"); <-- СпрЦена.ИспользоватьВладельца(Товар); <-- Если СпрЦена.НайтиПоРеквизиту("ТипЦен",Константа.ОсновнаяЦенаПриобретения,0)=1 Тогда <-- Пер = СоздатьОбъект("Периодический"); <-- Пер.ИспользоватьОбъект("Цена",СпрЦена.ТекущийЭлемент()); <-- Пер.ОбратныйПорядок(1); <-- Пер.ВыбратьЗначения(); <-- Пер.ПолучитьЗначение(); <-- Если Пер.ТекущийДокумент()=Конт.ТекущийДокумент() Тогда <-- Пер.ПолучитьЗначение(); <-- КонецЕсли; <-- Возврат (Пер.Значение); <-- Иначе <-- Возврат (0); <-- КонецЕсли; <-- <--КонецФункции //КрайняяЦенаЧ(Товар) <--//****************************************************************************** <--// <--Процедура sh_ПриНачалеРаботыСистемы() <-- <-- // установка текущего пользователя <-- Спр=СоздатьОбъект("Справочник.Пользователи"); <-- Если ПустоеЗначение(ИмяПользователя())=0 Тогда <-- Если Спр.НайтиПоКоду(ИмяПользователя())=0 Тогда <-- Спр.Новый(); <-- Спр.Код=ИмяПользователя(); <-- Спр.Наименование=ПолноеИмяПользователя(); <-- Спр.Наименование=?(ПустаяСтрока(Спр.Наименование)=1,ИмяПользователя(),Спр.Наименование); <-- Спр.Записать(); <-- Сообщить("Пользователь зарегистрирован в справочнике пользователей.", "."); <-- КонецЕсли; <-- Иначе <-- // При неизвестном пользователе позволяем работать только с интерфейсом Администратора <-- Если НазваниеИнтерфейса() = "Администратор" Тогда <-- Предупреждение("Пользователь системы не определен!", 60); <-- Сообщить("Пользователь системы не определен!", "!"); <-- Если Спр.НайтиПоКоду("НеАвторизован")=0 Тогда <-- Спр.Новый(); <-- Спр.Код = "НеАвторизован"; <-- Спр.Наименование = "Не авторизован"; <-- Спр.Записать(); <-- КонецЕсли; <-- Иначе <-- Предупреждение("Пользователь системы не определен! <-- |Обратитесь к администратору системы."); <-- СтатусВозврата(0); <-- Возврат; <-- КонецЕсли; <-- КонецЕсли; <-- глПользователь=Спр.ТекущийЭлемент(); <-- <-- ОбработкаОжидания("Флаг",60); <-- <--КонецПроцедуры //sh_ПриНачалеРаботыСистемы() <--//****************************************************************************** <--// глЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента) <--// <--// Параметры: <--// ИмяРеквизита - имя реквизита (строка) <--// ВидДокумента - вид документа (строка) <--// <--// Возвращаемое значение: <--// 0 - нет реквизита, <--// 1 - есть реквизит <--// <--// Описание: <--// Проверяет, есть ли в структуре метаданных документа указанного вида <--// реквизит шапки с указанным названием <--// <--Функция глЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента) Экспорт <-- <-- <-- Если ПустоеЗначение(ИмяРеквизита) = 1 Тогда <-- Возврат 0; <-- <-- ИначеЕсли Метаданные.ОбщийРеквизитДокумента(ИмяРеквизита).Выбран() = 1 Тогда <-- Возврат 1; <-- <-- ИначеЕсли ПустоеЗначение(ВидДокумента) = 1 Тогда <-- Возврат 0; <-- <-- ИначеЕсли Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита).Выбран() = 1 Тогда <-- Возврат 1; <-- <-- Иначе <-- Возврат 0; <-- КонецЕсли; <-- <--КонецФункции //глЕстьРеквизитШапки() <--//****************************************************************************** <--// глЕстьРеквизитМнЧ(ИмяРеквизита, ВидДокумента) <--// <--// Параметры: <--// ИмяРеквизита - имя реквизита (строка) <--// ВидДокумента - вид документа (строка) <--// <--// Возвращаемое значение: <--// 0 - нет реквизита, <--// 1 - есть реквизит <--// <--// Описание: <--// Проверяет, есть ли в структуре метаданных документа указанного вида <--// реквизит многострочной части с указанным названием <--// <--Функция глЕстьРеквизитМнЧ(ИмяРеквизита,ВидДокумента) Экспорт <-- Перем Реквизит; <-- Если (ПустоеЗначение(ВидДокумента) = 1) ИЛИ <-- (ПустоеЗначение(ИмяРеквизита) = 1) Тогда <-- Возврат 0; <-- КонецЕсли; <-- Реквизит=Метаданные.Документ(ВидДокумента).РеквизитТабличнойЧасти(ИмяРеквизита); <-- Возврат Реквизит.Выбран(); <--КонецФункции //глЕстьРеквизитМнЧ() <--//****************************************************************************** <--// <--Функция sh_ЗнакДокумента(Конт) Экспорт <-- <-- КонтВид = Конт.Вид(); <-- // положиттельных доков меньше, соберем по ним <-- // доки которые приносят нам бабки, или вызывают долг контрагента нам, т.е. создают Актив <-- // <-- ПоложительныеВиды = "ОперацияПоРасчСчету,РасходнаяНакладная,ОказаниеУслуг"; <-- Если Найти (ПоложительныеВиды,Конт.Вид())=0 Тогда <-- Возврат (-1); <-- Иначе <-- Возврат ( 1); <-- КонецЕсли; <-- <--КонецФункции //ЗнакДокумента <--//****************************************************************************** <--// <--Функция sh_СуммаДокумента(Док) Экспорт <-- <-- Если глЕстьРеквизитМнЧ("Всего",Док.Вид())=1 Тогда <-- Возврат (Док.Итог("Всего")); <-- ИначеЕсли глЕстьРеквизитШапки("Всего",Док.Вид())=1 Тогда <-- Возврат (Док.Всего); <-- ИначеЕсли глЕстьРеквизитШапки("Сумма",Док.Вид())=1 Тогда <-- Возврат (Док.Сумма); <-- ИначеЕсли глЕстьРеквизитМнЧ("Сумма",Док.Вид())=1 Тогда <-- Возврат (Док.Итог("Сумма")); <-- ИначеЕсли глЕстьРеквизитМнЧ("Приход",Док.Вид())=1 Тогда <-- Возврат (Док.Итог("Приход")+Док.Итог("Расход")); <-- Иначе <-- Возврат (0); <-- КонецЕсли; <-- <--КонецФункции //sh_СуммаДокумента() <-- <--//****************************************************************************** <--// <--глВыход = 0; <--shСпСчетовВзаиморасчетов = СоздатьОБъект("СписокЗначений"); <--shСпСчетовВзаиморасчетов.ДобавитьЗначение(СчетПоКоду("60.1")); <--shСпСчетовВзаиморасчетов.ДобавитьЗначение(СчетПоКоду("60.2")); <--shСпСчетовВзаиморасчетов.ДобавитьЗначение(СчетПоКоду("62.1")); <--shСпСчетовВзаиморасчетов.ДобавитьЗначение(СчетПоКоду("62.2")); <--shСпСчетовВзаиморасчетов.ДобавитьЗначение(СчетПоКоду("76.5")); <--// } Shved Константа.sh_ДатаНачалаБюджетирования - Объект добавлен Константа.sh_ЗамГлБухгалтер - Объект добавлен Константа.sh_КаталогРЦК - Объект добавлен Константа.sh_ТипЦенОбщепит - Объект добавлен Константа.sh_УчетнаяЦена - Объект добавлен Константа.sh_Филиал - Объект добавлен Константа.ЗамГлБухгалтера - Объект добавлен Константа.КодОКДП - Объект добавлен Константа.КодОКПОУпрГосИмущ - Объект добавлен Константа.НаименованиеУпрГосИмущ - Объект добавлен Константа.НачКомОтдела - Объект добавлен Константа.ОсновнойВидДеятельности - Объект добавлен Константа.ОсновнойТипЦенПокупки - Объект добавлен Константа.ОсновнойТипЦенПродажи - Объект добавлен Константа.ПоказыватьРозничЦену - Объект добавлен Константа.СтатьяРасходовНДСнеПодлежЗачету - Объект добавлен Справочник.sh_АналогиСпецификация - Объект добавлен Справочник.sh_ИсточникФинансирования - Объект добавлен Справочник.sh_ПодразделенияСпецификация - Объект добавлен Справочник.sh_Спецификация - Объект добавлен Справочник.sh_СтатьиБДДС - Объект добавлен Справочник.sh_СтатьиБДР - Объект добавлен Справочник.Валюты Справочник.Валюты.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.Валюты.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.ВидыВычетов Справочник.ВидыВычетов.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.ВидыНачислений Справочник.ВидыНачислений.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.ГТД Справочник.ГТД.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (12, 32) <--// Shved <--// { <--//****************************************************************************** <--// Предопределенная процедура <--// <--Процедура ПриНачалеВыбораЗначения(РеквДиалога, Флаг) <-- <-- Если РеквДиалога = "СтранаПроисхождения" Тогда <-- Флаг = 0; <-- СпрОКСМ=СоздатьОбъект("Справочник.ОКСМ"); <-- Если СпрОКСМ.Выбрать("Выберите страну...","ФормаСписка")=1 Тогда <-- СтранаПроисхождения = СпрОКСМ.Наименование; <-- КодПоОКСМ = СпрОКСМ.Код; <-- КонецЕсли; <-- КонецЕсли; <-- <--КонецПроцедуры // ПриНачалеВыбораЗначения() <--// } Shved Справочник.ГТД.ФормаСписка.ДляПодбора Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (135, 154) <--// Shved <--// { <--//****************************************************************************** <--// Предопределенная процедура <--// <--Процедура ПриНачалеВыбораЗначения(РеквДиалога, Флаг) <-- <-- Если РеквДиалога = "СтранаПроисхождения" Тогда <-- Флаг = 0; <-- СпрОКСМ=СоздатьОбъект("Справочник.ОКСМ"); <-- Если СпрОКСМ.Выбрать("Выберите страну...","ФормаСписка")=1 Тогда <-- СтранаПроисхождения = СпрОКСМ.Наименование; <-- КодПоОКСМ = СпрОКСМ.Код; <-- КонецЕсли; <-- КонецЕсли; <-- <--КонецПроцедуры // ПриНачалеВыбораЗначения() <--// } Shved Справочник.ГТД.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (1, 2) <--// Shved <--// { Добавлены строки (4, 20) <--//****************************************************************************** <--// Предопределенная процедура <--// <--Процедура ПриНачалеВыбораЗначения(РеквДиалога, Флаг) <-- <-- Если РеквДиалога = "СтранаПроисхождения" Тогда <-- Флаг = 0; <-- СпрОКСМ=СоздатьОбъект("Справочник.ОКСМ"); <-- Если СпрОКСМ.Выбрать("Выберите страну...","ФормаСписка")=1 Тогда <-- СтранаПроисхождения = СпрОКСМ.Наименование; <-- КодПоОКСМ = СпрОКСМ.Код; <-- КонецЕсли; <-- КонецЕсли; <-- <--КонецПроцедуры // ПриНачалеВыбораЗначения() <--// } Shved Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.ДвиженияДенежныхСредств Справочник.ДвиженияДенежныхСредств.СтатьяДДС - Объект добавлен Справочник.ДвиженияДенежныхСредств.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.Договоры Справочник.Договоры.Сумма - Объект добавлен Справочник.Договоры.НДС - Объект добавлен Справочник.Договоры.СрокОплаты - Объект добавлен Справочник.Договоры.sh_Номер - Объект добавлен Справочник.Договоры.sh_ПредметДоговора - Объект добавлен Справочник.Договоры.sh_ТипДоговора - Объект добавлен Справочник.Договоры.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.Договоры.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.Контрагенты Справочник.Контрагенты.ОКАТО - Объект добавлен Справочник.Контрагенты.sh_ИНН - Объект добавлен Справочник.Контрагенты.sh_КПП - Объект добавлен Справочник.Контрагенты.sh_КодРСА - Объект добавлен Справочник.Контрагенты.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (264, 294) <--// Shved <--// { <--//****************************************************************************** <--// <--Процедура ПриЗаписи() <-- <-- НовИнн = СокрЛП(Инн); <-- НовКПП = ""; <-- Где = Найти(НовИнн,"/"); <-- Если Где<>0 Тогда <-- НовКПП = Сред(НовИнн,Где+1); <-- НовИнн = Сред(НовИнн,1,Где-1); <-- Иначе <-- Где = Найти(НовИнн,"\"); <-- Если Где<>0 Тогда <-- НовКПП = Сред(НовИнн,Где+1); <-- НовИнн = Сред(НовИнн,1,Где-1); <-- КонецЕсли; <-- КонецЕсли; <-- <-- НовИнн = Число(НовИнн); <-- Если sh_ИНН<>НовИнн Тогда <-- sh_ИНН = НовИнн; <-- КонецЕсли; <-- Если sh_КПП<>НовКПП Тогда <-- sh_КПП = НовКПП; <-- КонецЕсли; <-- <--КонецПроцедуры <--// } Shved Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.Материалы Справочник.Материалы.ИздОбращения - Объект добавлен Справочник.Материалы.СтатьяДДС - Объект добавлен Справочник.Материалы.УчЦена - Объект добавлен Справочник.Материалы.УчЦенаНДС - Объект добавлен Справочник.Материалы.sh_Поставщик - Объект добавлен Справочник.Материалы.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.Материалы.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.Материалы.ФормаСписка.ДляПодбора Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.МестаХранения Справочник.МестаХранения.Сч41 - Объект добавлен Справочник.МестаХранения.ЕНВД - Объект добавлен Справочник.МестаХранения.sh_Подразделение - Объект добавлен Справочник.МестаХранения.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.НалогиИОтчисления Справочник.НалогиИОтчисления.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.НалоговыеИнспекции - Объект добавлен Справочник.НастройкаРаскрытияОтчетности Справочник.НастройкаРаскрытияОтчетности.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.НематериальныеАктивы Справочник.НематериальныеАктивы.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.НематериальныеАктивы.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.НематериальныеАктивы.ФормаСписка.Поступление Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.Номенклатура Справочник.Номенклатура.СтранаПроисхождения - Объект изменен Изменены строки (7, 7) <-- - Длина "50" --> - Длина "30" Справочник.Номенклатура.Выдан - Объект добавлен Справочник.Номенклатура.ДатаВыд - Объект добавлен Справочник.Номенклатура.Номер - Объект добавлен Справочник.Номенклатура.Срок - Объект добавлен Справочник.Номенклатура.sh_ТипЦенника - Объект добавлен Справочник.Номенклатура.СтатьяДДС - Объект добавлен Справочник.Номенклатура.УчЦена - Объект добавлен Справочник.Номенклатура.УчЦенаНДС - Объект добавлен Справочник.Номенклатура.sh_Поставщик - Объект добавлен Справочник.Номенклатура.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (452, 456) <--// Shved <--// { <--ПолныйСписокКолонок.ДобавитьЗначение("УчЦена", "Учетная цена без НДС"); <--ПолныйСписокКолонок.ДобавитьЗначение("УчЦенаНДС", "Учетная цена с НДС"); <--// } Shved Справочник.Номенклатура.ФормаСписка.Покупка Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (33, 37) <--// Shved <--// { <--ПолныйСписокКолонок.ДобавитьЗначение("УчЦена", "Учетная цена без НДС"); <--ПолныйСписокКолонок.ДобавитьЗначение("УчЦенаНДС", "Учетная цена с НДС"); <--// } Shved Справочник.Номенклатура.ФормаСписка.Продажа Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (68, 72) <--// Shved <--// { <--ПолныйСписокКолонок.ДобавитьЗначение("УчЦена", "Учетная цена без НДС"); <--ПолныйСписокКолонок.ДобавитьЗначение("УчЦенаНДС", "Учетная цена с НДС"); <--// } Shved Справочник.Номенклатура.ФормаСписка.ГотоваяПродукция Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.Номенклатура.ФормаСписка.ДляПодбора Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (712, 765) <--// Shved <--// { <--//в--------------------------------------------------------------------------------------- <--Функция РасчитатьЦенуСНДС() <-- ЦенаСНДС = глПолучитьЦену(КонтекстФормыДокумента,ТекущийЭлемент(),ТипЦен,КонтекстФормыДокумента.ДатаДок, Валюта, Курс) * (Число(Лев(СтавкаНДС,СтрДлина(СтавкаНДС)-1))/100+1); <-- Возврат С(ЦенаСНДС); <--КонецФункции // РасчитатьЦенуСНДС <--//****************************************************************************** <--// <--Функция sh_УчЦена_(Эл) <-- Если Форма.УчЦена_.Видимость() = 0 Тогда <-- Возврат ""; <-- КонецЕсли; <-- Если Эл.Выбран() = 0 Тогда <-- Возврат ""; <-- КонецЕсли; <-- Если Эл.ЭтоГруппа() = 1 Тогда <-- Возврат ""; <-- КонецЕсли; <-- Если СтавкаНДС.Ставка = 0 Тогда <-- Возврат ""; <-- КонецЕсли; <-- ЦенаЦены = 0; <-- Если глВернутьЦену(Эл, Константа.ОсновнаяЦенаПриобретения, КонтекстФормыДокумента.ДатаДок, ЦенаЦены, Валюта) = 1 Тогда <-- Возврат Формат(Окр(ЦенаЦены / (1 + СтавкаНДС.Ставка / 100),2),"Ч15.2.,"); <-- КонецЕсли; <-- Возврат (""); <--КонецФункции <--//****************************************************************************** <--// <--Функция sh_УчЦенаНДС_(Эл) <-- Если Форма.УчЦенаНДС_.Видимость() = 0 Тогда <-- Возврат ""; <-- КонецЕсли; <-- Если Эл.Выбран() = 0 Тогда <-- Возврат ""; <-- КонецЕсли; <-- Если Эл.ЭтоГруппа() = 1 Тогда <-- Возврат ""; <-- КонецЕсли; <-- <-- ЦенаЦены = 0; <-- Если глВернутьЦену(Эл, Константа.ОсновнаяЦенаПриобретения, КонтекстФормыДокумента.ДатаДок, ЦенаЦены, Валюта) = 1 Тогда <-- Возврат Формат(ЦенаЦены,"Ч15.2.,"); <-- //ЦенаЦены = глПересчет(ЦенаЦены, ВалЦены, ?(ПустоеЗначение(ВалЦены) = 0,НаДату,1), Валюта, ?(ПустоеЗначение(Курс) = 1, ?(ПустоеЗначение(Валюта) = 0,НаДату,1), Курс)); <-- КонецЕсли; <-- //ЗнЦены = глПолучитьЦену(КонтекстФормыДокумента,ТекущийЭлемент(),Константа.ОсновнаяЦенаПриобретения,КонтекстФормыДокумента.ДатаДок, Валюта, Курс); <-- Возврат (""); <--КонецФункции <--// } Shved Добавлены строки (786, 790) <--// Shved <--// { <--ПолныйСписокКолонок.ДобавитьЗначение("УчЦена_", "Учетная цена без НДС"); <--ПолныйСписокКолонок.ДобавитьЗначение("УчЦенаНДС_", "Учетная цена с НДС"); <--// } Shved Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (481, 491) <-- <-- // Shved <-- // { <-- ИначеЕсли РеквДиалога = "СтранаПроисхождения" Тогда <-- Флаг = 0; <-- СпрОКСМ=СоздатьОбъект("Справочник.ОКСМ"); <-- Если СпрОКСМ.Выбрать("Выберите страну...","ФормаСписка")=1 Тогда <-- СтранаПроисхождения = СпрОКСМ.Наименование; <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (538, 553) <--// Shved <--// { <--//****************************************************************************** <--// <--Функция фСтрана() <-- <-- Если Форма.Закладки.ТекущаяСтрока()=1 Тогда <-- Если СтранаПроисхожд =1 Тогда <-- Форма.СтранаПроисхождения.Видимость(0); <-- Иначе <-- Форма.СтранаПроисхождения.Видимость(1); <-- КонецЕсли; <-- КонецЕсли; <-- <--КонецФункции //фСтрана() <--// } Shved Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.ОбщероссийскийКлассификаторОсновныхФондов Справочник.ОбщероссийскийКлассификаторОсновныхФондов.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.ОбщероссийскийКлассификаторОсновныхФондов.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.ОсновныеСредства - Объект изменен Изменены строки (7, 7) <-- - ДлинаКода "15" --> - ДлинаКода "8" Справочник.ОсновныеСредства.sh_Цена - Объект добавлен Справочник.ОсновныеСредства.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.ОсновныеСредства.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.ОсновныеСредства.ФормаСписка.Поступление Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.Подразделения - Объект изменен Изменены строки (6, 6) <-- - КоличествоУровней "2" --> - КоличествоУровней "1" Справочник.Подразделения.МОЛ - Объект добавлен Справочник.Подразделения.sh_МестоХранения - Объект добавлен Справочник.Подразделения.sh_КодРСА - Объект добавлен Справочник.Подразделения.ВидРасходов - Объект добавлен Справочник.Подразделения.ИмяФайлаВыгрузки - Объект добавлен Справочник.Подразделения.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (1, 3) <--//****************************************************************************** <--// <--Процедура ПриОткрытии() Добавлены строки (5, 67) <-- Если sh_КодРСА>0 Тогда <-- Форма.тЗаг.Видимость(1); <-- Форма.ИмяФайлаВыгрузки.Видимость(1); <-- Иначе <-- Форма.тЗаг.Видимость(0); <-- Форма.ИмяФайлаВыгрузки.Видимость(0); <-- КонецЕсли; <-- <--КонецПроцедуры //ПриОткрытии <--//****************************************************************************** <--// КаталогИмяФайла(ПолноеИмяФайла, Каталог, Файл) <--// <--// Параметры: <--// ПолноеИмяФайла - строка: каталог и имя файла. <--// Каталог - если передан, в него будет возвращено имя каталога. <--// Файл - если передан, в него будет возвращено имя файла. <--// <--// Возвращаемое значение: <--// 0 - если указанного каталога не существует <--// 1 - если указанный каталог существует <--// <--// Описание: <--// Если каталог не существует, то пользователю предлагается его создать. <--// <--Функция КаталогИмяФайла(ПолноеИмяФайла, Каталог, Файл) <-- <-- Каталог=""; Файл=ПолноеИмяФайла; Разд=Найти(Файл, "\"); <-- <-- Пока 0<Разд Цикл <-- Каталог=Каталог+Лев(Файл, Разд); Файл=Сред(Файл, Разд+1); Разд=Найти(Файл, "\"); <-- КонецЦикла; <-- Каталог=Каталог+"."; <-- Если СтрДлина(Каталог)<5 Тогда <-- ИначеЕсли ФС.СуществуетФайл(Каталог)=1 Тогда <-- ИначеЕсли "Да"=Вопрос(Каталог+" <-- |Указанный каталог не существует! Создать?","Да+Нет") Тогда <-- ФС.СоздатьКаталог(Каталог); <-- Иначе <-- Каталог=""; Возврат(0); <-- КонецЕсли; <-- <-- Возврат(1); <-- <--КонецФункции // КаталогИмяФайла() <--//****************************************************************************** <--// Предопределенная процедура <--// <--Процедура ПриНачалеВыбораЗначения(ЭлементДиалога, ФлагОбработки) <-- <-- Перем Каталог, Файл; <-- <-- Если ЭлементДиалога="ИмяФайлаВыгрузки" Тогда <-- КаталогИмяФайла(ИмяФайлаВыгрузки, Каталог, Файл); <-- Если ФС.ВыбратьФайл(0, Файл, Каталог, "Файл выгрузки", <-- "Текстовые (*.txt)|*.txt", "txt")=1 Тогда <-- ИмяФайлаВыгрузки=Каталог+Файл; <-- КонецЕсли; <-- КонецЕсли; <-- <--КонецПроцедуры // ПриНачалеВыбораЗначения() Справочник.Пользователи - Объект добавлен Справочник.ПрочиеДоходыИРасходы Справочник.ПрочиеДоходыИРасходы.СтатьяДР - Объект добавлен Справочник.ПрочиеДоходыИРасходы.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.РасходыБудущихПериодов Справочник.РасходыБудущихПериодов.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.Сотрудники Справочник.Сотрудники.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.Сотрудники.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.Сотрудники.ФормаСписка.ПриемНаРаботу Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.СтатьиИздержекОбращения Справочник.СтатьиИздержекОбращения.СтатьяДР - Объект добавлен Справочник.СтатьиИздержекОбращения.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Справочник.СтатьиКоммерческихРасходов Справочник.СтатьиКоммерческихРасходов.СтатьяДР - Объект добавлен Справочник.СтатьиОбщепроизводственныхЗатрат Справочник.СтатьиОбщепроизводственныхЗатрат.СтатьяДР - Объект добавлен Справочник.СтатьиОбщехозяйственныхЗатрат Справочник.СтатьиОбщехозяйственныхЗатрат.СтатьяДР - Объект добавлен Справочник.СтатьиРасходовНаПродажу Справочник.СтатьиРасходовНаПродажу.СтатьяДР - Объект добавлен Справочник.Цены Справочник.Цены.Наценка - Объект добавлен Справочник.Цены.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.Цены.ФормаСписка.УстановкаЦен Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (5, 8) <--// Shved <--// { <--Перем ЗакупЦена; <--// } Shved Добавлены строки (13, 44) <--// Shved <--// { <--//****************************************************************************** <--Процедура ПересчетЦены() //а <-- // считаем, что все цены включают НДС <-- Перем ЦенаЦены, ВалЦены; <-- ЦенаЦены = 0; <-- Если глВернутьЦену(Владелец, Константа.ОсновнаяЦенаПриобретения, ИспользоватьДату(), ЦенаЦены, ВалЦены) = 1 Тогда <-- ЗакупЦена = ЦенаЦены; <-- Цена=Окр(ЗакупЦена*(1+Наценка/100),2,1); <-- КонецЕсли; <-- <--КонецПроцедуры //\а <--//****************************************************************************** <--Процедура Пересчет() //а <-- <-- // считаем, что все цены включают НДС <-- Перем ЦенаЦены, ВалЦены; <-- ЦенаЦены = 0; <-- Если глВернутьЦену(Владелец, Константа.ОсновнаяЦенаПриобретения, ИспользоватьДату(), ЦенаЦены, ВалЦены) = 1 Тогда <-- ЗакупЦена = ЦенаЦены; <-- Если ЗакупЦена<>0 Тогда <-- Наценка = Окр((Цена/ЗакупЦена-1)*100,2,1); <-- КонецЕсли; <-- КонецЕсли; <-- <--КонецПроцедуры //\а <--// } Shved Добавлены строки (311, 319) <-- // Shved <-- // { <-- ВалЦены = ""; <-- ЦенаЦены = 0; <-- Если глВернутьЦену(Владелец, Константа.ОсновнаяЦенаПриобретения, ИспользоватьДату(), ЦенаЦены, ВалЦены) = 1 Тогда <-- ЗакупЦена = ЦенаЦены; <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (369, 372) <-- // Shved <-- // { <-- Список.Установить("Наценка" , Наценка); <-- // } Shved Справочник.ВычетыСотрудниковПоНДФЛ Справочник.ВычетыСотрудниковПоНДФЛ.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.ТарифСтраховыхВзносов Справочник.ТарифСтраховыхВзносов.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.СтраховыеВзносыДоходы Справочник.СтраховыеВзносыДоходы.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.СЗВСтаж2010 Справочник.СЗВСтаж2010.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.НКДоходы Справочник.НКДоходы.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.НКИтоги Справочник.НКИтоги.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.НКИтогиПоГоду Справочник.НКИтогиПоГоду.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Справочник.НастройкаРаскрытияОтчетности2011 Справочник.НастройкаРаскрытияОтчетности2011.ФормаСписка.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен Бинарные файлы различны! Форма группы Диалог - Объект изменен Бинарные файлы различны! Документ.sh_ЗаявкаДС - Объект добавлен Документ.sh_Обязательства - Объект добавлен Документ.sh_ПеремещениеФилиала - Объект добавлен Документ.sh_ПланированиеБДДС - Объект добавлен Документ.sh_ПланированиеБДР - Объект добавлен Документ.sh_Спецификация - Объект добавлен Документ.АвансовыйОтчет Модуль Документа - Объект изменен Текст - Объект изменен Изменены строки (75, 82) <-- // Shved <-- // { <-- <-- //Если Операция.Дебет.Субконто(1).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда // расходы, связанные с услугами ЕНВД не отражаются в НУ <-- // Продолжить; <-- //КонецЕсли; <-- <-- // } Shved --> .......... --> --> Если Операция.Дебет.Субконто(1).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда // расходы, связанные с услугами ЕНВД не отражаются в НУ --> Продолжить; --> КонецЕсли; Добавлены строки (113, 118) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.БухгалтерскаяСправка Документ.БухгалтерскаяСправка.Количество - Объект изменен Изменены строки (10, 11) <-- - РазделятьТриады "1" <-- - ИтогПоКолонке "1" --> - РазделятьТриады "0" --> - ИтогПоКолонке "0" Документ.БухгалтерскаяСправка.Сумма - Объект изменен Изменены строки (10, 11) <-- - РазделятьТриады "1" <-- - ИтогПоКолонке "1" --> - РазделятьТриады "0" --> - ИтогПоКолонке "0" Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (75, 80) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ВводВЭксплуатациюОС Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (207, 210) <-- // Shved <-- // { <-- Операция.Дебет.Подразделения = Подразделение; <-- // } Shved Добавлены строки (225, 228) <-- // Shved <-- // { <-- Операция.Дебет.Подразделения = Подразделение; <-- // } Shved Добавлены строки (246, 249) <-- // Shved <-- // { <-- Операция.Кредит.Подразделения = Подразделение; <-- // } Shved Добавлены строки (252, 264) <-- // Shved <-- // { <-- Операция.НоваяПроводка(); <-- Операция.НомерЖурнала = "ОС"; <-- Операция.СодержаниеПроводки = "Списано ОС до 10 тыс. руб."; <-- Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <-- Операция.Дебет.Счет = СчетПоКоду("002.3"); <-- Операция.Дебет.ОсновныеСредства = ОсновноеСредство;; <-- Операция.Дебет.МестаХранения = Подразделение.sh_МестоХранения; <-- Операция.Количество = 1; <-- Операция.Сумма = БалансоваяСтоимость; <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.Взаимозачет Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (430, 434) <-- // Shved <-- // { <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Документ.ВозвратАредованныхОС - Объект добавлен Документ.ВозвратИзТорговойТочки - Объект добавлен Документ.ВозвратТарыМО - Объект добавлен Документ.Выписка Документ.Выписка.НазначениеПлатежа - Объект изменен Изменены строки (3, 3) <-- - Синоним "Назначение платежа" --> - Синоним Изменены строки (7, 7) <-- - Длина "200" --> - Длина "100" Документ.Выписка.СтатьяДДС - Объект добавлен Документ.Выписка.СтНДС - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (635, 640) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ВыполнениеЭтапаРабот Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ДанныеПереданныеВПФР Форма Диалог - Объект изменен Бинарные файлы различны! Документ.Доверенность Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ЗавершениеРабот Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ЗакрытиеМесяца Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (9869, 9873) <-- // Shved <-- // { <-- БухИт44.ИспользоватьСубконто(ВидыСубконто.Подразделения,,,); <-- БухИт44.ИспользоватьСубконто(ВидыСубконто.ВидыНачислений,,,); <-- // } Shved Добавлены строки (9884, 9893) <-- <-- // Shved <-- // { <-- БухИт44.ВыбратьСубконто(ВидыСубконто.Подразделения); <-- Пока БухИт44.ПолучитьСубконто(ВидыСубконто.Подразделения) = 1 Цикл <-- БухИт44.ВыбратьСубконто(ВидыСубконто.ВидыНачислений); <-- Пока БухИт44.ПолучитьСубконто(ВидыСубконто.ВидыНачислений) = 1 Цикл <-- // } Shved <-- <-- Добавлены строки (9946, 9950) <-- // Shved <-- // { <-- Операция.Кредит.Подразделения = БухИт44.Субконто(ВидыСубконто.Подразделения); //а <-- Операция.Кредит.ВидыНачислений = БухИт44.Субконто(ВидыСубконто.ВидыНачислений); //а <-- // } Shved Добавлены строки (10012, 10017) <-- // Shved <-- // { <-- КонецЦикла; <-- КонецЦикла; <-- // } Shved <-- Изменены строки (12658, 12667) <-- // Shved <-- // { <-- //Если ПризнакПринадлежностиЕНВД = Сч20 Тогда <-- // Если Объект.Вид() = "ОсновныеСредства" Тогда <-- // УслугаЕНВД = ?(Объект.Субконто1.Получить(ДатаДок).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); <-- // ИначеЕсли Объект.Вид() = "РасходыБудущихПериодов" Тогда <-- // УслугаЕНВД = ?(Объект.Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); <-- // КонецЕсли; <-- //КонецЕсли; <-- // } Shved --> .......... --> --> Если ПризнакПринадлежностиЕНВД = Сч20 Тогда --> Если Объект.Вид() = "ОсновныеСредства" Тогда --> УслугаЕНВД = ?(Объект.Субконто1.Получить(ДатаДок).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); --> ИначеЕсли Объект.Вид() = "РасходыБудущихПериодов" Тогда --> УслугаЕНВД = ?(Объект.Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); --> КонецЕсли; --> КонецЕсли; Изменены строки (12734, 12745) <-- // Shved <-- // { <-- //Если ПризнакПринадлежностиЕНВД = Сч20 Тогда <-- // Если Объект.Вид() = "ОсновныеСредства" Тогда <-- // УслугаЕНВД = ?(Объект.Субконто1.Получить(ДатаДок).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); <-- // ИначеЕсли Объект.Вид() = "РасходыБудущихПериодов" Тогда <-- // УслугаЕНВД = ?(Объект.Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); <-- // ИначеЕсли Объект.Вид() = "Материалы" Тогда <-- // УслугаЕНВД = ?(БухИт.Субконто(2).Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); <-- // КонецЕсли; <-- //КонецЕсли; <-- // } Shved --> .......... --> --> Если ПризнакПринадлежностиЕНВД = Сч20 Тогда --> Если Объект.Вид() = "ОсновныеСредства" Тогда --> УслугаЕНВД = ?(Объект.Субконто1.Получить(ДатаДок).ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); --> ИначеЕсли Объект.Вид() = "РасходыБудущихПериодов" Тогда --> УслугаЕНВД = ?(Объект.Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); --> ИначеЕсли Объект.Вид() = "Материалы" Тогда --> УслугаЕНВД = ?(БухИт.Субконто(2).Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД, 1, 0); --> КонецЕсли; --> КонецЕсли; Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ЗаписиКнигиПокупок Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ЗаписиКнигиПродаж Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ЗаписьКнигиПокупок Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ЗаписьКнигиПродаж Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Изменены строки (1545, 1559) <-- // Shved <-- // { <-- // не видно было Счет, а без него ругалось <-- //Если ВерсияОбъекта >= "7.70.421" Тогда <-- // <-- // Форма.СтавкаНП.Видимость(0); <-- // Форма.НП.Видимость(0); <-- // Форма.Комитент.Видимость(0); <-- // Форма.ТипТовара.Видимость(0); <-- // <-- // УправлениеФормой(0); <-- // ПриВыбореОснования(ДокументОснование); <-- // <-- //Иначе --> .......... --> --> Если ВерсияОбъекта >= "7.70.421" Тогда Изменены строки (1561, 1564) <-- // } Shved --> Форма.СтавкаНП.Видимость(0); --> Форма.НП.Видимость(0); --> Форма.Комитент.Видимость(0); --> Форма.ТипТовара.Видимость(0); Удалены строки (1566, 1569) --> УправлениеФормой(0); --> ПриВыбореОснования(ДокументОснование); --> --> Иначе Изменены строки (1574, 1575) <-- <-- //КонецЕсли; --> .......... --> --> КонецЕсли; Документ.ЗачетАвансаПокупателя Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ЗачетАвансаПоставщику Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ЗачетЗадолженности Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (68, 72) <-- // Shved <-- // { <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Документ.ЗаявкаНаОткрытиеСчетов Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ИнвентаризацияТМЦ Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ИсправлениеСчетаФактуры Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ИсправлениеСчетаФактурыПолученного Форма Диалог - Объект изменен Бинарные файлы различны! Документ.Комплектация - Объект добавлен Документ.КорректировкаОтгрузки Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (177, 181) <-- // Shved <-- // { <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Документ.КорректировочныйСчетФактура Форма Диалог - Объект изменен Бинарные файлы различны! Документ.КорректировочныйСчетФактураПолученный Форма Диалог - Объект изменен Бинарные файлы различны! Документ.МодернизацияОС Форма Диалог - Объект изменен Бинарные файлы различны! Документ.НачислениеАмортизации Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (187, 190) <-- // Shved <-- // { <-- Операция.Дебет.Подразделения = ОС.ТекущийЭлемент().Подразделение.Получить(ДатаДок); //а <-- // } Shved Добавлены строки (213, 216) <-- // Shved <-- // { <-- Операция.Кредит.Подразделения = ОС.ТекущийЭлемент().Подразделение.Получить(ДатаДок); //а <-- // } Shved Документ.НачислениеЗП Форма Диалог - Объект изменен Бинарные файлы различны! Документ.НачислениеНалогов Форма Диалог - Объект изменен Бинарные файлы различны! Документ.НачислениеШтрафныхСанкций Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ОказаниеУслуг Документ.ОказаниеУслуг.Объект - Объект добавлен Документ.ОказаниеУслуг.ВидДеятельности - Объект добавлен Документ.ОказаниеУслуг.ОблагЕНВД - Объект добавлен Документ.ОказаниеУслуг.СтатьяДР - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Изменены строки (596, 600) <-- // Shved <-- // { <-- //Операция.Кредит.СтавкиНП = ТаблицаРеализации.СтавкаНП; <-- Операция.Кредит.МестаХранения = Объект; <-- // } Shved --> .......... --> --> Операция.Кредит.СтавкиНП = ТаблицаРеализации.СтавкаНП; Изменены строки (648, 652) <-- // Shved <-- // { <-- //Операция.Кредит.СтавкиНП = ТаблицаРеализации.СтавкаНП; <-- Операция.Кредит.МестаХранения = Объект; <-- // } Shved --> .......... --> --> Операция.Кредит.СтавкиНП = ТаблицаРеализации.СтавкаНП; Добавлены строки (806, 811) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ОперацияПоРасчСчету Документ.ОперацияПоРасчСчету.ИсточникФинансирования - Объект добавлен Документ.ОперацияПоРасчСчету.СтатьяДДС - Объект добавлен Документ.ОперацияПоРасчСчету.Значение - Объект изменен Изменены строки (7, 7) <-- - Длина "300" --> - Длина "100" Документ.ОперацияПоРасчСчету.Документ - Объект добавлен Документ.ОперацияПоРасчСчету.Всего - Объект добавлен Документ.ОперацияПоРасчСчету.ВсегоНДС - Объект добавлен Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Изменены строки (1, 272) <--#ЗагрузитьИзФайла ExtTexts\Документ_ОперацияПоРасчСчету_Модуль формы документа.txt -->Перем НачальнаяДатаДокумента; -->Перем СписокРеквизитов; -->Перем ВидДокумента; -->Перем СписокДействий; -->//_____________________________________________________________________________ -->Процедура ДоступностьКнопкиНовыйПлательщикПолучатель() --> Если (ВидПлательщика-1=1) и (ПустоеЗначение(Плательщик)=1) Тогда --> Форма.НовыйПлательщик.Доступность(1); --> Иначе --> Форма.НовыйПлательщик.Доступность(0); --> КонецЕсли; --> Если (ВидПолучателя-1=1) и (ПустоеЗначение(Получатель)=1) Тогда --> Форма.НовыйПолучатель.Доступность(1); --> Иначе --> Форма.НовыйПолучатель.Доступность(0); --> КонецЕсли; -->КонецПроцедуры //ПриВыбореВидаПлательщика -->//_____________________________________________________________________________ -->Процедура ПриВыбореВидаПлательщикаПолучателя(ВидПлательщикаПолучателя, ПлательщикПолучатель, СчетПлательщикаПолучателя) --> Если ВидПлательщикаПолучателя = 1 Тогда --> ПлательщикПолучатель = ""; --> Если СчетПлательщикаПолучателя.Вид() <> "БанковскиеСчета" Тогда --> СчетПлательщикаПолучателя = ""; --> НазначитьВид(СчетПлательщикаПолучателя, "БанковскиеСчета"); --> КонецЕсли; --> .......... --> --> Иначе --> Если СчетПлательщикаПолучателя.Вид() <> "РасчетныеСчета" Тогда --> СчетПлательщикаПолучателя = ""; --> НазначитьВид(СчетПлательщикаПолучателя, "РасчетныеСчета"); --> КонецЕсли; --> КонецЕсли; --> .......... --> --> Форма.Плательщик.Доступность(ВидПлательщика-1); --> Форма.Получатель.Доступность(ВидПолучателя-1); --> Форма.ПлательщикСчет.НеИзменятьВид(1); --> Форма.ПолучательСчет.НеИзменятьВид(1); --> ДоступностьКнопкиНовыйПлательщикПолучатель(); -->КонецПроцедуры //ПриВыбореВидаПлательщика -->//****************************************************************************** -->Функция УстановитьБанк(Наименование, БИК, КоррСчет, Город, Адрес="", Индекс="", Телефоны="" ) --> глОшибкаВоВремяОбновления=0; --> Банк=""; --> СпрБанки=СоздатьОбъект("Справочник.Банки"); --> Если (ПустоеЗначение(БИК)=0) Тогда --> Если СпрБанки.НайтиПоКоду(БИК,0)=1 Тогда --> Банк=СпрБанки.ТекущийЭлемент(); --> КонецЕсли; --> КонецЕсли; --> Если (ПустоеЗначение(Банк)=1) и (ПустоеЗначение(Наименование)=0) Тогда --> Если СпрБанки.НайтиПоНаименованию(Наименование,0)=1 Тогда --> Банк=СпрБанки.ТекущийЭлемент(); --> КонецЕсли; --> КонецЕсли; --> Если (ПустоеЗначение(Банк)=1) и (ПустоеЗначение(Наименование)=0) Тогда --> СпрБанки.Новый(); --> СпрБанки.Код = БИК; --> СпрБанки.Наименование = Наименование; --> СпрБанки.КоррСчет = КоррСчет; --> СпрБанки.Адрес = ","+СокрЛП(Индекс)+","+Адрес; --> СпрБанки.Местонахождение = Город; --> СпрБанки.Телефоны = Телефоны; --> СпрБанки.Записать(); --> Возврат СпрБанки.ТекущийЭлемент(); --> Иначе --> Возврат Банк; --> КонецЕсли; --> -->КонецФункции //УстановитьБанк() --> .......... --> -->//****************************************************************************** --> .......... --> -->Процедура СоздатьПоРеквизитам(ВидПлательщикаПолучателя, ПлательщикПолучатель, СчетПлательщикаПолучателя) --> Слово=ВидПлательщикаПолучателя; --> НомерСчета = СписокРеквизитов.Получить(Слово+"Счет"); --> ИННКраткий = СокрЛП(СписокРеквизитов.Получить(Слово+"ИНН")); --> ИНН = СокрЛП(СписокРеквизитов.Получить(Слово+"ИНН")) + "\" --> + СокрЛП(СписокРеквизитов.Получить(Слово+"КПП")); --> Наименование = СписокРеквизитов.Получить(Слово+"1"); --> Если ПустоеЗначение(Наименование)=1 Тогда --> Наименование = СписокРеквизитов.Получить(Слово); --> КонецЕсли; --> СпрРасчетныеСчета=СоздатьОбъект("Справочник.РасчетныеСчета"); --> СпрКонтрагенты=СоздатьОбъект("Справочник.Контрагенты"); --> Если ПустоеЗначение(Наименование)=0 Тогда --> Контрагент=ПолучитьПустоеЗначение("Справочник.Контрагенты"); --> РасчСчет=ПолучитьПустоеЗначение("Справочник.РасчетныеСчета"); --> --> Если ПустоеЗначение(НомерСчета)=0 Тогда --> Если СпрРасчетныеСчета.НайтиПоРеквизиту("Номер",НомерСчета,1)=1 Тогда --> РасчСчет=СпрРасчетныеСчета.ТекущийЭлемент(); --> Контрагент=РасчСчет.Владелец; --> КонецЕсли; --> КонецЕсли; --> --> // Ищем по значению ИНН\КПП --> Если (ПустаяСтрока(ИНН)=0) и (ПустоеЗначение(Контрагент)=1) Тогда --> Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН",ИНН,1)=1 Тогда --> Контрагент=СпрКонтрагенты.ТекущийЭлемент(); --> КонецЕсли; --> КонецЕсли; --> --> // Возможно просто укзали только ИНН - например для ПБОЮЛ --> Если (ПустаяСтрока(ИННКраткий)=0) и (ПустоеЗначение(Контрагент)=1) Тогда --> Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН",ИННКраткий,1)=1 Тогда --> Контрагент=СпрКонтрагенты.ТекущийЭлемент(); --> КонецЕсли; --> КонецЕсли; --> --> Если (ПустоеЗначение(Контрагент)=1) Тогда --> СпрКонтрагенты.Новый(); --> СпрКонтрагенты.Наименование=Наименование; --> СпрКонтрагенты.ПолнНаименование=Наименование; --> СпрКонтрагенты.ИНН=ИНН; --> СпрКонтрагенты.Записать(); --> Иначе --> СпрКонтрагенты.НайтиЭлемент(Контрагент); --> КонецЕсли; --> --> Если Слово="Плательщик" Тогда --> Плательщик=СпрКонтрагенты.ТекущийЭлемент(); --> Иначе --> Получатель=СпрКонтрагенты.ТекущийЭлемент(); --> КонецЕсли; --> Если (ПустоеЗначение(НомерСчета)=0) и (РасчСчет.Выбран()=0) Тогда --> СпрРасчетныеСчета.ИспользоватьВладельца(СпрКонтрагенты.ТекущийЭлемент()); --> СпрРасчетныеСчета.Новый(); --> СпрРасчетныеСчета.Номер=НомерСчета; --> НаименованиеСчета="Основной в "; --> --> Если ПустоеЗначение(СписокРеквизитов.Получить(Слово+"3"))=0 Тогда --> // Непрямые расчеты --> Наименование = СписокРеквизитов.Получить(Слово+"3"); --> Город = СписокРеквизитов.Получить(Слово+"4"); --> КоррСчет = СписокРеквизитов.Получить(Слово+"РасчСчет"); --> СпрРасчетныеСчета.БанкОрганизации=УстановитьБанк(Наименование, "", КоррСчет, Город) ; --> НаименованиеСчета=НаименованиеСчета+СокрЛП(Наименование); --> --> Наименование = СписокРеквизитов.Получить(Слово+"Банк1"); --> Город = СписокРеквизитов.Получить(Слово+"Банк2"); --> БИК = СписокРеквизитов.Получить(Слово+"БИК"); --> КоррСчет = СписокРеквизитов.Получить(Слово+"Корсчет"); --> СпрРасчетныеСчета.БанкДляРасчетов=УстановитьБанк(Наименование, БИК, КоррСчет, Город) ; --> Иначе --> // Прямые расчеты --> Наименование = СписокРеквизитов.Получить(Слово+"Банк1"); --> Город = СписокРеквизитов.Получить(Слово+"Банк2"); --> БИК = СписокРеквизитов.Получить(Слово+"БИК"); --> КоррСчет = СписокРеквизитов.Получить(Слово+"Корсчет"); --> СпрРасчетныеСчета.БанкОрганизации=УстановитьБанк(Наименование, БИК, КоррСчет, Город) ; --> НаименованиеСчета=НаименованиеСчета+СокрЛП(Наименование); --> КонецЕсли; --> СпрРасчетныеСчета.Наименование=НаименованиеСчета; --> СпрРасчетныеСчета.Записать(); --> Если Слово="Плательщик" Тогда --> ПлательщикСчет=СпрРасчетныеСчета.ТекущийЭлемент(); --> Иначе --> ПолучательСчет=СпрРасчетныеСчета.ТекущийЭлемент(); --> КонецЕсли; --> ИначеЕсли (РасчСчет.Выбран()=1) Тогда --> Если Слово="Плательщик" Тогда --> ПлательщикСчет=РасчСчет; --> Иначе --> ПолучательСчет=РасчСчет; --> КонецЕсли; --> Иначе --> Если Слово="Плательщик" Тогда --> Предупреждение("Не указан номер банковского счета плательщика"); --> Иначе --> Предупреждение("Не указан номер банковского счета получателя"); --> КонецЕсли; --> КонецЕсли; --> Иначе --> Если Слово="Плательщик" Тогда --> Предупреждение("Не указано наименование плательщика"); --> Иначе --> Предупреждение("Не указано наименование получателя"); --> КонецЕсли; --> КонецЕсли; --> ДоступностьКнопкиНовыйПлательщикПолучатель(); -->КонецПроцедуры //СоздатьПоРеквизитам --> .......... --> -->Процедура ВводНового(Копирование) //предопределенная --> Предупреждение("Новый документ ""Операция по р/с"" не может быть введен вручную."); --> СтатусВозврата(0); -->КонецПроцедуры //ВводНового -->//_____________________________________________________________________________ -->Процедура ПриОткрытии() //предопределенная --> --> глПроверкаРазрешенияРедактирования(Контекст); --> Если Форма.ТолькоПросмотр() = 1 Тогда --> Форма.КнопкаОК.Доступность(0); --> Форма.КнопкаЗаписать.Доступность(0); --> КонецЕсли; --> --> СписокРеквизитов = СоздатьОбъект("СписокЗначений"); --> ВыбратьСтроки(); --> Пока ПолучитьСтроку() = 1 Цикл --> СписокРеквизитов.ДобавитьЗначение(СокрП(Значение), СокрП(Имя)); --> КонецЦикла; --> .......... --> --> ВидДокумента = СписокРеквизитов.Получить("СекцияДокумент"); --> --> Если ПлательщикСчет.Вид() = "БанковскиеСчета" Тогда --> ВидПлательщика = 1; --> Форма.Плательщик.Доступность(0); --> Иначе --> ВидПлательщика = 2; --> Форма.Плательщик.Доступность(1); --> НазначитьВид(ПлательщикСчет, "РасчетныеСчета"); --> КонецЕсли; --> --> Если ПолучательСчет.Вид() = "БанковскиеСчета" Тогда --> ВидПолучателя = 1; --> Форма.Получатель.Доступность(0); --> Иначе --> ВидПолучателя = 2; --> Форма.Получатель.Доступность(1); --> НазначитьВид(ПолучательСчет, "РасчетныеСчета"); --> КонецЕсли; --> ДоступностьКнопкиНовыйПлательщикПолучатель(); --> Форма.ПлательщикСчет.НеИзменятьВид(1); --> Форма.ПолучательСчет.НеИзменятьВид(1); --> --> ПоказыватьИдентификатор = ВосстановитьЗначение("ОперацияПоРасчСчету_ПоказыватьИдентификатор"); --> Форма.Имя.Видимость(ПоказыватьИдентификатор); --> ПоказыватьСиноним = ?(ВосстановитьЗначение("ОперацияПоРасчСчету_НеПоказыватьСиноним")=1, 0, 1); --> Форма.Синоним.Видимость(ПоказыватьСиноним); --> --> НачальнаяДатаДокумента =ДатаДок; -->КонецПроцедуры //ПриОткрытии -->//_____________________________________________________________________________ -->Процедура ПриВводеСтроки() --> СтатусВозврата(0); -->КонецПроцедуры //ПриВводеСтроки -->//_____________________________________________________________________________ -->Процедура ПриНачалеРедактированияСтроки() --> СтатусВозврата(0); -->КонецПроцедуры //ПриНачалеРедактированияСтроки -->//_____________________________________________________________________________ -->Процедура ПриЗакрытии() //предопределенная --> СохранитьЗначение("ОперацияПоРасчСчету_ПоказыватьИдентификатор", ПоказыватьИдентификатор); --> СохранитьЗначение("ОперацияПоРасчСчету_НеПоказыватьСиноним", ?(ПоказыватьСиноним=1, 0, 1)); -->КонецПроцедуры //ПриЗакрытии -->//_____________________________________________________________________________ -->Процедура ПриЗаписи() //предопределенная --> Если глМожноЗаписатьДокумент(Контекст) = 0 Тогда --> СтатусВозврата(0); --> Возврат; --> ИначеЕсли глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента) = 1 Тогда --> СтатусВозврата(0); --> Возврат; --> КонецЕсли; --> .......... --> --> Если Константа.ВсеДокументыВЖурналОпераций = Да Тогда --> СуществуетОперация(1); --> Операция.СуммаОперации = 0; --> Операция.Содержание = "Операции по р/с"; --> Иначе --> СуществуетОперация(0); --> КонецЕсли; --> .......... --> -->КонецПроцедуры //ПриЗаписи --> .......... --> -->//***************************************************************************** -->СписокДействий = СоздатьОбъект("СписокЗначений"); -->СписокДействий.ДобавитьЗначение("Отчет о движениях документа"); -->СписокДействий.ДобавитьЗначение("Структура подчиненности"); -->СписокДействий.ДобавитьЗначение("Ввести на основании"); -->СписокДействий.ДобавитьЗначение("Перейти в журнал"); --> Документ.ОплатаЭтапаРабот Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ОтпускМатериаловНаСторону Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПередачаМатериаловСпецназначенияВПроизводство Модуль Документа - Объект изменен Текст - Объект изменен Изменены строки (331, 336) <-- // Shved <-- // { <-- Операция.Дебет.Субконто(2,Субконто2.sh_МестоХранения); <-- //Операция.Дебет.Субконто(2,НазначениеИспользования); <-- //Операция.Дебет.Субконто(3,Подразделение); <-- // } Shved --> .......... --> --> Операция.Дебет.Субконто(2,НазначениеИспользования); --> Операция.Дебет.Субконто(3,Подразделение); Изменены строки (341, 346) <-- // Shved <-- // { <-- Операция.Дебет.Субконто(2,Субконто2.sh_МестоХранения); <-- //Операция.Дебет.Субконто(2,НазначениеИспользования); <-- //Операция.Дебет.Субконто(3,Сотрудник); <-- // } Shved --> .......... --> --> Операция.Дебет.Субконто(2,НазначениеИспользования); --> Операция.Дебет.Субконто(3,Сотрудник); Изменены строки (378, 383) <-- // Shved <-- // { <-- Операция.Кредит.Субконто(2,Субконто2.sh_МестоХранения); <-- //Операция.Кредит.Субконто(2,НазначениеИспользования); <-- //Операция.Кредит.Субконто(3,Подразделение); <-- // } Shved --> .......... --> --> Операция.Кредит.Субконто(2,НазначениеИспользования); --> Операция.Кредит.Субконто(3,Подразделение); Изменены строки (388, 393) <-- // Shved <-- // { <-- Операция.Кредит.Субконто(2,Субконто2.sh_МестоХранения); <-- //Операция.Кредит.Субконто(2,НазначениеИспользования); <-- //Операция.Кредит.Субконто(3,Сотрудник); <-- // } Shved --> .......... --> --> Операция.Кредит.Субконто(2,НазначениеИспользования); --> Операция.Кредит.Субконто(3,Сотрудник); Добавлены строки (396, 410) <-- // Shved <-- // { <-- Операция.Количество = Количество; <-- // } Shved <-- Операция.Сумма = СуммаОтгрузки; <-- <-- // Shved <-- // { <-- Операция.НоваяПроводка(); <-- Операция.НомерЖурнала = "МТ"; <-- Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <-- Операция.Дебет.Счет = СчетПоКоду("002.5"); <-- Операция.Дебет.Материалы = Материал; <-- Операция.Дебет.МестаХранения = Субконто2.sh_МестоХранения; <-- Операция.Количество = Количество; Добавлены строки (412, 412) <-- // } Shved Добавлены строки (518, 522) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (30, 40) <-- <-- // Shved <-- // { <-- Перем ВыбСотрудник; <-- <-- ВыбСотрудник = СоздатьОбъект("Справочник.Сотрудники"); <-- Если ВыбСотрудник.Выбрать("Выберите того кто разрешил...","ДляВыбора")=1 Тогда <-- <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (43, 46) <-- // Shved <-- // { <-- Таб.ИсходнаяТаблица(глКаталогПечФорм+"М11.mxl"); <-- // } Shved Добавлены строки (65, 70) <-- // Shved <-- // { <-- ПечЭкспедитор = глФамилияИмяОтчество(Субконто2.МОЛ); <-- МолОтправителя = ФИО(МестоХранения.МОЛ); <-- // } Shved <-- Добавлены строки (412, 451) <--// Shved <--// { <--//****************************************************************************** <--// <--Процедура Подбор() <-- <-- КонтекстФормыПодбора = СоздатьОбъект("СписокЗначений"); <-- КонтекстФормыПодбора.ДобавитьЗначение(Контекст, "Контекст"); <-- КонтекстФормыПодбора.ДобавитьЗначение(МестоХранения, "МестоХранения"); <-- <-- ОткрытьПодбор("Справочник.Материалы", "ДляПодбора", КонтекстФормыПодбора); <-- <--КонецПроцедуры <--//****************************************************************************** <--// <--Процедура ОбработкаПодбора(ВыбрМПЗ) <-- <-- Кол = 1; <-- Если ВвестиЧисло(Кол, "Введите количество", 14, 3) = 0 Тогда <-- Возврат; <-- ИначеЕсли Кол = 0 Тогда <-- Возврат; <-- КонецЕсли; <-- <-- НоваяСтрока(); <-- Материал = ВыбрМПЗ; <-- Попытка <-- Сотрудник = ?(Субконто2.Выбран()=1,Субконто2.МОЛ,""); <-- Исключение <-- КонецПопытки; <-- Количество = Кол; <-- СпособПогашенияСтоимости = Перечисление.СпособПогашенияСтоимости.ПогашатьСтоимостьВМоментПередачиВПроизводство; <-- СрокПолезногоИспользования = 12; <-- АктивизироватьСтроку(); <-- <--КонецПроцедуры <--// } Shved Документ.ПередачаНМА Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПередачаОС Форма Диалог - Объект изменен Бинарные файлы различны! Документ.Перемещение - Объект добавлен Документ.ПеремещениеАрендованныхОС - Объект добавлен Документ.ПеремещениеЕНВД - Объект добавлен Документ.ПеремещениеОС Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (4, 10) <-- // Shved <-- // { <-- Сч01_1 = СчетПоКоду(" 01.1"); <-- Сч79_2 = СчетПоКоду(" 79.2"); <-- Сч002_3 = СчетПоКоду("002.3"); <-- // } Shved Добавлены строки (13, 139) <-- <-- // Shved <-- // { <-- ТекстСообщения = ""; <-- Если ДатаДок > КонецРассчитанногоПериодаБИ() Тогда <-- ТекстСообщения = "На " + ДатаДок + " бухгалтерские итоги не рассчитаны! <-- |Расчет итогов выполняется в режиме <-- |""Операции - Управление бухгалтерскими итогами""." <-- <-- ИначеЕсли (Выбран() = 0) или ((Выбран() = 1) и (ДатаДок <> ТекущийДокумент().ДатаДок)) Тогда <-- ТекстСообщения = "Для получения суммы первоначальной стоимости по данным <-- |бухгалтерского учета документ необходимо записать." <-- <-- ИначеЕсли ОсновноеСредство.Выбран() = 0 Тогда <-- ТекстСообщения = "Не выбрано основное средство." <-- <-- ИначеЕсли Проведен() = 1 Тогда <-- ТекстСообщения = "Для получения балансовой стоимости и начисленной <-- |амортизации сделайте документ непроведенным." <-- <-- Иначе <-- <-- БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); <-- БухИт.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства, ОсновноеСредство, 2); <-- БухИт.ВыполнитьЗапрос(ТекущийДокумент(),, Сч01_1); <-- ОСПоСч002_3 = 0; <-- Если БухИт.СНД() = 0 Тогда <-- БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); <-- БухИт.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства, ОсновноеСредство, 2); <-- БухИт.ВыполнитьЗапрос(ТекущийДокумент(),, Сч002_3); <-- ОСПоСч002_3 = 1; <-- КонецЕсли; <-- БалансоваяСтоимость = БухИт.СНД(); <-- <-- Если БалансоваяСтоимость <> 0 Тогда <-- СведенияОбОС = глРасчетАмортизацииОС(ОсновноеСредство, ДатаДок); <-- НачисленнаяАмортизацияНач = СведенияОбОС.Получить("НачисленнаяАмортизацияНач"); <-- РассчитаннаяАмортизацияБух = СведенияОбОС.Получить("РассчитаннаяАмортизацияБух"); <-- НачисленнаяАмортизация = РассчитаннаяАмортизацияБух + НачисленнаяАмортизацияНач; <-- СчетНачисленияАмортизации = СведенияОбОС.Получить("СчетНачисленияАмортизации"); <-- Иначе <-- ТекстСообщения = "Балансовая стоимость равна нулю."; <-- КонецЕсли; <-- <-- КонецЕсли; <-- <-- Если ПустаяСтрока(ТекстСообщения) = 0 Тогда <-- глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), 1,, ОсновноеСредство.ТекущийЭлемент()); <-- глНеПроводить(ТекущийДокумент(),ТекстСообщения); <-- Возврат; <-- КонецЕсли; <-- <-- Филиал = 0; <-- Если Найти(Подразделение.Наименование,"Филиал") > 0 Тогда <-- Филиал = 1; <-- КонецЕсли; <-- <-- Если БалансоваяСтоимость <> 0 Тогда <-- Операция.НоваяПроводка(); <-- Операция.НомерЖурнала = "ОС"; <-- Операция.СодержаниеПроводки = "Списана баланс.ст-ть"; <-- Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <-- <-- Если ОСПоСч002_3 = 0 Тогда <-- <-- Если Филиал = 1 Тогда <-- Операция.Дебет.Счет = Сч79_2; <-- Иначе <-- Операция.Дебет.Счет = Сч01_1; <-- Операция.Дебет.ОсновныеСредства = ОсновноеСредство; <-- КонецЕсли; <-- Операция.Дебет.Подразделения = Подразделение; <-- Операция.Кредит.Счет = Сч01_1; <-- Операция.Кредит.ОсновныеСредства = ОсновноеСредство; <-- Операция.Кредит.Подразделения = ОсновноеСредство.Подразделение.Получить(ДатаДок-1); <-- <-- Иначе <-- <-- Количество = БухИт.СНД("К"); <-- Операция.Кредит.Счет = Сч002_3; <-- Операция.Кредит.ОсновныеСредства = ОсновноеСредство; <-- Подр = ОсновноеСредство.Подразделение.Получить(ДатаДок-1).Наименование; <-- Подразделение = ОсновноеСредство.Подразделение.Получить(ДатаДок-1); <-- Операция.Кредит.МестаХранения = Подразделение.sh_МестоХранения; <-- Операция.Сумма = БалансоваяСтоимость; <-- Операция.Количество = Количество; <-- <-- Операция.НоваяПроводка(); <-- Операция.НомерЖурнала = "ОС"; <-- Операция.СодержаниеПроводки = "Списана баланс.ст-ть"; <-- Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <-- Операция.Дебет.Счет = Сч002_3; <-- Операция.Дебет.ОсновныеСредства = ОсновноеСредство; <-- Операция.Дебет.МестаХранения = Подразделение.sh_МестоХранения; <-- Операция.Количество = Количество; <-- <-- КонецЕсли; <-- <-- Операция.Сумма = БалансоваяСтоимость; <-- <-- КонецЕсли; <-- <-- Если (НачисленнаяАмортизация <> 0) и (ПустоеЗначение(СчетНачисленияАмортизации) = 0) и (Филиал = 1) Тогда <-- <-- Операция.НоваяПроводка(); <-- Операция.НомерЖурнала = "ОС"; <-- Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <-- Операция.Сумма = НачисленнаяАмортизация; <-- <-- Если СчетНачисленияАмортизации.Забалансовый = 1 Тогда <-- Операция.СодержаниеПроводки = "Списан износ"; <-- Операция.Кредит.Счет = СчетНачисленияАмортизации; <-- Операция.Кредит.ОсновныеСредства = ОсновноеСредство; <-- <-- Иначе <-- <-- Операция.СодержаниеПроводки = "Списана амортизация"; <-- Операция.Кредит.Счет = Сч79_2; <-- Операция.Кредит.Подразделения = Подразделение; <-- Операция.Дебет.Счет = СчетНачисленияАмортизации; <-- Операция.Дебет.ОсновныеСредства = ОсновноеСредство; <-- Операция.Дебет.Подразделения = ОсновноеСредство.Подразделение.Получить(ДатаДок-1); <-- <-- КонецЕсли; <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (158, 162) <-- // Shved <-- // { <-- Операция.Записать(); <-- // } Shved Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (378, 381) <-- // Shved <-- // { <-- СуммаПеремещения = БалансоваяСтоимость; <-- // } Shved Документ.ПеремещениеТМЦ - Объект добавлен Документ.ПеремещениеТоваров Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПереоценкаВалюты Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПеречислениеЗарплатыНаПК Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПеречислениеНДФЛвБюджет Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПлатежноеПоручение Документ.ПлатежноеПоручение.СтатьяДДС - Объект добавлен Документ.ПлатежноеПоручение.ИсточникФинансирования - Объект добавлен Документ.ПлатежноеПоручение.sh_ДокОснование - Объект добавлен Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (506, 514) <-- <-- // Shved <-- // { <-- Спр = СоздатьОбъект("Справочник.sh_ИсточникФинансирования"); <-- Если Спр.НайтиПоНаименованию("Собственные средства")=1 Тогда <-- ИсточникФинансирования = Спр.ТекущийЭлемент(); <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (516, 561) <--// Shved <--// { <--//****************************************************************************** <--// <--Процедура ВводНаОсновании(ДокОсн) <-- <-- СтавкаНДС = глЗначениеПоУмолчанию("ОсновнаяСтавкаНДС"); <-- ВидПлатежа = Перечисление.ВидыПлатежа.Электронно; <-- АвтоПодстСуммыНДС = Перечисление.ПодстановкаСуммыНДС.СуммаНДС; <-- <-- sh_ДокОснование = ДокОсн; <-- РасчетныйСчет = глЗначениеПоУмолчанию("ОсновнойБанковскийСчет"); //ДокОсн.РасчетныйСчет; <-- Контрагент = ДокОсн.Контрагент; <-- Сумма = ДокОсн.Сумма; <-- СтавкаНДС = ДокОсн.СтавкаНДС; <-- НДС = ДокОсн.НДС; <-- ВидПлатежа = ДокОсн.ВидПлатежа; <-- СрокПлатежа = ДокОсн.СрокПлатежа; <-- Очередность = ДокОсн.Очередность; <-- Содержание = ДокОсн.Содержание; <-- Договор = ДокОсн.Договор; <-- СчетКонтрагента = ДокОсн.СчетКонтрагента; <-- ПеречислениеНалога = ДокОсн.ПеречислениеНалога; <-- СтатусСоставителяПлДок = ДокОсн.СтатусСоставителяПлДок; <-- КодБК = ДокОсн.КодБК; <-- КодОКАТО = ДокОсн.КодОКАТО; <-- ПоказательОснования = ДокОсн.ПоказательОснования; <-- ПоказательПериода = ДокОсн.ПоказательПериода; <-- ПоказательНомера = ДокОсн.ПоказательНомера; <-- ПоказательДаты = ДокОсн.ПоказательДаты; <-- ПоказательТипа = ДокОсн.ПоказательТипа; <-- КППплательщика = ДокОсн.КППплательщика; <-- КППполучателя = ДокОсн.КППполучателя; <-- СтатьяДДС = ДокОсн.СтатьяБДДС; <-- <-- Спр = СоздатьОбъект("Справочник.sh_ИсточникФинансирования"); <-- Если Спр.НайтиПоНаименованию("Собственные средства")=1 Тогда <-- ИсточникФинансирования = Спр.ТекущийЭлемент(); <-- КонецЕсли; <-- <-- Комментарий = "Введен на основании: "+ГлПредставлениеДокумента(ДокОсн); <-- <--КонецПроцедуры //ВводНаОсновании <--// } Shved Документ.ПоступлениеАрендованныхОС - Объект добавлен Документ.ПоступлениеМатериалов - Объект изменен Добавлены строки (21, 21) <-- - "Документ.sh_ПеремещениеФилиала" Добавлены строки (23, 24) <-- - "Документ.ИсправлениеСчетаФактурыПолученного" <-- - "Документ.КорректировочныйСчетФактураПолученный" Добавлены строки (26, 26) <-- - "Документ.ТребованиеНакладная" Удалены строки (28, 29) --> - "Документ.КорректировочныйСчетФактураПолученный" --> - "Документ.ИсправлениеСчетаФактурыПолученного" Документ.ПоступлениеМатериалов.ОблагНДС - Объект добавлен Документ.ПоступлениеМатериалов.СФнеПРЕД - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (935, 939) <-- // Shved <-- // { <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Изменены строки (267, 276) <-- <-- // Shved <-- // { <-- КонтекстФормыПодбора = СоздатьОбъект("СписокЗначений"); <-- КонтекстФормыПодбора.ДобавитьЗначение(Контекст, "Контекст"); <-- КонтекстФормыПодбора.ДобавитьЗначение(МестоХранения, "МестоХранения"); <-- ОткрытьПодбор("Справочник.Материалы", "ДляПодбора", КонтекстФормыПодбора) <-- //ОткрытьПодбор("Справочник.Материалы"); <-- // } Shved <-- --> .......... --> --> ОткрытьПодбор("Справочник.Материалы"); Добавлены строки (873, 882) <-- // Shved <-- // { <-- Результат = sh_ПроверкаДубля(Контекст); <-- Если НЕ(Результат=1) Тогда <-- Предупреждение ("Уже есть: "+СокрЛП(Результат)+" с входящим № "+СокрЛП(НомерДокВходящий),5); <-- СтатусВозврата (0); <-- Возврат; <-- КонецЕсли; <-- // } Shved <-- Документ.ПоступлениеНМА Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (691, 695) <-- // Shved <-- // { <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПоступлениеОборудования Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (687, 691) <-- // Shved <-- // { <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПоступлениеОС Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (697, 701) <-- // Shved <-- // { <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПоступлениеТоваров - Объект изменен Изменены строки (21, 21) <-- - "Документ.sh_ПеремещениеФилиала" --> - "Документ.СчетФактураПолученный" Удалены строки (23, 25) --> - "Документ.УслугиСтороннихОрганизаций" --> - "Документ.ПеремещениеТоваров" --> - "Документ.КорректировочныйСчетФактураПолученный" Добавлены строки (27, 31) <-- - "Документ.КорректировочныйСчетФактураПолученный" <-- - "Документ.ПеремещениеТоваров" <-- - "Документ.РасходнаяНакладная" <-- - "Документ.СчетФактураПолученный" <-- - "Документ.УслугиСтороннихОрганизаций" Документ.ПоступлениеТоваров.ТовЧекНДС - Объект добавлен Документ.ПоступлениеТоваров.Наценка1 - Объект добавлен Документ.ПоступлениеТоваров.Наценка2 - Объект добавлен Документ.ПоступлениеТоваров.СтатьяДР - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (30, 107) <--// Shved <--// { <--//****************************************************************************** <--// <--Процедура ЗаписьЦен() <-- <-- Перем ТаблицаДокумента; <-- <-- СпрЦены = СоздатьОбъект("Справочник.Цены"); <-- <-- ВыгрузитьТабличнуюЧасть(ТаблицаДокумента); <-- КолСтрок = ТаблицаДокумента.КоличествоСтрок(); <-- <-- Для Сч = 1 По КолСтрок Цикл <-- <-- ТаблицаДокумента.ПолучитьСтрокуПоНомеру(КолСтрок - Сч + 1); <-- СпрЦены.ИспользоватьВладельца(ТаблицаДокумента.Товар); <-- Если СпрЦены.НайтиПоРеквизиту("ТипЦен",Константа.ОсновнаяЦенаПриобретения,0) = 1 Тогда; <-- Иначе <-- СпрЦены.Новый(); <-- СпрЦены.ТипЦен = Константа.ОсновнаяЦенаПриобретения; <-- СпрЦены.Валюта = ТипЦен.Валюта; <-- СпрЦены.Записать(); <-- КонецЕсли; <-- УстановитьРеквизитСправочника(СпрЦены,"Цена",ТаблицаДокумента.Цена,ДатаДок); <-- <-- СпрЦены.ИспользоватьВладельца(ТаблицаДокумента.Товар); <-- Если СпрЦены.НайтиПоРеквизиту("ТипЦен",Константа.sh_УчетнаяЦена,0) = 1 Тогда; <-- Иначе <-- СпрЦены.Новый(); <-- СпрЦены.ТипЦен = Константа.sh_УчетнаяЦена; <-- СпрЦены.Валюта = ТипЦен.Валюта; <-- СпрЦены.Записать(); <-- КонецЕсли; <-- Если ТаблицаДокумента.Количество=0 Тогда <-- УчЦена = Окр(ТаблицаДокумента.Всего - ТаблицаДокумента.НДС,2); <-- Иначе <-- УчЦена = Окр((ТаблицаДокумента.Всего - ТаблицаДокумента.НДС)/ТаблицаДокумента.Количество,2); <-- КонецЕсли; <-- УстановитьРеквизитСправочника(СпрЦены,"Цена",УчЦена,ДатаДок); <-- <-- Если ТаблицаДокумента.Товар.УчЦена <> 0 Тогда <-- Если ТаблицаДокумента.Товар.УчЦена <> УчЦена Тогда <-- _Стр = "Стр.№ "+СокрЛП(ТаблицаДокумента.НомерСтроки)+" "+СокрЛП(ТаблицаДокумента.Товар.Код)+ <-- " """+СокрЛП(ТаблицаДокумента.Товар.Наименование)+""" цена отличается от учетной в карточке! "+С(ТаблицаДокумента.Товар.УчЦена); <-- //Сообщить(_Стр,"!"); <-- ЗаписьЖурналаРегистрации(_Стр,"УчетнаяЦена","Криво",ТекущийДокумент(),4); <-- КонецЕсли; <-- Иначе <-- СпрТ = СоздатьОбъект("Справочник.Номенклатура"); <-- СпрТ.НайтиЭлемент(ТаблицаДокумента.Товар); <-- СпрТ.УчЦена = УчЦена; <-- СпрТ.Записать(); <-- КонецЕсли; <-- Если ТаблицаДокумента.Товар.УчЦенаНДС <> 0 Тогда <-- Если ТаблицаДокумента.Товар.УчЦенаНДС <> ТаблицаДокумента.Цена Тогда <-- _Стр = "Стр.№ "+СокрЛП(ТаблицаДокумента.НомерСтроки)+" "+СокрЛП(ТаблицаДокумента.Товар.Код)+ <-- " """+СокрЛП(ТаблицаДокумента.Товар.Наименование)+""" цена отличается от учетной в карточке! "+С(ТаблицаДокумента.Товар.УчЦенаНДС); <-- //Сообщить(_Стр,"!"); <-- ЗаписьЖурналаРегистрации(_Стр,"УчетнаяЦена","Криво",ТекущийДокумент(),4); <-- КонецЕсли; <-- Иначе <-- СпрТ = СоздатьОбъект("Справочник.Номенклатура"); <-- СпрТ.НайтиЭлемент(ТаблицаДокумента.Товар); <-- СпрТ.УчЦенаНДС = ТаблицаДокумента.Цена; <-- СпрТ.Записать(); <-- КонецЕсли; <-- <-- КонецЦикла; <-- <-- Если СтатусВозврата() = 0 Тогда <-- Возврат; <-- КонецЕсли; <-- <--КонецПроцедуры <--// } Shved Добавлены строки (571, 575) <-- // Shved <-- // { <-- ОчиститьДвижения("Справочник"); <-- // } Shved <-- Добавлены строки (1049, 1052) <-- // Shved <-- // { <-- Операция.Дебет.Субконто(3,Товар.СтавкаНДС.Получить(ДатаДок)); <-- // } Shved Добавлены строки (1350, 1350) <-- Удалены строки (1353, 1353) --> Операция.СодержаниеПроводки = "Выделен НДС"; Добавлены строки (1355, 1368) <-- <-- // Shved <-- // { <-- Если ТовЧекНДС = 1 Тогда <-- <-- Операция.СодержаниеПроводки = "НДС, не подлежащий зачету"; <-- Операция.Дебет.Счет = СчетПоКоду("91.2"); <-- Операция.Дебет.Субконто(1, Константа.СтатьяРасходовНДСнеПодлежЗачету); <-- Операция.Дебет.Субконто(2, Перечисление.ОблагаемостьЕНВД.ОблагНеОблагЕНВД); <-- <-- Иначе <-- // } Shved <-- <-- Операция.СодержаниеПроводки = "Выделен НДС"; Добавлены строки (1372, 1373) <-- КонецЕсли; <-- Добавлены строки (2004, 2009) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Добавлены строки (2012, 2016) <-- // Shved <-- // { <-- ЗаписьЦен(); <-- // } Shved Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (9, 14) <--// Shved <--// { <--Перем ТаблицаПечФорм; // список печатных форм документа <--Перем НомерТекущейФормы; <--// } Shved Изменены строки (955, 958) <-- // Shved <-- // { <-- //КонтекстФормыПодбора.ДобавитьЗначение(Перечисление.ТипыНоменклатуры.Товар, "ОтборПоТипу"); <-- // } Shved --> .......... --> --> КонтекстФормыПодбора.ДобавитьЗначение(Перечисление.ТипыНоменклатуры.Товар, "ОтборПоТипу"); Добавлены строки (1533, 1538) <-- // Shved <-- // { <-- // Заполним таблицу для выбора печатной формы <-- НомерТекущейФормы = глУстановкаКнопкиПечать(Контекст, "Документ." + Вид(),ТаблицаПечФорм); <-- // } Shved <-- Добавлены строки (1593, 1602) <-- // Shved <-- // { <-- Результат = sh_ПроверкаДубля(Контекст); <-- Если НЕ(Результат=1) Тогда <-- Предупреждение ("Уже есть: "+СокрЛП(Результат)+" с входящим № "+СокрЛП(НомерДокВходящий),5); <-- СтатусВозврата (0); <-- Возврат; <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (1614, 1665) <--// Shved <--// { <--//****************************************************************************** <--// <--Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1) <-- <-- Если ПустоеЗначение(НомерТекущейФормы) = 1 Тогда <-- НомерТекущейФормы = 1; <-- Форма.кнПечать.Заголовок("<нету>"); <-- КонецЕсли; <-- <-- Если НомерТекущейФормы = 1 Тогда <-- Параметры = СоздатьОбъект("СписокЗначений"); <-- Параметры.ДобавитьЗначение(Контекст, "Контекст"); <-- Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство"); <-- Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий"); <-- <-- ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл")); <-- <-- Иначе <-- Параметры = СоздатьОбъект("СписокЗначений"); <-- Параметры.ДобавитьЗначение(Контекст, "Контекст"); <-- Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство"); <-- Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий"); <-- <-- ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл")); <-- КонецЕсли; <-- <--КонецПроцедуры // ПоКнопкеПечать() <--//****************************************************************************** <--// ПоКнопкеВыборПечатнойФормы() <--// <--// Вызывается из формул элементов диалога: <--// Кнопка "кнВыбПечать". <--// <--// Описание: <--// - открывает список для выбора способа печати. <--// - формирует таблицу по выбранному способу. <--// <--Процедура ПоКнопкеВыборПечатнойФормы() <-- <-- ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм); <-- Если ВыбНомер > 0 Тогда <-- НомерТекущейФормы = ВыбНомер; <-- Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка")); <-- ПоКнопкеПечать(); <-- КонецЕсли; <--КонецПроцедуры // ПоКнопкеВыборПечатнойФормы() <--// } Shved Добавлены строки (1674, 1683) <--// Shved <--// { <--СписокДействий.ДобавитьЗначение("Установить цены"); <--ТаблицаПечФорм = СоздатьОбъект("ТаблицаЗначений"); <--ТаблицаПечФорм.НоваяКолонка("Название","Строка",,,,30); <--ТаблицаПечФорм.НоваяКолонка("Файл","Строка",,,"Файл",10); <--ТаблицаПечФорм.НоваяКолонка("Кнопка","Строка",,,,10); <--ТаблицаПечФорм.НоваяКолонка("ФайлОписания","Строка"); <--// } Shved Документ.ПоступТоваров - Объект добавлен Документ.Прейскурант - Объект добавлен Документ.ПрейскурантВнутренний - Объект добавлен Документ.ПриказОКадровыхИзменениях Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПриказОПриемеНаРаботу Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПринятиеКУчетуНМА Форма Диалог - Объект изменен Бинарные файлы различны! Документ.ПриходнаяПеремещения - Объект добавлен Документ.ПриходныйОрдер Документ.ПриходныйОрдер.СтатьяДДС - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (331, 335) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Таблица - Объект изменен Бинарные файлы различны! Документ.РазуКомплектация - Объект добавлен Документ.РасходНакл - Объект добавлен Документ.РасходнаяМатериаловФилиалам - Объект добавлен Документ.РасходнаяНакладная Документ.РасходнаяНакладная.КомуДоверенность - Объект добавлен Документ.РасходнаяНакладная.ДатаДоверенности - Объект добавлен Документ.РасходнаяНакладная.НомерДоверенности - Объект добавлен Документ.РасходнаяНакладная.ДокументОснов - Объект добавлен Документ.РасходнаяНакладная.СтатьяДР - Объект добавлен Документ.РасходнаяНакладная.sh_ГрузополучательДоговор - Объект добавлен Документ.РасходнаяНакладная.sh_Наоборот - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Изменены строки (347, 355) <-- // Shved <-- // { <-- //Если Константа.КонтрольОтрицательныхОстатков = Да Тогда <-- // глНеПроводить(Контекст, ТекстСообщения); <-- // Возврат; <-- // <-- //Иначе <-- // глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), -1); <-- //КонецЕсли; --> .......... --> --> Если Константа.КонтрольОтрицательныхОстатков = Да Тогда --> глНеПроводить(Контекст, ТекстСообщения); --> Возврат; --> --> Иначе Изменены строки (357, 357) <-- // } Shved --> КонецЕсли; Добавлены строки (425, 446) <-- // Shved <-- // { <-- // есть доки в нормальным заполнением (с апреля 2012) и с обратным (до апреля 2012) <-- // поэтому надо учеcть обе ситуации... <-- // сравниваем по кпп... <-- БылаЗамена = 0; <-- _Контрагент = Контрагент; <-- _Договор = Договор; <-- Если Грузополучатель.Выбран()=1 Тогда // значит не "он же" <-- Если Грузополучатель <> Контрагент Тогда <-- Если ((Контрагент.sh_ИНН = Грузополучатель.sh_ИНН) и (Контрагент.sh_КПП = 997150001)) или (sh_Наоборот = 1) Тогда //значит филиал <-- БылаЗамена = 1; <-- Контрагент = Грузополучатель; <-- Договор = sh_ГрузополучательДоговор; <-- Сообщить("Проводим задом наперёд, всё наоборот: Контрагент = "+СокрЛП(Грузополучатель)+" / "+СокрЛП(sh_ГрузополучательДоговор),"i"); <-- Иначе <-- <-- КонецЕсли; <-- КонецЕсли; <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (1002, 1006) <-- // Shved <-- // { <-- Операция.Кредит.Субконто(3, ТаблицаДокумента.Товар.СтавкаНДС.Получить(ДатаДок)); <-- // } Shved <-- Добавлены строки (1018, 1021) <-- // Shved <-- // { <-- Операция.Дебет.МестаХранения = МестоХранения; <-- // } Shved Изменены строки (1392, 1396) <-- // Shved <-- // { <-- //Операция.Кредит.СтавкиНП= ТаблицаОтгрузки.СтавкаНП; <-- Операция.Кредит.МестаХранения = МестоХранения; <-- // } Shved --> .......... --> --> Операция.Кредит.СтавкиНП= ТаблицаОтгрузки.СтавкаНП; Изменены строки (1442, 1445) <-- // Shved <-- // { <-- //Операция.Кредит.СтавкиНП= ТаблицаОтгрузки.СтавкаНП; <-- // } Shved --> .......... --> --> Операция.Кредит.СтавкиНП= ТаблицаОтгрузки.СтавкаНП; Добавлены строки (2018, 2029) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- <-- Если БылаЗамена = 1 Тогда <-- Контрагент = _Контрагент; <-- Договор = _Договор; <-- КонецЕсли; <-- <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (406, 414) <--// Shved <--// { <--//****************************************************************************** <--// <--Процедура sh_ПриВыбореГрузополучателя() <-- глПриВыбореКонтрагента(Грузополучатель, sh_ГрузополучательДоговор); <--КонецПроцедуры //sh_ПриВыбореГрузополучателя <--// } Shved Добавлены строки (1310, 1316) <-- // Shved <-- // { <-- Форма.тДог.Видимость(Видимость); <-- Форма.оДог.Видимость(Видимость); <-- Форма.sh_ГрузополучательДоговор.Видимость(Видимость); <-- // } Shved <-- Добавлены строки (1335, 1338) <-- // Shved <-- // { <-- КонтекстФормыПодбора.ДобавитьЗначение(ВариантРасчетаНалогов, "ВариантРасчетаНалогов"); <-- // } Shved Добавлены строки (1512, 1564) <-- <-- // Shved <-- // { <-- Если ДокОсн.Вид() = "ВозвратИзТорговойТочки" Тогда <-- <-- ЗачитыватьАванс = 0; <-- ТипЦен = ДокОсн.ТипЦен; <-- МестоХранения = ДокОсн.МестоХранения; <-- ВидОтгрузки = 11; <-- ДокОсн.ВыбратьСтроки(); <-- Пока ДокОсн.ПолучитьСтроку() = 1 Цикл <-- НоваяСтрока(); <-- Товар = ДокОсн.Товар; <-- Количество = ДокОсн.Количество; <-- Цена = ДокОсн.ЦенаПродажи; <-- Сумма = Цена * Количество; <-- Пересчет("Цена"); <-- КонецЦикла <-- <-- ИначеЕсли ДокОсн.Вид() = "ПоступлениеТоваров" Тогда <-- <-- Новый = 1; <-- РасчетныйСчет = глЗначениеПоУмолчанию("ОсновнойБанковскийСчет"); <-- МестоХранения = ДокОсн.МестоХранения; <-- ВидОтгрузки = 11; <-- ЗачитыватьАванс = 0; <-- СпрКонтр = СоздатьОбъект("Справочник.Контрагенты"); <-- СпрКонтр.НайтиПоКоду("00000533"); <-- ВариантОтправки = 0; <-- УправлениеВидимостьюГрузоотправителя(); <-- Грузоотправитель = СпрКонтр.ТекущийЭлемент(); <-- СпрКонтр.НайтиПоКоду("00000446"); <-- Контрагент = СпрКонтр.ТекущийЭлемент(); <-- СпрВРН = СоздатьОбъект("Справочник.ВариантыРасчетаНалогов"); <-- СпрВРН.НайтиПоКоду(8); <-- ВариантРасчетаНалогов = СпрВРН.ТекущийЭлемент(); <-- СпрТипЦен = СоздатьОбъект("Справочник.ТипыЦен"); <-- СпрТипЦен.НайтиПоКоду("00002"); <-- ТипЦен = СпрТипЦен.ТекущийЭлемент(); <-- ДокОсн.ВыбратьСтроки(); <-- <-- Пока ДокОсн.ПолучитьСтроку() = 1 Цикл <-- НоваяСтрока(); <-- Товар = ДокОсн.Товар; <-- Количество = ДокОсн.Количество; <-- ГТД = ДокОсн.ГТД; <-- КонецЦикла; <-- <-- КонецЕсли; <-- <-- ДокументОснов = ДокОсн; <-- // } Shved Документ.РасходнаяНакладнаяОС - Объект добавлен Документ.РасходнаяПеремещения - Объект добавлен Документ.РасходнаяСибнефтепровод - Объект добавлен Документ.РасходнаяФилиалам - Объект добавлен Документ.РасходныйОрдер Документ.РасходныйОрдер.СтатьяДДС - Объект добавлен Документ.РасходныйОрдер.sh_ДокОснование - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (220, 224) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (582, 627) <--// Shved <--// { <--//****************************************************************************** <--// <--Процедура ВводНаОсновании(ДокОсн) <-- <-- СтавкаНДС = глЗначениеПоУмолчанию("ОсновнаяСтавкаНДС"); <-- ВидПлатежа = Перечисление.ВидыПлатежа.Электронно; <-- АвтоПодстСуммыНДС = Перечисление.ПодстановкаСуммыНДС.СуммаНДС; <-- <-- sh_ДокОснование = ДокОсн; <-- РасчетныйСчет = глЗначениеПоУмолчанию("ОсновнойБанковскийСчет"); //ДокОсн.РасчетныйСчет; <-- Контрагент = ДокОсн.Контрагент; <-- Сумма = ДокОсн.Сумма; <-- СтавкаНДС = ДокОсн.СтавкаНДС; <-- НДС = ДокОсн.НДС; <-- ВидПлатежа = ДокОсн.ВидПлатежа; <-- СрокПлатежа = ДокОсн.СрокПлатежа; <-- Очередность = ДокОсн.Очередность; <-- Содержание = ДокОсн.Содержание; <-- Договор = ДокОсн.Договор; <-- СчетКонтрагента = ДокОсн.СчетКонтрагента; <-- ПеречислениеНалога = ДокОсн.ПеречислениеНалога; <-- СтатусСоставителяПлДок = ДокОсн.СтатусСоставителяПлДок; <-- КодБК = ДокОсн.КодБК; <-- КодОКАТО = ДокОсн.КодОКАТО; <-- ПоказательОснования = ДокОсн.ПоказательОснования; <-- ПоказательПериода = ДокОсн.ПоказательПериода; <-- ПоказательНомера = ДокОсн.ПоказательНомера; <-- ПоказательДаты = ДокОсн.ПоказательДаты; <-- ПоказательТипа = ДокОсн.ПоказательТипа; <-- КППплательщика = ДокОсн.КППплательщика; <-- КППполучателя = ДокОсн.КППполучателя; <-- СтатьяДДС = ДокОсн.СтатьяБДДС; <-- <-- Спр = СоздатьОбъект("Справочник.sh_ИсточникФинансирования"); <-- Если Спр.НайтиПоНаименованию("Собственные средства")=1 Тогда <-- ИсточникФинансирования = Спр.ТекущийЭлемент(); <-- КонецЕсли; <-- <-- Комментарий = "Введен на основании: "+ГлПредставлениеДокумента(ДокОсн); <-- <--КонецПроцедуры //ВводНаОсновании <--// } Shved Документ.РасчетыПоСтраховымВзносам Форма Диалог - Объект изменен Бинарные файлы различны! Документ.РеализацияОтгруженнойПродукции Форма Диалог - Объект изменен Бинарные файлы различны! Документ.РегламентныеОперацииПоНалоговомуУчету Форма Диалог - Объект изменен Бинарные файлы различны! Документ.СписаниеМатериалов - Объект добавлен Документ.СписаниеОС Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (357, 363) <-- <-- // Shved <-- // { <-- Операция.Кредит.Подразделения = ОсновноеСредство.Подразделение.Получить(ДатаДок); <-- Операция.Дебет.Подразделения = ОсновноеСредство.Подразделение.Получить(ДатаДок); <-- // } Shved <-- Добавлены строки (382, 388) <-- <-- // Shved <-- // { <-- Операция.Кредит.Подразделения = ОсновноеСредство.Подразделение.Получить(ДатаДок); <-- Операция.Дебет.Подразделения = ОсновноеСредство.Подразделение.Получить(ДатаДок); <-- // } Shved <-- Добавлены строки (408, 413) <-- <-- // Shved <-- // { <-- Операция.Кредит.Подразделения = ОсновноеСредство.Подразделение.Получить(ДатаДок); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Документ.СписаниеОСдо1000 - Объект добавлен Документ.СписаниеСпецодеждыСпецоснастки Форма Диалог - Объект изменен Бинарные файлы различны! Документ.СчетФактура Документ.СчетФактура.НомерПлатРасчДок - Объект изменен Изменены строки (7, 7) <-- - Длина "200" --> - Длина "10" Документ.СчетФактура.ФактПокупатель - Объект добавлен Документ.СчетФактура.sh_ДатаСоздания - Объект добавлен Документ.СчетФактура.sh_ГрузополучательДоговор - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Изменены строки (199, 203) <-- // Shved <-- // { <-- //Операция.Дебет.Субконто(1, Контрагент); <-- Операция.Дебет.Субконто(1, Грузополучатель); <-- // } Shved --> .......... --> --> Операция.Дебет.Субконто(1, Контрагент); Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (528, 545) <-- // Shved <-- // { <-- ЕстьПоступление = 0; <-- Если ДокОсн.Вид() = "РасходнаяНакладная" Тогда <-- Если ДокОсн.ДокументОснов.Выбран() = 1 Тогда <-- Если ДокОсн.ДокументОснов.Вид() = "ПоступлениеТоваров" Тогда <-- ЕстьПоступление = 1; <-- ТЗГТД = СоздатьОбъект("ТаблицаЗначений"); <-- ДокОсн.ДокументОснов.ВыгрузитьТабличнуюЧасть(ТЗГТД,"Товар, ГТД"); <-- КонецЕсли; <-- КонецЕсли; <-- sh_ГрузополучательДоговор = ДокОсн.sh_ГрузополучательДоговор; <-- ИначеЕсли ДокОсн.Вид() = "ОказаниеУслуг" Тогда <-- Грузополучатель = ДокОсн.Контрагент; <-- sh_ГрузополучательДоговор = ДокОсн.Договор; <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (647, 696) <-- <-- // Shved <-- // { <-- Если ЕстьПоступление = 1 Тогда <-- <-- стр= 0; <-- Если ТЗГТД.НайтиЗначение(Товар,стр,"Товар")=1 Тогда <-- ГТД = ТЗГТД.ПолучитьЗначение(стр,"ГТД"); <-- КонецЕсли; <-- Иначе <-- <-- БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); <-- СчГТД = СчетПоКоду("ГТД"); <-- БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура,Товар,2); <-- БухИт.ИспользоватьСубконто(ВидыСубконто.ГТД); <-- БухИт.ВыполнитьЗапрос(ДатаДок,,СчГТД); <-- <-- Если БухИт.ВыбратьСубконто(1)=1 Тогда <-- Иначе <-- Сообщить("Товар = "+СокрЛП(Товар)+" ваще нет ни одного ГТД!","!"); <-- КонецЕсли; <-- Пока БухИт.ПолучитьСубконто(1) = 1 Цикл <-- Если БухИт.ВыбратьСубконто(2)=1 Тогда <-- Иначе <-- Сообщить("Товар = "+СокрЛП(Товар)+" ваще нет ни одного ГТД!","!"); <-- КонецЕсли; <-- Пока БухИт.ПолучитьСубконто(2) = 1 Цикл <-- Субконто02 = БухИт.Субконто(2); <-- Остаток = БухИт.СКД("К"); <-- Если Субконто02.Выбран()=0 Тогда <-- Сообщить("Товар = "+СокрЛП(Товар)+" Пустое ГТД! "+" остаток = "+С(Остаток),"!!!"); <-- Продолжить; <-- КонецЕсли; <-- Если Остаток>0 Тогда <-- Сообщить("Товар = "+СокрЛП(Товар)+" ГТД: "+СокрЛП(Субконто02)+" остаток = "+С(Остаток),"i"); <-- ГТД = Субконто02; <-- СтранаПроисхождения = Субконто02.СтранаПроисхождения; <-- Иначе <-- Сообщить("Товар = "+СокрЛП(Товар)+" ГТД: "+СокрЛП(Субконто02)+" остаток = "+С(Остаток),"!!"); <-- КонецЕсли; <-- КонецЦикла; <-- КонецЦикла; <-- <-- //Если Товар.Выбран() = 1 Тогда <-- // Остаток = БухИт.СКД(СчГТД, "К",, Товар, ТекущийЭлемент()); <-- //КонецЕсли; <-- <-- КонецЕсли; <-- // } Shved <-- Изменены строки (947, 951) <-- // Shved <-- // { <-- //НазначитьТип("Товар", "Строка", 22); <-- НазначитьТип("Товар", "Строка", 150); <-- // } Shved --> .......... --> --> НазначитьТип("Товар", "Строка", 22); Изменены строки (1023, 1027) <-- // Shved <-- // { <-- //НазначитьТип("Товар", "Строка", 22); <-- НазначитьТип("Товар", "Строка", 150); <-- // } Shved --> .......... --> --> НазначитьТип("Товар", "Строка", 22); Изменены строки (1211, 1215) <-- // Shved <-- // { <-- //НазначитьТип("Товар", "Строка", 22); <-- НазначитьТип("Товар", "Строка", 150); <-- // } Shved --> .......... --> --> НазначитьТип("Товар", "Строка", 22); Изменены строки (1285, 1289) <-- // Shved <-- // { <-- //НазначитьТип("Товар", "Строка", 22); <-- НазначитьТип("Товар", "Строка", 150); <-- // } Shved --> .......... --> --> НазначитьТип("Товар", "Строка", 22); Добавлены строки (1961, 1971) <-- // Shved <-- // { <-- ИННпокупателя = Контрагент.ИНН; <-- Если Грузополучатель.Выбран()=1 Тогда <-- Если Грузополучатель<>Контрагент Тогда <-- ИННпокупателя = Грузополучатель.ИНН; <-- Сообщить("ИНН для покупателя берем из Грузополучателя: "+СокрЛП(ИННпокупателя)); <-- КонецЕсли; <-- КонецЕсли; <-- // } Shved <-- Добавлены строки (2750, 2754) <-- // Shved <-- // { <-- sh_ДатаСоздания = ТекущаяДата(); <-- // } Shved <-- Добавлены строки (2778, 2782) <-- // Shved <-- // { <-- sh_ДатаСоздания = ТекущаяДата(); <-- // } Shved <-- Изменены строки (3118, 3122) <-- // Shved <-- // { <-- //НазначитьТип("Товар", "Строка", 22); <-- НазначитьТип("Товар", "Строка", 150); <-- // } Shved --> .......... --> --> НазначитьТип("Товар", "Строка", 22); Добавлены строки (3126, 3130) <-- // Shved <-- // { <-- //НазначитьТип("Товар", "Строка", 22); <-- НазначитьТип("Товар", "Строка", 150); <-- // } Shved Изменены строки (3189, 3189) <-- Операция.Содержание = "Сч.-факт.: "+СокрЛП(Контрагент)+" ("+СокрЛП(Грузополучатель)+")"; --> Операция.Содержание = "Сч.-факт. покупателю: "+Контрагент; Документ.СчетФактураПолученный Документ.СчетФактураПолученный.sh_ДатаСоздания - Объект добавлен Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (972, 976) <-- // Shved <-- // { <-- sh_ДатаСоздания = ТекущаяДата(); <-- // } Shved <-- Добавлены строки (1001, 1005) <-- // Shved <-- // { <-- sh_ДатаСоздания = ТекущаяДата(); <-- // } Shved <-- Документ.ТребованиеНакладная Документ.ТребованиеНакладная.ОблагНДС - Объект добавлен Документ.ТребованиеНакладная.Экспедитор - Объект добавлен Документ.ТребованиеНакладная.ДокументОснов - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Добавлены строки (5, 6) <--// Shved <--// { Изменены строки (10, 10) <--Процедура ПроведениеСкладскогоПеремещения() -->Процедура ОбработкаПроведения() Добавлены строки (104, 106) <-- //ТаблицаОстатков.СуммаНаСкладах = Макс(БухИтоги.СКД("С"), 0); <-- //ТаблицаОстатков.КоличествоНаСкладах = БухИтоги.СКД("К"); <-- Если БухИтоги.ПолучитьСубконто(ВидыСубконто.МестаХранения,, МестоХранения) = 1 Тогда Удалены строки (109, 109) --> Если БухИтоги.ПолучитьСубконто(ВидыСубконто.МестаХранения,, МестоХранения) = 1 Тогда Добавлены строки (179, 542) <-- // Shved <-- // { <-- //Если Константа.КонтрольОтрицательныхОстатков = Да Тогда <-- // глНеПроводить(Контекст, ТекстСообщения); <-- // Возврат; <-- // <-- //Иначе <-- // глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), -1); <-- //КонецЕсли; <-- глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), -1); <-- // } Shved <-- Иначе <-- Если ПустоеЗначение(ТекстСписокОС) = 0 Тогда <-- глСообщениеПроведения(ТекстСписокОС, ТекущийДокумент(), -1); <-- КонецЕсли; <-- КонецЕсли; <-- <-- КонецЕсли; <-- КонецЦикла; <-- <-- Если (ВидПеремещения = 0) и (глНовыеПравилаВеденияНУ(ДатаДок) = 1) Тогда <-- // Определим по данным бухгалтерского учета направление списания МПЗ в налоговом учете (счет и аналитику). <-- ПереченьСтатейЗатрат = глПолучитьПереченьСтатейЗатрат(ДатаДок); <-- КонецЕсли; <-- <-- ВыбратьСтроки(); <-- Пока ПолучитьСтроку()=1 Цикл <-- Если КоличествоОтпущено=0 Тогда <-- // Если не указано количество отпускаемного материала, выдаем сообщение и проводку не формируем. <-- ТекстСообщения = "Строка " + НомерСтроки + ", не указано отпущенное количество""" + Материал; <-- глНеПроводить(Контекст, ТекстСообщения); <-- Возврат; <-- <-- ИначеЕсли Материал.Выбран() = 0 Тогда <-- ТекстСообщения = "Строка " + НомерСтроки + ", не указан объект учета."; <-- глНеПроводить(Контекст, ТекстСообщения); <-- Возврат; <-- КонецЕсли; <-- <-- НомСтроки = 0; <-- ТаблицаОстатков.НайтиЗначение(Материал, НомСтроки, "Материал"); <-- ТаблицаОстатков.ПолучитьСтрокуПоНомеру(НомСтроки); <-- <-- // Сумму отпущенного материала записываем в скрытую колонку табличной части. <-- Если КоличествоОтпущено >= ТаблицаОстатков.КоличествоНаСкладах Тогда <-- Сумма = ТаблицаОстатков.СуммаНаСкладах; <-- <-- Иначе <-- Сумма = Окр(КоличествоОтпущено*ТаблицаОстатков.СредняяСтоимость, 2, 1); <-- КонецЕсли; <-- <-- Если КоличествоОтпущено >= ТаблицаОстатков.КоличествоНаСкладах Тогда <-- СуммаОтгрузки = ТаблицаОстатков.СуммаНаСкладах; <-- <-- Иначе <-- СуммаОтгрузки = Окр(КоличествоОтпущено*ТаблицаОстатков.СредняяСтоимость, 2, 1); <-- КонецЕсли; <-- <-- // Уменьшим остаток материала на списанное количество. <-- ТаблицаОстатков.СуммаНаСкладах = ТаблицаОстатков.СуммаНаСкладах - СуммаОтгрузки; <-- ТаблицаОстатков.КоличествоНаСкладах = ТаблицаОстатков.КоличествоНаСкладах - КоличествоОтпущено; <-- <-- Операция.НоваяПроводка(); <-- Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <-- //Операция.Дебет.Счет = СчетЗатрат; <-- //Операция.Дебет.Субконто(1,Субконто1); <-- //Операция.Дебет.Субконто(2,Субконто2); <-- //Операция.Дебет.Субконто(3,Субконто3); <-- Операция.Дебет.Счет = ТаблицаОстатков.СчетУчета; <-- Операция.Дебет.Субконто(1,Материал); <-- Операция.Дебет.Субконто(2,МестоХраненияПриемник); <-- Операция.Кредит.Счет = ТаблицаОстатков.СчетУчета; <-- Операция.Кредит.Субконто(1,Материал); <-- Операция.Кредит.Субконто(2, МестоХранения); <-- Операция.Количество = КоличествоОтпущено; <-- Операция.Сумма = СуммаОтгрузки; <-- Если Материал.Вид() = "Материалы" Тогда <-- Операция.СодержаниеПроводки = "Передан материал"; <-- Операция.НомерЖурнала = "МТ"; <-- <-- ИначеЕсли Материал.Вид() = "Номенклатура" Тогда <-- Если Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда <-- Операция.СодержаниеПроводки = "Передана продукция"; <-- <-- Иначе // полуфабрикат <-- Операция.СодержаниеПроводки = "Передан полуфабрикат"; <-- КонецЕсли; <-- Операция.НомерЖурнала = "ТВ"; <-- КонецЕсли; <-- <-- <-- Операция.СуммаОперации = Операция.СуммаОперации + Операция.Сумма; <-- <-- // Передача МПЗ в налоговом учете. <-- Если СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("10")) = 1 Тогда // возврат на склад (не отражается в налоговом учете) <-- ИначеЕсли глНовыеПравилаВеденияНУ(ДатаДок) = 1 Тогда <-- //_____________________________________________________________________________ <-- КоличествоОтгрузкиИнвентаряНУ=0; <-- КоличествоОтпущеноН=0; <-- СуммаСписанияН=0; <-- НеФормироватьПустыеПроводки=0; <-- //_____________________________________________________________________________ <-- // Если учет продукции ведется по нулевой стоимости, <-- // то при списании продукции (полуфабрикатов) в проводке <-- // указывается только количество. <-- КоличествоОтпущеноН=КоличествоОтпущено; <-- Если (Материал.Вид() = "Материалы") <-- или (Константа.СпособНалоговогоУчетаГПиПФ.Получить(ДатаДок) = Перечисление.СпособыНалоговогоУчетаГПиПФ.ПоПлановойСтоимости) Тогда <-- //_____________________________________________________________________________ <-- Если (ДатаДок>='01.01.2006') и (Материал.Вид() = "Материалы") Тогда <-- Если (Материал.СубСчет10 = СчетПоКоду("10.9")) Тогда <-- Если КоличествоОтпущеноН >= ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ Тогда <-- КоличествоОтгрузкиИнвентаряНУ = ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ; <-- ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ=ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ-КоличествоОтгрузкиИнвентаряНУ; <-- КоличествоОтпущеноН=КоличествоОтпущеноН-КоличествоОтгрузкиИнвентаряНУ; <-- Иначе <-- КоличествоОтгрузкиИнвентаряНУ=КоличествоОтпущеноН; <-- ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ=ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ-КоличествоОтгрузкиИнвентаряНУ; <-- КоличествоОтпущеноН=КоличествоОтпущеноН-КоличествоОтгрузкиИнвентаряНУ; <-- КонецЕсли; <-- КонецЕсли; <-- <-- Если КоличествоОтпущеноН >= ТаблицаОстатков.КоличествоНаСкладахНУ Тогда <-- СуммаОтгрузки = ТаблицаОстатков.СуммаНаСкладахНУ; <-- Иначе <-- СуммаОтгрузки = Окр(КоличествоОтпущеноН*(ТаблицаОстатков.СуммаНаСкладахНУ/ТаблицаОстатков.КоличествоНаСкладахНУ), 2, 1); <-- КонецЕсли; <-- <-- Иначе <-- //_____________________________________________________________________________ <-- Если КоличествоОтпущеноН >= ТаблицаОстатков.КоличествоНаСкладахНУ Тогда <-- СуммаОтгрузки = ТаблицаОстатков.СуммаНаСкладахНУ; <-- <-- Иначе <-- СуммаОтгрузки = Окр(КоличествоОтпущеноН*(ТаблицаОстатков.СуммаНаСкладахНУ/ТаблицаОстатков.КоличествоНаСкладахНУ), 2, 1); <-- КонецЕсли; <-- КонецЕсли; <-- <-- Иначе // продукция (полуфабрикат) <-- СуммаОтгрузки = 0; <-- КонецЕсли; <-- <-- // Уменьшим остаток материала на списанное количество. <-- ТаблицаОстатков.СуммаНаСкладахНУ = ТаблицаОстатков.СуммаНаСкладахНУ - СуммаОтгрузки; <-- ТаблицаОстатков.КоличествоНаСкладахНУ = ТаблицаОстатков.КоличествоНаСкладахНУ - КоличествоОтпущено; <-- <-- // Если опредлен налоговый счет, то необходимо <-- // сформировать проводку для целей налогового учета. <-- <-- Если Материал.Вид() = "Материалы" Тогда <-- СчетКт = Материал.СубСчет10; <-- <-- ИначеЕсли ТаблицаОстатков.Материал.Вид() = "Номенклатура" Тогда <-- Если ТаблицаОстатков.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда <-- СчетКт = СчетПоКоду("43"); <-- <-- ИначеЕсли ТаблицаОстатков.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда <-- СчетКт = СчетПоКоду("21"); <-- КонецЕсли; <-- КонецЕсли; <-- ОбъектыАналитикиНУ = глСчетИАналитикаРасходовНУ(Контекст, СчетЗатрат, Субконто1, Субконто2, Субконто3, ПереченьСтатейЗатрат, СчетКт); <-- СчетНУ = ОбъектыАналитикиНУ.Получить("Счет"); <-- <-- // Shved <-- // { <-- // Ругалось При складском перемещении на отсутствие <-- // ТаблицаОстатков.СчетУчетаНУ <-- // <-- КоличествоОтпущеноН = 0; <-- // } Shved <-- <-- Если КоличествоОтпущеноН<>0 Тогда <-- Операция.НоваяПроводка(); <-- Операция.НомерЖурнала = "НУ"; <-- Операция.СодержаниеПроводки = "Передан МПЗ"; <-- Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <-- Операция.Кредит.Счет = ТаблицаОстатков.СчетУчетаНУ; <-- Операция.Кредит.Субконто(1, Материал); <-- Если СчетЗатрат.Код = "20" Тогда // расходы, связанные с услугами ЕНВД не отражаются в НУ <-- // Shved <-- // { После смены аналитики на 20ке стало ругаца. пока коментарим... <-- // <-- //Если НЕ(Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД) Тогда // расходы, связанные с услугами ЕНВД не отражаются в НУ <-- // Если ПустоеЗначение(Операция.Дебет.Счет) = 1 Тогда <-- // Если ПустоеЗначение(СчетНУ) = 0 Тогда <-- // Операция.Дебет.Счет = СчетНУ; <-- // Для СчетчикЦикла = 1 По СчетНУ.КоличествоСубконто() Цикл <-- // ИдентификаторСубконто = СчетНУ.ВидСубконто(СчетчикЦикла,,).Идентификатор(); <-- // Операция.Дебет.Субконто(СчетчикЦикла, ОбъектыАналитикиНУ.Получить(ИдентификаторСубконто)); <-- // КонецЦикла; <-- // КонецЕсли; <-- // КонецЕсли; <-- //КонецЕсли; <-- // } Shved <-- Иначе <-- Если ПустоеЗначение(СчетНУ) = 0 Тогда <-- Операция.Дебет.Счет = СчетНУ; <-- Для СчетчикЦикла = 1 По СчетНУ.КоличествоСубконто() Цикл <-- ИдентификаторСубконто = СчетНУ.ВидСубконто(СчетчикЦикла,,).Идентификатор(); <-- Операция.Дебет.Субконто(СчетчикЦикла, ОбъектыАналитикиНУ.Получить(ИдентификаторСубконто)); <-- КонецЦикла; <-- КонецЕсли; <-- КонецЕсли; <-- <-- // Shved <-- // { <-- //Сообщить("ТаблицаОстатков.КоличествоНаСкладахНУ = "+СокрЛП(ТаблицаОстатков.КоличествоНаСкладахНУ)); <-- //Сообщить("СуммаОтгрузки = "+СокрЛП(СуммаОтгрузки)); <-- //Сообщить("КоличествоОтпущеноН = "+СокрЛП(КоличествоОтпущеноН)); <-- //Если ТаблицаОстатков.КоличествоНаСкладахНУ < 0 Тогда <-- // СуммаОтгрузки = 0; <-- // КоличествоОтпущеноН = 0; <-- //КонецЕсли; <-- // } Shved <-- <-- Операция.Сумма = СуммаОтгрузки; <-- Операция.Количество = КоличествоОтпущеноН; <-- <-- КонецЕсли; <-- <-- //_____________________________________________________________________________ <-- Если КоличествоОтгрузкиИнвентаряНУ>0 Тогда <-- <-- Операция.НоваяПроводка(); <-- Операция.НомерЖурнала = "НУ"; <-- Операция.СодержаниеПроводки = "Передан инвентарь"; <-- Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <-- Операция.Кредит.Счет = СчетПоКоду("Н02.МЦ");; <-- Операция.Кредит.Субконто(1, Материал); <-- Операция.Количество=КоличествоОтгрузкиИнвентаряНУ; <-- КонецЕсли; <-- //_____________________________________________________________________________ <-- КонецЕсли; <-- <-- КонецЦикла; <-- <--КонецПроцедуры // ПроведениеСкладскогоПеремещения() <--// } Shved <--//****************************************************************************** <--// Предопределенная процедура. <--// <--Процедура ОбработкаПроведения() <-- Сч21 = СчетПоКоду("21"); <-- Сч43 = СчетПоКоду("43"); <-- <-- СчН02_01 = СчетПоКоду("Н02.01"); <-- СчН02_03 = СчетПоКоду("Н02.03"); <-- СчН02_07 = СчетПоКоду("Н02.07"); <-- <-- Если (ВидПеремещения = 0) и (ПустоеЗначение(СчетЗатрат) = 1) Тогда <-- ТекстСообщения = "Не указан счет отнесения затрат."; <-- глНеПроводить(Контекст, ТекстСообщения); <-- Возврат; <-- КонецЕсли; <-- <-- Операция.СуммаОперации = 0; <-- <-- СписокМатериалов = СоздатьОбъект("СписокЗначений"); <-- СписокПродукции = СоздатьОбъект("СписокЗначений"); <-- ВыбратьСтроки(); <-- Пока ПолучитьСтроку() = 1 Цикл <-- Если Материал.Выбран() = 1 Тогда <-- Если Материал.Вид() = "Материалы" Тогда <-- СписокМатериалов.ДобавитьЗначение(Материал); <-- <-- ИначеЕсли Материал.Вид() = "Номенклатура" Тогда <-- СписокПродукции.ДобавитьЗначение(Материал); <-- КонецЕсли; <-- КонецЕсли; <-- КонецЦикла; <-- <-- БИ10 = СоздатьОбъект("БухгалтерскиеИтоги"); <-- БИ10.ИспользоватьСубконто(ВидыСубконто.Материалы, СписокМатериалов, 2); <-- БИ10.ИспользоватьСубконто(ВидыСубконто.МестаХранения); <-- БИ10.ВключатьСубсчета(-1); <-- БИ10.ВыполнитьЗапрос(,ТекущийДокумент(), "10",,,,, "СК"); <-- <-- БИ21и43 = СоздатьОбъект("БухгалтерскиеИтоги"); <-- БИ21и43.ИспользоватьСубконто(ВидыСубконто.Номенклатура, СписокПродукции, 2); <-- БИ21и43.ИспользоватьСубконто(ВидыСубконто.МестаХранения); <-- БИ21и43.ВыполнитьЗапрос(,ТекущийДокумент(), "21, 43",,,,, "СК"); <-- <-- БИ_НУМатериалы = СоздатьОбъект("БухгалтерскиеИтоги"); <-- БИ_НУМатериалы.ИспользоватьСубконто(ВидыСубконто.Материалы, СписокМатериалов, 2); <-- БИ_НУМатериалы.ВыполнитьЗапрос(,ТекущийДокумент(), "Н02.01",,,,, "СК"); <-- <-- БИПродукция = СоздатьОбъект("БухгалтерскиеИтоги"); <-- БИПродукция.ИспользоватьСубконто(ВидыСубконто.Номенклатура, СписокПродукции, 2); <-- БИПродукция.ВыполнитьЗапрос(,ТекущийДокумент(), "Н02.03, Н02.07",,,,, "СК"); <-- //_____________________________________________________________________________ <-- БИН_Н02_МЦ = СоздатьОбъект("БухгалтерскиеИтоги"); <-- БИН_Н02_МЦ.ИспользоватьСубконто(ВидыСубконто.Материалы, СписокМатериалов, 1); <-- БИН_Н02_МЦ.ВыполнитьЗапрос(,ТекущийДокумент(),"Н02.МЦ",,,,, "СК"); <-- //_____________________________________________________________________________ <-- <-- ТаблицаОстатков = СоздатьОбъект("ТаблицаЗначений"); <-- ВыгрузитьТабличнуюЧасть(ТаблицаОстатков, "Материал, КоличествоОтпущено"); <-- ТаблицаОстатков.Свернуть("Материал", "КоличествоОтпущено"); <-- ТаблицаОстатков.НоваяКолонка("КоличествоНаСкладах", "Число"); <-- ТаблицаОстатков.НоваяКолонка("СуммаНаСкладах", "Число"); <-- ТаблицаОстатков.НоваяКолонка("СредняяСтоимость", "Число"); <-- ТаблицаОстатков.НоваяКолонка("СчетУчета"); <-- ТаблицаОстатков.НоваяКолонка("КоличествоНаСкладахНУ", "Число"); <-- ТаблицаОстатков.НоваяКолонка("СуммаНаСкладахНУ", "Число"); <-- ТаблицаОстатков.НоваяКолонка("СчетУчетаНУ"); <-- ТаблицаОстатков.НоваяКолонка("КоличествоИнвентаряНаСкладахНУ", "Число"); <-- ТаблицаОстатков.ВыбратьСтроки(); <-- Пока ТаблицаОстатков.ПолучитьСтроку() = 1 Цикл <-- КоличествоНаСкладе = 0; <-- Если ТаблицаОстатков.Материал.Вид() = "Материалы" Тогда <-- ТаблицаОстатков.СчетУчета = ТаблицаОстатков.Материал.СубСчет10; <-- БухИтоги = БИ10; <-- БИ_НУ = БИ_НУМатериалы <-- <-- ИначеЕсли ТаблицаОстатков.Материал.Вид() = "Номенклатура" Тогда <-- Если ТаблицаОстатков.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда <-- ТаблицаОстатков.СчетУчета = Сч43; <-- БухИтоги = БИ21и43; <-- БИ_НУ = БИПродукция; <-- <-- ИначеЕсли ТаблицаОстатков.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда <-- ТаблицаОстатков.СчетУчета = Сч21; <-- БухИтоги = БИ21и43; <-- БИ_НУ = БИПродукция; <-- <-- Иначе <-- ТекстСообщения = ТаблицаОстатков.Материал + " не является продукцией (полуфабрикатом) и не может быть перемещен!"; <-- глНеПроводить(Контекст, ТекстСообщения); <-- Возврат; <-- КонецЕсли; <-- КонецЕсли; <-- <-- Если БухИтоги.ПолучитьСчет(, ТаблицаОстатков.СчетУчета) = 1 Тогда <-- Если БухИтоги.ПолучитьСубконто(1,, ТаблицаОстатков.Материал) = 1 Тогда <-- ТаблицаОстатков.СуммаНаСкладах = Макс(БухИтоги.СКД("С"), 0); <-- ТаблицаОстатков.КоличествоНаСкладах = БухИтоги.СКД("К"); <-- Если БухИтоги.ПолучитьСубконто(ВидыСубконто.МестаХранения,, МестоХранения) = 1 Тогда <-- КоличествоНаСкладе = БухИтоги.СКД("К"); <-- КонецЕсли; <-- КонецЕсли; <-- КонецЕсли; <-- <-- Если ТаблицаОстатков.КоличествоНаСкладах > 0 Тогда <-- ТаблицаОстатков.СредняяСтоимость = ТаблицаОстатков.СуммаНаСкладах/ТаблицаОстатков.КоличествоНаСкладах; <-- КонецЕсли; <-- <-- Если ВидПеремещения = 0 Тогда <-- Стр = ""+ТаблицаОстатков.НомерСтроки+". "+ТаблицаОстатков.Материал+": на складе "+МестоХранения+" "+КоличествоНаСкладе+" "+ <-- ТаблицаОстатков.Материал.ЕдиницаИзмерения+", всего на складах "+ТаблицаОстатков.КоличествоНаСкладах+" "+ <-- ТаблицаОстатков.Материал.ЕдиницаИзмерения+" на сумму "+ТаблицаОстатков.СуммаНаСкладах; <-- <-- Если ТаблицаОстатков.КоличествоНаСкладах > 0 Тогда <-- Стр = Стр + ", средняя стоимость " + Окр(ТаблицаОстатков.СредняяСтоимость, 2, 1); <-- КонецЕсли; <-- ТекстСообщения = Стр; <-- глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), 0); <-- КонецЕсли; <-- <-- Если КоличествоНаСкладе < ТаблицаОстатков.КоличествоОтпущено Тогда <-- ТекстСообщения = "На складе "+КоличествоНаСкладе+" "+ТаблицаОстатков.Материал.ЕдиницаИзмерения+ <-- " из необходимых "+ТаблицаОстатков.КоличествоОтпущено+" "+ТаблицаОстатков.Материал.ЕдиницаИзмерения+" "+ <-- ТаблицаОстатков.Материал + " ("+ТаблицаОстатков.СчетУчета+")"; Удалены строки (549, 550) --> Если ПустоеЗначение(ТекстСписокОС) = 0 Тогда --> глСообщениеПроведения(ТекстСписокОС, ТекущийДокумент(), -1); Добавлены строки (553, 602) <-- <-- // Предварительные операции по налоговому учету. <-- Если (ВидПеремещения = 0) и (глНовыеПравилаВеденияНУ(ДатаДок) = 1) Тогда <-- <-- ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ=0; <-- ТекстСписокОС = ""; <-- Если ТаблицаОстатков.Материал.Вид() = "Материалы" Тогда <-- ТаблицаОстатков.СчетУчетаНУ = СчН02_01; <-- //_____________________________________________________________________________ <-- Если (ДатаДок>='01.01.2006') И (ТаблицаОстатков.Материал.СубСчет10 = СчетПоКоду("10.9")) Тогда <-- Если БИН_Н02_МЦ.ПолучитьСубконто(,, ТаблицаОстатков.Материал) = 1 Тогда <-- ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ= БИН_Н02_МЦ.СКД("К"); <-- ТекстСписокОС=глПереченьМПЗВСоставеОС(ТаблицаОстатков.Материал,ТекущийДокумент()); <-- СчетУчетаИнвентаря=" и Н02.МЦ" <-- КонецЕсли; <-- КонецЕсли; <-- //_____________________________________________________________________________ <-- <-- ИначеЕсли ТаблицаОстатков.Материал.Вид() = "Номенклатура" Тогда <-- Если ТаблицаОстатков.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда <-- ТаблицаОстатков.СчетУчетаНУ = СчН02_03; <-- ИначеЕсли ТаблицаОстатков.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда <-- ТаблицаОстатков.СчетУчетаНУ = СчН02_07; <-- КонецЕсли; <-- КонецЕсли; <-- <-- Если БИ_НУ.ПолучитьСчет(, ТаблицаОстатков.СчетУчетаНУ) = 1 Тогда <-- Если БИ_НУ.ПолучитьСубконто(1,, ТаблицаОстатков.Материал) = 1 Тогда <-- ТаблицаОстатков.СуммаНаСкладахНУ = Макс(БИ_НУ.СКД("С"), 0); <-- ТаблицаОстатков.КоличествоНаСкладахНУ = БИ_НУ.СКД("К"); <-- КонецЕсли; <-- КонецЕсли; <-- Если (ТаблицаОстатков.КоличествоНаСкладахНУ + ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ) < ТаблицаОстатков.КоличествоОтпущено Тогда <-- ТекстСообщения = "По данным налогового учета на складах "+(ТаблицаОстатков.КоличествоНаСкладахНУ + ТаблицаОстатков.КоличествоИнвентаряНаСкладахНУ) +" "+ТаблицаОстатков.Материал.ЕдиницаИзмерения+ <-- " из необходимых "+ТаблицаОстатков.КоличествоОтпущено+" "+ТаблицаОстатков.Материал.ЕдиницаИзмерения+" "+ <-- ТаблицаОстатков.Материал + " ("+ТаблицаОстатков.СчетУчетаНУ+СчетУчетаИнвентаря+")"; <-- // Shved <-- // { <-- //Если Константа.КонтрольОтрицательныхОстатков = Да Тогда <-- // глНеПроводить(Контекст, ТекстСообщения); <-- // Возврат; <-- // <-- //Иначе <-- // глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), -1); <-- // Если ПустоеЗначение(ТекстСписокОС) = 0 Тогда <-- // глСообщениеПроведения(ТекстСписокОС, ТекущийДокумент(), -1); <-- // КонецЕсли; <-- //КонецЕсли; <-- глСообщениеПроведения(ТекстСписокОС, ТекущийДокумент(), -1); <-- // } Shved Изменены строки (761, 778) <-- // Shved <-- // { <-- // закоментировали, т.к. после смены аналитики на 20 счете, исчезло - СтатьиЗатратНаПроизводство <-- // для ТребованияНакладной <-- <-- //Если НЕ(Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД) Тогда // расходы, связанные с услугами ЕНВД не отражаются в НУ <-- // Если ПустоеЗначение(Операция.Дебет.Счет) = 1 Тогда <-- // Если ПустоеЗначение(СчетНУ) = 0 Тогда <-- // Операция.Дебет.Счет = СчетНУ; <-- // Для СчетчикЦикла = 1 По СчетНУ.КоличествоСубконто() Цикл <-- // ИдентификаторСубконто = СчетНУ.ВидСубконто(СчетчикЦикла,,).Идентификатор(); <-- // Операция.Дебет.Субконто(СчетчикЦикла, ОбъектыАналитикиНУ.Получить(ИдентификаторСубконто)); <-- // КонецЦикла; <-- // КонецЕсли; <-- // КонецЕсли; <-- //КонецЕсли; <-- <-- // } Shved --> .......... --> --> Если НЕ(Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД) Тогда // расходы, связанные с услугами ЕНВД не отражаются в НУ --> Если ПустоеЗначение(Операция.Дебет.Счет) = 1 Тогда --> Если ПустоеЗначение(СчетНУ) = 0 Тогда --> Операция.Дебет.Счет = СчетНУ; --> Для СчетчикЦикла = 1 По СчетНУ.КоличествоСубконто() Цикл --> ИдентификаторСубконто = СчетНУ.ВидСубконто(СчетчикЦикла,,).Идентификатор(); --> Операция.Дебет.Субконто(СчетчикЦикла, ОбъектыАналитикиНУ.Получить(ИдентификаторСубконто)); --> КонецЦикла; --> КонецЕсли; --> КонецЕсли; --> КонецЕсли; Добавлены строки (808, 808) <-- Добавлены строки (827, 838) <-- // Shved <-- // { <-- Если КоличествоОтпущено >= ТаблицаОстатков.КоличествоНаСкладах Тогда <-- СуммаОтгрузки = ТаблицаОстатков.СуммаНаСкладах; <-- Иначе <-- СуммаОтгрузки = Окр(КоличествоОтпущено * ТаблицаОстатков.СредняяСтоимость, 2, 1); <-- КонецЕсли; <-- <-- Операция.Сумма = СуммаОтгрузки; <-- Операция.СуммаОперации = Операция.СуммаОперации + Операция.Сумма; <-- // } Shved <-- Добавлены строки (844, 856) <-- // Shved <-- // { <-- Если ВидПеремещения <> 0 Тогда <-- // пока закоментарим, ... <-- // <-- //ПроведениеСкладскогоПеремещения(); <-- КонецЕсли; <-- <-- ОткрытьФорму("Обработка.Проводки002_1", Контекст); <-- <-- sh_ПроведениеБюджета(Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (361, 383) <--// Shved <--// { <--//****************************************************************************** <--// Предопределенная процедура <--// <--Процедура ВводНаОсновании(ДокОсн) <-- <-- Если ДокОсн.Вид() = "ПоступлениеМатериалов" Тогда <-- ДокОсн.ВыбратьСтроки(); <-- Пока ДокОсн.ПолучитьСтроку() = 1 Цикл <-- НоваяСтрока(); <-- Материал = ДокОсн.Материал; <-- КоличествоЗатребовано = ДокОсн.Количество; <-- КоличествоОтпущено = ДокОсн.Количество; <-- КонецЦикла; <-- МестоХранения = ДокОсн.МестоХранения; <-- ДокументОснов = ДокОсн; <-- КонецЕсли; <-- Комментарий = "Введен на основании: "+ГлПредставлениеДокумента(ДокОсн); <-- <--КонецПроцедуры // ВводНаОсновании() <--// } Shved Документ.УслугиСтороннихОрганизаций Документ.УслугиСтороннихОрганизаций.СтатьяДР - Объект добавлен Модуль Документа - Объект изменен Текст - Объект изменен Изменены строки (1179, 1187) <-- // Shved <-- // { <-- // закоментировали, т.к. после смены аналитики на 20 счете, исчезло - СтатьиЗатратНаПроизводство <-- <-- //Если ТаблицаУслуг.Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда // расходы, связанные с услугами ЕНВД не отражаются в НУ <-- // Продолжить; <-- //КонецЕсли; <-- <-- // } Shved --> .......... --> --> Если ТаблицаУслуг.Субконто1.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда // расходы, связанные с услугами ЕНВД не отражаются в НУ --> Продолжить; --> КонецЕсли; Добавлены строки (1398, 1403) <-- // Shved <-- // { <-- sh_ПроведениеБюджета(Контекст); <-- ОткрытьФорму ("Обработка.sh_Обязательства",Контекст); <-- // } Shved <-- Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.КассоваяКнига Форма Диалог - Объект изменен Бинарные файлы различны! Таблица - Объект изменен Бинарные файлы различны! Отчет.КнигаПокупок Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.КнигаПродаж Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.ОтчетПоОС Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.ОтчетПоСотрудникам Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.РасчетнаяВедомость Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.РегистрУчетаНачисленияНалогов Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.РегистрРасчетАмортизацииОсновныхСредств Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.РегистрРасчетАмортизацииНематериальныхАктивов Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.ИнвентаризационнаяОпись - Объект добавлен Отчет.РегистрУчетаОперацийПоДвижениюДебиторскойЗадолженности - Объект добавлен Отчет.РегистрУчетаОперацийПоДвижениюКредиторскойЗадолженности - Объект добавлен Отчет.РегистрУчетаРасходовБудущихПериодов Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.АктСверкиА - Объект добавлен Отчет.ДвижениеМатериалов - Объект добавлен Отчет.ДвижениеПродуктов - Объект добавлен Отчет.ЖурналОрдерОтчет - Объект добавлен Отчет.ЖурналОрдерПоКонтр - Объект добавлен Отчет.КассовыйТО - Объект добавлен Отчет.КассовыйТО41 - Объект добавлен Отчет.ОборотнаяВедомость - Объект добавлен Отчет.ОстатокМатериалов - Объект добавлен Отчет.ОстатокТовара - Объект добавлен Отчет.ТоварныйОтчет - Объект добавлен Отчет.ТоварныйОтчет2 - Объект добавлен Отчет.ТоварныйОтчетДораб - Объект добавлен Отчет.ПодготовкаСведенийДляПФР Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.АктСверки Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.ТехнологическийАнализ Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.КарточкаНоменклатуры - Объект добавлен Отчет.ИндивидуальнаяКарточкаЕСН Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.ПодготовкаСведенийДляИМНС Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.РегистрРасчетРасходовПоАмортизационнойПремии Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.КарточкаУчетаПоСтраховымВзносам Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.ПодготовкаСведенийДляПФР2010 Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.СправкиПоНДФЛ Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.РегистрНалоговогоУчетаПоНДФЛ Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.ПроверкаКомплектаДокументовПФР Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.КнигаПокупок1137 Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.КнигаПродаж1137 Форма Диалог - Объект изменен Бинарные файлы различны! Отчет.ЖурналУчетаПолученныхИВыставленныхСчетовФактур1137 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ВыгрузкаДанныхДляЗУП - Объект добавлен Обработка.ВыгрузкаДанныхДляЗУП25 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ИзменениеКонстантыИспользоватьТипыЦен Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ИндивидуальнаяКарточкаПоЕСН2004 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ИндивидуальнаяКарточкаПоОПС Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ИнформационныйБлок Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ИППГлавная Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ИППРегламентированныеОтчетыССайта - Объект добавлен Обработка.ОбновлениеИБ Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ОбработкаДокументов Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.Организация Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ПервыйЗапуск Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ПеречислениеНалога Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ПеречислениеНалога2005 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ПечатьПоступленияТоваров - Объект добавлен Обработка.ПомощникПереходаНа1CБухгалтерию8 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ПредприятиеКлиент Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ПроведениеПоМнОбТаре - Объект добавлен Обработка.Проводки002_1 - Объект добавлен Обработка.УстановкаЗначенийОбщая Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.УчетнаяПолитика Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.Форма1НДФЛ2002 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ФормированиеНалоговыхДокументов Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.Форма1НДФЛ2009 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ЛегальностьПолученияОбновлений Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ФормаКарточкаУчетаПоСтраховымВзносам Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ПеречислениеНалога2009 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ФормаСЗВ2010 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ВводДополнительныхСведенийОСтаже2010 Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.РедактированиеСведенийПФР Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.СтавкиСтраховыхВзносов Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.КорректировкаДанныхПоНДФЛ Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.ЗагрузкаФайловПФР Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.РедактироавниеДанных2НДФЛ Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.РедактированиеДанных2НДФЛ Форма Диалог - Объект изменен Бинарные файлы различны! Обработка.sh_Обязательства - Объект добавлен Перечисление.sh_ВидРасходов - Объект добавлен Перечисление.sh_Месяцы - Объект добавлен Перечисление.sh_ТипыЦенников - Объект добавлен Перечисление.ОблагаемостьЕНВД - Объект добавлен Перечисление.ОблагаемостьНДС - Объект добавлен Перечисление.ТипыТоваров Перечисление.ТипыТоваров.МнОбТара - Объект добавлен ГрафаОтбора.Контрагент - Объект изменен Добавлены строки (73, 73) <-- - "Документ.sh_ЗаявкаДС.Контрагент" Журнал.sh_ЗаявкиДС - Объект добавлен Журнал.sh_Планирование - Объект добавлен Журнал.sh_Спецификации - Объект добавлен Журнал.Банк Журнал.Банк.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (92, 96) <--// Shved <--// { <--СписокДействий.ДобавитьЗначение("Выписку в РЦК"); <--// } Shved Журнал.ДанныеПереданныеПФР Журнал.ДанныеПереданныеПФР.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.Материалы Журнал.Материалы.ВхСФ - Объект добавлен Журнал.Материалы.Контрагент - Объект добавлен Журнал.Материалы.ВхНомерСФ - Объект добавлен Журнал.Материалы.ВхДатаСФ - Объект добавлен Журнал.Материалы.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.Общий Журнал.Общий.Информация - Объект изменен Добавлены строки (58, 59) <-- - "Документ.sh_ЗаявкаДС.Контрагент" <-- - "Документ.ОперацияПоРасчСчету.Плательщик" Журнал.Общий.Сумма - Объект изменен Добавлены строки (57, 57) <-- - "Документ.sh_ЗаявкаДС.Сумма" Журнал.Общий.ВхСФ - Объект добавлен Журнал.Общий.ВхНомерСФ - Объект добавлен Журнал.Общий.ВхДатаСФ - Объект добавлен Журнал.Общий.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (232, 247) <-- <-- // Shved <-- // { <-- Если ТипЗначенияСтр(ТекДок)="Справочник" Тогда <-- Если ТекДок.Вид() = "Контрагенты" Тогда <-- УстановитьОтбор("Контрагент",ТекДок); <-- //ВидыОтбора(""); <-- ИначеЕсли ТекДок.Вид() = "Договоры" Тогда <-- УстановитьОтбор("Договор",ТекДок); <-- //ВидыОтбора(""); <-- КонецЕсли; <-- Иначе <-- АктивизироватьОбъект(ТекДок); <-- КонецЕсли; <-- // } Shved <-- Журнал.ОС Журнал.ОС.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.ПеречислениеНДФЛвБюджет Журнал.ПеречислениеНДФЛвБюджет.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.ПлатежныеДокументы Журнал.ПлатежныеДокументы.Контрагент - Объект изменен Добавлены строки (10, 10) <-- - "Документ.ОперацияПоРасчСчету.Плательщик" Журнал.ПлатежныеДокументы.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Модуль - Объект изменен Добавлены строки (84, 90) <--// Shved <--// { <--СписокДействий.ДобавитьЗначение("ПП в РЦК"); <--СписокДействий.ДобавитьЗначение("Реестр платежных документов"); <--СписокДействий.ДобавитьЗначение("Извещение по счету"); <--// } Shved Журнал.ПлатежныеДокументы.Форма.ДляПодбора Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.РасчетыПоСтраховымВзносам Журнал.РасчетыПоСтраховымВзносам.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.Складские - Объект добавлен Журнал.СФ_Выданные Журнал.СФ_Выданные.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.СФ_Полученные Журнал.СФ_Полученные.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.СчетаФактурыВыданные Журнал.СчетаФактурыВыданные.Получатель - Объект добавлен Журнал.СчетаФактурыВыданные.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.СчетаФактурыПолученные Журнал.СчетаФактурыПолученные.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Журнал.Товары Журнал.Товары.ВхСФ - Объект добавлен Журнал.Товары.ВхНомерСФ - Объект добавлен Журнал.Товары.ВхДатаСФ - Объект добавлен Журнал.Товары.Отправитель - Объект добавлен Журнал.Товары.Получатель - Объект добавлен Журнал.Товары.Форма.ФормаСписка Форма Диалог - Объект изменен Бинарные файлы различны! Параметры Проводки - Объект изменен Изменены строки (2, 2) <--- ДлинаСуммыПроводки "17" -->- ДлинаСуммыПроводки "14" Изменены строки (8, 8) <--- ДлинаКоличестваПроводки "17" -->- ДлинаКоличестваПроводки "14" Параметры Операции Форма Модуль - Объект изменен Параметры Бухгалтерии ПланСчетов.ФормаСписка.Основная Форма Диалог - Объект изменен Бинарные файлы различны! ПланСчетов.ФормаСписка.ДляВыбора Форма Диалог - Объект изменен Бинарные файлы различны! Форма Диалог - Объект изменен ВидСубконто.sh_Месяцы - Объект добавлен ВидСубконто.sh_СтатьиБДДС - Объект добавлен ВидСубконто.sh_СтатьиБДР - Объект добавлен ВидСубконто.sh_Филиалы - Объект добавлен ВидСубконто.Договоры - Объект изменен Изменены строки (14, 14) <-- - ПустоеСубконто "1" --> - ПустоеСубконто "0" ВидСубконто.НалоговыеИнспекции - Объект добавлен ВидСубконто.ОблагаемостьЕНВД - Объект добавлен ВидСубконто.ОблагаемостьНДС - Объект добавлен ВидСубконто.Партии - Объект добавлен ВидСубконто.sh_ДокументыОплаты - Объект добавлен ВидСубконто.sh_ДокументыОгрузки - Объект добавлен Проводка.СодержаниеПроводки - Объект изменен Изменены строки (7, 7) <-- - Длина "200" --> - Длина "50" ПланСчетов.Основной ПланСчетов.Основной.Счет.01 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.01.1 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.01.2 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.02 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.02.1 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.02.2 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.10.1 - Объект изменен Изменены строки (18, 18) <-- - УчетПоСумме "1" --> - УчетПоСумме "0" ПланСчетов.Основной.Счет.10.8 - Объект изменен Изменены строки (18, 18) <-- - УчетПоСумме "1" --> - УчетПоСумме "0" ПланСчетов.Основной.Счет.10.9 - Объект изменен Изменены строки (18, 18) <-- - УчетПоСумме "1" --> - УчетПоСумме "0" ПланСчетов.Основной.Счет.10.10 - Объект изменен Изменены строки (18, 18) <-- - УчетПоСумме "1" --> - УчетПоСумме "0" ПланСчетов.Основной.Счет.10.11 - Объект изменен Изменены строки (16, 16) <-- - ВидСубконто "ВидСубконто.МестаХранения" --> - ВидСубконто "ВидСубконто.НазначенияИспользования" ПланСчетов.Основной.Счет.10.11.1 - Объект изменен Изменены строки (16, 22) <-- - ВидСубконто "ВидСубконто.МестаХранения" --> - ВидСубконто "ВидСубконто.НазначенияИспользования" --> - ТолькоОбороты "0" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" --> - Субконто --> - ВидСубконто "ВидСубконто.Сотрудники" ПланСчетов.Основной.Счет.10.11.2 - Объект изменен Изменены строки (16, 22) <-- - ВидСубконто "ВидСубконто.МестаХранения" --> - ВидСубконто "ВидСубконто.НазначенияИспользования" --> - ТолькоОбороты "0" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" --> - Субконто --> - ВидСубконто "ВидСубконто.Подразделения" ПланСчетов.Основной.Счет.14.5 - Объект добавлен ПланСчетов.Основной.Счет.20 - Объект изменен Изменены строки (10, 10) <-- - ВидСубконто "ВидСубконто.СтатьиИздержекОбращения" --> - ВидСубконто "ВидСубконто.ВидыНоменклатуры" Изменены строки (16, 16) <-- - ВидСубконто "ВидСубконто.Подразделения" --> - ВидСубконто "ВидСубконто.СтатьиЗатратНаПроизводство" Изменены строки (22, 22) <-- - ВидСубконто "ВидСубконто.ВидыНачислений" --> - ВидСубконто "ВидСубконто.Подразделения" ПланСчетов.Основной.Счет.25 - Объект изменен Изменены строки (10, 10) <-- - ВидСубконто "ВидСубконто.СтатьиИздержекОбращения" --> - ВидСубконто "ВидСубконто.СтатьиОбщепроизводственныхЗатрат" ПланСчетов.Основной.Счет.26 - Объект изменен Изменены строки (10, 10) <-- - ВидСубконто "ВидСубконто.СтатьиИздержекОбращения" --> - ВидСубконто "ВидСубконто.СтатьиОбщехозяйственныхЗатрат" Добавлены строки (21, 26) <-- - Субконто <-- - ВидСубконто "ВидСубконто.ВидыНачислений" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.41 - Объект изменен Удалены строки (9, 14) --> - Субконто --> - ВидСубконто "ВидСубконто.Номенклатура" --> - ТолькоОбороты "0" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.41.1 - Объект изменен Изменены строки (18, 24) <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.СтавкиНДС" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" --> .......... --> --> - УчетПоСумме "0" ПланСчетов.Основной.Счет.41.3 - Объект изменен Изменены строки (18, 18) <-- - УчетПоСумме "1" --> - УчетПоСумме "0" ПланСчетов.Основной.Счет.41.5 - Объект изменен Удалены строки (10, 15) --> - ВидСубконто "ВидСубконто.Номенклатура" --> - ТолькоОбороты "0" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" --> - Субконто ПланСчетов.Основной.Счет.44.1 - Объект изменен Добавлены строки (15, 26) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.ВидыНачислений" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.44.1.1 - Объект изменен Добавлены строки (15, 26) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.ВидыНачислений" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.44.1.2 - Объект изменен Добавлены строки (15, 26) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.ВидыНачислений" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.44.1.3 - Объект изменен Добавлены строки (15, 26) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.ВидыНачислений" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.57 - Объект изменен Удалены строки (9, 14) --> - Субконто --> - ВидСубконто "ВидСубконто.ДвиженияДенежныхСредств" --> - ТолькоОбороты "1" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.57.1 - Объект изменен Изменены строки (10, 17) <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.Сотрудники" <-- - ТолькоОбороты "0" --> .......... --> --> - ВидСубконто "ВидСубконто.ДвиженияДенежныхСредств" --> - ТолькоОбороты "1" ПланСчетов.Основной.Счет.57.11 - Объект изменен Удалены строки (9, 14) --> - Субконто --> - ВидСубконто "ВидСубконто.ДвиженияДенежныхСредств" --> - ТолькоОбороты "1" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.68.1 - Объект изменен Добавлены строки (15, 26) <-- - Субконто <-- - ВидСубконто "ВидСубконто.НалоговыеИнспекции" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.68.4.1 - Объект изменен Добавлены строки (21, 26) <-- - Субконто <-- - ВидСубконто "ВидСубконто.НалоговыеИнспекции" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.68.4.2 - Объект изменен Добавлены строки (9, 14) <-- - Субконто <-- - ВидСубконто "ВидСубконто.НалоговыеИнспекции" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.77 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.ОсновныеСредства" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.90.1.1 - Объект изменен Изменены строки (22, 22) <-- - ВидСубконто "ВидСубконто.МестаХранения" --> - ВидСубконто "ВидСубконто.СтавкиНП" ПланСчетов.Основной.Счет.90.1.2 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.МестаХранения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.90.2.1 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.МестаХранения" <-- - ТолькоОбороты "1" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.90.2.2 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.МестаХранения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.91.2 - Объект изменен Добавлены строки (15, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.МестаХранения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.91.9 - Объект изменен Добавлены строки (9, 14) <-- - Субконто <-- - ВидСубконто "ВидСубконто.ОблагаемостьЕНВД" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.94 - Объект изменен Добавлены строки (9, 20) <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.Сотрудники" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" <-- - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.96 - Объект изменен Изменены строки (8, 8) <-- - ЭтоГруппа "1" --> - ЭтоГруппа "0" Добавлены строки (14, 19) <-- - УчетПоКоличеству "1" <-- - Субконто <-- - ВидСубконто "ВидСубконто.Подразделения" <-- - ТолькоОбороты "0" <-- - УчетПоСумме "1" <-- - УчетПоВалютнойСумме "1" ПланСчетов.Основной.Счет.96.1 - Объект добавлен ПланСчетов.Основной.Счет.96.2 - Объект добавлен ПланСчетов.Основной.Счет.002 - Объект изменен Удалены строки (9, 14) --> - Субконто --> - ВидСубконто "ВидСубконто.Контрагенты" --> - ТолькоОбороты "0" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" ПланСчетов.Основной.Счет.002.1 - Объект изменен Удалены строки (10, 15) --> - ВидСубконто "ВидСубконто.Контрагенты" --> - ТолькоОбороты "0" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" --> - Субконто Изменены строки (24, 24) <-- - УчетПоСумме "1" --> - УчетПоСумме "0" ПланСчетов.Основной.Счет.002.2 - Объект изменен Удалены строки (10, 15) --> - ВидСубконто "ВидСубконто.Контрагенты" --> - ТолькоОбороты "0" --> - УчетПоСумме "1" --> - УчетПоВалютнойСумме "1" --> - УчетПоКоличеству "1" --> - Субконто Изменены строки (24, 24) <-- - УчетПоСумме "1" --> - УчетПоСумме "0" ПланСчетов.Основной.Счет.БДР - Объект добавлен ПланСчетов.Основной.Счет.БДС - Объект добавлен ПланСчетов.Основной.Счет.ЗПК.20 - Объект изменен Изменены строки (3, 3) <-- - Наименование "По ставке 20%" --> - Наименование "По ставке 18% (20%)" ПланСчетов.Основной.Счет.ЗПК.20.Б - Объект изменен Изменены строки (3, 3) <-- - Наименование "Сумма без НДС 20%" --> - Наименование "Сумма без НДС 18% (20%)" ПланСчетов.Основной.Счет.ЗПК.20.Н - Объект изменен Изменены строки (3, 3) <-- - Наименование "Сумма НДС 20%" --> - Наименование "Сумма НДС 18% (20%)" ПланСчетов.Основной.Счет.ЗПР.20 - Объект изменен Изменены строки (3, 3) <-- - Наименование "По ставке 20%" --> - Наименование "По ставке 18% (20%)" ПланСчетов.Основной.Счет.ЗПР.20.Б - Объект изменен Изменены строки (3, 3) <-- - Наименование "Сумма без НДС 20%" --> - Наименование "Сумма без НДС 18% (20%)" ПланСчетов.Основной.Счет.ЗПР.20.Н - Объект изменен Изменены строки (3, 3) <-- - Наименование "Сумма НДС 20%" --> - Наименование "Сумма НДС 18% (20%)" ПланСчетов.Основной.Счет.Н02.04 - Объект изменен Изменены строки (23, 23) <-- - ТолькоОбороты "1" --> - ТолькоОбороты "0" ПланСчетов.Основной.Счет.Н02.04.1 - Объект изменен Изменены строки (23, 23) <-- - ТолькоОбороты "1" --> - ТолькоОбороты "0" ПланСчетов.Основной.Счет.Н02.04.2 - Объект изменен Изменены строки (23, 23) <-- - ТолькоОбороты "1" --> - ТолькоОбороты "0" ПланСчетов.Основной.Счет.Н02.04.3 - Объект изменен Изменены строки (23, 23) <-- - ТолькоОбороты "1" --> - ТолькоОбороты "0" ПланСчетов.Основной.Счет.НВ - Объект добавлен ПланСчетов.Основной.Счет.ОБ - Объект добавлен ПланСчетов.Основной.Счет.ОБ.ИТ - Объект добавлен ПланСчетов.Основной.Счет.ОБ.ОП - Объект добавлен ПланСчетов.Основной.Счет.ОБ.ОТ - Объект добавлен ПланСчетов.Основной.Счет.ПЛ - Объект добавлен ПланСчетов.Основной.Счет.ПЛ.ДР - Объект добавлен ПланСчетов.Основной.Счет.ПЛ.ДС - Объект добавлен ПланСчетов.Основной.Счет.ПТ - Объект добавлен ПланСчетов.Основной.Счет.41.4 - Объект удален ПланСчетов.Основной.Счет.69.21 - Объект удален ПланСчетов.Основной.Счет.69.21.1 - Объект удален ПланСчетов.Основной.Счет.69.21.2 - Объект удален ПланСчетов.Основной.Счет.69.21.3 - Объект удален ПланСчетов.Основной.Счет.69.21.4 - Объект удален ПланСчетов.Основной.Счет.69.21.5 - Объект удален ПланСчетов.Основной.Счет.76.ВА - Объект удален ПланСчетов.Основной.Счет.001 - Объект удален ПланСчетов.Основной.Счет.ВАЛ - Объект удален ПланСчетов.Основной.Счет.ВАЛ.60 - Объект удален ПланСчетов.Основной.Счет.ВАЛ.62 - Объект удален ПланСчетов.Основной.Счет.МЦ.04 - Объект удален ПланСчетов.Основной.Счет.Н02.09 - Объект удален ПланСчетов.Основной.Счет.Н02.МЦ - Объект удален ПланСчетов.Основной.Счет.Н05.МЦ - Объект удален ПланСчетов.Основной.Счет.Н11.05 - Объект удален ПланСчетов.Основной.Счет.Н11.06 - Объект удален ПланСчетов.Основной.Счет.Н11.07 - Объект удален ПланСчетов.Основной.Счет.Н11.08 - Объект удален ПланСчетов.Основной.Счет.Н11.09 - Объект удален ПланСчетов.Основной.Счет.Н11.10 - Объект удален ПланСчетов.Основной.Счет.Н11.11 - Объект удален ПланСчетов.Основной.Счет.СВЗ - Объект удален ПланСчетов.Основной.Счет.СВЗ.01 - Объект удален ПланСчетов.Основной.Счет.СВЗ.01.1 - Объект удален ПланСчетов.Основной.Счет.СВЗ.01.2 - Объект удален ПланСчетов.Основной.Счет.СВЗ.01.3 - Объект удален ПланСчетов.Основной.Счет.СВЗ.01.4 - Объект удален ПланСчетов.Основной.Счет.СВЗ.01.5 - Объект удален ПланСчетов.Основной.Счет.СВЗ.02 - Объект удален ПланСчетов.Основной.Счет.СВЗ.02.1 - Объект удален ПланСчетов.Основной.Счет.СВЗ.02.2 - Объект удален ПланСчетов.Основной.Счет.СВР - Объект удален ПланСчетов.Основной.Счет.СВР.1 - Объект удален ПланСчетов.Основной.Счет.СВР.2 - Объект удален ПланСчетов.Основной.Счет.УЕ - Объект удален ПланСчетов.Основной.Счет.УЕ.60 - Объект удален ПланСчетов.Основной.Счет.УЕ.62 - Объект удален Права Администратор - Объект изменен Главный бухгалтер - Объект добавлен Бухгалтер - Объект добавлен ПриходТМЦ - Объект добавлен Кассир - Объект добавлен БухгалтерОС - Объект добавлен Заявки - Объект добавлен Интерфейсы Бухгалтер - Объект изменен Заявки - Объект добавлен