Попытка ОтправитьПоПочте2(ТекСтрока); // работает с Батом Исключение Попытка ОтправитьПоПочте1(ТекСтрока); // работает с Аутлуком, но переспрашивает при отправке...
sadmin
//Cохранение значений реквизитов формы в файл - таблицу значений тоже сохраняет. Код следующий: Процедура СохранитьЗначенияФормы() СтруктураЭлементов =...
Процедура ОтобразитьКартинку() ЗначениеКартинки = Картинка.Получить(); Если ЗначениеКартинки <> Неопределено Тогда ЭлементыФормы.ПолеКартинки.Картинка = ЗначениеКартинки; Иначе ЭлементыФормы.ПолеКартинки.Картинка = Новый...
Шелл=СоздатьОбъект("Shell.Application"); Место=Шелл.NameSpace(Путь); Сообщить(Место.GetDetailsOf(Место.ParseName(Файл),26)); А если картинка на интерне сайте, и нужно узнать ее высоту, то: ИЕ=CreateObject("InternetExplorer.Application"); ИЕ.Navigate("Aboutblank");...
//функция устанавливает новое значение реквизита документа или справочника и задаёт вопрос, если новое значение не соответствует предыдущему...
Функция гСкидка(Сумма,Скидка) Экспорт Возврат Сумма*(1-Скидка/100); КонецФункции
Функция гКопейки(Значение) Экспорт Руб=Цел(Значение); Коп=Значение-Руб; Возврат(Коп * 100); КонецФункции
Функция ЭтоЧисло(Символ) Экспорт Если (КодСимв(Символ)>=48) И (КодСимв(Символ)<=57) Тогда Возврат(1); Иначе Возврат(0); КонецЕсли; КонецФункции
//Перебор Основных Реквизитов формы Для Каждого Рек из ЭтаФорма.Метаданные().Реквизиты Цикл Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип)); КонецЦикла; //...
Функция ПодключитьCOMОбъект(Путь) Экспорт Отказ = Ложь; COMСоединение = Новый COMОбъект("ADODB.Connection"); COMСоединение.ConnectionString = "....."; COMСоединение.ConnectionTimeOut = 1200; COMСоединение.CursorLocation...
Зарплата к выплате через банк, на основании ведомости – исходящее платежное поручение, далее через импорт-экспорт операций по...
Запрос=Новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | ХозрасчетныйОстаткиИОбороты.Счет, | ХозрасчетныйОстаткиИОбороты.Субконто1, | ХозрасчетныйОстаткиИОбороты.Субконто2, | ХозрасчетныйОстаткиИОбороты.Субконто3, | ХозрасчетныйОстаткиИОбороты.Организация, | ХозрасчетныйОстаткиИОбороты.СуммаОборот, |...
Расчетчик завела сотрудника со сроками договора с 01.01.09 по 15.06.09 Система попросила уволить данного сотрудника 16.06.09! Расчетчик...
Для Каждого метпер Из Метаданные.Перечисления.СостоянияРаботникаОрганизации.ЗначенияПеречисления Цикл МенюКнопки = ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ПодменюНеявки.Кнопки; НоваяКнопка = МенюКнопки.Вставить(инд, метпер.Имя, ТипКнопкиКоманднойПанели.Действие, метпер, Новый Действие("Пометка"));...
Процедура ВыгрузкаПроводок(Кнопка) Если Не ЗначениеЗаполнено(Документ) Тогда Сообщить("Заполните поле Документ!"); Иначе Движ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей(); Движ.Отбор.Регистратор.Установить(Документ); Движ.Прочитать(); ТЗ =...
В 7.7 Откройте Справочник Контрагенты — Форма Элемента, двойным щелчком по полю ИНН, на закладке Дополнительно в...
Результат запроса может быть выгружен в таблицу значений или дерево значений с помощью метода Выгрузить. Затем над...
МойФайл = Новый ДвоичныеДанные(ПутьКФайлу); ХранилищеФайла = Новый ХранилищеЗначения(МойФайл); Новстр.ФайлDoc1=ХранилищеФайла; Новстр.ФайлDoc1Название = ПутьКФайлу;
// ФайлDoc1 - Реквизит ХранилищеЗначения, в нем хранится сам файл // ФайлDoc1Название - Название файла находящегося в...
Лист.Columns("D:F").ColumnWidth = 0;