разделительстрок » Поиск

Результаты по ключевому слову: разделительстрок

КД: Передача параметров из выгрузки в загрузку (в т.ч. и на ранние стадии) при обмене из 7.7 в 8.х

Кратко суть проблемы можно озвучить цитатой из документации: "Передача параметра из источника в приемник доступна только при обмене между информационными базами на платформе 1С:Предприятие 8".

Ниже излагается способ передачи глобальных параметров при таком обмене без правки выгруженного из КД 2 модуля выгрузки и без правки самой КД 2.

Итак, в обработчике ПередВыгрузкойДанных пишем код:

Код 1C v 8.2 УП

 УзелПарам=СоздатьУзел("ЗначениеПараметра");
УстановитьАтрибут(УзелПарам,"Имя","НашПараметр1");
УстановитьАтрибут(УзелПарам,"Тип","Строка");
ЗаписатьЭлемент(УзелПарам,"Значение","Значение нашего параметра 1");
ДобавитьПодчиненный(rootNode,УзелПарам);


УзелПарам=СоздатьУзел("ЗначениеПараметра");
УстановитьАтрибут(УзелПарам,"Имя","НашПараметр2");
УстановитьАтрибут(УзелПарам,"Тип","Булево");
ЗаписатьЭлемент(УзелПарам,"Значение","true");
ДобавитьПодчиненный(rootNode,УзелПарам);

после этого данные параметры будут абсолютно штатно загружены в стандартной обработке "Универсальный обмен данными в формате XML (2.1.5)".

Ещё хотелось бы заметить, что содержимое обработчика ПослеЗагрузкиПараметров при таком обмене также не выгружается в файл обмена. Исправить данную оплошность можно так же, записав в обработчике ПередВыгрузкойДанных

Код 1C v 8.2 УП

 АлгПослеЗагрузкиПараметров=
"СтрокаКода1;"+РазделительСтрок+
"СтрокаКода2;"+РазделительСтрок+
"СтрокаКода3;";
ЗаписатьЭлемент(rootNode,"АлгоритмПослеЗагрузкиПараметров",АлгПослеЗагрузкиПараметров);

Нюанс: чтобы иметь параметры на ранних стадиях загрузки, например, в обработчиках ПередЗагрузкойДанных или ПередОбработкой в ПОД (правилах очистки данных), нужно помещать выгружаемые параметры в корень узла с выгружаемыми данными:

Код 1C v 8.2 УП

 ИмяПараметра="НашПараметр1";
ТипПараметра="Строка";
ЗначениеПараметра="Значение нашего параметра 1";

// Устанавливаем значение параметра в обработчике ПередЗагрузкойДанных
УзелПравил=rootNode.getElementsByTagName("ПравилаОбмена").item(0);
УзелПередЗагрузкой=УзелПравил.getElementsByTagName("ПередЗагрузкойДанных").item(0);
КоллУзлов=УзелПередЗагрузкой.childNodes;
Для НомУзла=0 По КоллУзлов.length-1 Цикл
    ТекУзел=КоллУзлов.item(НомУзла);
    Если (ТекУзел.nodeType=3) Тогда
        // текст элемента
        ТекУзел.nodeValue=РазделительСтрок+"Параметры."+ИмяПараметра+"="+?(ТипПараметра="Строка","""","")+
            ЗначениеПараметра+?(ТипПараметра="Строка","""","")+";"+РазделительСтрок+РазделительСтрок+
            ТекУзел.nodeValue;
        Прервать;
    КонецЕсли;
КонецЦикла;

Автор: andrewks - Источник

Категория: Конвертация данных, Обмен, Перенос

Обмен файлами с FTP сервером средствами Windows

Код 1C v 8.х

  // Передать файл по FTP
Процедура ПередатьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт
    Если ПутьФТП = Неопределено Тогда
        ТекПутьФТП = ПараметрыСеанса.FTPПуть;
    Иначе
        ТекПутьФТП = ПутьФТП;
    КонецЕсли;    
    
    //создаем скрипт для соединения и отправки
    Скрипт=Новый ТекстовыйДокумент;
    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);
    Скрипт.ДобавитьСтроку("user");
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);
    Скрипт.ДобавитьСтроку("binary");
    
   //при необходимости входим в каталог, возможно, таких команд будет несколько
    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);
    Скрипт.ДобавитьСтроку("put "+ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);
    Скрипт.ДобавитьСтроку("bye");
    
    //записываем скрипт на диск
    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");
    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");

    //а теперь запускаем его выполнение
    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");
КонецПроцедуры

// Получить файл по FTP
Процедура ПолучитьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт
    Если ПутьФТП = Неопределено Тогда
        ТекПутьФТП = ПараметрыСеанса.FTPПуть;
    Иначе
        ТекПутьФТП = ПутьФТП;
    КонецЕсли;    
    
    //создаем скрипт для соединения и отправки
    Скрипт=Новый ТекстовыйДокумент;
    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);
    Скрипт.ДобавитьСтроку("user");
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);
    Скрипт.ДобавитьСтроку("binary");

    //при необходимости входим в каталог, возможно, таких команд будет несколько
    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);
    Скрипт.ДобавитьСтроку("get");
    Скрипт.ДобавитьСтроку(ИмяФайла);
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);
    Скрипт.ДобавитьСтроку("bye");
 
   //записываем скрипт на диск
    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");
    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");

    //а теперь запускаем его выполнение
    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");
КонецПроцедуры

Код 1C v 7.x

 // Пример от 0xFFFFFF
// Может быть проблема в том, что 1С естественно не дожидается окончания перемещения файлов (movehere) 
// и пока копируются файлы, код продолжает выполняться далее.

Функция ОтправитьФайлыЧерезFTP()          
    //подключаемся, отправляем
    Попытка
        Шел=СоздатьОбъект("shell.application");
        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьИсходящих));
         ПапкаИсточник=Шел.namespace(КаталогИсходящих);
        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);
        Предупреждение("Подключение к FTP серверу...",1);    
        Темы=ПапкаИсточник.items();
        ПапкаЗагруженных.copyhere(Темы);
        //Темы.filter(64,"*.txt"); 
         ПапкаФТП.movehere(Темы);
    Исключение                  
        Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");
        Возврат 0;
    КонецПопытки;  
    
    //проверяем
     ФС.УстТекКаталог(КаталогИсходящих);
    ПопытокПроверки = 3;
    Для Сч = 1 По ПопытокПроверки Цикл
        Если НЕ ((СокрЛП(ФС.НайтиПервыйФайл("*.*"))="") или (СокрЛП(ФС.НайтиПервыйФайл("*.*"))=".")) Тогда
            Если Сч = ПопытокПроверки Тогда
                Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Попробуйте совершить обмен позже.");
                Возврат 0;
            КонецЕсли;
            Предупреждение("Передача файлов....", 3);
        КонецЕсли;
    КонецЦикла;
    
    Возврат 1;
КонецФункции

Функция ПолучитьФайлыЧерезFTP()          
    //подключаемся
     Попытка
        Шел=СоздатьОбъект("shell.application");
        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьВходящих));
 
        ПапкаПриемник=Шел.namespace(КаталогВходящих);   
        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);
        Предупреждение("Подключение к FTP серверу...",1);
        Темы=ПапкаФТП.items();
        ПапкаЗагруженных.copyhere(Темы);
        //Темы.filter(64,"*.txt");                             
         ПапкаПриемник.movehere(Темы);
    Исключение                  
        Предупреждение("Внимание! Не удалось получить файлы через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");
        Возврат 0;
    КонецПопытки;  
    
    //проверяем
    ПопытокПроверки = 3;
    Для Сч = 1 По ПопытокПроверки Цикл
        Если ПапкаФТП.items().count>0 Тогда
            Если Сч = ПопытокПроверки Тогда
                Предупреждение("Внимание! Не удалось получить файлы через FTP! Попробуйте совершить обмен позже.");
                Возврат 0;
            КонецЕсли;
            Предупреждение("Получение файлов....", 3);
        КонецЕсли;
    КонецЦикла;
    
    Возврат 1;             
КонецФункции

Код 1C v 7.x

  //БЛОК ВЫГРУЗКИ НА ФТП 
    ТекстВыгрузки.Записать(КаталогПользователя()+(ИмяПрайса+".csv"));
    ТекстВыгрузки = "";
    ТекстВыгрузки = СоздатьОбъект("Текст");
    ТекстВыгрузки.ДобавитьСтроку("open " + "192.168.0.1"); //адрес
    ТекстВыгрузки.ДобавитьСтроку("****"); //логин
    ТекстВыгрузки.ДобавитьСтроку("*****"); //пароль
    ТекстВыгрузки.ДобавитьСтроку("put " + КаталогПользователя() + (ИмяПрайса+".csv"));
    ТекстВыгрузки.ДобавитьСтроку("bye");
    ТекстВыгрузки.Записать(КаталогПользователя() + "ftp.txt");
    ТекстВыгрузки = "";
    
    КомандаСистемы("ftp -s:" + КаталогПользователя() + "Ftp.txt>> " + (КаталогПользователя() + "report.txt"));
    ФС.УдалитьФайл(КаталогПользователя() + "ftp.txt");
    
    ТекстВыгрузки = СоздатьОбъект("Текст");
    ТекстВыгрузки.Открыть(КаталогПользователя() + "report.txt");
    КС = ТекстВыгрузки.КоличествоСтрок()-4; //если все нормально - то в этой строке файла должно быть соотв.сообщение
 
   //проверим его 
    Попытка 
        строкаКомплете = ТекстВыгрузки.ПолучитьСтроку(КС);
        Если  Найти(Нрег(строкаКомплете),"226 transfer complete") = 0
        Тогда а=1; а=а/0;
        КонецЕсли;
        тПротокол = ТекущееВремя()+" файл данных успешно отправлен на сервер интернет-магазина"+РазделительСтрок+тПротокол;
        Форма.Обновить();
        ТекстВыгрузки = "";
        ФС.УдалитьФайл(КаталогПользователя() + (ИмяПрайса+".csv"));
        ФС.УдалитьФайл(КаталогПользователя() + "report.txt");
    Исключение
        тПротокол = ТекущееВремя()+" ПРОИЗОШЛА ОШИБКА ВО ВРЕМЯ ЗАГРУЗКИ СФОРМИРОВАННОГО ФАЙЛА НА СЕРВЕР ИНЕТРНЕТ-МАГАЗИНА"+РазделительСтрок+тПротокол;
        тПротокол = ТекущееВремя()+ИмяПрайса+РазделительСтрок+тПротокол;
        Форма.Обновить();
        ТекстВыгрузки.Показать();
        ТекстВыгрузки = "";
    КонецПопытки;

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

Как в 1С автоматически переключать раскладку клавиатуры?

Для этого можно использовать функционал следующих внешних компонент:
1. FormEx смотрите тут.

Код 1C v 7.x

 Сервис=СоздатьОбъект("Сервис");
Сервис.РаскладкаКлавиатуры("Russian");

2. Miracle смотрите тут.

3. NetaTable смотрите тут.

Код 1C v 7.x

   Если (ЗагрузитьВнешнююКомпоненту("NetaTable.dll")=1) Тогда
    РовнаяТаблица=СоздатьОбъект("AddIn.NTable");
  Иначе
    Предупреждение("Внешняя компонента AddIn.NetaTable НЕ подключена!!!"+РазделительСтрок+"Работа программы невозможна!!!");
    СтатусВозврата(0);
    Возврат
  КонецЕсли;
Процедура ПриНачалеВыбораЗначения(ИдентЭлемента,ФлагОтбора)
  Если ИдентЭлемента = "Диагноз" Тогда
    РовнаяТаблица.УстановитьРаскладку(67699721);
  ИначеЕсли ИдентЭлемента = "ИсточникФинансирования" Тогда
    РовнаяТаблица.УстановитьРаскладку(68748313);
  КонецЕсли;
КонецПроцедуры

А можно и без внешних компонент:

Код 1C v 7.x

  //примеры Sserj
Процедура СменитьРаскладку(Реж)
    //Можно и просто через wrapper.dll
    //Wrapper = CreateObject("DynamicWrapper"); 
    //Wrapper.Register("USER32.DLL", "ActivateKeyboardLayout", "i=ll", "f=s", "r=l"); 
    //Wrapper.Register("USER32.DLL", "LoadKeyboardLayout", "i=sl", "f=s", "r=l"); 
    //rus = Wrapper.LoadKeyboardLayout("00000419", 0); 
    //eng = Wrapper.LoadKeyboardLayout("00000409", 0); 
    //Если Реж = "RUS" Тогда 
    //    Wrapper.ActivateKeyboardLayout(rus, 0); 
    //ИначеЕсли Реж = "EN" Тогда 
    //    Wrapper.ActivateKeyboardLayout(eng , 0); 
    //КонецЕсли; 
    Если Не (Константа.ВключатьНамЛоокВТелефонах = Истина) Тогда
        Возврат;
    КонецЕсли;
    wshShell=createObject("wScript.shell");
    Если Реж = "RUS" Тогда
        wshShell.SendKeys("^(8)",0);
    ИначеЕсли Реж = "EN" Тогда
        wshShell.SendKeys("^(9)",0);
    КонецЕсли;
КонецПроцедуры // СменитьРаскладку(Реж)

//ЕЩЕ

  //Обновляем хоткеи смены языков, для подмены в полях где нужна английская раскладка 
        текст = СоздатьОбъект("текст");
        текст.ДобавитьСтроку("Windows Registry Editor Version 5.00");
        текст.ДобавитьСтроку("");
        текст.ДобавитьСтроку("[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000100]");
        текст.ДобавитьСтроку("""Virtual Key""=hex:39,00,00,00");
        текст.ДобавитьСтроку("""Key Modifiers""=hex:02,c0,00,00");
        текст.ДобавитьСтроку("""Target IME""=hex:09,04,09,04");
        текст.ДобавитьСтроку("");
        текст.ДобавитьСтроку("[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000101]");
        текст.ДобавитьСтроку("""Virtual Key""=hex:38,00,00,00");
        текст.ДобавитьСтроку("""Key Modifiers""=hex:02,c0,00,00");
        текст.ДобавитьСтроку("""Target IME""=hex:19,04,19,04");
        ИмяФайла = КаталогИБ() + "LangHotKey.reg";
        Попытка
            текст.Записать(ИмяФайла);
            wshShell=createObject("wScript.shell");
            StrComand = "regedit /S " + СокрЛП(ИмяФайла);
            wshShell.Run(StrComand,1);
            //Задерживаемся, иначе скрипт не успевает прочитать файл 
            Для Сч=1 По 50000 Цикл
            КонецЦикла;
            ФС.УдалитьФайл(ИмяФайла);
        Исключение
        КонецПопытки;

Категория: Полезные, Универсальные Функции

Пример получения списка пользователей из файла users.usr

Получает из users.usr список пользователей, каталоги пользователей и даже хеши паролей

Код 1C v 7.x

 // заполним список пользователей 
    FSO=createobject("Scripting.FileSystemObject");
    WshShell = CreateObject("WScript.Shell");
    Txt=FSO.OpenTextFile(КаталогИБ()+"usrdef\users.usr");
    LineUser="";
    ChI=0;
    Пока Txt.AtEndOfStream=0 Цикл
        Chi=Chi+1;
        Buf=Txt.Read(1);
        Если КодСимв(Buf)>31 Тогда
            LineUser=LineUser+Buf;
        КонецЕсли;
    КонецЦикла;
    LineBof="{"+chr(34)+"Container.Contents"+chr(34)+",";
    LineUser=Сред(LineUser,Найти(LineUser,LineBof)+23);
    LineUser=Сред(LineUser,1,Найти(LineUser,"}}"));
    //Сп=СоздатьОбъект("СписокЗначений"); 
    LineUser=СтрЗаменить(LineUser,РазделительСтрок," ");
    LineUser=СтрЗаменить(LineUser,"},{",РазделительСтрок);
    Для к=1 По СтрКоличествоСтрок(LineUser) Цикл
        а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),Симв(34),"");
        а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),"}","");
        а=Сред(а,19);
        а=Сред(а,Найти(а,",")+1);
        а=Сред(а,1,Найти(а,",")-1);  
        а=СтрЗаменить(а,"""",""); // уберем кавычки 
        списПользователи.Установить(а,а);
    КонецЦикла;     
    списПользователи.ТекущаяСтрока(1);
    // Список Пользователей заполнен

Посмотрите еще:
Как получить список зарегистрированных пользователей базы 1С

Категория: Пользователь, роль доступа, интерфейс

Получения курса валют из Интернет

Код 1C v 8.х

 Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение
ИмяФайла = ПолучитьИмяВременногоФайла(".txt");
//строка-образец
//http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1
//http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1
СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER";
СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ","");

Попытка //соединяемся
Соединение.Получить(СтрокаСоединения,ИмяФайла);
Исключение
Сообщить("Невозможно получить курс по адресу http://export.rbc.ru"+СтрокаСоединения);
КонецПопытки;

КурсыТекст=Новый ТекстовыйДокумент; //читаем результат запроса
КурсыТекст.Прочитать(ИмяФайла);

Код 1C v 8.х

  // еще пример
 Функция ПолучитьКакСтроку(Адресс) 
	соминет = Новый COMОбъект("MSXML2.XMLHTTP");
	соминет.open ("GET", Адресс, Ложь);
	соминет.send();
	Возврат соминет.responseText;
КонецФункции	

Функция ПреобразоватьДату(дат)
	// Медот преобразования даты времен 1Сv7
	//Т=Строка(Дат);
	//Возврат Сред(Т,7,4)+"/"+Сред(Т,4,2)+"/"+Лев(Т,2);
	Возврат Формат(Дат,"ДФ=""гггг/ММ/дд""");
КонецФункции

Процедура КнопкаЗагрузитьКурсы(Элемент)
	//Список - список валют	
	Для А = 1 по Список.Количество() цикл
		Если Список[а-1].Пометка тогда
			Сообщить("Загружаем курсы для "+Строка(Список[а-1].Значение));
			Код = Строка(Список[а-1].Значение.Код);
			Дат = ПериодС;
			Пока Дат <= ПериодПо цикл
				Стр = ПолучитьКакСтроку("http://cbrates.rbc.ru/tsv/"+Код+"/"+ПреобразоватьДату(Дат)+".tsv");
				Поз = Найти(Стр,Символы.Таб);
				Если Поз = 0 Тогда
					Дат = Дат + 86400;
					Продолжить;
				КонецЕсли;					
				Кратность = Число(СокрЛП(Лев(стр,Поз-1)));
				курс = Число(СокрЛП(Сред(Стр,Поз+1,СтрДлина(Стр)-Поз)));
				Сообщить("Дата="+Строка(Дат)+" Курс="+Строка(курс)+" Кратность="+Строка(Кратность));
				Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();
				Запись.Период = Дат;
				Запись.Валюта = Список[а-1].Значение.Ссылка;
				Запись.Курс = Курс;
				Запись.Кратность = Кратность;
				Запись.Записать(Истина);
				Дат = Дат + 86400;                   
			КонецЦикла;				
		КонецЕсли;			
	КонецЦикла;		
КонецПроцедуры

Код 1C v 7.x

 // Взято с http://www.1c-club.kz     IUnknown

//Небольшая обработка для получения курса валют размещенной на странице Национального Банка РК.

//Внимание: работоспособность данной обработки может быть нарушена, если дизайнеры сайта НБ РК изменят формат страницы с //официальным курсом валюта. Но не большой анализ нового формата и работоспособность обработки будет восстановлена.

// шаблон для отображаемой на форме таблице значения

перем тзПустышка;



//*******************************************

// ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

//

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

//  стрНазвание - Строка. Наименование реквизита формы инициюрующей

//                вызов процедуры.

//  чисФлаг     - Число. Флаг станадартной обработки иницации нажатия

//                кнопки выбора значения.

//

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

//  Нет.

//

// Описание:

//  Переопределенная процедура инициирующая при нажатии кнопки

//  выбора значения реквизита формы.

//

процедура ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

    // Если инициировали из реквизита "стрУРЛа"

    если стрНазвание = "стрУРЛа" тогда

        // откроем страницу с введенным URL

        запуститьприложение(стрУРЛа);

    конецесли;

конецпроцедуры



//*******************************************

// кнПолучить()

//

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

//  Нет

//

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

//  Нет.

//

// Описание:

//  Процедура получающая курсы валют с URL находящегося в

//  строковом реквизите формы "стрУРЛа". Пытается по указаноому URL

//  получить страницу и распарсить ее.

//

//  ПРЕДУПРЕЖДЕНИЕ:

//  В случае измения формата данных представленных на странице, возможно

//  будет работать не правильно.

//

процедура кнПолучить()

    // сгенирим имя файла для временного хранения содержимого

    // страницы курса валют Национального банка

    стрИмяФайла = каталогпользователя() + "$$$$.###";

    // создадим объект XMLHttpRequest

    олеХМЛ = создатьобъект("Microsoft.XMLHTTP");

    // иницируем его типом запроса и нужным нам URL

    олеХМЛ.Open("GET", стрУРЛа, 0);

    // отправим запрос для обработки серверу

    олеХМЛ.Send();

    // создадим "поток" через ADODDB для работы с данными

    олеАДО = создатьобъект("ADODB.Stream");

    // зададим тип и режим потока

    олеАДО.Mode = 3;

    олеАДО.Type = 1;

    // откроем его

    олеАДО.Open();

    // создадим объект для управления скриптами

    олеШелл = создатьобъект("MSScriptControl.ScriptControl");

    // установим язык сценариев

    олеШелл.Language = "vbscript";

    // добавим созданные объекты

    олеШелл.AddObject("oleADO", олеАДО);

    олеШелл.AddObject("oleXML", олеХМЛ);

    // с помощью скрипта запишем в поток ADO данные из

    // объекта XMLHttpRequest

    // то есть содержимое страницы

    олеШелл.Eval("oleADO.Write(oleXML.ResponseBody)");

    // запишем данные во временный файл

    олеАДО.SaveToFile(стрИмяФайла, 2);

    // закроем данный поток

    олеАДО.Close();

    // для ускорения парсера занесем весь файл в строковую

    // переменую с разделителем строк

    // для этого инициализуруем поток установкой

    // соотвествующим режимом и типом

    олеАДО.Mode= 3;

    олеАДО.Type = 2;

    // так как страница курса валют НБК имеет формат

    // символов UTF-8, то установим соотвествующий набор

    олеАДО.CharSet="UTF-8";

    // откроем поток

    олеАДО.Open();

    // загрузим содержимое нашего файла в поток

    олеАДО.LoadFromFile(стрИмяФайла);

    // обнулим временную строковую переменную

    стрТемп = "";

    // в цикле получим из потока все строки

    пока олеАДО.EOS() = 0 цикл

        // и запишем их во временную переменую, добавив разделитель строк

        стрТемп = стрТемп + олеАДО.ReadText(-2) + разделительстрок;

    конеццикла;

    // закроем поток

    олеАДО.Close();

    // удалим временный файл

    фс.УдалитьФайл(стрИмяФайла);

    // найдем в строке позицию начала блока с данными о курсе

    чисПозиция = найти(стрТемп, "Официальные курсы валют на");

    если чисПозиция = 0 тогда

        // если позиции нет ... то мы имем другую страницу

        // или другой формат страницы...

        предупреждение("Не получилось получить курсы валют");

    иначе

        // создаим временную таблицу значений

        // для более шустрого заполения из-за отстуствия вызова

        // функции перерисовки таблицы при изменении данных

        тзТемп = создатьобъект("ТаблицаЗначений");

        // установим для нее нужный формат

        тзПустышка.Выгрузить(тзТемп);

        // отрежем все лишнее

        стрТемп = сред(стрТемп, чисПозиция);

        // получим дату курса

        дтКурса = дата(стрзаменить(стрполучитьстроку(стрТемп, 2), "/", "."));

        // первая строка с курсом валюты находится на 18 строке от начала

        // после удаления мусора

        чисПозиция = 18;

        // узнаем сколько всего строк в многострочке

        чисКоличествоСтрок = стрколичествострок(стрТемп);

        // получим строку

        стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

        // если в строке есть подстрока ... то значит это наверное очередная валюта

        пока найти(стрТекущая, "input type=""checkbox"" name=""idval""") > 0 цикл

            // добавляем новую строку

            тзТемп.НоваяСтрока();

            // получаем строку со смещением 1 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 1);

            // используя фичу 1С по преобразованию, получим число

            // за сколько единиц валюты имеем курс в тенге

            тзТемп.Количество = число(стрТекущая);

            // путем убирания "мусора" получаем наименование валюты

            тзТемп.Наименование = сокрлп(стрзаменить(стрзаменить(стрТекущая, тзТемп.Количество, ""), "</td>", ""));

            // получаем строку со смещением 2 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 2);

            // убираем html мусор

            стрТекущая = сокрлп(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // получаем код валюты

            тзТемп.Код1 = лев(стрТекущая, 3);

            // получаем код валюты "Тенге"

            тзТемп.Код2 = прав(стрТекущая, 3);

            // получаем строку со смещением 5 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 5);

            // очищаем от мусора и преобразуем в число... получаем курс

            тзТемп.Курс = число(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // увеличиваем позицию на 17 ...

            чисПозиция = чисПозиция + 17;

            если чисПозиция > чисКоличествоСтрок тогда

                // если позици дальше имеющихся строк

                // то все курсов больше нет

                стрТекущая = "";

            иначе

                // получаем очередную строку для разбора

                стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

            конецесли;

        конеццикла;

        // сформированую таблицу копируем в таблицу на форме

        тзТемп.Выгрузить(тзКурсов);

    конецесли;

конецпроцедуры



//*******************************************

// установим значение реквизита текущим URL по которому можно получить курс валют

стрУРЛа = "http://www.nationalbank.kz/?docid=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D";

// формируем формат таблицы

тзПустышка = создатьобъект("ТаблицаЗначений");

тзПустышка.НоваяКолонка("Количество", "число", 3, 0, "", 5);

тзПустышка.НоваяКолонка("Наименование", "строка", , , "Наименование", 70);

тзПустышка.НоваяКолонка("Код1", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Код2", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Курс", "число", 7, 2, "Курс", 10);

// копируем получившийся формат в таблицу на форме

тзПустышка.Выгрузить(тзКурсов);

Категория: COM-объекты, WMI, WSH

Проверка контрагентов на задвоение по ИНН при вводе

В 7.7 Откройте Справочник Контрагенты - Форма Элемента, двойным щелчком по полю ИНН, на закладке Дополнительно в поле формула введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()

Код 1C v 7.x

 Процедура ПроверкаИНН() 
	СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");
	Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН",ИНН,1) = 1 Тогда
		Предупреждение("Найден контрагент с таким же ИНН :"+РазделительСтрок+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));
	КонецЕсли;
КонецПроцедуры

В 8- ой версии, откройте Справочник Контрагенты - Форму Элемента, двойным щелчком по полю ИНН, в событиях ПриИзменении введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()

Код 1C v 8.х

 Процедура ПроверкаИНН() 
	СпрКонтрагенты = Справочники.Контрагенты;
	Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН",ИНН) Тогда
		Предупреждение("Найден контрагент с таким же ИНН :"+РазделительСтрок+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));
	КонецЕсли;
КонецПроцедуры

Теперь при вводе ИНН происходит проверка, если Контрагент с таким ИНН уже есть в базе, то выдается Предупреждение!

Код 1C v 8.2 УП

 СпрКонтрагенты = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",Запись.ИНН);
	Если Не СпрКонтрагенты=Справочники.Контрагенты.ПустаяСсылка() Тогда
		Предупреждение("Найден контрагент с таким же ИНН : "+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));
	КонецЕсли;

Категория: Полезные, Универсальные Функции

Пример подключения к MySQL базе

Код 1C v 8.х

 // Пример 1
Сервер="IP-адрес-сайта"; // IP адрес сайта
ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных
ПарольСервера="пароль-пользователя-базы-данных"; // пароль пользователя базы данных
БазаСервера="название-SQL-базы-данных";  // название SQL базы данных
Соединение = Новый COMОбъект("ADODB.Connection");
Соединение_param = "driver={MySQL ODBC 5.1 Driver}; server="+СокрЛП(Сервер)+"; uid="+СокрЛП(ПользовательСервера)+"; pwd="+СокрЛП(ПарольСервера)+"; database="+СокрЛП(БазаСервера)+"; STMT=SET CHARACTER SET utf8";
Try
    Соединение.open(Соединение_param);
    СоединениеУстановлено = Истина;
    Сообщить("Соединение установлено");
Except
    ТекстСообщения = ""+ТекущаяДата()+" Connection error: "+ОписаниеОшибки();
    Сообщить(ТекстСообщения);
    СоединениеУстановлено = Ложь;
    return;
EndTry;

Код 1C v 8.х

 ]// Пример 2 
Соединение = Новый COMОбъект("ADODB.Connection");
ConnectionString = "driver={SQL Server}; server=; uid=; Pwd=; Database = "; // это для MS SQL строка
Попытка
  Соединение.Open(ConnectionString);
  Сообщить("Соединение осуществлено в "+ТекущаяДата());
Исключение
  Предупреждение("Невозможно установить соединение");  
  Возврат;
КонецПопытки;

ТекстЗакпроса = "....................";
НаборЗаписей = Новый COMОбъект("ADODB.RecordSet"); 
НаборЗаписей.ActiveConnection = Соединение;
НаборЗаписей.Open(ТекстЗапроса);

Пока не НаборЗаписей.Eof() Цикл
//  ............код обработки.....................
НаборЗаписей.MoveNext();
КонецЦикла;
НаборЗаписей.Close();
Соединение.Close();
Сообщить("Обработка завершена в "+ТекущаяДата());

Код 1C v 7.x

 DB = СоздатьОбъект("ODBCDatabase");
DB.Соединение("DRIVER={MySQL ODBC 5.1 Driver}; SERVER=IP_Супер_мега_сервера; DATABASE=Мега_база; USER=Супер_юзер; PASSWORD=пароль_супер_мега_юзера; OPTION=3;");

RS = СоздатьОбъект("ODBCRecordSet");
RS.SetDatabase(DB);

Если RS.Выполнить("set names cp1251") = 0 Тогда
    Сообщить("Ошибка подключения к MySQL" + РазделительСтрок + RS.ПолучитьОписаниеОшибки());
    СтатусВозврата(0);
    Возврат;
КонецЕсли;

Используя DSN. Большой плюс dsn есть режим проверки и также в текстах 1с
уже не нужен пользователь и пароль. Все детали скрыты в dsn
вот мой успешно работающий код для MY SQL

Код 1C v 7.x

 sql = СоздатьОбъект("ODBCDatabase");
Имя0 = "DragNet";
Фл1 = sql.Соединение("DSN=" + Имя0 + ";");
Если Фл1 = 0 Тогда
Сообщить("Не смогли открыть DSN = " + Имя0);
	Сообщить("Ошибка = " +  sql.ПолучитьОписаниеОшибки() );
Иначе
	sql.УстТолькоЧтение(1);
КонецЕсли;
rc = СоздатьОбъект("ODBCRecordSet");
rc.УстБД(sql);

еще, драйвер 3.51:

Код 1C v 7.x

 //Тестируем установку параметров соединения
клМускул = СоздатьОбъект("ODBCDatabase");
клМускул.СтрокаСоединения = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;
|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;
|Option=3;";
Результат = клМускул.СтрокаСоединения;
ПроверитьРавенство(Результат,"Driver={MySQL ODBC 3.51 Driver};Server=localhost;
|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;
|Option=3;");

Категория: COM-объекты, WMI, WSH

Открытие периода оперативных итогов

Код 1C v 7.x

 // Открытие периода
ДатаТА = ПолучитьДатуТА();
Если (РабочаяДата() > ДатаТА) И ((ДатаМесяц(ДатаТА) <> ДатаМесяц(РабочаяДата())) ИЛИ (ДатаГод(ДатаТА) <> ДатаГод(РабочаяДата()))) Тогда
     Если МонопольныйРежим()  =  0 Тогда
          Ответ=Вопрос("Не открыт период!" +  РазделительСтрок  + "Для открытия периода запустите программу в монопольном режиме!" +  РазделительСтрок  + "Завершить работу программы?","Да+Нет");
          Если Ответ="Да" Тогда
               СтатусВозврата(0);
               Возврат;
          КонецЕсли;        
     Иначе     // монопольный режим
          Ответ=Вопрос("Не открыт период!"+ РазделительСтрок +"Выполнить открытие& ;периода?","Да+Нет");
          Если Ответ="Да" Тогда
               УстановитьТАНа(РабочаяДата());
          КонецЕсли;
     КонецЕсли;
КонецЕсли;

Категория: Полезные, Универсальные Функции

Проверка наличия компонент "Бухгалтерский, Оперативный Учеты, Расчет"

Код 1C v 7.x

 
// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия
Попытка
     БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги");
Исключение
     Предупреждение("Для работы конфигурации необходимо наличие" + РазделительСтрок
                      +"компоненты Бухгалтерский Учет 1С:Предприятия 7.7!"+ РазделительСтрок
                      +"Повторите запуск программы после проверки"+ РазделительСтрок
                      +"состава установленных компонент и доступа к ключам защиты.");
     СтатусВозврата(0);
     Возврат;
КонецПопытки;

// При старте проверяем наличие компоненты "Оперативный учет" 1С:Предприятия
Попытка
     ТестовыйРегистр = СоздатьОбъект("Регистр.ВидЛюбогоРегистра");
Исключение
     Предупреждение("Для работы конфигурации необходимо наличие"+ РазделительСтрок
                      +"компоненты Оперативный Учет 1С:Предприятия 7.7!"+ РазделительСтрок
                      +"Повторите запуск программы после проверки состава "+ РазделительСтрок
                      +"установленных компонент и доступа к ключам защиты.");
     СтатусВозврата(0);
     Возврат;
КонецПопытки;

// При старте проверяем наличие компоненты "Расчет" 1С:Предприятия
Попытка
     ЖЗ = СоздатьОбъект("ЖурналРасчетов.ЛюбойВидЖурналаРасчетов");
Исключение
     Предупреждение("Для работы конфигурации необходимо наличие"+ РазделительСтрок
                      +"компоненты Расчет! Повторите запуск программы после проверки"+ РазделительСтрок
                      +"состава установленных компонент и доступа к ключам защиты.");
     СтатусВозврата(0);
     Возврат;
КонецПопытки;

Категория: Полезные, Универсальные Функции

Функция Дата прописью

При помощи приведенных ниже функций можно вывести дату прописью, например:
03.08.2009 - третье августа две тысячи девятого года

Код 1C v 8.х

 
// Функция Дата прописью
// Параметры:
// ДП - Дата
// Возвращаемое значение:
// дата прописью
// 
// Модификация для v8: Evgeny Migachev
Функция ДатаПрописью(ДП) Экспорт
	стрРез = "";
	Д=Формат(ДП,"ДЛФ=D");
	спсМес = Новый СписокЗначений;
	спсМес.Добавить("января");
	спсМес.Добавить("февраля");
	спсМес.Добавить("марта");
	спсМес.Добавить("апреля");
	спсМес.Добавить("мая");
	спсМес.Добавить("июня");
	спсМес.Добавить("июля");
	спсМес.Добавить("августа");
	спсМес.Добавить("сентября");
	спсМес.Добавить("октября");
	спсМес.Добавить("ноября");
	спсМес.Добавить("декабря");
	
	спсЧисл = Новый СписокЗначений;
	спсЧисл.Добавить("первое","первого");
	спсЧисл.Добавить("второе","второго");
	спсЧисл.Добавить("третье","третьего");
	спсЧисл.Добавить("четвертое","четвертого");
	спсЧисл.Добавить("пятое","пятого");
	спсЧисл.Добавить("шестое","шестого");
	спсЧисл.Добавить("седьмое","седьмого");
	спсЧисл.Добавить("восьмое","восьмого");
	спсЧисл.Добавить("девятое","девятого");
	
	//числительные им.падеж
	спсЧислИм = Новый СписокЗначений;
	спсЧислИм.Добавить("тысяча","тысячного");
	спсЧислИм.Добавить("две тысячи","двухтысячного");
	спсЧислИм.Добавить("три тысячи","трехтысячного");
	спсЧислИм.Добавить("четыре тысячи","четырёхтысячного");
	спсЧислИм.Добавить("пять","пятитысячного");
	спсЧислИм.Добавить("шесть","шеститысячного");
	спсЧислИм.Добавить("семь","семитысячного");
	спсЧислИм.Добавить("восемь","восьмитысячного");
	спсЧислИм.Добавить("девять","девятитысячного");
	
	спсСотни = Новый СписокЗначений;
	спсСотни.Добавить("сто");
	спсСотни.Добавить("двести");
	спсСотни.Добавить("триста");
	спсСотни.Добавить("четыреста");
	спсСотни.Добавить("пятьсот");
	спсСотни.Добавить("шестьсот");
	спсСотни.Добавить("семьсот");
	спсСотни.Добавить("восемьсот");
	спсСотни.Добавить("девятьсот");
	
	//десятки им.падеж
	спсДесИм = Новый СписокЗначений;
	спсДесИм.Добавить("","десятого");
	спсДесИм.Добавить("двадцать","двадцатого");
	спсДесИм.Добавить("тридцать","тридцатого");
	спсДесИм.Добавить("сорок","сорокового");
	спсДесИм.Добавить("пятьдесят","пятидесятого");
	спсДесИм.Добавить("шестьдесят","шестидесятого");
	спсДесИм.Добавить("семьдесят","семидесятого");
	спсДесИм.Добавить("восемьдесят","восьмидесятого");
	спсДесИм.Добавить("девяносто","девяностого");
	
	//субдесятки род.падеж
	спсСубДесРод = Новый СписокЗначений;
	спсСубДесРод.Добавить("одиннадцатого");
	спсСубДесРод.Добавить("двенадцатого");
	спсСубДесРод.Добавить("тринадцатого");
	спсСубДесРод.Добавить("четырнадцатого");
	спсСубДесРод.Добавить("пятнадцатого");
	спсСубДесРод.Добавить("шестнадцатого");
	спсСубДесРод.Добавить("семнадцатого");
	спсСубДесРод.Добавить("восемнадцатого");
	спсСубДесРод.Добавить("девятнадцатого");
	
	спсДес = Новый СписокЗначений;
	спсДес.Добавить("десятое");
	спсДес.Добавить("двадцатое","двадцать");
	спсДес.Добавить("тридцатое","тридцать");
	спсДес.Добавить("сороковое","тридцать");
	спсДес.Добавить("пятидесятое","тридцать");
	спсДес.Добавить("шестидесятое","тридцать");
	спсДес.Добавить("семидесятое","тридцать");
	
	спсСубДес = Новый СписокЗначений;
	спсСубДес.Добавить("одиннадцатое");
	спсСубДес.Добавить("двенадцатое");
	спсСубДес.Добавить("тринадцатое");
	спсСубДес.Добавить("четырнадцатое");
	спсСубДес.Добавить("пятнадцатое");
	спсСубДес.Добавить("шестнадцатое");
	спсСубДес.Добавить("семнадцатое");
	спсСубДес.Добавить("восемнадцатое");
	спсСубДес.Добавить("девятнадцатое");
	
	спсДаты = СтрЗаменить(СокрЛП(Д),".",Символы.ПС);
	//разбираем день
	стрДень = СокрЛП(Число(СтрПолучитьСтроку(спсДаты,1)));
	Если СтрДлина(стрДень)=1 Тогда
		стрДень = спсЧисл.Получить(Число(стрДень)-1).Значение;
	Иначе
		десДень = Число(Лев(стрДень,1));
		едДень = Число(Прав(стрДень,1));
		
		Если едДень=0 Тогда
			стрДень = спсДес.Получить(десДень-1).Значение;
		Иначе
			Если десДень>1 Тогда
				т = Строка(спсДес.Получить(десДень-1));
				стрДень = т+" "+Строка(спсЧисл.Получить(едДень-1).Значение);
			Иначе
				стрДень = спсСубДес.Получить(едДень-1).Значение;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	//разбираем месяц
	стрМес = спсМес.Получить(Число(СтрПолучитьСтроку(спсДаты,2))-1).Значение;
	
	//разбираем год
	стрГод = СтрПолучитьСтроку(спсДаты,3);
	длинаГода = СтрДлина(стрГод);
	Если длинаГода=4 Тогда
		тыс = Сред(стрГод,1,1); сот = Сред(стрГод,2,1); дес = Сред(стрГод,3,1); ед = Сред(стрГод,4,1);
		_т = спсЧислИм.Получить(Число(тыс)-1).Значение;
		Если (Число(сот)=0) и (Число(дес)=0) и (Число(ед)=0) Тогда
			миллениум = Строка(спсЧислИм.Получить(Число(тыс)-1));
			стрГод = миллениум;
		Иначе
			с = ""; дс = ""; е = "";
			Если Число(сот)<>0 Тогда
				с = спсСотни.Получить(Число(сот)-1).Значение;
			КонецЕсли;
			Если Число(дес)<>0 Тогда
				Если Число(ед)=0 Тогда
					дг = Строка(спсДесИм.Получить(Число(дес)-1));
					дс = дг; 	
				Иначе
					дс = спсСубДесРод.Получить(Число(ед)-1).Значение;
				КонецЕсли;
			КонецЕсли;
			Если (Число(дес)>1) или (Число(дес)=0) Тогда
				Если Число(ед)<>0 Тогда
					е =Строка(спсЧисл.Получить(Число(ед)-1));
				КонецЕсли;
			КонецЕсли;
			стрГод = Строка(_т)+" "+Строка(с)+" "+Строка(дс)+" "+Строка(е);
		КонецЕсли;
	Иначе
		
	КонецЕсли;
	стрГод = стрГод+" года";
	стрГод = СтрЗаменить(стрГод,"  "," ");
	стрРез = Строка(стрДень)+" "+Строка(стрМес)+" "+Строка(стрГод);
	стрРез = СтрЗаменить(стрРез,"  "," ");
	Возврат стрРез;
КонецФункции  

Процедура КнопкаВыполнитьНажатие(Кнопка)
	сообщить(ДатаПрописью(РеквизитДатаНаФорме));
КонецПроцедуры

Код 1C v 7.x

 
// ПрописьДата()
//
// Параметры:
// Д - дата в формате ДД.MM.ГГГГ
// Возвращаемое значение:
// дата прописью
// 
// Автор: hunter
Функция глПрописьДата(Д) Экспорт
	стрРез = "";
	
	спсМес = СоздатьОбъект("СписокЗначений");
	спсМес.ДобавитьЗначение("января");
	спсМес.ДобавитьЗначение("февраля");
	спсМес.ДобавитьЗначение("марта");
	спсМес.ДобавитьЗначение("апреля");
	спсМес.ДобавитьЗначение("мая");
	спсМес.ДобавитьЗначение("июня");
	спсМес.ДобавитьЗначение("июля");
	спсМес.ДобавитьЗначение("августа");
	спсМес.ДобавитьЗначение("сентября");
	спсМес.ДобавитьЗначение("октября");
	спсМес.ДобавитьЗначение("ноября");
	спсМес.ДобавитьЗначение("декабря");
	
	спсЧисл = СоздатьОбъект("СписокЗначений");
	спсЧисл.ДобавитьЗначение("первое","первого");
	спсЧисл.ДобавитьЗначение("второе","второго");
	спсЧисл.ДобавитьЗначение("третье","третьего");
	спсЧисл.ДобавитьЗначение("четвертое","четвертого");
	спсЧисл.ДобавитьЗначение("пятое","пятого");
	спсЧисл.ДобавитьЗначение("шестое","шестого");
	спсЧисл.ДобавитьЗначение("седьмое","седьмого");
	спсЧисл.ДобавитьЗначение("восьмое","восьмого");
	спсЧисл.ДобавитьЗначение("девятое","девятого");
	
	//числительные им.падеж
	спсЧислИм = СоздатьОбъект("СписокЗначений");
	спсЧислИм.ДобавитьЗначение("тысяча","тысячного");
	спсЧислИм.ДобавитьЗначение("две тысячи","двухтысячного");
	спсЧислИм.ДобавитьЗначение("три тысячи","трехтысячного");
	спсЧислИм.ДобавитьЗначение("четыре тысячи","четырёхтысячного");
	спсЧислИм.ДобавитьЗначение("пять","пятитысячного");
	спсЧислИм.ДобавитьЗначение("шесть","шеститысячного");
	спсЧислИм.ДобавитьЗначение("семь","семитысячного");
	спсЧислИм.ДобавитьЗначение("восемь","восьмитысячного");
	спсЧислИм.ДобавитьЗначение("девять","девятитысячного");
	
	спсСотни = СоздатьОбъект("СписокЗначений");
	спсСотни.ДобавитьЗначение("сто");
	спсСотни.ДобавитьЗначение("двести");
	спсСотни.ДобавитьЗначение("триста");
	спсСотни.ДобавитьЗначение("четыреста");
	спсСотни.ДобавитьЗначение("пятьсот");
	спсСотни.ДобавитьЗначение("шестьсот");
	спсСотни.ДобавитьЗначение("семьсот");
	спсСотни.ДобавитьЗначение("восемьсот");
	спсСотни.ДобавитьЗначение("девятьсот");
	
	//десятки им.падеж
	спсДесИм = СоздатьОбъект("СписокЗначений");
	спсДесИм.ДобавитьЗначение("","десятого");
	спсДесИм.ДобавитьЗначение("двадцать","двадцатого");
	спсДесИм.ДобавитьЗначение("тридцать","тридцатого");
	спсДесИм.ДобавитьЗначение("сорок","сорокового");
	спсДесИм.ДобавитьЗначение("пятьдесят","пятидесятого");
	спсДесИм.ДобавитьЗначение("шестьдесят","шестидесятого");
	спсДесИм.ДобавитьЗначение("семьдесят","семидесятого");
	спсДесИм.ДобавитьЗначение("восемьдесят","восьмидесятого");
	спсДесИм.ДобавитьЗначение("девяносто","девяностого");
	
	//субдесятки род.падеж
	спсСубДесРод = СоздатьОбъект("СписокЗначений");
	спсСубДесРод.ДобавитьЗначение("одиннадцатого");
	спсСубДесРод.ДобавитьЗначение("двенадцатого");
	спсСубДесРод.ДобавитьЗначение("тринадцатого");
	спсСубДесРод.ДобавитьЗначение("четырнадцатого");
	спсСубДесРод.ДобавитьЗначение("пятнадцатого");
	спсСубДесРод.ДобавитьЗначение("шестнадцатого");
	спсСубДесРод.ДобавитьЗначение("семнадцатого");
	спсСубДесРод.ДобавитьЗначение("восемнадцатого");
	спсСубДесРод.ДобавитьЗначение("девятнадцатого");
	
	спсДес = СоздатьОбъект("СписокЗначений");
	спсДес.ДобавитьЗначение("десятое");
	спсДес.ДобавитьЗначение("двадцатое","двадцать");
	спсДес.ДобавитьЗначение("тридцатое","тридцать");
	спсДес.ДобавитьЗначение("сороковое","тридцать");
	спсДес.ДобавитьЗначение("пятидесятое","тридцать");
	спсДес.ДобавитьЗначение("шестидесятое","тридцать");
	спсДес.ДобавитьЗначение("семидесятое","тридцать");
	
	спсСубДес = СоздатьОбъект("СписокЗначений");
	спсСубДес.ДобавитьЗначение("одиннадцатое");
	спсСубДес.ДобавитьЗначение("двенадцатое");
	спсСубДес.ДобавитьЗначение("тринадцатое");
	спсСубДес.ДобавитьЗначение("четырнадцатое");
	спсСубДес.ДобавитьЗначение("пятнадцатое");
	спсСубДес.ДобавитьЗначение("шестнадцатое");
	спсСубДес.ДобавитьЗначение("семнадцатое");
	спсСубДес.ДобавитьЗначение("восемнадцатое");
	спсСубДес.ДобавитьЗначение("девятнадцатое");
	
	спсДаты = СтрЗаменить(СокрЛП(Д),".",РазделительСтрок);
	//разбираем день
	стрДень = СокрЛП(Число(СтрПолучитьСтроку(спсДаты,1)));
	Если СтрДлина(стрДень)=1 Тогда
		стрДень = спсЧисл.ПолучитьЗначение(Число(стрДень));
	Иначе
		десДень = Число(Лев(стрДень,1));
		едДень = Число(Прав(стрДень,1));
		
		Если едДень=0 Тогда
			стрДень = спсДес.ПолучитьЗначение(десДень);
		Иначе
			Если десДень>1 Тогда
				т = ""; спсДес.ПолучитьЗначение(десДень,т);
				стрДень = т+" "+спсЧисл.ПолучитьЗначение(едДень);
			Иначе
				стрДень = спсСубДес.ПолучитьЗначение(едДень);
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	//разбираем месяц
	стрМес = спсМес.ПолучитьЗначение(Число(СтрПолучитьСтроку(спсДаты,2)));
	
	//разбираем год
	стрГод = СтрПолучитьСтроку(спсДаты,3);
	длинаГода = СтрДлина(стрГод);
	Если длинаГода=4 Тогда
		тыс = Сред(стрГод,1,1); сот = Сред(стрГод,2,1); дес = Сред(стрГод,3,1); ед = Сред(стрГод,4,1);
		_т = спсЧислИм.ПолучитьЗначение(Число(тыс));
		Если (Число(сот)=0) и (Число(дес)=0) и (Число(ед)=0) Тогда
			миллениум = ""; спсЧислИм.ПолучитьЗначение(Число(тыс),миллениум);
			стрГод = миллениум;
		Иначе
			с = ""; дс = ""; е = "";
			Если Число(сот)<>0 Тогда
				с = спсСотни.ПолучитьЗначение(Число(сот));
			КонецЕсли;
			Если Число(дес)<>0 Тогда
				Если Число(ед)=0 Тогда
					_дг = ""; спсДесИм.ПолучитьЗначение(Число(дес),_дг);
					дс = _дг;
				Иначе
					Если Число(дес)>1 Тогда
						дс = спсДесИм.ПолучитьЗначение(Число(дес));
					Иначе
						дс = спсСубДесРод.ПолучитьЗначение(Число(ед));
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
			Если (Число(дес)>1) или (Число(дес)=0) Тогда
				Если Число(ед)<>0 Тогда
					//е = "";
					спсЧисл.ПолучитьЗначение(Число(ед),е);
				КонецЕсли;
			КонецЕсли;
			стрГод = _т+?(ПустоеЗначение(с)=0," ","")+с+?(ПУстоеЗначение(дс)=0," ","")+дс+" "+е;
		КонецЕсли;
	Иначе
		
	КонецЕсли;
	стрГод = стрГод+" года";
	стрРез = стрДень+" "+стрМес+" "+стрГод;
	//Сообщить(стрДень+" "+стрМес+" "+стрГод);
	Возврат стрРез;
КонецФункции

Категория: Работа с Датами (Временем)

Функция дни рождения сотрудников

Данная функция написана для ЗиК 7.7

Код 1C v 7.x

 
//Функция подбирает окончание для возраста
Функция СтрГода(Возраст) 
	Остаток = Возраст%10;
	Если Остаток = 1 Тогда
		Стр = "год";
	ИначеЕсли ((Остаток > 1) и (Остаток < 5)) Тогда
		Стр = "года";
	Иначе 	     
		Стр = "лет";
	КонецЕсли;
	Возврат Стр;  
КонецФункции	 

//Формируем дни рождения Сотрудников
Процедура ДниРожденияСотрудников()   
	ТекстДР="";
	Именинники = СоздатьОбъект("СписокЗначений");
	СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
	СпрСотр.ВыбратьЭлементы();
	Пока СпрСотр.ПолучитьЭлемент()= 1 Цикл
		ТекЭлем = СпрСотр.ТекущийЭлемент();
		Если ТекЭлем.ЭтоГруппа() = 0 Тогда  
			Если ((ТекЭлем.Родитель <> "Уволенные")) Тогда
				ТекСотр = СпрСотр.ТекущийЭлемент();
				Если (ПустоеЗначение(ТекСотр.СостояниеФизЛица.Получить(НачМесяца(ТекущаяДата()))) =  0) Тогда
					Если (ДатаМесяц(ТекСотр.ДатаРождения) = ДатаМесяц(ТекущаяДата()))  Тогда
						Именинники.ДобавитьЗначение(ТекСотр);
					КонецЕсли;			
				КонецЕсли;		 
			КонецЕсли;		
		КонецЕсли;	
	КонецЦикла;	                                           
	Если Именинники.РазмерСписка() <> 0 Тогда    
		ТекстДР=ТекстДР+"                             ********* СПИСОК ИМЕНИННИКОВ *********"+РазделительСтрок+"                                              за месяц "+Формат(ТекущаяДата(),"ДММММ")+РазделительСтрок;
		ТекстДР=ТекстДР+"-----------------------------------------------------------------------------------------------------------------------------------------------"+РазделительСтрок;
	    Для к = 1 по  Именинники.РазмерСписка() Цикл
			Сотр = Именинники.ПолучитьЗначение(к);
			Возраст = (Число(ДатаГод(ТекущаяДата()))-Число(ДатаГод(Сотр.ДатаРождения)));
			РазницаДней = (Число(ДатаЧисло(Сотр.ДатаРождения))-Число(ДатаЧисло(ТекущаяДата())));
			СтрГода = СтрГода(Возраст);
			Если (ДатаЧисло(Сотр.ДатаРождения) < ДатаЧисло(ТекущаяДата()))  Тогда   
				ТекстДР=ТекстДР+"                              "+Сотр+" "+Сотр.ДатаРождения+" уже исполнилось "+Возраст+" "+СтрГода+"!"+РазделительСтрок;
			Иначе	
				Если (РазницаДней = 2) Тогда  
					ТекстДР=ТекстДР+"ПОСЛЕЗАВТРА!  "+Сотр+" послезавтра "+Сотр.ДатаРождения+" будет праздновать " + Возраст + "-й День Рождения!!!! ";
					
				ИначеЕсли (РазницаДней = 1) Тогда 
					ТекстДР=ТекстДР+"ЗАВТРА!               "+ Сотр + " будет отмечает свой " + Возраст + "-й День рождения!";							   
				ИначеЕсли (РазницаДней = 0) Тогда  
					ТекстДР=ТекстДР+"СЕГОДНЯ!           "+ Сотр + " отмечает свой " + Возраст + "-й День рождения!";
				КонецЕсли;
				ТекстДР=ТекстДР+"    ( "+Сотр.Подразделение.Получить(ТекущаяДата())+" , "+Сотр.Должность.Получить(ТекущаяДата())+" )"+РазделительСтрок;
			КонецЕсли; 			
		КонецЦикла;	
	Иначе              		
		ТекстДР=ТекстДР+"В текущем месяце именинников нет!";		
	КонецЕсли; 
	Сообщить(ТекстДР);
КонецПроцедуры

В файловом архиве есть и сама обработка.

Категория: Полезные, Универсальные Функции