учетная » Поиск

Результаты по ключевому слову: учетная

Не задана фамилия подписанта 1с 8.3 ЗУП, Как поменять подписанта? Категория: 1С Зарплата и Управление Персоналом 3.0

Отправка почты через CDO (работает c SSL) Категория: Работа с Интернет, Почтой (Mail), FTP

Запись во внешний источник данных из 1С 8.2

Начиная с платформы 8.2.14 в 1С появилась коллекция "Внешние источники данных". Использование объектов этой коллекции позволяет работать с внешними данными через ODBC. Стандартные механизмы платформы позволяют просматривать данные и использовать их в запросах. Тем не менее, на примере взаимодействия с SQL покажу возможность работы с внешними источниками на прямое добавление/изменение данных SQL из 1С.

Создадим для начала через консоль сервера SQL базу "test" с таблицей "assortment", строковые поля id, name, price. Сделаем ключевым поле id и внесем пару строк в таблицу. Потом создадим пустую базу 1С, в конфигураторе добавим внешний источник данных "ВнешнийSQL". На вкладке "Данные" добавим нашу таблицу. Можно ввести строку соединения, либо воспользоваться конструктором строки. В моей строке указаны явно учетная запись суперадминистратора (sa) и пароль к ней. Поскольку это сервер для тестов, вопросом безопасности можно пренебречь. Для реальной базы такого делать не стоит, либо можно завести отдельного пользователя с правами чтения/записи только на эту базу и хранить его данные.

После подключения находим в списке таблиц нашу, выбираем необходимые поля, в нашем случае все.

После добавляем формы для объекта и списка.

Если запустить нашу конфигурацию сейчас, то элементы формы списка будут открываться только на просмотр.

Теперь начинаем вносить изменения в формы, начнем с формы объекта. В свойствах реквизита "Объект" убираем галку "Сохраняемые данные", после этого реквизиты формы будут доступны для редактирования. Так же добавляем команду "ЗаписатьДанные" и прописываем код сохранения данных.

Код 1C v 8.3

 &НаСервере

Процедура ЗаписатьСервер()

 

 пСеанс = ВнешниеИсточникиДанных.ВнешнийSQL.ПолучитьОбщиеПараметрыСоединения();

 

 Если НЕ пСеанс.СУБД = "MSSQLServer" Тогда

  Возврат;

 КонецЕсли;

 

 ЗапросSQL = ?(Объект.Ссылка.Пустая(), ПолучитьЗапросДобавления(), ПолучитьЗапросОбновления());

 

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

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

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

 

 //учетка и пароль уже в строке подключения

 //иначе их необходимо добавить в строку

 Попытка

  Connection.Open(СокрЛП(пСеанс.СтрокаСоединения));

  Command.ActiveConnection   = Connection;

  Command.CommandText = ЗапросSQL;

  RecordSet = Command.Execute();

 Исключение

  Сообщить(ОписаниеОшибки());

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





КонецПроцедуры // ЗаписатьСервер()





&НаСервере

Функция ПолучитьЗапросОбновления()

 

 мДанные = Объект.Ссылка.Метаданные();

 СтрокаПоля = "";

 СтрокаДанные = "";

 

 ДанныеОбъект = Объект.Ссылка.ПолучитьОбъект();

 

 Для Каждого мПоле Из мДанные.Поля Цикл

  Если Объект[мПоле.Имя] = ДанныеОбъект[мПоле.Имя] Тогда

   Продолжить;

  КонецЕсли;

  СтрокаДанные = СтрокаДанные + ?(ПустаяСтрока(СтрокаДанные), " SET ", ", ") + мПоле.Имя + "= '" + Объект[мПоле.Имя] + "'";

 КонецЦикла;

 

 //делаем UDPDATE по id, поскольку оно у нас ключевое

 ЗапросSQL = "UPDATE " + мДанные.ИмяВИсточникеДанных + СтрокаДанные + "WHERE (id = '" + ДанныеОбъект.id + "')";

 

 Возврат ЗапросSQL; 

 

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





&НаСервере

Функция ПолучитьЗапросДобавления()

 

 мДанные = Объект.Ссылка.Метаданные();

 СтрокаПоля = "";

 СтрокаДанные = "";

 

 Для Каждого мПоле Из мДанные.Поля Цикл

  СтрокаПоля = СтрокаПоля + ?(ПустаяСтрока(СтрокаПоля), " (", ", ") + мПоле.Имя;

  СтрокаДанные = СтрокаДанные + ?(ПустаяСтрока(СтрокаДанные), " VALUES (", ", ") + "'" + Объект[мПоле.Имя] + "'";

 КонецЦикла;

 

 СтрокаПоля = СтрокаПоля + ")";

 СтрокаДанные = СтрокаДанные + ")";

 ЗапросSQL = "INSERT INTO " + мДанные.ИмяВИсточникеДанных + СтрокаПоля + СтрокаДанные;

 

 Возврат ЗапросSQL; 

 

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





&НаКлиенте

Процедура ЗаписатьДанные(Команда)

 

 ЗаписатьСервер();

 //делаем оповещение для списка, поскольку он автоматически не обновляется

 Оповестить("ОбновитьВнешнийИсточникДанных");

 

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

Теперь в форме списка на панель вешаем команду "Добавить" и добавляем обработку оповещения.

Код 1C v 8.3

 &НаКлиенте

Процедура Добавить(Команда)





 ОткрытьФорму("ВнешнийИсточникДанных.ВнешнийSQL.Таблица.dbo_assortment.ФормаОбъекта");

 

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





&НаКлиенте

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

 

 Если ИмяСобытия = "ОбновитьВнешнийИсточникДанных" Тогда

  Элементы.Список.Обновить();

 КонецЕсли;

 

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

Вот и все, теперь мы можем как добавлять, так и редактировать данные таблицы. При необходимости можно добавить дополнительный контроль ввода, автонумерацию, удаление и прочие механизмы.

Источник

Категория: Внешние источники данных

Учетная политика организации – неполное/некорректное заполнение Категория: 1С Общие вопросы - Обычные формы

Механизм бизнес-процессов - что, как, зачем, для чего?

Управление бизнес-процессами предприятия подразумевает под собой использование процессной модели управления организацией, когда отдельные деловые операции связываются в логические цепочки. Такой подход реализуется на методологической базе концепции Workflow (управление потоками работ). В классическом понимании данной концепции акцент делается на документах, в то время как управление бизнес-процессами увязывает воедино документы (информацию), людей и приложения (средства обработки информации). Автоматизация управления бизнес-процессами позволяет повысить качество организации работы и эффективность управления предприятием.
* Повышение качества. Бизнес-процессы формулируют и реализуют правила выполнения отдельных операций и их взаимосвязь, что позволяет значительно сократить или даже полностью исключить из бизнес-процесса ошибки, обуславливаемые человеческим фактором. Простой список заданий позволяет сотрудникам сконцентрироваться на своих непосредственных обязанностях.
* Повышение эффективности. С помощью механизма бизнес-процессов можно формализовать организационную деятельность и возложить функции управления совместной работой сотрудников на прикладное решение, что ведет к более эффективному использованию рабочего времени.
* Обеспечение новых возможностей. Данные о выполнении задач и о ходе бизнес-процессов могут служить основой для оптимизации организационной структуры предприятия, выявления “узких” мест и скрытых ресурсов. Таким образом, в полной мере реализуется методология процессного управления.

В составе технологической платформы «1С:Предприятие 8» имеется блок для реализации механизмов бизнес-процессов. Данный блок включает в себя инструментарий для автоматизации цепочек связанных операций, направленных на достижение общей цели. Механизм бизнес-процессов обеспечивается сразу несколькими объектами конфигурирования: бизнес-процессы, задачи, регистр сведений и параметр сессии. Задача предназначена для учета заданий и описывает способ их распределения по исполнителям с учетом организационной структуры предприятия. Адресация заданий сотрудникам определяется реквизитами, в которых можно предусмотреть многомерную ролевую маршрутизацию, например по ролям, рабочим группам, подразделениям, помещениям, филиалам и т. д. При этом задачи могут создаваться не только бизнес-процессами, но и другими объектами информационной базы и непосредственно пользователями. Более того, в общем случае исполнителем задания может быть не только сотрудник, но и любая внешняя система, например другая учетная система. Объект «Бизнес-процесс» описывает логику выполнения операций для достижения той или иной цели и управляет жизненным циклом созданных бизнес-процессов (их экземпляров) от момента старта до момента завершения. Логика бизнес-процесса (взаимосвязь и последовательность обхода точек маршрута, условные переходы и пр.) наглядно описывается в виде карты маршрута, которая позволяет визуально описывать маршрут бизнес-процесса в виде связного графа и позволяет легко описывать алгоритмы условных переходов и реакцию бизнес-процесса на различные события. Операции, выполняемые в ходе бизнес-процесса, представлены на карте маршрута точками действий, которые содержат информацию о том, кто и что должен сделать на данном этапе. Исполнитель может определяться персонально (Иванов) или с учетом ролевой маршрутизации ("Кладовщик", "Бухгалтер"). При переходе бизнес-процесса на точку действия он автоматически формирует задачи, устанавливая в них предусмотренные реквизиты адресации.

Категория: Бизнес-процессы

Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом

Код 1C v 8.х

  // Пробуем подключиться

		Профиль = Новый ИнтернетПочтовыйПрофиль;

		// Получение почты нам не нужно, коментируем

		//	Профиль.АдресСервераPOP3 = POP3Сервер;

		Профиль.АдресСервераSMTP = СокрЛП(Константы.SMTPSERVER.Получить()); // айпишник екченжа

		//Если ВремяОжиданияСервера > 0 Тогда

		//	Профиль.ВремяОжидания = ВремяОжиданияСервера;

		//КонецЕсли; 

		Профиль.Пароль           = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());

		Профиль.Пользователь     = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

		//Профиль.ПортPOP3         = ПортPOP3;

		Профиль.ПортSMTP         = СокрЛП(Константы.SMTPSERVERPORT.Получить());

		

		Профиль.ПарольSMTP       = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());

		Профиль.ПользовательSMTP = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

		

		//Профиль.ПарольSMTP       = УчетнаяЗапись.Пароль;

		//Профиль.ПользовательSMTP = УчетнаяЗапись.Логин;

		

		ИнтернетПочта = Новый ИнтернетПочта;

		Попытка

			ИнтернетПочта.Подключиться(Профиль);

		Исключение

			Сообщить(ОписаниеОшибки());

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

		

		ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;

		ПочтовоеСообщение.ИмяОтправителя  = "1C-ka";

		ПочтовоеСообщение.Отправитель     = СокрЛП(Отправитель.Email);

		ПочтовоеСообщение.Тема            = Тема;

		

		ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Получатель.Email));

		ПочтовоеСообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.ПростойТекст);

		

		Если Не пустаястрока(файл) Тогда

			Данные = Новый ДвоичныеДанные(файл); 

			ПочтовоеСообщение.Вложения.Добавить(Данные,файлн); 	

		конецесли;	

		попытка

			ИнтернетПочта.Послать(ПочтовоеСообщение);

		исключение

			Сообщить(ОписаниеОшибки());

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

Категория: Работа с Интернет, Почтой (Mail), FTP

Построение диаграммы

Код 1C v 8.х

 Процедура ФормДиаграммы()

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

           Траб.Очистить();

           Траб.Колонки.Добавить("ххх");

           Траб.Колонки.Добавить("Норм");

           Траб.Колонки.Добавить("Факт");

          

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

           НовСтр.ххх="а1";

           НовСтр.Норм=5;

           НовСтр.Факт=10;

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

           НовСтр.ххх="а2";

           НовСтр.Норм=2;

           НовСтр.Факт=15;

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

           НовСтр.ххх="а3";

           НовСтр.Норм=8;

           НовСтр.Факт=14;

                                     

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

           Макет = Отчеты.УчетнаяКарточка.ПолучитьМакет("Диагр");

          

           ОблДиаграмма = Макет.ПолучитьОбласть("Диагр1");

           Диаграмма = ОблДиаграмма.Рисунки.D1.Объект;

          

           Диаграмма.СерииВСтроках = Ложь;

           Диаграмма.Обновление=Ложь;

          

           Диаграмма.ИсточникДанных = Траб;

          

           Диаграмма.Обновление=Истина;

           ТабДок.Вывести(ОблДиаграмма);

          

           ТабДок.АвтоМасштаб=Истина;

           ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;

           ТабДок.Показать();

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

Полезная процедура формирования диаграммы в макете
Строить можно и в макете и в форме.

Код 1C v 8.х

 

Процедура ПостроитьДиаграмму(Траб,Диаграмма)



Для Каждого Колонка из Траб.Колонки Цикл

 Если Траб.Колонки.Индекс(Колонка) <> 0 Тогда

  Диаграмма.Серии.Добавить(Колонка.Имя);

 КонецЕсли;

КонецЦикла;



Для Каждого СтрТраб из Траб Цикл

 Точка=Диаграмма.Точки.Добавить(СтрТраб.Получить(0));

 Индекс=0;

 Для Каждого Серия из Диаграмма.Серии Цикл

  Индекс=Индекс+1;

  Диаграмма.УстановитьЗначение(Точка,Серия,СтрТраб.Получить(Индекс));

 КонецЦикла;

КонецЦикла;

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

gwa. Григорьев В.

Категория: Диаграмма

Переход с DBF-версии 1Cv7 на SQL-версию

Буду краток, делаем так:
1. Установить на сервер MSSQL. Краткая инструкция по установке есть в этом FAQ.
2. Установить на рабочую станцию драйвера ODBC из поставки 1C или ODBC-клиента от Microsoft (он зовется MDAC).
3. Установить на рабочую станцию собственно SQL-версию 1С:Предприятия, ее исполняемый файл, в отличие от сетевой версии, назвается 1Cv7s.exe.
4. Открыть SQL Enterprise Manager и создать новую базу данных. Если непонятно, как это делать — почитайте хелп, он там весьма развесистый. Размер БД выбирается из следующих соображений: данные в sql-базе займут места раза в 2-2.5 больше, чем весит dbf-база, и как минимум 20% пространства sql-базы должно остаться свободным. Размер лога также играет роль — если планируется перенос данных из dbf-версии, следует иметь лог ~25% от размера sql-базы. Можно сразу же установить для базы режим T_runcate log on checkpoint, это поможет избежать проблем с переполнением лога и немного повысит производительность, но лишит возможности в случае аварии БД сделать откат на момент “за пять минут до сбоя”.
5. Подготовить данные dbf-версии к переносу — если он планируется. Это делается с помощью операции “Выгрузить данные”, которая не просто запаковывает таблицы, а переводит информацию в хитрый формат и кладет в файл с расширением *.dat.
6. Создать пустую директорию для хранения конфигурации sql-базы. Она не должна совпадать с директорией, где хранятся файлы собственно sql-базы, последние вообще желательно сделать недоступными для пользователей.
7. Открыть Конфигуратор, зарегистрировать новую базу данных (та самая пустая директория) и на вопрос о типе БД ответить “SQL server”.
8. Выставить в конфигураторе “Параметры базы данных sql...” — это сетевое имя сервера, имя базы данных, как оно было задано в Enterprise Manager, имя пользователя и пароль для доступа к данным через ODBC (встроенная в MSSQL учетная записть администратора имеет логин sa и пустой пароль).
9. Загрузить данные в БД. Если Вам нужна пустая конфигурация, это делается с помощью процедуры “Загрузить измененную конфигурацию”, если данные переносятся из dbf-версии — “Загрузить данные”, конфигурация при этом загрузится автоматически.
10. Можно работать с БД. Не забывайте время от времени архивировать и индексировать свою sql-базу — архивация средствами sql, в отличие от файл-серверной версии, не требует монопольного доступа к базе и может осуществлятся прямо во время работы. Индексация и проверка целостности БД производится последовательным запуском двух TSQL-скриптов, очень простых:

dbcc checkdb — проверка БД
exec _1sp_dbreindex — индексация.

Индексация требует монопольного доступа к данным, поэтому не пытайтесь в это время работать. И архивирование, и индексацию можно (и нужно) повесить на автоматическое исполнение.

Категория: Администрирование