1С 8 - 1Code - Page 5

1С 8.3 : Как показать состояние формирования отчета для управляемых форм

Пример для управляемых форм:

Элементы.Результат.ОтображениеСостояния.Текст = "Отчёт формируется, подождите...";
Элементы.Результат.ОтображениеСостояния.Картинка = БиблиотекаКартинок.ДлительнаяОперация48;
Элементы.Результат.ОтображениеСостояния.Видимость = Истина;
ОбновитьОтчет();
Элементы.Результат.ОтображениеСостояния.Видимость = Ложь;

Элементы.Результат.ОтображениеСостояния.Текст = "Отчёт формируется, подождите...";

Элементы.Результат.ОтображениеСостояния.Картинка = БиблиотекаКартинок.ДлительнаяОперация48;

Элементы.Результат.ОтображениеСостояния.Видимость = Истина;

ОбновитьОтчет();

Элементы.Результат.ОтображениеСостояния.Видимость = Ложь;

1С 8.3 : Ошибка: «Сеанс отсутствует или удален»

Причиной возникновения ошибки «Сеанс отсутствует или удален» является разрыв TCP-соединения между тонким клиентом и рабочим процессом сервера, возможно, из-за временной неработоспособности какого-то сетевого оборудования между компьютером сервера 1С:Предприятия и проблемным клиентским компьютером.

1С 8.3 Что означает те или иные регламентные задания (описание видов регламентных заданий)

— Загрузка классификатора банков Это регламентное задание осуществляет загрузку классификатора банков РФ с сайта РБК. Его регулярная работа поддерживает этот классификатор в актуальном состоянии. И когда мы добавляем очередной расчетный счет — больше шансов, что банк в котором он открыт будет найден нами в классификаторе по БИК. — Загрузка курсов валют Это регламентное задание загружает курсы валют на текущую дату. Если в программе ведутся валютные операции, то имеет смысл оставить это задание включенным, чтобы не нужно было каждый раз запускать загрузку курсов валют вручную. — Заполнение данных для ограничения доступа Это регламентное задание выполняет последовательное заполнение и обновление данных, необходимых для работы подсистемы «Управления доступом» в режиме ограничения доступа на уровне записей. При включенном режиме ограничения доступа на уровне записей заполняет наборы значений доступа. Заполнение выполняется частями при каждом запуске, пока все наборы значений доступа не будут заполнены. При отключении режима ограничения доступа на уровне записей наборы значений доступа (заполненные ранее) удаляются при перезаписи объектов, а не все сразу. Независимо от режима ограничения доступа на уровне записей обновляет кэш-реквизиты. После завершения всех обновлений и заполнений отключает использование регламентного задания. Задание служебное. Не нужно включать его вручную.

1С 8.3 : Как преобразовать массив в строку (для быстрой конкатенации строк)

Пример преобразования массива в строку:

Функция ВСтроку(Знач Массив)	
	СтрокаВнутр=СтрЗаменить(ЗначениеВСтрокуВнутр(Массив), """}," + Символы.ПС + "{""S"",""", "");
	СтрокаВнутр2=Сред(СтрокаВнутр,Найти(СтрокаВнутр,Массив[0]));	
	Возврат Лев(СтрокаВнутр2,СтрДлина(СтрокаВнутр2)-6);
КонецФункции

Функция ВСтроку(Знач Массив)

СтрокаВнутр=СтрЗаменить(ЗначениеВСтрокуВнутр(Массив), """}," + Символы.ПС + "{""S"",""", "");

СтрокаВнутр2=Сред(СтрокаВнутр,Найти(СтрокаВнутр,Массив[0]));

Возврат Лев(СтрокаВнутр2,СтрДлина(СтрокаВнутр2)-6);

КонецФункции

1С 8.3 : Таблица значений. Индексирование колонок таблиц значений

Для ситуации вида:

ТаблицаДанных.Индексы.Добавить("Номенклатура");
ТаблицаДанных.Индексы.Добавить("ПорядковыйНомер");

1 2	ТаблицаДанных.Индексы.Добавить("Номенклатура"); ТаблицаДанных.Индексы.Добавить("ПорядковыйНомер");

1С 8.3 : Сервер 1С. Как вынести фоновые задания в отдельный менеджер «Сервис заданий».

Порядок действий следующий: В консоли кластеров открываем список менеджеров кластера, в дереве по вот такому пути (Сервер 8.2 — Кластеры — 1541 — Рабочие серверы — «Наш сервер 1С» — Менеджеры кластера) и создаем еще один Менеджер кластера. Далее в этом же списке выбираем «Главный менеджер кластера» который был создан системой автоматически, находим нужный нам сервис и вызываем контекстное меню этого сервиса. Там будет первый пункт «Переместить сервис на другой менеджер кластера». Жмем. После на сколько я помню потребуется перезагрузка сервера 1С.

1С 8.3 : Как из проф версии сделать базовую

Необходима установленная базовая конфигурация Приводим к виду, чтобы базы были одной конфигурации. Сохраняем конфигурацию Базовой версии в файл. В конфигураторе ПРОФ версии снимаемся с поддержки. Загружаем конфигурацию без проверок. («Загрузить конфигурацию из файла») показываем файл из п.2 Получаем базовую версию с поддержкой обновлений.

1С 8.3 : БСП.Как ненавязчиво проинформировать или спросить пользователя (форма и информацией и галкой “больше не напоминать”)

Определить место для хранения булева значения, например это может быть сохраняемый реквизит формы. Например реквизит имеет имя “НеИнформироватьПользователяОПустомСписке” Разместить код обработки реакции пользователя:

&НаКлиенте
Процедура ОбработкаРеакцииПользователя(Параметр1,Параметр2) Экспорт 
Если Неопределено=Параметр1 Тогда
		Возврат;
	КонецЕсли; 

	Параметр1.Свойство("БольшеНеЗадаватьЭтотВопрос",
НеИнформироватьПользователяОПустомСписке);
КонецПроцедуры

&НаКлиенте

Процедура ОбработкаРеакцииПользователя(Параметр1,Параметр2) Экспорт

Если Неопределено=Параметр1 Тогда

Возврат;

КонецЕсли;

Параметр1.Свойство("БольшеНеЗадаватьЭтотВопрос",

НеИнформироватьПользователяОПустомСписке);

КонецПроцедуры

1С 8.3 : EXCEL, Толстый клиент : Готовые процедуры для чтения таблиц EXCEL в 1С

// Функция получает данные из файла Excel
//
// Параметры:
//   пФайл - Имя файла
//   пЛист - Имя листа с данными
//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"
//                      если не задано, созадуться колонки вида "К1", "К2"
//
// Возвращаемое значение:
//   ТаблицаЗначений
//
Функция Excel_ПолучитьДанные_ADO(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0) Экспорт

    #Если Клиент Тогда
    Состояние("Установка соединения с Excel");
    #КонецЕсли

    //ЗаголовкиВСтроке1 = "HDR=YES;"
    ЗаголовкиВСтроке1 = "HDR=NO;";

    СтрокаСоединения ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + СокрЛП(пФайл) +";Extended Properties=""Excel 8.0;" + ЗаголовкиВСтроке1 + "IMEX=1;""";

    Connection = Новый COMОбъект("ADODB.Connection");
    Connection.ConnectionString =  СтрокаСоединения;

    Попытка
        Connection.Open();
    Исключение
        Сообщить ("Проблемы с подключением к Excel" );
        Возврат Неопределено;
    КонецПопытки;

    RS = Новый COMОбъект("ADODB.Recordset");

    ТекстЗапроса =
    "SELECT
    |    Лист.*
    |FROM
    |    [" + пЛист + "$] as Лист";

    Попытка
        RS.Open(ТекстЗапроса, Connection);
    Исключение
        Сообщить ("Проблемы с выполнением запроса");
        Возврат Неопределено;
    КонецПопытки;

    Таблица = Новый ТаблицаЗначений;

    Если СтруктураКолонок = Неопределено Тогда

        Для Счетчик = 1 По RS.Fields.Count Цикл
            Поле = RS.Fields.Item(Счетчик - 1);
            Колонка = Таблица.Колонки.Добавить("К" + Счетчик, , Поле.Name);
        КонецЦикла;

    Иначе

        Для каждого КлючИЗначение Из СтруктураКолонок Цикл
            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);
        КонецЦикла;

    КонецЕсли;

    НомерСтроки = 0;
    КолвоСтрок  = RS.RecordCount;

    Пока RS.EOF() = 0 Цикл

        НомерСтроки = НомерСтроки + 1;

        #Если Клиент Тогда
        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));
        ОбработкаПрерыванияПользователя();
        #КонецЕсли

        Если НомерСтроки < НачСтрока Тогда
            RS.MoveNext();
            Продолжить;
        КонецЕсли;

        Если КонСтрока > 0 И НомерСтроки > КонСтрока Тогда
            Прервать;
        КонецЕсли;

        НоваяСтрока = Таблица.Добавить();

        Если СтруктураКолонок = Неопределено Тогда

            Для Счетчик = 1 По RS.Fields.Count Цикл

                Поле = RS.Fields.Item(Счетчик - 1);
                НоваяСтрока["К" + Счетчик] = Поле.Value;

            КонецЦикла;

        Иначе

            Для каждого КлючИЗначение Из СтруктураКолонок Цикл

                Поле = RS.Fields.Item(КлючИЗначение.Значение - 1);
                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;

            КонецЦикла;

        КонецЕсли;

        // Обработка других полей
        RS.MoveNext();

    КонецЦикла;

    // Завершение работы

    RS.Close();
    Connection.Close();

    Возврат Таблица;

КонецФункции

// Функция получает данные из файла Excel
//
// Параметры:
//   пФайл     - Имя файла
//   пЛист     - Имя листа с данными
//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"
//                      если не задано, созадуться колонки вида "К1", "К2"
//   XLSОбъект - COM объект типа "Excel.Application"
//
// Возвращаемое значение:
//   ТаблицаЗначений
//
Функция Excel_ПолучитьДанные_COM(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт

    #Если Клиент Тогда
    Состояние("Открытие Excel");
    #КонецЕсли

    Если XLSОбъект = Неопределено Тогда
        XLSОбъект = Новый COMОбъект("Excel.Application");
        XLSОбъект.Visible       = Ложь;
        XLSОбъект.DisplayAlerts = Ложь;
    КонецЕсли;

    Попытка
        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);
    Исключение
        Сообщить ("Проблемы с подключением к Excel" );
        Возврат Неопределено;
    КонецПопытки;

    Лист = Book.Sheets(1);
    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;

    Таблица = Новый ТаблицаЗначений;

    Если СтруктураКолонок = Неопределено Тогда

        Для Счетчик = 1 По КолвоКолонок Цикл
            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);
        КонецЦикла;

    Иначе

        Для каждого КлючИЗначение Из СтруктураКолонок Цикл
            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);
        КонецЦикла;

    КонецЕсли;

    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);
    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);
    КонСтрока = Мин(КонСтрока, КолвоСтрок);

    Для НомерСтроки = НачСтрока По КонСтрока Цикл

        #Если Клиент Тогда
        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КонСтрока));
        ОбработкаПрерыванияПользователя();
        #КонецЕсли

        НоваяСтрока = Таблица.Добавить();

        Если СтруктураКолонок = Неопределено Тогда

            Для НомерКолонки = 1 По КолвоКолонок Цикл

                Поле = Лист.Cells(НомерСтроки, НомерКолонки);
                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Поле.Value;

            КонецЦикла;

        Иначе

            Для каждого КлючИЗначение Из СтруктураКолонок Цикл

                Поле = Лист.Cells(НомерСтроки, КлючИЗначение.Значение);
                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;

            КонецЦикла;

        КонецЕсли;

    КонецЦикла;

    XLSОбъект.Application.Quit();
    Возврат Таблица;

КонецФункции

// Функция получает данные из файла Excel
//
// Параметры:
//   пФайл     - Имя файла
//   пЛист     - Имя листа с данными
//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"
//                      если не задано, созадуться колонки вида "К1", "К2"
//   XLSОбъект - COM объект типа "Excel.Application"
//
// Возвращаемое значение:
//   ТаблицаЗначений
//
Функция Excel_ПолучитьДанные_COMArray(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт

    #Если Клиент Тогда
    Состояние("Открытие Excel");
    #КонецЕсли

    Если XLSОбъект = Неопределено Тогда
        XLSОбъект = Новый COMОбъект("Excel.Application");
        XLSОбъект.Visible       = Ложь;
        XLSОбъект.DisplayAlerts = Ложь;
    КонецЕсли;

    Попытка
        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);
    Исключение
        Сообщить ("Проблемы с подключением к Excel" );
        Возврат Неопределено;
    КонецПопытки;

    Лист = Book.Sheets(1);
    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;

    Таблица = Новый ТаблицаЗначений;

    Если СтруктураКолонок = Неопределено Тогда

        Для Счетчик = 1 По КолвоКолонок Цикл
            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);
        КонецЦикла;

    Иначе

        МаксимальныйНомерКолонки = 0;
        Для каждого КлючИЗначение Из СтруктураКолонок Цикл
            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);
            МаксимальныйНомерКолонки = Макс(МаксимальныйНомерКолонки, КлючИЗначение.Значение);
        КонецЦикла;

        КолвоКолонок = Мин(КолвоКолонок, МаксимальныйНомерКолонки);

    КонецЕсли;

    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);
    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);
    КонСтрока = Мин(КонСтрока, КолвоСтрок);

    // Массив типа COMSafeArray
    Массив = Лист.Range(Лист.Cells(НачСтрока, 1), Лист.Cells(КонСтрока, КолвоКолонок)).Value;
    КолвоСтрок   = Массив.GetUpperBound(1);

    Для НомерСтроки = 1 По КолвоСтрок Цикл

        #Если Клиент Тогда
        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));
        ОбработкаПрерыванияПользователя();
        #КонецЕсли

        НоваяСтрока = Таблица.Добавить();

        Если СтруктураКолонок = Неопределено Тогда

            Для НомерКолонки = 1 По КолвоКолонок Цикл

                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Массив.GetValue(НомерКолонки, НомерСтроки);

            КонецЦикла;

        Иначе

            Для каждого КлючИЗначение Из СтруктураКолонок Цикл

                НоваяСтрока[КлючИЗначение.Ключ] = Массив.GetValue(КлючИЗначение.Значение, НомерСтроки);

            КонецЦикла;

        КонецЕсли;

    КонецЦикла;

    XLSОбъект.Application.Quit();
    Возврат Таблица;

КонецФункции

// Функция получает список листов Excel
//
// Параметры:
//   пФайл - Имя файла
//   XLSОбъект - COM объект типа "Excel.Application"
//
// Возвращаемое значение:
//   СписокЗначений
//
Функция Excel_ПолучитьСписокЛистов(пФайл, XLSОбъект = Неопределено) Экспорт

    Если XLSОбъект = Неопределено Тогда
        XLSОбъект = Новый COMОбъект("Excel.Application");
        XLSОбъект.Visible       = Ложь;
        XLSОбъект.DisplayAlerts = Ложь;
    КонецЕсли;

    Попытка
        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);
    Исключение
        Возврат Новый СписокЗначений;
    КонецПопытки;

    СписокЛистов = Новый СписокЗначений;
    Для каждого Лист Из XLSОбъект.Sheets Цикл
        СписокЛистов.Добавить(Лист.Name);
    КонецЦикла;

    XLSОбъект.Application.Quit();
    Возврат СписокЛистов;

КонецФункции

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

// Функция получает данные из файла Excel

// Параметры:

// пФайл - Имя файла

// пЛист - Имя листа с данными

// СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

// если не задано, созадуться колонки вида "К1", "К2"

// Возвращаемое значение:

// ТаблицаЗначений

Функция Excel_ПолучитьДанные_ADO(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0) Экспорт

#Если Клиент Тогда

Состояние("Установка соединения с Excel");

#КонецЕсли

//ЗаголовкиВСтроке1 = "HDR=YES;"

ЗаголовкиВСтроке1 = "HDR=NO;";

СтрокаСоединения ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + СокрЛП(пФайл) +";Extended Properties=""Excel 8.0;" + ЗаголовкиВСтроке1 + "IMEX=1;""";

Connection = Новый COMОбъект("ADODB.Connection");

Connection.ConnectionString = СтрокаСоединения;

Попытка

Connection.Open();

Исключение

Сообщить ("Проблемы с подключением к Excel" );

Возврат Неопределено;

КонецПопытки;

RS = Новый COMОбъект("ADODB.Recordset");

ТекстЗапроса =

"SELECT

| Лист.*

|FROM

| [" + пЛист + "$] as Лист";

Попытка

RS.Open(ТекстЗапроса, Connection);

Исключение

Сообщить ("Проблемы с выполнением запроса");

Возврат Неопределено;

КонецПопытки;

Таблица = Новый ТаблицаЗначений;

Если СтруктураКолонок = Неопределено Тогда

Для Счетчик = 1 По RS.Fields.Count Цикл

Поле = RS.Fields.Item(Счетчик - 1);

Колонка = Таблица.Колонки.Добавить("К" + Счетчик, , Поле.Name);

КонецЦикла;

Иначе

Для каждого КлючИЗначение Из СтруктураКолонок Цикл

Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

КонецЦикла;

КонецЕсли;

НомерСтроки = 0;

КолвоСтрок = RS.RecordCount;

Пока RS.EOF() = 0 Цикл

НомерСтроки = НомерСтроки + 1;

#Если Клиент Тогда

Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

ОбработкаПрерыванияПользователя();

#КонецЕсли

Если НомерСтроки < НачСтрока Тогда

RS.MoveNext();

Продолжить;

КонецЕсли;

Если КонСтрока > 0 И НомерСтроки > КонСтрока Тогда

Прервать;

КонецЕсли;

НоваяСтрока = Таблица.Добавить();

Если СтруктураКолонок = Неопределено Тогда

Для Счетчик = 1 По RS.Fields.Count Цикл

Поле = RS.Fields.Item(Счетчик - 1);

НоваяСтрока["К" + Счетчик] = Поле.Value;

КонецЦикла;

Иначе

Для каждого КлючИЗначение Из СтруктураКолонок Цикл

Поле = RS.Fields.Item(КлючИЗначение.Значение - 1);

НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;

КонецЦикла;

КонецЕсли;

// Обработка других полей

RS.MoveNext();

КонецЦикла;

// Завершение работы

RS.Close();

Connection.Close();

Возврат Таблица;

КонецФункции

// Функция получает данные из файла Excel

// Параметры:

// пФайл - Имя файла

// пЛист - Имя листа с данными

// СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

// если не задано, созадуться колонки вида "К1", "К2"

// XLSОбъект - COM объект типа "Excel.Application"

// Возвращаемое значение:

// ТаблицаЗначений

Функция Excel_ПолучитьДанные_COM(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт

#Если Клиент Тогда

Состояние("Открытие Excel");

#КонецЕсли

Если XLSОбъект = Неопределено Тогда

XLSОбъект = Новый COMОбъект("Excel.Application");

XLSОбъект.Visible = Ложь;

XLSОбъект.DisplayAlerts = Ложь;

КонецЕсли;

Попытка

Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

Исключение

Сообщить ("Проблемы с подключением к Excel" );

Возврат Неопределено;

КонецПопытки;

Лист = Book.Sheets(1);

КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

КолвоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Таблица = Новый ТаблицаЗначений;

Если СтруктураКолонок = Неопределено Тогда

Для Счетчик = 1 По КолвоКолонок Цикл

Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

КонецЦикла;

Иначе

Для каждого КлючИЗначение Из СтруктураКолонок Цикл

Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

КонецЦикла;

КонецЕсли;

НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

КонСтрока = Мин(КонСтрока, КолвоСтрок);

Для НомерСтроки = НачСтрока По КонСтрока Цикл

#Если Клиент Тогда

Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КонСтрока));

ОбработкаПрерыванияПользователя();

#КонецЕсли

НоваяСтрока = Таблица.Добавить();

Если СтруктураКолонок = Неопределено Тогда

Для НомерКолонки = 1 По КолвоКолонок Цикл

Поле = Лист.Cells(НомерСтроки, НомерКолонки);

НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Поле.Value;

КонецЦикла;

Иначе

Для каждого КлючИЗначение Из СтруктураКолонок Цикл

Поле = Лист.Cells(НомерСтроки, КлючИЗначение.Значение);

НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;

КонецЦикла;

КонецЕсли;

КонецЦикла;

XLSОбъект.Application.Quit();

Возврат Таблица;

КонецФункции

// Функция получает данные из файла Excel

// Параметры:

// пФайл - Имя файла

// пЛист - Имя листа с данными

// СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

// если не задано, созадуться колонки вида "К1", "К2"

// XLSОбъект - COM объект типа "Excel.Application"

// Возвращаемое значение:

// ТаблицаЗначений

Функция Excel_ПолучитьДанные_COMArray(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт

#Если Клиент Тогда

Состояние("Открытие Excel");

#КонецЕсли

Если XLSОбъект = Неопределено Тогда

XLSОбъект = Новый COMОбъект("Excel.Application");

XLSОбъект.Visible = Ложь;

XLSОбъект.DisplayAlerts = Ложь;

КонецЕсли;

Попытка

Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

Исключение

Сообщить ("Проблемы с подключением к Excel" );

Возврат Неопределено;

КонецПопытки;

Лист = Book.Sheets(1);

КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

КолвоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Таблица = Новый ТаблицаЗначений;

Если СтруктураКолонок = Неопределено Тогда

Для Счетчик = 1 По КолвоКолонок Цикл

Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

КонецЦикла;

Иначе

МаксимальныйНомерКолонки = 0;

Для каждого КлючИЗначение Из СтруктураКолонок Цикл

Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

МаксимальныйНомерКолонки = Макс(МаксимальныйНомерКолонки, КлючИЗначение.Значение);

КонецЦикла;

КолвоКолонок = Мин(КолвоКолонок, МаксимальныйНомерКолонки);

КонецЕсли;

НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

КонСтрока = Мин(КонСтрока, КолвоСтрок);

// Массив типа COMSafeArray

Массив = Лист.Range(Лист.Cells(НачСтрока, 1), Лист.Cells(КонСтрока, КолвоКолонок)).Value;

КолвоСтрок = Массив.GetUpperBound(1);

Для НомерСтроки = 1 По КолвоСтрок Цикл

#Если Клиент Тогда

Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

ОбработкаПрерыванияПользователя();

#КонецЕсли

НоваяСтрока = Таблица.Добавить();

Если СтруктураКолонок = Неопределено Тогда

Для НомерКолонки = 1 По КолвоКолонок Цикл

НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Массив.GetValue(НомерКолонки, НомерСтроки);

КонецЦикла;

Иначе

Для каждого КлючИЗначение Из СтруктураКолонок Цикл

НоваяСтрока[КлючИЗначение.Ключ] = Массив.GetValue(КлючИЗначение.Значение, НомерСтроки);

КонецЦикла;

КонецЕсли;

КонецЦикла;

XLSОбъект.Application.Quit();

Возврат Таблица;

КонецФункции

// Функция получает список листов Excel

// Параметры:

// пФайл - Имя файла

// XLSОбъект - COM объект типа "Excel.Application"

// Возвращаемое значение:

// СписокЗначений

Функция Excel_ПолучитьСписокЛистов(пФайл, XLSОбъект = Неопределено) Экспорт

Если XLSОбъект = Неопределено Тогда

XLSОбъект = Новый COMОбъект("Excel.Application");

XLSОбъект.Visible = Ложь;

XLSОбъект.DisplayAlerts = Ложь;

КонецЕсли;

Попытка

Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

Исключение

Возврат Новый СписокЗначений;

КонецПопытки;

СписокЛистов = Новый СписокЗначений;

Для каждого Лист Из XLSОбъект.Sheets Цикл

СписокЛистов.Добавить(Лист.Name);

КонецЦикла;

XLSОбъект.Application.Quit();

Возврат СписокЛистов;

КонецФункции

1С 8.3: УФ : Отказ от модальности и событие «ПередУдалением» строки табличной части

&НаКлиенте
Процедура ПоступлениеПередУдалением(Элемент, Отказ)
   
  Отказ = Истина;
  ПредупредитьОбУдаленииСтроки("Поступление", Элемент.ТекущиеДанные.НомерСтроки);
 
КонецПроцедуры

&НаКлиенте

Процедура ПоступлениеПередУдалением(Элемент, Отказ)

Отказ = Истина;

ПредупредитьОбУдаленииСтроки("Поступление", Элемент.ТекущиеДанные.НомерСтроки);

КонецПроцедуры

1С 8.3 : Интерактивный расчет итогов в дереве значений в контексте клиента после интерактивного ввода данных пользователем

Добавить числовой реквизит формы ТекущееЗначениеПоказателя Функция ПолучитьИмяКолонкиЧисловогоПоказателя переводит имя колонки в имя реквизита дерева, можно воспльзоваться свойством ПутьКДанным и его отработать, только нужно имя без точки.

1С:8.3 : Как загрузить данные из табличного документа в таблицу значений.

//на сервере
MXL=Новый ТабличныйДокумент;
MXL.Прочитать(АдресФайла);	
Построитель=Новый ПостроительОтчета;
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(MXL.Область(1, 1, MXL.ВысотаТаблицы, MXL.ШиринаТаблицы));
Построитель.Выполнить();
ТЗ = Построитель.Результат.Выгрузить();

//на сервере

MXL=Новый ТабличныйДокумент;

MXL.Прочитать(АдресФайла);

Построитель=Новый ПостроительОтчета;

Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(MXL.Область(1, 1, MXL.ВысотаТаблицы, MXL.ШиринаТаблицы));

Построитель.Выполнить();

ТЗ = Построитель.Результат.Выгрузить();

1С 8.3 : Как загрузить табличный документ в таблицу значений

Функция ПолучитьТЗИзМакета(ТабДок, КолонкаИндекса = 1) Экспорт
    
    ТаблицаДанных = Новый ТаблицаЗначений;
    НомерКолонки = 0;
    Пока Истина Цикл
        НомерКолонки = НомерКолонки + 1;
        ИмяКолонки = ТабДок.Область(1, НомерКолонки).Текст;
        Если ПустаяСтрока(ИмяКолонки) Тогда
            Прервать;
        КонецЕсли;        
        ТаблицаДанных.Колонки.Добавить(ИмяКолонки);
    КонецЦикла;
    
    СчетчикКолонок = НомерКолонки - 1;
    
    НомерСтроки = 1; ФлагПрерывания = Ложь;
    Пока Истина Цикл
        НомерСтроки = НомерСтроки + 1;
        Стр = ТаблицаДанных.Добавить();
        
        Для А = 1 ПО СчетчикКолонок Цикл
            ТекстКолонки = ТабДок.Область(НомерСтроки, А).Текст;
            Если ПустаяСтрока(ТекстКолонки) Тогда
                Если А = КолонкаИндекса Тогда
                    Флагпрерывания = Истина;
                    ТаблицаДанных.Удалить(Стр);
                КонецЕсли;
            Иначе
                Стр[А - 1] = ТекстКолонки
            КонецЕсли;
            
            Если Флагпрерывания Тогда
                Прервать
            КонецЕсли;
        КонецЦикла;
        
        Если Флагпрерывания Тогда
            Прервать
        КонецЕсли;
    КонецЦикла;
    
    Возврат ТаблицаДанных
КонецФункции

Функция ПолучитьТЗИзМакета(ТабДок, КолонкаИндекса = 1) Экспорт

ТаблицаДанных = Новый ТаблицаЗначений;

НомерКолонки = 0;

Пока Истина Цикл

НомерКолонки = НомерКолонки + 1;

ИмяКолонки = ТабДок.Область(1, НомерКолонки).Текст;

Если ПустаяСтрока(ИмяКолонки) Тогда

Прервать;

КонецЕсли;

ТаблицаДанных.Колонки.Добавить(ИмяКолонки);

КонецЦикла;

СчетчикКолонок = НомерКолонки - 1;

НомерСтроки = 1; ФлагПрерывания = Ложь;

Пока Истина Цикл

НомерСтроки = НомерСтроки + 1;

Стр = ТаблицаДанных.Добавить();

Для А = 1 ПО СчетчикКолонок Цикл

ТекстКолонки = ТабДок.Область(НомерСтроки, А).Текст;

Если ПустаяСтрока(ТекстКолонки) Тогда

Если А = КолонкаИндекса Тогда

Флагпрерывания = Истина;

ТаблицаДанных.Удалить(Стр);

КонецЕсли;

Иначе

Стр[А - 1] = ТекстКолонки

КонецЕсли;

Если Флагпрерывания Тогда

Прервать

КонецЕсли;

КонецЦикла;

Если Флагпрерывания Тогда

Прервать

КонецЕсли;

КонецЦикла;

Возврат ТаблицаДанных

КонецФункции

Второй вариант:

1С 8.3 : Как разбить строку с разделителями

Разделитель = ",";
    	Строки = СтрЗаменить("январь, февраль, март", Разделитель, Символы.ПС);
    	Для Индекс = 1 По СтрЧислоСтрок(Строки) Цикл
        Сообщить(СтрПолучитьСтроку(Строки, Индекс));
    	КонецЦикла;

Разделитель = ",";

Строки = СтрЗаменить("январь, февраль, март", Разделитель, Символы.ПС);

Для Индекс = 1 По СтрЧислоСтрок(Строки) Цикл

Сообщить(СтрПолучитьСтроку(Строки, Индекс));

КонецЦикла;

Устарело, в 8.3 следует использовать:

1С : Запрос. Как выгрузить справочник или ПВХ в дерево значений

Запрос = Новый Запрос();
   Запрос.Текст = 
   "ВЫБРАТЬ
   |    ПланВидовХарактеристик1.Ссылка КАК Реквизит1
   |ИЗ
   |    ПланВидовХарактеристик.ПланВидовХарактеристик1 КАК ПланВидовХарактеристик1
   |
   |УПОРЯДОЧИТЬ ПО
   |    Реквизит1 ИЕРАРХИЯ";
   
   Дерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

Запрос = Новый Запрос();

Запрос.Текст =

"ВЫБРАТЬ

| ПланВидовХарактеристик1.Ссылка КАК Реквизит1

|ИЗ

| ПланВидовХарактеристик.ПланВидовХарактеристик1 КАК ПланВидовХарактеристик1

|УПОРЯДОЧИТЬ ПО

| Реквизит1 ИЕРАРХИЯ";

Дерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);