Процедура УстановитьСубконто(Счет, Субконто, ИмяСубконто, ЗначениеСубконто) Экспорт Если Счет = Неопределено ИЛИ Счет.Пустая() Тогда Возврат; КонецЕсли; Если ТипЗнч(ИмяСубконто)...
sadmin
//Как определить максимальное используемое количество субконто в плане счетов Хозрасчетный? Метаданные.ПланыСчетов.Хозрасчетный.МаксКоличествоСубконто
oWord=СоздатьОбъект("Word.Application"); oWord.WindowState = 1; oWord.Height = 0; oWord.Width = 0; myopendial = oWord.FileDialog(3); myopendial.AllowMultiSelect = -1; myopendial.Title...
Для 8.х в нижеследующем коде замените СоздатьОбъект на Новый COMОбъект, остальное все также: //Создаем объект EXCEL Эксель...
В ряде задач доводилось организовывать загрузку больших таблиц значений и поиск по полям загруженных таблиц. Оказалось, что...
Есть Документ. У документа есть ФормаСписок. Как узнать, из какого пункта меню открывается этот список? Дело в...
// Сформировать почтовый профиль. // При отправке нет необходимости указывать настройки, связанные с POP сервером. ИПП =...
// Отправка почты Почта = Новый Почта; Почта.Подключиться("login", "password"); Сообщ = Новый ПочтовоеСообщение; Сообщ.Текст = "Вот файл!";...
СерверИсточник = http://server.com; Адрес = "/price.asp"; ИмяВходящегоФайла = "c:\temp\input.html"; НТТР = Новый HTTPСоединение(СерверИсточник); НТТР.Получить(Адрес, ИмяВходящегоФайла); ВходящийФайл =...
// Загрузка файлов на FTP сервер Процедура ЗагрузитьОтмеченные(Кнопка) Сервер = Новый FTPСоединение(FTPServer); Для Каждого Файл Из ПолеСписка...
Если ТипЗнч(ОбрДокументСсылка) = Тип("ДокументСсылка.РеализацияТоваров") Тогда // Строки кода, выполняемые при истинности условия. КонецЕсли;
Нужен XML файл выгрузки данных вида(выделю как код 8-рки, т.к. выделение xlm кода нет): <?xml version="1.0" encoding="UTF-8"?>...
Функция Транслит(Вход) Коды = Новый Соответствие; Коды.Вставить("ё","yo"); Коды.Вставить("Ё","Yo"); Нач = КодСимвола("А"); Англ = "A" "B" "V" "G"...
Процедура ОбойтиУровеньДерева(Строки) Для каждого Строка из Строки Цикл //что-то делаем со строкой, например: Сообщить(Строка.ИмяСуществующегоВСтрокеРеквизита); ОбойтиУровеньДерева(Строка.Строки); КонецЦикла; КонецПроцедуры...
Процедура ПереместитьСтрокуДерева(Дерево, ПеремещаемаяСтрока, НовыйРодитель, Уровень = 0) Если Уровень = 0 Тогда НоваяСтрока = НовыйРодитель.Строки.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтрока, ПеремещаемаяСтрока);...
Процедура ЗаполнениеДерева(Кнопка) Дерево.Колонки.Очистить(); Дерево.Колонки.Добавить("ИмяКолонки"); // Создать первую строку. Правильнее сказать создать элемент // коллекции. Он помещается в...
СсылкаНаУзел = ПланыОбмена.НаСклады.НайтиПоКоду("С1"); ПланыОбмена.ЗарегистрироватьИзменения(СсылкаНаУзел, Неопределено); СсылкаНаУзел = ПланыОбмена.НаСклады.НайтиПоКоду("С1"); ПланыОбмена.ЗарегистрироватьИзменения(СсылкаНаУзел, Метаданные.Справочники.Номенклатура); СсылкаНаУзел = ПланыОбмена.НаСклады.НайтиПоКоду("С1"); ДокСсылка = Документы.РеализацияТоваров.НайтиПоНомеру(НомерДок, ДатаПериода);...
Процедура ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента) Если ТипЗнч(ЭлементДанных) = Тип("ДокументОбъект.РеализацияТоваров") Тогда Если ЭлементДанных.Склад <> Склад Тогда ОтправкаЭлемента = ОтправкаЭлементаДанных.Удалить; КонецЕсли;...
ЗаписьXML = Новый ЗаписьXML(); ЗаписьXML.УстановитьСтроку(); Узел = ПланыОбмена.НаСклады.НайтиПоКоду("С1"); ЗапСообщения = ПланыОбмена.СоздатьЗаписьСообщения(); ЗапСообщения.НачатьЗапись(ЗаписьXML, Узел); Выборка = ПланыОбмена.ВыбратьИзменения(Узел, ЗапСообщения.НомерСообщения);...
Нужно документ РеализацияТоваровУслуг (ссылка на который выбирается в диалоге создаваемой обработки) перенести в другую базу данных. Структура...