xmldoc = CreateObject("Msxml2.DOMDocument"); xmlDoc.loadXML("<root/>"); nodeRoot = xmlDoc.documentElement; расходы = xmlDoc.createElement("СправочникРасходы"); Спр = Создатьобъект("Справочник.Расходы"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 цикл...
sadmin
На полную универсальность не претендует, но с русскими буквами работает нормально. // Преобразовать строку в UTF-8 Функция...
// Возвращаемое значение: // Ложь ,если не все реквизиты заполнены // Истина, если все отмеченные реквизиты заполнены...
Функция глПолучитьПустоеЗначениеТипа(ЗаданныйТип) Экспорт Если ЗаданныйТип = Тип("Число") Тогда Возврат 0; ИначеЕсли ЗаданныйТип = Тип("Строка") Тогда Возврат "";...
Как вызвать стандартную проверку заполнения реквизитов? ПроверитьЗаполнение() Возвращаемое значение: Тип: Булево. Истина — ошибок не обнаружено, Ложь...
// Вариант 1 // По переданному табличному документу возвращает таблицу значений, // при условии что в первой...
//Начало, Конец - начало и конец периода //Периодичность - строка "День", "Месяц", "Неделя", "Год", "Квартал" //Возвращает таблицу...
//Если делитель равен нулю, возвращает ноль //Есть возможность округления результата Функция БезопасноеДеление(А, Б, Окр=Неопределено) Экспорт Рез=?(Б=0,0,А/Б); Если...
Для тех, кто мучается с получением сведений из регистра сведений КонтактнаяИнформация в стандартных конфигурациях. //Нужно запросом получить...
// Необходимо выбрать документы за период по ответственному // В каждом документе, где в первой строке табличного...
V77 = Новый COMОбъект("V77M.Application"); Если V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда Сообщить("Успех"); Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")"); ДокОсн= V77.EvalExpr("CreateObject(""Документ"")"); Накл.ВыбратьДокументы(); Пока Накл.ПолучитьДокумент()=1 Цикл Номер=СокрЛП(Накл.НомерДок);...
Функция ЗагрузитьМетаданные(КаталогИБ, ИмяПользователяV7, ПарольПользователяV7) Экспорт МД = Новый Структура; Состояние("Подключение к " + КаталогИБ); V7 = Новый...
Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL) СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer + (";UID=") +...
// Переменная База - строка содержащая путь к базе 1С 7.7 // Возвращает переменную содержащую в себе...
Программа rundll32.exe входит в стандартную поставку всех операционных систем семейства Windows и позволяет выполнять различные функции, описанные...
Код для получения новостей с сайта buh.ru, используется RSS-канал http://www.buh.ru/rss/rss-2.0.jsp Данный код для 7.7, при использовании в...
В данном примере запускается и инициализируется конфигурация 1С:Предприятие 8.0 с базой данных в каталоге D:\1CBasa. Далее в...
Часто возникает ситуация, когда программно нужно внести какие либо корректировки в регистры накопления и чтобы потом эти...
Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1) Перем Имя,Каталог; scr=СоздатьОбъект("MSScriptControl.ScriptControl"); scr.language="javascript"; shell=СоздатьОбъект("Shell.Application"); scr.AddObject("Shell",shell); ИмяСлужбы="ImapiService"; Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда Предупреждение("Вам недозволено записывать диски СД!",5);...
Примеры настройки технологического журнала Технологический журнал выключен Если файл logcfg.xml отсутствует в каталоге C:\Program Files\1cv81\bin, то технологический...