понедельник, 23 декабря 2013 г.

1С 8.2: Как быстро сделать окно запроса с вопросом Да/Нет

Вопрос пользователю. Можно спросить "Да+Нет", "Повтор+Отмена" и т.д.:
Если Вопрос("Вы уверены?","Да+Нет")="Да" Тогда
В 8.2 нужно делать по-другому:
Если Вопрос("Вы уверены?",
РежимДиалогаВопрос.ДаНет)=КодВозвратаДиалога.Да Тогда
...
КонецЕсли;

пятница, 20 декабря 2013 г.

1С 8.2: Как вывести дату в нужном формате

Можно воспользоваться функцией Формат(), например:
// Чтобы вывести номер года в виде ГГГГ следует использовать
// метод Формат() с указанием форматной строки "ЧГ=0":
Сообщить(Формат(Год("20031120"),"ЧГ=0");
// Результат: "2003"
Еще примеры:

Как сформировать, вывести на печать таблицу, табличный документ

//Получение макета и областей вывода
 Макет = ПолучитьМакет("Отчет"); 
 ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); 
 ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой")
 ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
 ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали"); 
 
 ТабДок = Новый ТабличныйДокумент; 
 //Вывод параметров в область
 ОбластьЗаголовок.Параметры.ДатаНач = ДатаНач; 
 ОбластьЗаголовок.Параметры.ДатаКон = ДатаКон; 
 //Вывод области в табличный документ
 ТабДок.Вывести(ОбластьЗаголовок); 
 //Вывод картинки
 Картинка = Новый Картинка(ПутьККартинке); 
   // Элемент управления "Логотип" входит в коллекцию картинок области. 
 ОбластьКартинки.Рисунки.Логотип.Картинка = Картинка; 
 ТабДок.Вывести(ОбластьКартинки); 
    //Выведем шапку таблицы
 ТабДок.Вывести(ОбластьШапкаТаблицы); 
 //Выведм строки из Результата запроса
    ВыборкаДетали = Результат.Выбрать(); 
 Пока ВыборкаДетали.Следующий() Цикл 
  //Заполним параметры значениями свойств переданного объекта. Заполняются только те параметры, имена которых совпадают с именами свойств объекта.
  ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали); 
  //Запишем в и область Описание примечание из запроса
  ОбластьДетальныхЗаписей.Область("Описание").Примечание.Текст = ВыборкаДетали.СодержаниеСобытия; 
  ТабДок.Вывести(ОбластьДетальныхЗаписей); 
 КонецЦикла; 
 //Зададим параметры вывода
 ТабДок.АвтоМасштаб=истина; // уместить на одну страницу
 ТабДок.ТолькоПросмотр=истина;
 ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
 ТабДок.ОтображатьСетку=Ложь;
 ТабДок.ОтображатьЗаголовки=Ложь;
 //Выведем полученный документ
 ТабДок.Показать(); 
 
Источник

Неактивный атрибут "скрытый" или как снять атрибут скрытый после вируса

Некоторые пользователи компьютеров часто сталкиваются с проблемой, когда папки и файлы вдруг становятся скрытыми. Или, проще говоря, исчез...