1С 7.x : Запись СД из 1С(без ВК и других программ, проверено на ХР/2003)
Конечно метод дубовенький, расчитан тока на русскую версию, но можно и допеределать.
Не стал писать код определения пишущего сидирома и возможности записи (хотя на отсутствие диска или невозможность записать ОС сама укажет)...
Автор: smaharbA
1С Предприятие что это? 10 Что такое 1С?
1С — это фирма , у которой одно из направлений деятельности — разработка программного обеспечения для автоматизации бизнес-процессов предприятий. « 1С:Предприятие » - конкретный продукт, который...Быстрая выгрузка отчетов в Excel, наложение Фильта и отображение ярлыка 0 Вместо Таб.Показать() используем глобальную функцию - и отчет показывается сразу в Excel в удобоваримом виде - с форматированием колонок по ширине, автофильтром и ярлычками листов
Процедура...Ввод записей в журнал расчетов 1 Добавление записи в журнал расчетов:
Метод Новая может быть вызван где угодно, в глобальном модуле, модуле обработок, документов и т.д.
Данный метод проверяет корректность заполненных реквизитов журнала расчетов....Выбор запросом элементов справочника и Загрузка в Документ 0 Запрос = СоздатьОбъект(" Запрос" );
ТекстЗапроса =
" //{{ЗАПРОС(Сформировать)
//|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|Номенклатура = Справочник.Номенклатура.ТекущийЭлемент;
...Выборка документа по номеру и вывод на Печать, в Табличный Документ 0
Процедура Печать()
Если (ПустоеЗначение(ДатаНач)=1) или (ПустоеЗначение(ДатаКон)=1) Тогда
Предупреждение(" Не задан период отчета" );
Возврат;
КонецЕсли;
Заг=" За период с " +ДатаНач+" по " +ДатаКон;
Таб=СоздатьОбъект("...Посмотреть все результаты поиска похожих
Функции перекодировки текста в/из UTF-8 штатными средствами 1с 7.7 10 На полную универсальность не претендует, но с русскими буквами работает нормально.
// Преобразовать строку в UTF-8
Функция ПреобразоватьСтрокуВУТФ8(Стр)
Длина=СтрДлина(Стр);
Итог=" " ;
Для Н=1 По Длина Цикл
...Работа с буфером обмена средствами 1С 9 Копировать из 1С в буфер обмена( без ВК):
ЭлементыФормы.Добавить(Тип(" ПолеHTMLДокумента" ), " Поле_HTML_Документа_acb123" , Ложь);
Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow;
Окно.ClipboardData.SetData(" Text" , ТекстCклонения по падежам 4 НаКлиенте
Процедура Команда1(Команда)
ФИО = " Иванов Иван Иванович" ;
Падеж = 2;
Пол = 1;
Результат = СклонениеФИО(ФИО, Падеж, пол);
Сообщить(Результат);
КонецПроцедуры
НаСервере
Функция СклонениеФИО(ФИО, Падеж, пол)
...Как получить список зарегистрированных пользователей базы 1С 3 Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей();
Для Каждого ЭлементМассива Из Выборка Цикл
ИмяПользователя = ЭлементМассива.Имя;
ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя;
ЕстьПароль...Как разобрать "наименование" сотрудника Ф.И.О. на Фамилию и инициалы сотрудника? 2
Функция глРазложить(Знач Стр, Разделитель = " ," ) Экспорт
СЗ = СоздатьОбъект(" СписокЗначений" );
Если Разделитель = " " Тогда
Стр = СокрЛП(Стр);
Пока 1=1 Цикл
Поз = Найти(Стр,Разделитель);
Если Поз=0 Тогда
...Посмотреть все в категории Полезные, Универсальные Функции