1С 7.x : Проверка контрагентов на задвоение по ИНН при вводе
В 7.7 Откройте Справочник Контрагенты - Форма Элемента, двойным щелчком по полю ИНН, на закладке Дополнительно в поле формула введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()
В 8- ой версии, откройте Справочник Контрагенты - Форму Элемента, двойным щелчком по полю ИНН, в событиях ПриИзменении введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()
Теперь при вводе ИНН происходит проверка, если Контрагент с таким ИНН уже есть в базе, то выдается Предупреждение!
Загрузка данных из XML файла в Таблицу Значений и вывод в Табличный документ 1 Перем ИмяПути,ИмяФайла;
Перем xmlParser;
//пример чтения xml файла.
Функция УстановитьКомпоненту()
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+" ExtFormsv7plus.dll" )=0 Тогда
Если ЗагрузитьВнешнююКомпоненту(" v7plus.dll" )=0 Тогда
СообщитКак загрузить данные из Access в 1С ? 5 Загружаем данные из Access в 1С
Файл = " C: files demo.mdb" ;
//СтрокаПодключения = " Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + " ; Extended Properties=" " Excel 8.0;HDR=NO;" " " ;
СтрокаПодключения = " Provider=Microsoft.JetПараметры, ключи запуска 1Сv7 из командной строки 0 Режим предназначен для выполнения конфигуратором административных функций без участия пользователя. Данный режим применяется в специальных случаях. Например, с его помощью можно организовать специальный ярлык на рабочем столе Windows для создания резСоздание и запись нового элемента справочника 19 НаКлиенте
Процедура ПоКнопкеНовыйКонтрагент(Команда)
// Вставить содержимое обработчика.
Перем НовыйКонтрагент;
НовыйКонтрагент = Новый Структура(" Наименование, ПолноеНаименование, ИНН" );
НовыйКонтрагент.Наименование = " РиК ООО" ;
НовыйКонУдаление из строки всех лишних данных 0 Нужно из строки ИНН 1111111111 ИП Петров А.А. получить только ИП Петров А.А.
Функция УбратьИНН(НаименованиеСИННом)
RegExp=Новый COMОбъект(" VBScript.RegExp" );
RegExp.MultiLine=Ложь;
RegExp.Global=Истина;
RegExp.Pattern = " ИНН s* d+ s*" ;
Посмотреть все результаты поиска похожих
Работа с буфером обмена средствами 1С 20 Копировать из 1С в буфер обмена( без ВК):
ЭлементыФормы.Добавить(Тип(" ПолеHTMLДокумента" ), " Поле_HTML_Документа_acb123" , Ложь);
Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow;
Окно.ClipboardData.SetData(" Text" , ТекстФункции перекодировки текста в/из UTF-8 штатными средствами 1с 7.7 16 На полную универсальность не претендует, но с русскими буквами работает нормально.
// Преобразовать строку в UTF-8
Функция ПреобразоватьСтрокуВУТФ8(Стр)
Длина=СтрДлина(Стр);
Итог=" " ;
Для Н=1 По Длина Цикл
Знак=Сред(Стр,Н,1);
Код=КодСимв(ЗнакCклонения по падежам 6 НаКлиенте
Процедура Команда1(Команда)
ФИО = " Иванов Иван Иванович" ;
Падеж = 2;
Пол = 1;
Результат = СклонениеФИО(ФИО, Падеж, пол);
Сообщить(Результат);
КонецПроцедуры
НаСервере
Функция СклонениеФИО(ФИО, Падеж, пол)
Результат = " " ;
Использование ASCII кодов в 1С 5 Хотите писать в 1С не только стандартными буквами, знаками изображенными на клавиатуре и вставлять опять же стандартные смайлики, а тем не менее существует возможность ставить дополнительные символы, так же можно делать таблички прямо в тексте с помоКак получить список зарегистрированных пользователей базы 1С 4 Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей();
Для Каждого ЭлементМассива Из Выборка Цикл
ИмяПользователя = ЭлементМассива.Имя;
ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя;
ЕстьПароль = ЭлементМассива.ПарольУстановлеПосмотреть все в категории Полезные, Универсальные Функции
Полезные, Универсальные Функции
