Процедура, которая "примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой...
Вопрос: Встала задача удалить все документы из БД 1С 8.1. Обработкой выбрал все докуметы и методом удалить...
Процедура Провести(Кнопка) ВыборкаДокументов = Документы.НДФЛиЕСНДоходыИНалоги.Выбрать(); Пока ВыборкаДокументов.Следующий() Цикл // Проводим только те документы у которых в комментарии...
// В приведенном примере производится подключение к агенту сервера, выбирается первый кластер. // Для этого кластера получается...
Объяснить мне сразу трудно — поэтому давайте "на пальцах" Свежий простой пример : вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";"...
Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение ИмяФайла = ПолучитьИмяВременногоФайла(".txt"); //строка-образец //http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1 //http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1 СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER"; СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ",""); Попытка //соединяемся...
// Глобальная переменная в которой будем хранить // известные нам типы статусов сетевой карты перем сзТипСтатуса; //...
Процедура КнопкаВыполнитьНажатие(Элемент) ТекстовыйФайл = Новый ТекстовыйДокумент(); ПутьКФайлу = "C:\Documents and Settings\Adm\Application Data\1C\1Cv8\v8ib.lst"; ТекстовыйФайл.Прочитать(ПутьКФайлу); КС = ТекстовыйФайл.КоличествоСтрок(); Для...
ДБФ=СоздатьОбъект("XBase"); ДБФ.ДобавитьПоле("DATE","D",0,0); Дбф.ДобавитьИндекс("INDEX","DTOS(DATE)",0,0,"<"); //Дбф.ДобавитьИндекс("INDEX","DTOS(DATE)",0,0,"Пустая строка"); //DTOS !!! // где DTOC() - "ММ/ДД/ГГ" или DTOS() - "ГГГГММДД" ДБФ.СоздатьФайл("c:\test.dbf","c:\test.cdx");...
Режим = РежимДиалогаВыбораФайла.ВыборКаталога; ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытия.Каталог = ""; ДиалогОткрытия.МножественныйВыбор = Ложь; ДиалогОткрытия.Заголовок = "Выберите каталог";...
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); ДиалогОткрытияФайла.Выбрать(); Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла); Текст = "Файл: " + Файл.Имя; Текст =...
//Вывод в окно сообщений ОчиститьОкноСообщений(); //Очистим окно сообщений Состояние("Вывожу информацию!"); Сообщить("ИНФОРМАЦИЯ О ПРОГРАММЕ И ПОЛЬЗОВАТЕЛЕ!","I"); Сообщить("Имя Компьтера...
Процедура ПоказатьДБФ(дбф, имяФайла) далее Процедура Сформировать() перем дбф, флаг, папка; тЗнач.Очистить(); флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF"); Если...
Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта)); Сумма = ВалютнаяСумма * Запись.Курс /...
// Параметры // Хранилище – ХранилищеЗначения, которое содержит объект типа // ДвоичныеДанные с файлом для записи на...
Функция ПолучитьДатуФайла(Знач ИмяФайла) Экспорт Файл = Новый Файл(ИмяФайла); Возврат Файл.ПолучитьВремяИзменения(); КонецФункции
Функция КоличествоПрописью(Количество) Экспорт ЦелаяЧасть = Цел(Количество); ДробнаяЧасть = Окр(Количество - ЦелаяЧасть, 3); Если ДробнаяЧасть = Окр(ДробнаяЧасть,0) Тогда...
Функция ЗаменитьПробелы(Строка, Символы) // Пишем все слова с больших букв, кому не надо закомментируйте СтрокаВозврата = СокрЛП(ТРег(Строка));...
//Пример: СТР = "Тест [наш]ей функции" //НовСтр=ПолучитьПеременнуюИзСтроки(СТР) //В итоге НовСтр="наш"; Функция ПолучитьПеременнуюИзСтроки(ПереданнаяСтрока) Экспорт Переменная = ""; ПервыйСимвол...
// Пробуем подключиться Профиль = Новый ИнтернетПочтовыйПрофиль; // Получение почты нам не нужно, коментируем // Профиль.АдресСервераPOP3 =...