Как при выводе данных в Табличный Документ изменить Текст и Цвет Текста конкретной ячейки? Код 1C v 8.х //Пример изменения цвета текста при выводе данных в табличный документКод 1C v 7.x Таб = СоздатьОбъект("Таблица");tab ldoc.mxl"); Категория:
Табличный документ Печать табличной части документа в Word'e Вот пример кода создания и заполнения таблиц(пример для 7.7, в 8.х заменить первую строку на МСВорд Новый COMОбъект("Word.Application")):
Код 1C v 7.x МСВорд = СоздатьОбъект("Word.Application"); Tab les.Add(Диапазон,3,2);Tab les(1).Range.S_elect(); Tab les(1).Columns(1).Width= МСВорд.CentimetersToPoints(8);Tab les(1).Columns(2).Width= МСВорд.CentimetersToPoints(8);Tab les(1).Cell(1,1).Range.Text = "Это первая сирока, первая колонка";Tab les(1).Cell(2,1).Range.Text = "";Tab les(1).Cell(3,1).Range.Text = "";Tab les(1).Cell(1,2).Range.Text = "";Tab les(1).Cell(2,2).Range.Text = "";Tab les(1).Cell(3,2).Range.Text = "Это третья строка, вторая колонка";Tab les.Add(Диапазон,1,4);Tab les(2).Range.S_elect(); Tab les(2).Columns(1).Width= МСВорд.CentimetersToPoints(2);Tab les(2).Columns(2).Width= МСВорд.CentimetersToPoints(4);Tab les(2).Columns(3).Width= МСВорд.CentimetersToPoints(4);Tab les(2).Columns(4).Width= МСВорд.CentimetersToPoints(10);Tab les(2).Cell(1,1).Range.Paragraphs(1).Alignment = 1;Tab les(2).Cell(1,1).Range.Text = "№";Tab les(2).Cell(1,2).Range.Paragraphs(1).Alignment = 1;Tab les(2).Cell(1,2).Range.Text = "Колонка 2";Tab les(2).Cell(1,3).Range.Paragraphs(1).Alignment = 1;Tab les(2).Cell(1,3).Range.Text = "Колонка 3";Tab les(2).Cell(1,4).Range.Paragraphs(1).Alignment = 1;Tab les(2).Cell(1,4).Range.Text = "Примечание";Tab les(2).Cell(А+1,1).Range.Text = Строка(А);//номер строкиTab les(2).Cell(А+1,2).Range.Text = Док.РеквизитТабличнойЧастиДокумента1;Tab les(2).Cell(А+1,3).Range.Text = Док.РеквизитТабличнойЧастиДокумента2;Tab les(2).Cell(А+1,4).Range.Text = Док.РеквизитТабличнойЧастиДокумента3;Tab les(2).Cell(А+1,1).Range.Text = Строка(А);//номер строкиTab les(2).Cell(А+1,2).Range.Text = ТЗ.ПолучитьЗначение(А,1);Tab les(2).Cell(А+1,3).Range.Text = ТЗ.ПолучитьЗначение(А,2);Tab les(2).Cell(А+1,4).Range.Text = ТЗ.ПолучитьЗначение(А,3);
ТЗ - это таблица значений.
Для документа можно так цикл организовать:
Предположим, что Док - это документ, тогда
Код 1C v 8.2 УП Для А =1 По Док.КоличествоСтрок() ЦиклTab les(2).Cell(А+1,1).Range.Text = Строка(А);//номер строкиTab les(2).Cell(А+1,2).Range.Text = Док.РеквизитТабличнойЧастиДокумента1;Tab les(2).Cell(А+1,3).Range.Text = Док.РеквизитТабличнойЧастиДокумента2;Tab les(2).Cell(А+1,4).Range.Text = Док.РеквизитТабличнойЧастиДокумента3; Категория:
Работа с Microsoft Office и OpenOffice Выгрузка / Загрузка данных посредством DBF файлов? DBF-файл – это файл, в котором данные хранятся в виде таблицы (Da
tab ase format). Работа с этими файлами происходит по принципу курсора, т.е. по одной строке. Для работы с DBF-файлами существует тип данных XBase. Несмотря на то, что формат DBF считается уже устаревшим, может возникнуть необходимость работы с файлами данного формата, особенно, если вы перегружаете данные из какой-нибудь старой программы!
Код 1C v 8.х // ПРИМЕР 1Код 1C v 8.х // ПРИМЕР 2Код 1C v 7.x // Выгрузка ТЗ, Таблицы значений в DBF файл Категория:
XML, DBF, TXT, CSV Как выгрузиться в EXCEL со сводными таблицами Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи:
Funny ):
(1) Нарисовать форму обработки и к кнопке запуска прицепить процедуру:
Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Кнопка)
(2) Создадим функцию ПроверкаДат() корректного указания дат обработки
(3) Создадим процедуру ПолучитьДанныеВТаблице() выборки требуемых данных из документов в таблицу значений
(4) Создадим процедуру СортироватьТаблицу() для сортировки таблицы значений как нам нужно
(5) Создадим процедуру ВыгрузитьТаблицуВФайл() выгрузки ТЗ в Excel-файл:
Код 1C v 8.х Процедура ВыгрузитьТаблицуВФайл()tab ase;Tab leDestination="";Tab leName=стрСводнаяТаблица;Tab le(Tab leDestination,Tab leName);Tab les(Tab leName).PivotFields(стрПоле1).Orientation = 3; //xlRowField=1 то, что указывается справа у таблицыTab les(Tab leName).PivotFields(лПоля[чНомер].Значение).Orientation = 1; Tab les(Tab leName).PivotFields(стрПоле3).Orientation = 2; //xlColumnField=2 то, что указывается в вепрхней части таблицыTab les(Tab leName).PivotFields(стрПоле4).Orientation = 4; //xlCount=4 dataTab leName,лПоля[чНомер].Значение,"(пусто)")ТогдаTab les(Tab leName).PivotFields(лПоля[чНомер].Значение).PivotItems("(пусто)").Visible = False;Tab leFieldList = False;Tab le").Visible = False;Tab leName,strFieldName,strItemName)Tab les(strTab leName).PivotFields(strFieldName).PivotItems().Count;Tab les(strTab leName).PivotFields(strFieldName).PivotItems(i).Name ТогдаКод 1C v 7.x РабочаяКнига = СоздатьОбъект("Excel.Application");Tab leWizard;Tab le").Visible = 0; Категория:
Работа с Microsoft Office и OpenOffice Выгрузка метаданных конфигурации в Microsoft Word и Excel Код 1C v 8.х Tab les.Add(Документ.Paragraphs(Номер).Range(),Количество+1,4);Tab les(Документ.Tab les.Count());Код 1C v 7.x Категория:
Работа с Microsoft Office и OpenOffice Перемещение базы данных TEMPDB TEMPDB представляет собой системную базу данных Microsoft SQL Server, в которой хранятся временные таблицы, созданные как самим сервером, так и пользователями. Эта база данных создается заново при каждом перезапуске Microsoft SQL Server. По умолчанию размер этой базы данных неограничен и увеличение его осуществляется при необходимости автоматически, порциями по 10% от текущего размера TEMPDB. Однако эти параметры могут быть переопределены пользователем. По умолчанию, минимальный размер этой базы данных, который устанавливается при старте Microsoft SQL Server, определяется размером системной базы данных MODEL. Очистка журнала транзакций в этой базе данных производится автоматически, при этом удаляются только неактивные записи журнала транзакций.
При работе 1С:Предприятия 8 в режиме клиент-сервер широко используются временные таблицы. Кроме того, TEMPDB используется Microsoft SQL Server при выполнении запросов, использующих операторы GROUP BY, U_nion, DISTINCT и т.п.
Проблема
В процессе работы 1С:Предприятия 8 возможно значительное увеличение размера базы данных TEMPDB. Если размер диска, на котором расположена база данных TEMPDB, окажется недостаточным, работа 1С:Предприятия 8 может завершиться аварийно.
Решение
Если эта проблема проявляется регулярно, то рекомендуется переместить TEMPDB на другой диск большего размера.
Эту операцию можно выполнить следующим способом:
* определить логические имена файлов базы данных TEMPDB (колонка "NAME" результата выполнения процедуры). Для этого нужно в Query Analyzer выполнить следующую команду:
Код SQL
* изменить месторасположение файлов базы данных TEMPDB с помощью команды A_lter DA
TAB ASE. Для этого нужно в Query Analyzer выполнить следующую последовательность команд:
Код SQL TAB ASE tempdb TAB ASE tempdb
3. Перезапустить Microsoft SQL Server.
Более подробное описание и рекомендации по использованию этих команд можно найти в документации по Microsoft SQL Server.
Категория:
Администрирование Выгрузка результата запроса в текстовый файл с разделителями Код 1C v 8.х Запрос = Новый Запрос();Tab ),НПП (NBSp),ПС (LF),ПФ (FF),Таб (Tab )
При загрузке для разбора строки используйте:
Функция разбирает строку на подстроки, используя заданный разделитель и возвращает массив
Еще посмотрите пример:
Загрузка данных из Текстового файла Категория:
Работа с Текстом (Строкой) Получения курса валют из Интернет Код 1C v 8.х Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединениеTAB &data_format=BROWSER&header=1TAB &data_format=BROWSER&header=1Код 1C v 8.х // еще примерКод 1C v 7.x // Взято с http://www.1c-club.kz IUnknown Категория:
COM-объекты, WMI, WSH Запрос к базе данных SQL Код 1C v 8.х Функция ПодключитьCOMОбъект(Путь) Экспорт
еще пример:
Код 1C v 8.х стрПодключения = "Driver={SQL Server};"taB ase =" + ИмяБазы + ";"; Категория:
COM-объекты, WMI, WSH Подключение к 1С из JavaScript Код //Подключается делает выборку прогоняет по циклу количество записей соответствует истинеtab = conn.Справочники.Клиенты;
Категория:
COM-объекты, WMI, WSH Пример подключения к MySQL базе Код 1C v 8.х // Пример 1tab ase="+СокрЛП(БазаСервера)+"; STMT=SET CHARACTER SET utf8";Код 1C v 8.х ]// Пример 2 tab ase = "; // это для MS SQL строкаКод 1C v 7.x DB = СоздатьОбъект("ODBCDatab ase");TAB ASE=Мега_база; USER=Супер_юзер; PASSWORD=пароль_супер_мега_юзера; OPTION=3;");tab ase(DB);Используя DSN . Большой плюс dsn есть режим проверки и также в текстах 1с
уже не нужен пользователь и пароль. Все детали скрыты в dsn
вот мой успешно работающий код для MY SQL
Код 1C v 7.x sql = СоздатьОбъект("ODBCDatab ase");
еще, драйвер 3.51:
Код 1C v 7.x //Тестируем установку параметров соединенияtab ase");tab ase=_1c;User=_1c_user; Password=_1c_pass;tab ase=_1c;User=_1c_user; Password=_1c_pass; Категория:
COM-объекты, WMI, WSH Функция открывает таблицу в MS Excel Код 1C v 7.x КодTab s = 1;Tab Ratio = 0.6 //... и отодвинем горизонтальную полосу прокрутки от левого краяАвтор неизвестен, если код ваш, напишите в комментариях Категория:
Работа с Microsoft Office и OpenOffice Вывести список элементов справочника в Word используя шаблон spisok.dot Код 1C v 7.x Процедура ВывестиСписокЭлементовСправочникаВWord()tab les(1).cell(1,2).range.text= спр1.ПолучитьАтрибут("Наименование");tab les(2).cell(ном,1).range.text = сотр.ПолучитьАтрибут("Код");tab les(2).cell(ном,2).range.text = сотр.ПолучитьАтрибут("Наименование");tab les(2).cell(ном,3).range.text = сотр.ПолучитьАтрибут("Должность");tab les(2).cell(ном,4).range.text = сотр.ПолучитьАтрибут("Оклад");tab les(2).rows.add(); Категория:
Работа с Microsoft Office и OpenOffice Печать документа в Word используя шаблон doc.dot Код 1C v 7.x tab les(1).cell(1,2).range.text = НомерДок;tab les(1).cell(1,4).range.text = ДатаДок;tab les(1).cell(2,2).range.text = Склад.Наименование;tab les(1).cell(3,2).range.text = Получатель.Наименование;tab les(2).rows.add(wrd.documents(1).tab les(2).rows(2).range)tab les(2).cell(стр,1).range.text = НомерСтроки;tab les(2).cell(стр,2).range.text =Строка(Товар);tab les(2).cell(стр,4).range.text =Строка(Цена);tab les(2).cell(стр,3).range.text =Строка(Количество);tab les(2).cell(стр,5).range.text =Строка(Сумма);tab les(2).cell(стр,5).range.text =Строка(СуммаДокумента); Категория:
Работа с Microsoft Office и OpenOffice Получение списка зарегистрированных на текущем компьютере баз 1С Предприятие 1Cv7 Код 1C v 7.x // Процедура получает из реестра список зарегистрированных ИБ 7.7Tab & Value & vbCrLf
Функция возвращает список значений содержащий список баз установленных на данном компьютаре. В котором в качестве значения указывается путь до базы, а в представлении название базы, так как она отображается в окне выбора баз при запуске 1С. Если баз не обнаруженно то возвращает строку "Error"
Код 1C v 7.x Еще примеры! Получение списка баз 1С 7.7 из реестра Категория:
Полезные, Универсальные Функции 
Как при выводе данных в Табличный Документ изменить Текст и Цвет Текста конкретной ячейки? Категория: Табличный документ