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 |
|