// Открытие периода ДатаТА = ПолучитьДатуТА(); Если (РабочаяДата() > ДатаТА) И ((ДатаМесяц(ДатаТА) <> ДатаМесяц(РабочаяДата())) ИЛИ (ДатаГод(ДатаТА) <>...
7.x
7.x
Процедура ПоказатьДБФ(дбф, имяФайла) далее Процедура Сформировать() перем дбф, флаг, папка; тЗнач.Очистить(); флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF"); Если...
Перем ОбъектыКонфы; Перем СтруктКонфы; Процедура ВыгрузитьВWord() Попытка Word = Новый COMОбъект("Word.Application"); Исключение Сообщить("Не удалось открыть Word"); Возврат;...
В основе работы с XML-файлами лежит технология доступа SAX, которая осуществляет считывание по одному тегу. Для этого...
Нужно править файл 1crcrus.dll в редакторе ресурсов Restorator, MS Visual C++ или в каком-нибудь другом. Редактировать нужно...
сСотр_2 = СоздатьОбъект("Справочник.Сотрудники"); если сСотр_2.НайтиПоНаименованию("02 Цех", 0) = 0 тогда Предупреждение("Второй цех не найден."); возврат; конецЕсли; жз...
Для 8.х в нижеследующем коде замените СоздатьОбъект на Новый COMОбъект, остальное все также: //Создаем объект EXCEL Эксель...
Каким образом можно организовать проверку на корректность адреса электронной почты? Шаблон = ".+@.+\..+"; // регулярное выражение соответствует...
В директории базы есть файлик 1cv7splh.dib, вот если в него положить логотип, то все отобразится при входе...
Часто запуск 1С Предприятия тормозит работа антивирусной программы. Многие антивирусные программы проверяют на лету запускаемые и открываемые...
&НаКлиенте Процедура ПоКнопкеЧтениеИзМетаданных(Команда) // Вставить содержимое обработчика. Перем СписокСправочников; СписокСправочников = Новый СписокЗначений; СписокСправочников = СправочникиИзМетаданных(); Для...
Требуется XML Parser ver.3 и НЕ! выше Скорее зарегистрирован версии 4.0, но есть там и 3.0 1)...
// Пример 1 Функция ПолучитьИтог(Товар, Склад, Год); Регистр.ОборотыТоваров.ИспользоватьПериод(Год); Возврат Регистр.ОборотыТоваров.Итог(Товар, Склад, "ОборотТовара"); КонецФункции // Пример 2 РегДоходы...
Процедура Печать() Если (ПустоеЗначение(ДатаНач)=1) или (ПустоеЗначение(ДатаКон)=1) Тогда Предупреждение("Не задан период отчета"); Возврат; КонецЕсли; Заг="За период с "+ДатаНач+"...
Внимание!!! Непосредственное удаление справочника ведет к нарушению целостности данных. Например если удалить Контрагента по которому были сделаны...
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.Exec("ping.exe...
//Вывод в окно сообщений ОчиститьОкноСообщений(); //Очистим окно сообщений Состояние("Вывожу информацию!"); Сообщить("ИНФОРМАЦИЯ О ПРОГРАММЕ И ПОЛЬЗОВАТЕЛЕ!","I"); Сообщить("Имя Компьтера...
Для заключения договоров с контрагентами разработан типовой договор (шаблон). При его оформлении (для реального контрагента) в определенные...
Сп=СоздатьОбъект("СписокЗначений"); Сп.ИзСтрокиСРазделителями(ЗначениеВСтрокуВнутр(СоздатьОбъект("Документ.Счет"))); Сообщить("Номерок таблицы - "+Сп.ПолучитьЗначение(4));
Если это какая-нибудь обработка и запускается на клиенте(у пользователя) то можно использовать обработчик ожиданий у встроенных функций:...