Процедура КнопкаВыбратьСканНажатие(Элемент)

	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

	Диалог.Заголовок = "Выберите файл";

	Диалог.ПолноеИмяФайла = ""; 

	Фильтр = "Все файлы (*.*)|*.*";

	Диалог.Фильтр = Фильтр; 

	Если Диалог.Выбрать() Тогда

		Попытка

			ПутьКВнешнемуФайлу = Диалог.ПолноеИмяФайла;

			СканФайл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ПутьКВнешнемуФайлу));

			СканНазвание = СтрЗаменить(Диалог.ПолноеИмяФайла, Диалог.Каталог,"");

		Исключение

			СканНазвание = "ОШИБКА!";

			Сообщить(ОписаниеОшибки());

		КонецПопытки; 		

	КонецЕсли;  

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

 Процедура ОсновныеДействияФормыПечатьСканВорд(Кнопка)

	ИмяМакета = СканФайл;	

	Если Прав(СканНазвание,3)="doc" или Прав(СканНазвание,3)="docx" Тогда

		Состояние("Идет печать в Word");

		УниверсальныеМеханизмы.НапечататьВнешнююФорму(Ссылка, ИмяМакета);

	Иначе

		ИмяКаталога = КаталогВременныхФайлов();

		ИмяФайла = "vrem" + Формат(ТекущаяДата(),"ДФ=yyyyMMddhhmmss")+СокрЛП(Прав(СканНазвание,5));

		ИмяФайла = РаботаСФайлами.ПолучитьИмяФайла(ИмяКаталога, ИмяФайла);

		ДвоичныеДанные = ИмяМакета.Получить();

		Если ДвоичныеДанные = Неопределено Тогда

			Предупреждение("Не могу открыть файл, прикрепите новый внешний файл!");

		Иначе

			ДвоичныеДанные.Записать(ИмяФайла);

			ЗапуститьПриложение(ИмяФайла);

		КонецЕсли; 

	КонецЕсли;  	

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

 Процедура ОсновныеДействияФормыПечатьСканВорд(Кнопка)

	ИмяМакета = СканФайл;	

	Если Прав(СканНазвание,3)="doc" или Прав(СканНазвание,3)="docx" Тогда

		Состояние("Идет печать в Word");

		УниверсальныеМеханизмы.НапечататьВнешнююФорму(Ссылка, ИмяМакета);

	Иначе

		ИмяКаталога = КаталогВременныхФайлов();

		ИмяФайла = "vrem" + Формат(ТекущаяДата(),"ДФ=yyyyMMddhhmmss")+СокрЛП(Прав(СканНазвание,5));

		ИмяФайла = РаботаСФайлами.ПолучитьИмяФайла(ИмяКаталога, ИмяФайла);

		ДвоичныеДанные = ИмяМакета.Получить();

		Если ДвоичныеДанные = Неопределено Тогда

			Предупреждение("Не могу открыть файл, прикрепите новый внешний файл!");

		Иначе

			ДвоичныеДанные.Записать(ИмяФайла);

			// Вывод в элемент ActiveX Adobe PDF Reader

			ЭлементыФормы.PDFСканДоговор.LoadFile(ИмяФайла);

		КонецЕсли; 

	КонецЕсли;  	

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

 СформироватьОтчет(ЭлементыФормы.Результат, ДанныеРасшифровки);   

 Макет = ПолучитьОбщийМакет("МакетПодписи");

ОбластьВывести = Макет.ПолучитьОбласть("Подпись");

ЭлементыФормы.Результат.Вывести(ОбластьВывести);   

 Процедура ОбновитьОтчет() Экспорт

СостояниеМодифицированности = Модифицированность;

Если ПанельНастроекНарисована <> Истина Тогда

ОбновлениеОтображения();

КонецЕсли;

ТиповыеОтчеты.ЗагрузитьВРеквизитЗначенияНастроекПанелиПользователя(ЭтотОбъект, ЭтаФорма);

ПараметрыПанели = ТиповыеОтчеты.ПолучитьПараметрыПанелиПользователяОбъекта(ОтчетОбъект);

ЗначенияНастроек = ТиповыеОтчеты.ПолучитьЗначенияНастроекПанелиПользователяОбъекта(ОтчетОбъект);

Отказ = ложь;

ТиповыеОтчеты.ПроверитьЗначенияПараметров(ЗначенияНастроек, ПараметрыПанели, Отказ);

Если Отказ тогда

Возврат;

КонецЕсли;

РежимформированияОтчета = НЕ ЭтоОтработкаРасшифровки;

СформироватьОтчет(ЭлементыФормы.Результат, ДанныеРасшифровки);

//Мигачев - Вывод подписей

Макет = ПолучитьОбщийМакет("МакетПодписи");

ОбластьВывести = Макет.ПолучитьОбласть("Подпись");

// Если надо вывести параметр

//ОбластьВывести.Параметры.Подписант = Бухгалтер;

ЭлементыФормы.Результат.Вывести(ОбластьВывести);

//*//

УправлениеОтчетами.УстановитьКолонтитулыПоУмолчанию(ЭлементыФормы.Результат, Заголовок, Строка(ПараметрыСеанса.ТекущийПользователь));

Модифицированность = СостояниеМодифицированности;

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

 Перем ТекДата, ТипСсылки, ТекСсылка;



Процедура ПриОткрытии()

	ТекДата = Дата;

	ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(Текст);	

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



Процедура ОзнакомленНажатие(Элемент)

	Если ЗначениеЗаполнено(ТекДата) Тогда

		НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();	

		НаборЗаписей.Отбор.Получатель.Установить(Пользователь);

		НаборЗаписей.Отбор.Период.Установить(ТекДата);

		НаборЗаписей.Прочитать();

		НовыйНомер = НаборЗаписей[0];

		НовыйНомер.ДатаОзнакомления = ТекущаяДата();

		НаборЗаписей.Записать();

		Если ЗначениеЗаполнено(НовыйНомер.ТипСсылки) Тогда

			ТекСсылка = НовыйНомер.Ссылка;

			ТипСсылки = НовыйНомер.ТипСсылки;

		КонецЕсли;

			

	КонецЕсли;

	Парам = Новый Структура;

	Парам.Вставить("ТипСсылки", ТипСсылки);

	Парам.Вставить("ТекСсылка", ТекСсылка);

	ЭтаФорма.Закрыть(Парам);

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



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

	// Отказ от стандартной обработки клика.

	pEvtObj.returnValue = Ложь;

	Если ВРег(pEvtObj.srcElement.tagName) = "A" Тогда

		СсылкаТекст = Сред(pEvtObj.srcElement.href, 4);

		Ссылка = ЗначениеИзСтрокиВнутр(СсылкаТекст);

		Если Ссылка.Пустая()

			Или Ссылка.ПолучитьОбъект() = Неопределено Тогда

			Предупреждение("Ошибка открытия объекта.",, "Ошибка");

			Возврат;

		Иначе

			ОткрытьЗначение(Ссылка);

		КонецЕсли;

	КонецЕсли;



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

 Процедура СоздатьОповещение(Получатель,ТекстОповещения, ТипСсылки=Неопределено, Ссылка=Неопределено) Экспорт 

	НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();

		                                     	

	НовЗапись = НаборЗаписей.Добавить(); 	

	НовЗапись.Период  = ТекущаяДата();     	

	НовЗапись.Получатель = Получатель;        	

	НовЗапись.ТекстОповещения = ТекстОповещения; 	

	Если НЕ ТипСсылки=Неопределено Тогда

		НовЗапись.ТипСсылки = ТипСсылки;

	КонецЕсли;

	Если НЕ Ссылка=Неопределено Тогда

		НовЗапись.Ссылка = Ссылка;

	КонецЕсли;



	НаборЗаписей.Записать(Ложь); 

КонецПроцедуры // СоздатьОповещение()



Процедура ПоказатьОповещение(ТекстОповещения)

	формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");

	формОповещ.текст=ТекстОповещения;

	Если Не формОповещ.Открыта() Тогда

		формОповещ.ОткрытьМодально();

	КонецЕсли;   	

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

   

 //Проверим Оповещения для пользователя

	Запрос = Новый Запрос;

	Запрос.Текст =

	"ВЫБРАТЬ

	|	МЕ_Оповещения.Период КАК Период,

	|	МЕ_Оповещения.Получатель,

	|	МЕ_Оповещения.ТекстОповещения,

	|	МЕ_Оповещения.ДатаОзнакомления

	|ИЗ

	|	РегистрСведений.МЕ_Оповещения КАК МЕ_Оповещения

	|ГДЕ

	|	МЕ_Оповещения.ДатаОзнакомления = &ДатаОзнакомления

	|	И МЕ_Оповещения.Получатель = &Получатель

	|

	|УПОРЯДОЧИТЬ ПО

	|	Период";

	Запрос.УстановитьПараметр("ДатаОзнакомления", Дата("01.01.0001 0:00:00"));

	Запрос.УстановитьПараметр("Получатель", ПараметрыСеанса.ТекущийПользователь);

	

	Результат = Запрос.Выполнить().Выбрать();

	Пока Результат.Следующий() Цикл

		формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");

		формОповещ.дата=Результат.период;

		формОповещ.пользователь=Результат.Получатель;

		формОповещ.текст=Результат.ТекстОповещения;

		Если Не формОповещ.Открыта() Тогда

			Структ = формОповещ.ОткрытьМодально();

			Если Структ = Неопределено Тогда

				// Ничего

			Иначе

				Если СокрЛП(Структ.ТипСсылки) = "ОбработкаЦен" Тогда

					Обр = Обработки.ОбработкаЦен.Создать();

					Обр.Счет = Структ.ТекСсылка;

					Обр.ПолучитьФорму().Открыть();		

				КонецЕсли;

			КонецЕсли;  		

		КонецЕсли;

	КонецЦикла;

   

 МЕ_Оповещения.СоздатьОповещение(ТекДоговорКИзменению.Менеджер, "Ваш Договор №"+СокрЛП(ТекДоговорКИзменению.Номер)+

" - Отклонен!!! - "+ИмяПользователя()+"!"+Символы.ПС+" Исправьте его учитывая Комментарии и запустите на Согласование!", "", ТекДоговорКИзменению.Ссылка);



или



//Создадим оповещение с Передачей ссылки

Текст = "" + ПараметрыСеанса.ТекущийПользователь+": Необходимо Доработать цены:<br> <b>"+Счет.Ссылка+"</b>";

МЕ_Оповещения.СоздатьОповещение(СнабженецПоследнееИзменение, Текст, "ОбработкаЦен", Счет.Ссылка);    

 &НаКлиенте

   Процедура Загрузки()

    ПутьКБазе="D:\ВашаБаза\1с77\";

    Пользователь="stvbliz";//пользователь базы 7.7

    Пароль="вашпароль";

    МонопольныйРежимOLE = ""; // " /m";

    ЗапускБезЗаставки = 1;

    База = Новый COMОбъект("V1CEnterprise.Application");

    СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";

    РезультатПодключения=База.Initialize(База.RMTrade,СтрокаПодключения,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));



    Если НЕ РезультатПодключения Тогда

        Сообщить("Не удалось произвести подключение к информационной базе");

    КонецЕсли;

    Таблица.Очистить();

    Док = База.CreateObject("Документ.ЗаявкаПокупателя");

    Док.ВыбратьДокументы(НачалоНедели(Дата),КонецНедели(Дата));                  

    Пока Док.ПолучитьДокумент() = 1 Цикл

        ОбработкаПрерыванияПользователя();

        Если Док.НомерДок = НомерЗаявки Тогда

            Док.ВыбратьСтроки();

            Пока Док.ПолучитьСтроку()=1 Цикл

                нов=Таблица.Добавить();

                нов.Номенклатура = Док.Номенклатура.Наименование;

                нов.Количество = Док.Количество;

                нов.Единица = Док.Единица.Наименование;

                нов.Цена = Док.Цена;

                Нов.Сумма = Док.Сумма;

                нов.Коэффициент = Док.Коэффициент;

                нов.Производитель = Док.производитель;

                Нов.Валюта = Док.Валюта.Наименование;



            КонецЦикла;

        КонецЕсли;



    КонецЦикла;  



    Док=NULL;

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

 //Примеры получения значений



//Периодический реквизит нужно получать на дату

ДатаОст= ТекущаяДата();

Спр77Оле.ВидГрейда.Получить(ДатаОст).код;



// Перечисление

Если База77ОЛЕ.ВидКонтрагента.Идентификатор() = "ЧастноеЛицо"

// или

Если Сотрудник.ХарактерРаботы.Получить(Необходимая_Дата).Идентификатор() = БазаОЛЕ.EvalExpr("Перечисление.ХарактерРаботы.ТрудовыеОтношения.Идентификатор()") Тогда 

// Принадлежит ...

КонецЕсли;



//В запросе

   // в v7 ссылка OLE

   Запрос = v7.CreateObject("Запрос");

   ТипТовара = v7.evalexpr("Перечисление.ТипыТоваров.Собственный.ПорядковыйНомер()");

   

   ТекстЗапроса = 

   "//{{ЗАПРОС(Сформировать) 

   |ТекущийЭлемент = Справочник.Номенклатура.ТекущийЭлемент;

   |Наименование = Справочник.Номенклатура.Наименование;

   |ТипТовара = Справочник.Номенклатура.ТипТовара;

   |ЕдиницаИзмерения = Справочник.Номенклатура.ЕдиницаИзмерения;

   |Функция Счётчик = Счётчик();

   |Группировка ТекущийЭлемент;

   |Условие(ТипТовара.ПорядковыйНомер() = "+ТипТовара+");

   |"//}}ЗАПРОС 

   ;   

 НаборЗаписей = Последовательности.ПартионныйУчет.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);

НоваяЗапись = НаборЗаписей.Добавить();

НоваяЗапись.Регистратор = ДокументСсылка;

НоваяЗапись.Период = ДокументСсылка.Дата;

НаборЗаписей.Записать();   

 НаборЗаписей = Последовательности.ПартионныйУчет.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);

НоваяЗапись = НаборЗаписей.Добавить();

НоваяЗапись.Организация = ДокументСсылка.Организация;

 НоваяЗапись.Регистратор = ДокументСсылка;

НоваяЗапись.Период = ДокументСсылка.Дата;

НаборЗаписей.Записать();   

 

// Предваряющий код

// Место, где необходимо сделать паузу и съесть твикс )

// И, чтобы пользователь сильно не волновался вывести красивое окно с картинкой

//...

Если ФлажокИспользоватьПаузуМеждуДокументами Тогда

	Форма = ПолучитьФорму("ФормаПаузы");

	Форма.ПараметрФормы = ДлительностьПаузы;

	Форма.ОткрытьМодально();

КонецЕсли; 

//...

// Продолжить выполнение кода

   

 

// Молуль формы "ФормаПаузы"

// В реквизитах формы создаем новый с названием ПараметрФормы к который при открытии передадим период задержки



Процедура ЗакрытиеФормыОбработки()

	ЭтаФорма.Закрыть();	

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



Процедура ПриОткрытии()

	ПодключитьОбработчикОжидания("ЗакрытиеФормыОбработки", ПараметрФормы);

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

   

 

Предупреждение("Пауза...", ДлительностьПаузы); 

   

 ДД = ДвоичныеДанные(ИмяФайла);   

 Процедура Пример(ИмяФайла)



    // Перечисления из библиотеки ADO

    StreamTypeEnum = Новый Структура("adTypeBinary, adTypeText", 1, 2);

    ConnectModeEnum = Новый Структура(

        "adModeRead, adModeReadWrite, adModeRecursive, adModeShareDenyNone,

        |adModeShareDenyRead, adModeShareDenyWrite, adModeShareExclusive, 

        |adModeUnknown, adModeWrite", 1, 3, 4194304, 16, 4, 8, 12, 0, 2);

    SaveOptionsEnum = Новый Структура("adSaveCreateNotExist, adSaveCreateOverWrite", 1, 2);

    

    StreamIn = Новый COMОбъект("ADODB.Stream"); //Для создания этого объекта требуется MDAC 2.5 и выше

    StreamIn.Type = StreamTypeEnum.adTypeBinary;

    

    StreamIn.Open(); //По умолчанию открывается на чтение

    StreamIn.LoadFromFile(ИмяФайла); //Очевидно, что для больших файлов так поступать нехорошо.

    Data = StreamIn.Read(); //у переменной Data тип COMSafeArray, это массив байтов

    StreamIn.Close(); //Больше нам этот поток не нужен - закрываем.

    

    //Конечно, манипуляция в памяти приемлима только для небольших файлов!

    СодержимоеМассив = Data.Выгрузить();

    

    //...

    //...

    //тут можно по-всякому поиздеваться над массивом

    //...

    //...

    

    //Запихиваем массив 1С в COMSafeArray. VT_UI1 - обозначение однобайтного беззнакового целого.

    Data = Новый COMSafeArray(СодержимоеМассив, "VT_UI1", СодержимоеМассив.Количество());

    

    StreamOut = Новый COMОбъект("ADODB.Stream");

    StreamOut.Type = StreamTypeEnum.adTypeBinary;

    StreamOut.Mode = ConnectModeEnum.adModeReadWrite; //Нужны и чтение и запись.

    

    StreamOut.Open(); //Открыли на чтение и запись

    StreamOut.Write(Data); 

    StreamOut.SaveToFile(ИмяФайла, SaveOptionsEnum.adSaveCreateOverWrite); //"2" - перезапись файла

    StreamOut.Close();



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

 ДД = ДвоичныеДанные(ИмяФайла);   

 Строка64 = Base64Строка(ДвоичныеДанные);   

 Массив64 = Преобразовать64(Строка64 , );   

 Строка64 = Преобразовать64( , Массив64 );   

  //Автор: Гобсек

&НаСервере

Функция Преобразовать64(Строка64 = неопределено, Массив64 = неопределено)

 Таб64 = Новый ТаблицаЗначений;

 Таб64.Колонки.Добавить("Код");

 Таб64.Колонки.Добавить("Символ");

 Нпп = 0;

 Для Код = КодСимвола("A") По КодСимвола("Z") Цикл

  стр = Таб64.Добавить();

  стр.Код = Нпп;

  стр.Символ = Символ(Код);

  Нпп = Нпп + 1;

 КонецЦикла;

 Для Код = КодСимвола("a") По КодСимвола("z") Цикл

  стр = Таб64.Добавить();

  стр.Код = Нпп;

  стр.Символ = Символ(Код);

  Нпп = Нпп + 1;

 КонецЦикла;

 стр = Таб64.Добавить();

 стр.Код = Нпп;

 стр.Символ = "0";

 Нпп = Нпп + 1;

 Для Код = 1 По 9 Цикл

  стр = Таб64.Добавить();

  стр.Код = Нпп;

  стр.Символ = Формат(Код,"ЧЦ=1; ЧДЦ=0");

  Нпп = Нпп + 1;

 КонецЦикла;

 стр = Таб64.Добавить();

 стр.Код = Нпп;

 стр.Символ = "+";

 Нпп = Нпп + 1;

 стр = Таб64.Добавить();

 стр.Код = Нпп;

 стр.Символ = "/";

 

 Если Массив64 = неопределено Тогда 

  Если Строка64 = неопределено Тогда

   Сообщить("неверный вызов функции");

   Возврат неопределено;

  КонецЕсли;

  //Уберем переносы строк

  Строка64 = СтрЗаменить(Строка64, Символ(10), "");

  Строка64 = СтрЗаменить(Строка64, Символ(13), "");

  

  //преобразовываем строку в массив

  Если СтрДлина(Строка64) % 4 <> 0 Тогда

   Сообщить("длина строки на входе должна быть кратна 4"); 

   Сообщить(СтрДлина(Строка64)); 

   Возврат неопределено;

  КонецЕсли;

  Кол4 = Цел(СтрДлина(Строка64) / 4);

  РазмерМ = Кол4 * 3;

  Если Прав(Строка64, 2) = "==" Тогда

   РазмерМ = РазмерМ - 2;

  ИначеЕсли Прав(Строка64, 1) = "=" Тогда

   РазмерМ = РазмерМ - 1;

  КонецЕсли;   

  Массив64 = Новый Массив(РазмерМ);

  Для А = 1 По Кол4 Цикл

   Число3 = 0;

   Для Б = 1 По 4 Цикл

    Буква1 = Сред(Строка64, (А-1)*4 + Б, 1); 

    Если Буква1 = "=" Тогда

     Код4 = 0;

    Иначе

     стрН = Таб64.Найти(Буква1, "Символ");

     Если стрН = Неопределено Тогда

      Сообщить("ошибка при поиске "+ КодСимвола(Буква1)); 

     Иначе 

      Код4 = стрН.Код;

     КонецЕсли;

    КонецЕсли;

    Число3 = Число3 * 64 + Код4;

   КонецЦикла;

   Ост = Число3 % 256;

   Индекс = (А-1)*3 + 2;

   Если Индекс <= РазмерМ - 1 Тогда

    Массив64[Индекс] = Ост;

   КонецЕсли;

   Число3 = (Число3 - Ост) / 256;

   Ост = Число3 % 256;

   Индекс = (А-1)*3 + 1;

   Если Индекс <= РазмерМ - 1 Тогда

    Массив64[Индекс] = Ост;

   КонецЕсли;

   Число3 = (Число3 - Ост) / 256;

   Ост = Число3 % 256;

   Массив64[(А-1)*3 + 0] = Ост;

  КонецЦикла;

  Возврат Массив64;

 Иначе //Преобразовываем массив в строку

  Строка64 = "";

  Кол3 = Цел(Массив64.Количество() / 3);

  Если Массив64.Количество() % 3 <> 0 Тогда

   Кол3 = Кол3 + 1;

  КонецЕсли;

  Для А = 1 По Кол3 Цикл

   Число3 = Массив64[(А-1)*3]; 

   Если (А-1)*3+1 <= Массив64.ВГраница() Тогда

    Код3 = Массив64[(А-1)*3+1];

   Иначе

    Код3 = 0;

   КонецЕсли;

   Число3 = Число3*256 + Код3;

   Если (А-1)*3+2 <= Массив64.ВГраница() Тогда

    Код3 = Массив64[(А-1)*3+2];

   Иначе

    Код3 = 0;

   КонецЕсли;

   Число3 = Число3*256 + Код3;

   

   Ост4 = Число3 % 64;

   Число3 = (Число3 - Ост4) / 64;

   Ост3 = Число3 % 64;

   Число3 = (Число3 - Ост3) / 64;

   Ост2 = Число3 % 64;

   Число3 = (Число3 - Ост2) / 64;

   Ост1 = Число3 % 64;

   Число3 = (Число3 - Ост1) / 64;

   стрН = Таб64.Найти(Ост1, "Код");

   Если стрН = неопределено Тогда

    Сообщить("Ошибка при поиске");

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост2, "Код");

   Если стрН = неопределено Тогда

    Сообщить("Ошибка при поиске");

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост3, "Код");

   Если стрН = неопределено Тогда

    Сообщить("Ошибка при поиске");

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост4, "Код");

   Если стрН = неопределено Тогда

    Сообщить("Ошибка при поиске");

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

  КонецЦикла;

  //Если количество символов не делится на 3, то на конце должны быть

  //знаки "="

  Если Массив64.Количество() % 3 = 1 Тогда

   Строка64 = Лев(Строка64, СтрДлина(Строка64)-2)+ "=="; 

  ИначеЕсли Массив64.Количество() % 3 = 2 Тогда

   Строка64 = Лев(Строка64, СтрДлина(Строка64)-1)+ "="; 

  КонецЕсли;

  Возврат Строка64;

 КонецЕсли;

КонецФункции    

  // после 

Функция ПолучитьНомерНаПечать(Знач НомерОбъекта, УдалитьПрефиксИнформационнойБазы = Ложь, УдалитьПользовательскийПрефикс = Ложь) Экспорт

// добавляем



//Префикс при печати нам не нужен

	УдалитьПрефиксИнформационнойБазы = Истина;

   

 ВЫБРАТЬ

   Таб1.СсылкаДок,

   Таб1.ДатаДок,

   Таб1.ВалютаДок,

   Таб2.Курс

ИЗ

   (ВЫБРАТЬ

    ЗаказПокупателя.Ссылка КАК СсылкаДок,

    ЗаказПокупателя.Дата КАК ДатаДок,

    ЗаказПокупателя.ВалютаДокумента КАК ВалютаДок,

    МАКСИМУМ(Валюты.Период) КАК ПериодДок

   ИЗ

    Документ.ЗаказПокупателя КАК ЗаказПокупателя

    ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют КАК Валюты

      ПО Валюты.Период <= ЗаказПокупателя.Дата И 

      Валюты.Валюта = ЗаказПокупателя.ВалютаДокумента

   СГРУППИРОВАТЬ ПО

    ЗаказПокупателя.Ссылка) КАК Таб1

    ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют КАК Таб2

    ПО Таб1.ПериодДок = Таб2.Период И Таб1.ВалютаДок = Таб2.Валюта   

 ВЫБРАТЬ

  Рег.Период,

  Рег.Измерение,

  Рег.Ресурс

ИЗ

  РегситрСведений.ПериодическийРегистр.СрезПоследних(&Дата) КАК Рег   

 ВЫБРАТЬ

 Таблица3.Ресурс,

 Таблица3.Измерение,

 Таблица3.Период

ИЗ

 (ВЫБРАТЬ

  Таблица1.Измерение КАК Измерение,

  МАКСИМУМ(Таблица1.Период) КАК Период

 ИЗ

  РегистрСведений.ПериодическийРегистр КАК Таблица1

ГДЕ

  Таблица1.Период <= &Дата

 СГРУППИРОВАТЬ ПО

  Таблица1.Измерение) КАК Таблица2

  ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ПериодическийРегистр КАК Таблица3

  ПО Таблица2.Измерение= Таблица3.Измерение

   И Таблица2.Период = Таблица3.Период   

 ВЫБРАТЬ

 Таблица5.Ресурс,

 Таблица5.Измерение,

 Таблица5.Период,

 Таблица5.Регистратор

ИЗ

(ВЫБРАТЬ

 МАКСИМУМ(Таблица3.Регистратор) КАК Регистратор,

 Таблица3.Измерение

ИЗ

 (ВЫБРАТЬ

  Таблица1.Измерение КАК Измерение,

  МАКСИМУМ(Таблица1.Период) КАК Период

 ИЗ

  РегистрСведений.ПериодическийРегистр КАК Таблица1

ГДЕ

  Таблица1.Период <= &Дата

 СГРУППИРОВАТЬ ПО

  Таблица1.Измерение) КАК Таблица2

  ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ПериодическийРегистр КАК Таблица3

  ПО Таблица2.Измерение= Таблица3.Измерение

   И Таблица2.Период = Таблица3.Период

СГРУППИРОВАТЬ ПО

  Таблица3.Измерение) КАК Таблица4

  ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ПериодическийРегистр КАК Таблица5

  ПО Таблица4.Измерение = Таблица5.Измерение

   И Таблица4.Регистратор = Таблица5.Регистратор

   

 ВЫБРАТЬ

    ЗаказПокупателя.Ссылка КАК ЗаказПокупателя,

    ЗаказПокупателя.Дата КАК Дата,

    ЗаказПокупателя.ВалютаДокумента КАК ВалютаДокумента,

    ЗаказПокупателя.СуммаДокумента КАК СуммаДокумента

{ВЫБРАТЬ

    ЗаказПокупателя.*,

    Дата,

    ВалютаДокумента.*,

    СуммаДокумента}

ИЗ

    Документ.ЗаказПокупателя КАК ЗаказПокупателя

{ГДЕ

    ЗаказПокупателя.Ссылка.* КАК ЗаказПокупателя,

    ЗаказПокупателя.СуммаДокумента}   

 ВЫБРАТЬ

    &Дата КАК Дата,

    КурсыВалютСрезПоследних.Валюта КАК Валюта,

    КурсыВалютСрезПоследних.Курс КАК Курс,

    КурсыВалютСрезПоследних.Кратность КАК Кратность

{ВЫБРАТЬ

    Дата,

    Валюта.*,

    Курс,

    Кратность}

ИЗ

    РегистрСведений.КурсыВалют.СрезПоследних(&Дата, Валюта = &Валюта) КАК КурсыВалютСрезПоследних

{ГДЕ

    КурсыВалютСрезПоследних.Курс,

    КурсыВалютСрезПоследних.Кратность}