Домой / 1С / Советы и хитрости
Разработки
Конфигурации
Обработки и отчеты
Переход Парус -> 1С
Советы и хитрости

     В этом разделе я буду собирать приемы и наработки, позволяющие реализовать в среде программирования 1С различный функционал, расширить стандартные возможности или придать конфигурации более профессиональный вид.

 

 

 

 

 

1. | Вызов файла справки Windows

     Для включения интерактивной помощи в приложение на платформе 1С версии 7.7 достаточно добавить на форму кнопку вызова справки с формулой вида:

 

глСправка("ИмяЗакладки",Способ,ФайлаСправки)

 

Ниже приведен состав глобальной процедуры глСправка:

 

//******************************************  // Параметры:

//    Топик (Строка) - имя раздела справки

//    Способ (Число) - способ вызова окна

//справки 1- нормальное, 2 - tooltips

//    ФайлСправки (Строка) - имя файла справки

// Описание: вызывает окно справки Windows с

//выбранным топиком

//

Процедура глСправка(Топик,Способ = 1,ФайлСправки "MainHelp") экспорт

        ЗапуститьПриложение("winhlp32.exe" + ?(Способ = 2," -p "," ") + "-i " + Сокрп(Топик) + " " + КаталогИБ() + "/Help/" + ?(Способ = 2,"Topics.hlp",СокрЛП(ФайлСправки) + ".hlp"));

КонецПроцедуры  //глСправка()

2.| Печать таблицы значений (утилита разработчика)

    Внешняя обработка для просмотра и анализа состава и структуры любой таблицы значений, в том числе временных, создаваемых в процессе сбора данных по информационной базе. Обработка вызывается из произвольного места конфигурации, принимая в качестве параметра анализируемую таблицу значений.

Пример программного текста для вызова обработки:

 

Перем Конт//объявление переменной для передачи во

//внешнюю обработку таблицы значений

 

    АнализируемаяТаблица.Выгрузить(Конт); 

//инициализация переменной для передачи во внешнюю

//обработку

    ОткрытьФорму("Отчет",КаталогИБ() + "ExtForms/ПечатьТаблицыЗначений.ert",Конт); //вызов обработки.

//при этом обработка должна быть помещена в каталог

//ExtForms исследуемой базы..

Скачать (ZIP 12 kB)
3. | Сохранение данных на дискету

     При сохранении данных на дискету нужно организовать контроль ошибок. в частности проверку наличия носителя в дисководе. Сделать это можно следующим образом:

Выгружаем = 0;

Попытка

  Если СтрДлина(ФС.НайтиПервыйФайл("a:\*.*")) > 0 Тогда                                             

     Если Вопрос("Дискета содержит информацию. Продолжить?","Да+Нет")= "Да" Тогда

               Выгружаем = 1;

          КонецЕсли;

     Иначе         

          Выгружаем = 1;

     КонецЕсли;        

     Если Выгружаем = 1 Тогда

            //процедура сохранения данных

     КонецЕсли;        

Исключение  

        Предупреждение("Ошибка записи. Проверьте доступность носителя. (" + ОписаниеОшибки() + ")");

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

Страницы: 1, 2

Copyright (c) 2007-2009 "АМКАИС"
Hosted by uCoz