DeadMans
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите перенести данную печатную форму из 7.7 в 8.2
Код:
//******************************************************************************
// ФРМ(ЧислЗнач)
//
Функция ФРМ(ЧислЗнач, Валюта="")
РезСтрока = СокрЛ(Формат(ЧислЗнач, "Ч015.2.'"));
Если (ПустоеЗначение(РезСтрока) = 0) и (ПустоеЗначение(Валюта) = 0) Тогда
РезСтрока = РезСтрока + " " + СокрП(Валюта);
КонецЕсли;
Возврат РезСтрока;
КонецФункции // ФРМ()
//******************************************************************************
// СуммаПрописью(Сумма)
//
// Параметры:
// Сумма - число, на основе которого формируется сумма
// Валюта - справочник "Валюты" - валюта в которой выражены суммы в форме
//
// Возвращаемое значение:
// Сумма прописью
//
// Описание:
// Формирует сумму прописью в соответствии с файлом прописи, заданным в валюте.
Функция СуммаПрописью(Сумма, Валюта)
Если ПустоеЗначение(Валюта) = 0 Тогда
Если ПустоеЗначение(Валюта.ИмяФайлаПрописи) = 1 Тогда
Предупреждение("Для выбранной валюты не указан файл прописи.");
ИначеЕсли ФС.СуществуетФайл(КаталогИБ()+Валюта.ИмяФайлаПрописи) = 0 Тогда
Предупреждение("Для выбранной валюты неверно указан файл прописи.");
Иначе
Пропись(КаталогИБ()+Валюта.ИмяФайлаПрописи);
КонецЕсли;
КонецЕсли;
СтрокаСуммы = Формат(Сумма, "ЧПДС");
// установим пропись по умолчанию
Пропись("");
Возврат СтрокаСуммы;
КонецФункции // СуммаПрописью()
//******************************************************************************
// Печать(Докум)
//
// Параметры:
// Нет
//
// Возвращаемое значение:
// Нет
//
// Описание:
//
Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
Перем фирма,товар,количество,цена,гтд,ндс;
//файл=строка(номердок);
файл=строка(докум.номердок);
ИмяФайла=Файл;
Каталог="";
Если ФС.ВыбратьФайл(0,ИмяФайла,Каталог,"Выберите файл для выгрузки","Текстовые файлы (*.nkl)|*.nkl","nkl")=1 Тогда
Файл=Каталог+ИмяФайла;
Иначе
Возврат;
КонецЕсли;
Если Файл="" Тогда
Предупреждение("Не выбран файл для выгрузки!");
Возврат;
КонецЕсли;
Текст=СоздатьОбъект("Текст");
стр="00001"; //1
стр=стр+СимволТабуляции+СокрЛП(Константа.НаименованиеОрганизации); //2
стр=стр+СимволТабуляции+Докум.НомерДок; //3
стр=стр+СимволТабуляции+докум.ДатаДок; //4
стр=стр+СимволТабуляции+СокрЛП(Докум.Комментарий); //Код аптеки //5
стр=стр+СимволТабуляции; //Номер заказа //6
стр=стр+СимволТабуляции; //Дата заказа //7
стр=стр+СимволТабуляции; //Комментарий //8
стр=стр+СимволТабуляции+Докум.НомерДок; //Номер СФ //9
стр=стр+СимволТабуляции+докум.ДатаДок; //Дата СФ //10
стр=стр+СимволТабуляции;
Текст.ДобавитьСтроку(Стр);
Докум.ВыбратьСтроки();
Пока Докум.ПолучитьСтроку()=1 Цикл
Стр=Докум.Номенклатура.код; //1
стр=стр+СимволТабуляции+докум.Номенклатура.наименование; //2
стр=стр+СимволТабуляции+СокрЛП(Докум.КонтрагентПост); //3
стр=стр+СимволТабуляции; //Цена изготовителя без НДС //4
стр=стр+СимволТабуляции; //Цена реестра без НДС //5
стр=стр+СимволТабуляции+строка(окр(Докум.Цена,2)); //цена товара //6
стр=стр+СимволТабуляции+Докум.Количество; //7
стр=стр+СимволТабуляции+Докум.Сумма; //8
стр=стр+СимволТабуляции+докум.СтавкаНДС.Ставка; //9
стр=стр+СимволТабуляции+Докум.НДС; //10
стр=стр+СимволТабуляции; //серия //11
стр=стр+СимволТабуляции; //годность //12
стр=стр+СимволТабуляции; //номер сертификата //13
стр=стр+СимволТабуляции; //Дата выдачи //14
стр=стр+СимволТабуляции; //Орган //15
стр=стр+СимволТабуляции; //Срок действия //16
стр=стр+СимволТабуляции; //Регистрационный номер //17
стр=стр+СимволТабуляции; //Штрих код //18
стр=стр+СимволТабуляции; //Номер ГТД //19
стр=стр+СимволТабуляции+строка(окр(Докум.Цена,2)); //20;
стр=стр+СимволТабуляции; //Конец
Текст.ДобавитьСтроку(Стр);
КонецЦикла;
Текст.Записать(Файл);
КонецПроцедуры // Печать()
//******************************************************************************
// ПоКнопкеПечать()
//
// Параметры:
// Нет
//
// Возвращаемое значение:
// Нет
//
// Описание:
//
Процедура ПоКнопкеПечать()
Если Док.Выбран() = 0 Тогда
Предупреждение("Не выбран документ!", 60);
Возврат;
КонецЕсли;
Печать(Док);
КонецПроцедуры // ПоКнопкеПечать()
//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
Докум = Форма.Параметр.Получить("Контекст");
Устройство = Форма.Параметр.Получить("Устройство");
КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
Печать(Докум, Устройство, КолвоКопий);
Статусвозврата(0);
Возврат;
КонецЕсли;
КонецПроцедуры // ПриОткрытии()
|
|
Всего записей: 8 | Зарегистр. 06-11-2007 | Отправлено: 19:38 03-09-2012 | Исправлено: DeadMans, 19:40 03-09-2012 |
|
Программы » 
Варезник » 
Детей за это ругают и учат употреблять т. н. "волшебные слова" 
