Все изменения помечены комментарием "//ЛВА" При обновлении необходимо снять галку с объектов: 1. Справочник.Организации 2. ОбщийМодуль.ОбщегоНазначения 3. Документ.АктСверкиВзаиморасчетов 4. Документ.РеализацияТоваровУслуг 5. ОбщегоНазначения.ПолучитьНомерНаПечать(Шапка,); 6. Отчет.КнигаПродаж *************************************************************************************************************** Справочник.Организации 1. Добавлены реквизиты - ПрефиксДляРеализации - НумерацияКаждыйДеньЗаново *************************************************************************************************************** ОбщийМодуль.ОбщегоНазначения 1. Добавлена функция //ЛВА начало Функция ПолучитьНомерБезПрефиксовДляРеализации(Номер, МассивПрефиксовДляОбхода,ПрефРеализации,ПрефОрганизации) НомерПрефРеализации = Найти(Номер, ПрефРеализации); Если НомерПрефРеализации > 0 тогда ДлинаПрефРеализации = СтрДлина(ПрефРеализации); иначе ДлинаПрефРеализации = 0; КонецЕсли; Если ПрефОрганизации="" тогда ПрефОрганизации = "0" конецЕсли; НомерПрефОрганизации= Найти(Номер, ПрефОрганизации); Если (НомерПрефРеализации <> 0) тогда НомерСред=Сред(номер,НомерПрефРеализации); иначе НомерСред=Сред(номер,НомерПрефОрганизации); КонецЕсли; НачПреф = Лев(Номер,СтрДлина(Номер)-СтрДлина(НомерСред))+Лев(НомерСред,ДлинаПрефРеализации); Если (ПрефРеализации = "") ТОГДА НомерКон =сред(НомерСред,НомерПрефОрганизации+СтрДлина(ПрефОрганизации)+5); иначе НомерКон =сред(НомерСред,ДлинаПрефРеализации+СтрДлина(ПрефОрганизации)+5); конецЕсли; Пока Лев(НомерКон,1)="0" цикл НомерКон = Сред(НомерКон,2); КонецЦикла; Номер = НачПреф + НомерКон; Возврат Номер; КонецФункции //ЛВА конец 2.В процедуру ДобавитьПрефиксОрганизации добавлено условие //ЛВА начало Если ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.РеализацияТоваровУслуг") ИЛИ ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.СчетФактураВыданный") Тогда ОбщегоНазначения.ДобавитьПрефиксРеализации(ДокументОбъект, Префикс); //ЛВА 26.03.2015 Добавлено КонецЕсли; //ЛВА конец 3. Добавлена общедоступная процедура //ЛВА 26.03.2015 начало Процедура ДобавитьПрефиксРеализации(ДокументОбъект, Префикс) Экспорт Если ДокументОбъект.Организация.НумерацияКаждыйДеньЗаново = истина тогда Префикс = ДокументОбъект.Организация.ПрефиксДляРеализации + "" + Префикс+ "" + Формат(ДокументОбъект.Дата,"ДФ=""ММдд""") ; КонецЕсли; Конецпроцедуры //ЛВА 26.03.2015 конец 4. Внесены изменения в функцию ПолучитьНомерНаПечать, все изменения помечены "//ЛВА" Функция ПолучитьНомерНаПечать(Документ, МассивПрефиксов = Неопределено) Экспорт Если Документ = Неопределено Тогда Возврат 0; КонецЕсли; Номер = СокрЛП(Документ.Номер); // {ОбменДаннымиБСП // Если номер документа по стандарту БСП 8.2, сформируем номер через стандартную процедуру БСП. Если ПолучитьФункциональнуюОпцию("ИспользоватьОбменДанными") = Истина Тогда Если Сред(Номер, 5, 1) = "-" Тогда Номер = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Номер, Ложь, // УдалитьПрефиксИнформационнойБазы Истина // УдалитьПользовательскийПрефикс ); Возврат Номер; КонецЕсли; КонецЕсли; // }ОбменДаннымиБСП СсылкаНаДокумент = Неопределено; Префикс = ""; Попытка Если ТипЗнч(Документ) = Тип("Структура") Тогда //ЛВА начало Если Документ.Свойство("Ссылка") <> Неопределено тогда ДокСсылка = Документ.Ссылка; КонецЕсли; //ЛВА конец СсылкаНаДокумент = Документ.СсылкаСФАванс; ИначеЕсли ТипЗнч(Документ) = Тип("ДокументСсылка.СчетФактураВыданный") Или ТипЗнч(Документ) = Тип("ДокументОбъект.СчетФактураВыданный") Тогда ДокСсылка = Документ; //ЛВА добавлено Если Документ.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс Тогда СсылкаНаДокумент = Документ; КонецЕсли; ИначеЕсли ТипЗнч(Документ) = Тип("ДокументСсылка.РеализацияТоваровУслуг")//ЛВА добавлено Или ТипЗнч(Документ) = Тип("ДокументОбъект.РеализацияТоваровУслуг") Тогда //ЛВА добавлено ДокСсылка = Документ; //ЛВА добавлено ИначеЕсли ТипЗнч(Документ) = Тип("ВыборкаИзРезультатаЗапроса") Тогда Если Документ.СчетФактура.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс Тогда СсылкаНаДокумент = Документ; КонецЕсли; ДокСсылка = Документ.СчетФактура; КонецЕсли; Исключение КонецПопытки; Если МассивПрефиксов = Неопределено Тогда Организация = Неопределено; ПодразделениеОрганизации = Неопределено; Если ТипЗнч(Документ) = Тип("ВыборкаИзРезультатаЗапроса") ИЛИ ТипЗнч(Документ) = Тип("Структура") Тогда Организация = Документ.Организация; Иначе МетаданныеДокумента = Документ.Метаданные(); Если ЕстьРеквизитДокумента("Организация", МетаданныеДокумента) Тогда Организация = Документ.Организация; КонецЕсли; КонецЕсли; МассивПрефиксовДляОбхода = СформироватьМассивПрефиксовДляРИБИОрганизации(Организация); Иначе МассивПрефиксовДляОбхода = МассивПрефиксов; КонецЕсли; ВыкинутПрефиксСФНаАванс = Ложь; //ЛВА начало //Документ.Ссылка Если ДокСсылка <> Неопределено тогда Если ТипЗнч(ДокСсылка) = Тип("ДокументСсылка.РеализацияТоваровУслуг") ИЛИ ТипЗнч(ДокСсылка) = Тип("ДокументСсылка.СчетФактураВыданный") Тогда Если (ДокСсылка.Организация.НумерацияКаждыйДеньЗаново = Истина) тогда //и (ДокСсылка.Организация.ПрефиксДляРеализации <>"") тогда ПрефРеализации = ДокСсылка.Организация.ПрефиксДляРеализации; ПрефОрганизации = ДокСсылка.Организация.Префикс; Если Сред(Номер, 1, 1) = "А" тогда ВыкинутПрефиксСФНаАванс = Истина; КонецЕсли; Номер = ПолучитьНомерБезПрефиксовДляРеализации(Номер, МассивПрефиксовДляОбхода,ПрефРеализации,ПрефОрганизации); иначе Номер = ПолучитьНомерБезПрефиксов(Номер, МассивПрефиксовДляОбхода); КонецЕсли; иначе Номер = ПолучитьНомерБезПрефиксов(Номер, МассивПрефиксовДляОбхода); КонецЕсли; КонецЕсли; //ЛВА конец ОтдельнаяНумерацияСФНаАванс = Константы.ОтдельнаяНумерацияСчетовФактурНаАванс.Получить(); Если ОтдельнаяНумерацияСФНаАванс И СсылкаНаДокумент <> Неопределено И Сред(Номер, 1, 1) = "А" Тогда ВыкинутПрефиксСФНаАванс = Истина; Номер = Сред(Номер, 2); Если Сред(Номер, 1, 1) = "-" Тогда Номер = Сред(Номер, 2); КонецЕсли; //лва НАЧАЛО Если ТипЗнч(ДокСсылка) = Тип("ДокументСсылка.СчетФактураВыданный") Тогда Если (ДокСсылка.Организация.НумерацияКаждыйДеньЗаново = Истина) тогда //и (ДокСсылка.Организация.ПрефиксДляРеализации <>"") тогда ПрефРеализации = ДокСсылка.Организация.ПрефиксДляРеализации; ПрефОрганизации = ДокСсылка.Организация.Префикс; Номер = Номер;//ПолучитьНомерБезПрефиксовДляРеализации(Номер, МассивПрефиксовДляОбхода,ПрефРеализации,ПрефОрганизации); иначе Номер = ПолучитьНомерБезПрефиксов(Номер, МассивПрефиксовДляОбхода); КонецЕсли; иначе Номер = ПолучитьНомерБезПрефиксов(Номер, МассивПрефиксовДляОбхода); КонецЕсли; //Номер = ПолучитьНомерБезПрефиксов(Номер, МассивПрефиксовДляОбхода); //ЛВА конец КонецЕсли; Если ВыкинутПрефиксСФНаАванс Тогда Номер = "А" + Номер; КонецЕсли; Возврат Номер; КонецФункции // ПолучитьНомерНаПечать() ***************************************************************************************************************** Документ.АктСверкиВзаиморасчетов 1. Внесены изменения в процедуру ЗаполнитьПоДаннымБухгалтерскогоУчета в модуле объекта стр.631 //ЛВА начало Если Представление = "Продажа" И ТипЗнч(Выборка.Документ) <> Тип("ДокументСсылка.ОперацияБух") Тогда НомерВходящегоДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(Выборка.Документ); Представление = Представление +" ("+ ?(НЕ ЗначениеЗаполнено(НомерВходящегоДокумента),"_______", НомерВходящегоДокумента) +" от "+ ?(НЕ ЗначениеЗаполнено(Выборка.ДатаВходящегоДокумента), "' . . '", Формат(Выборка.ДатаВходящегоДокумента, "ДФ=dd.MM.yyyy"))+")"; иначе Представление = Представление +" ("+ ?(НЕ ЗначениеЗаполнено(Выборка.НомерВходящегоДокумента),"_______", Выборка.НомерВходящегоДокумента) +" от "+ ?(НЕ ЗначениеЗаполнено(Выборка.ДатаВходящегоДокумента), "' . . '", Формат(Выборка.ДатаВходящегоДокумента, "ДФ=dd.MM.yyyy"))+")"; КонецЕсли; //ЛВА конец ***************************************************************************************************************** Документ.РеализацияТоваровУслуг 1. Внесены изменения в процедуру ПечатьТОРГ12 стр.1018 //ОбластьМакетаШапка.Параметры.НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(Шапка,); //ЛВА изменила ОбластьМакетаШапка.Параметры.НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(ЭтотОбъект.Ссылка); ***************************************************************************************************************** Отчет.КнигаПродаж 1. Внесены изменения в процедуру ОпределитьДатуИНомерСФ в модуле документа стр. 618 //ЛВА начало //СтруктураПередачи = Новый Структура("Дата, Номер, Организация", ЗаписьКниги.ДатаСчетаФактуры, ЗаписьКниги.НомерСчетаФактуры, Организация); СтруктураПередачи = Новый Структура("Дата, Номер, Организация, Ссылка", ЗаписьКниги.ДатаСчетаФактуры, ЗаписьКниги.НомерСчетаФактуры, Организация,ЗаписьКниги.СчетФактураДокумент); //ЛВА конец