pro » Поиск » HelpF.pro

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

Как разобрать "наименование" сотрудника Ф.И.О. на Фамилию и инициалы сотрудника?

Код 1C v 7.x

 

Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт

	СЗ = СоздатьОбъект("СписокЗначений");

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.ДобавитьЗначение(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.ДобавитьЗначение(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.ДобавитьЗначение(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.ДобавитьЗначение(Лев(Стр,Поз-1));

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;

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



Функция ФамилияИмяОтчество(Объект,Фамилия="",Имя="",Отчество="") Экспорт

    

	Если ТипЗначения(Объект)=2 Тогда

		ФИО = глРазделить(СокрЛП(Объект),",");

	Иначе

		ФИО = глРазделить(СокрЛП(Объект.Наименование),",");

	КонецЕсли;                             

	ФИО = глРазложить(ФИО," ");

	Фамилия = ""; Имя = ""; Отчество = "";

	Если ФИО.РазмерСписка() > 0 Тогда

		Фамилия = ФИО.ПолучитьЗначение(1);

		Если ФИО.РазмерСписка() > 1 Тогда

			Имя		= ФИО.ПолучитьЗначение(2);

			Если ФИО.РазмерСписка() > 2 Тогда 

				// а вот отчество бывает и не из одного слова				

				Для Сч = 3 По ФИО.РазмерСписка() Цикл

					Отчество = Отчество + ФИО.ПолучитьЗначение(Сч) + " ";

				КонецЦикла;

				Если ПустоеЗНачение(Отчество) = 0 Тогда

					Отчество = Лев(Отчество,СтрДлина(Отчество)-1);

				КонецЕсли;

			КонецЕсли;

		КонецЕсли;

	КонецЕсли;

	

	Возврат Фамилия+?(ПустоеЗначение(Имя)=0," "+Лев(Имя,1)+"."+?(ПустоеЗначение(Отчество)=0,Лев(Отчество,1)+".",""),"")



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

Код 1C v 8.х

 

Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт

	СЗ = Новый СписокЗначений;

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.Добавить(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.Добавить(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.Добавить(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.Добавить(Лев(Стр,Поз-1));

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;

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



Функция РазборФИО(Сотрудник)

	ФИО = глРазложить(Сотрудник," ");

	Фамилия = ""; Имя = ""; Отчество = "";

	Если ФИО.Количество() > 0 Тогда

		Фамилия = Строка(ФИО.Получить(0));

		Если ФИО.Количество() > 1 Тогда

			Имя		= Строка(ФИО.Получить(1));

			Если ФИО.Количество() > 2 Тогда 

				// а вот отчество бывает и не из одного слова				

				Для Сч = 2 По ФИО.Количество()-1 Цикл

					Отчество = Отчество + Строка(ФИО.Получить(Сч)) + " ";

				КонецЦикла;

				Если ЗначениеЗаполнено(Отчество) Тогда  

					Отчество = Лев(Отчество,СтрДлина(Отчество)-1);

				КонецЕсли;

			КонецЕсли;

		КонецЕсли;

	КонецЕсли;

Возврат Фамилия+?(ЗначениеЗаполнено(Имя)," "+Лев(Имя,1)+"."+?(ЗначениеЗаполнено(Отчество),Лев(Отчество,1)+".",""),"")

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

Обязательно посмотрите более краткий вариант!

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

Cклонения по падежам

Код 1C v 8.2 УП

 &НаКлиенте

Процедура Команда1(Команда)

  ФИО = "Иванов Иван Иванович";

  Падеж = 2;

  Пол = 1;

  Результат = СклонениеФИО(ФИО, Падеж, пол);

  Сообщить(Результат); 

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



&НаСервере

Функция СклонениеФИО(ФИО, Падеж, пол) 

  Результат = "";

  ПутьКФайлу="C:\NAMEDECL.DLL";

  NameDecl = "Склонение";

  Попытка

    Если ПодключитьВнешнююКомпоненту(ПутьКФайлу,NameDecl)ТОгда

      ФункцСкл = Новый ("AddIn.Склонение.NameDeclension"); 

      Результат = ФункцСкл.Просклонять(ФИО,Падеж, пол);

    КонецЕсли; 

  Исключение

    Сообщить("Не удалось загрузить внешнюю компаненту по причине: "+ОписаниеОшибки());

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

  Возврат Результат; 

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

Код для 8-й версии, но работает и в 7-й

Код 1C v 8.х

 // (c) Jurer Production Begin ( Start )

// http://superjur.narod.ru

// 

// Удаление этих строк незнаконно!

// Гарантия 91 года и 1 месяц!!!

// Послегарантийное обслуживание - бесплатно!!!

// Круглосуточная поддержка - все 48 часов в бою!

// Ссылка на источник обязательна!

// Эти программы защищены законом об авторских правах. Запрещается перепродажа данной программы.

// ПРОВЕРЕНО! ВИРУСОВ НЕТ!!! АНТИВИРУСОВ ТОЖЕ!!!

// Смотри Милячуша в творительном !!

// скупой слепой тупой - пропой!!

// !№№!

// !55! ПадежЫ - для оглы и кызы

// !54! 

// !53! Очередное сокращение кода

// !51! Прегромадное спасибо Олегу Дубровскому за оказанную моральную, информационную и материальную поддержку сего проекта.

//      Сергею Толкачёву за напоминание о том, что в русском языке всегда есть место исключениям!

// !50! П:Ответственный за электрохозяйство  Ф:Ацута Груша  

// !48! исправлена ошибка при склонении фамилий (спасибо, Mario).

// !47! исправлена ошибка при склонении профессий ( спасибо, Павел Ковалев).

// !46! оптимизация + четвертый параметр задает, что вернуть - фамилия, имя или отчество или всё сразу в нужном падеже

// !42! Осел + Соловей + Воробей + Немец + Кормилец + Силиец

// !41! отчества оканчивающиеся на "ы" считаются женскими ?

// Функция для склонения одного слова!!!

// z1 - само слово

// z2 - номер падежа

// z3 - пол

// z4 - 1-склонять как фамилию, 2-имя, 3-отчество

Функция ПадежС(z1,Знач z2=2,Знач z3="*",z4=0) Экспорт

  z5=Найти(z1,"-");

  z6=?(z5=0,"","-"+ПадежС(Сред(z1,z5+1,СтрДлина(z1)-z5+1),z2,z3,z4));

  z1=НРег(?(z5=0,z1,Лев(z1,z5-1)));

  z7=Прав(z1,3);z8=Прав(z7,2);z9=Прав(z8,1);

  z5=СтрДлина(z1);

  za=Найти("ая ия ел ок яц ий па да ца ша ба та га ка",z8);

  zb=Найти("аеёийоуэюяжнгхкчшщ",Лев(z7,1));

  zc=Макс(z2,-z2);

  zd=?(za=4,5,Найти("айяь",z9));

  zd=?((zc=1)или(z9=".")или((z4=2)и(Найти("оиеу"+?(z3="ч","","бвгджзклмнпрстфхцчшщъ"),z9)>0))или((z4=1)и(Найти("мия мяэ лия кия жая лея",z7)>0)),9,?((zd=4)и(z3="ч"),2,?(z4=1,?(Найти("оеиую",z9)+Найти("их ых аа еа ёа иа оа уа ыа эа юа яа",z8)>0,9,?(z3<>"ч",?(za=1,7,?(z9="а",?(za>18,1,6),9)),?(((Найти("ой ый",z8)>0)и(z5>4)и(Прав(z1,4)<>"опой"))или((zb>10)и(za=16)),8,zd))),zd)));

  ze=Найти("лец вей бей дец пец мец нец рец вец аец иец ыец бер",z7);

  zf=?((zd=8)и(zc<>5),?((zb>15)или(Найти("жий ний",z7)>0),"е","о"),?(z1="лев","ьв",?((Найти("аеёийоуэюя",Сред(z1,z5-3 ,1))=0)и((zb>11)или(zb=0))и(ze<>45),"",?(za=7,"л",?(za=10,"к",?(za=13,"йц",?(ze=0,"",?(ze<12,"ь"+?(ze=1,"ц",""),?(ze<37,"ц",?(ze<49,"йц","р"))))))))));

  zf=?((zd=9)или((z4=3)и(z3="ы")),z1,Лев(z1,z5-?((zd>6)или(zf<>""),2,?(zd>0,1,0)))+zf+СокрП(Сред("а у а "+Сред("оыые",Найти("внч",z9)+1,1)+"ме "+?(Найти("гжкхш",Лев(z8,1))>0,"и","ы")+" е у ойе я ю я ем"+?(za=16,"и","е")+" и е ю ейе и и ь ьюи и и ю ейи ойойу ойойойойуюойойгомуго"+?((zf="е")или(za=16)или((zb>12)и(zb<16)),"и","ы")+"мм",10*zd+2*zc-3,2)));

Возврат ?(""=z1,"",?(z4>0,ВРег(Лев(zf,1))+?((z2<0)и(z4>1),".",Сред(zf,2)),zf)+z6);

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

//_____________________________________________________________________________

// z1 - фамилия имя отчество например Железняков Юрий Юрьевич

// z2 - Падеж ( по  умолчанию = 2 - родительный)

// 2 - родительный  ( нет кого?    ) Железнякова Юрия Юрьевича     

// 3 - дательный    ( кому?        ) Железнякову Юрию Юрьевичу 

// 4 - винительный  ( вижу кого?   ) Железнякова Юрия Юрьевича  

// 5 - творительный ( кем?         ) Железняковым Юрием Юрьевичем    

// 6 - предложный   ( о ком?       ) Железнякове Юрии Юрьевиче 

// Если задать Z2 меньше 0, то на выходе получим от -1=Железняков Ю. Ю. до -6=Железнякове Ю. Ю.

// z3 - параметр Пол может не указываться, но при наличии фамилий с 

// инициалами точное определение пола невозможно, поэтому предлагается задавать пол этим

// параметром  1 - мужской 2 - женский  

// ДЛЯ СКЛОНЕНИЯ ПРОФЕССИЙ ИСПОЛЬЗУЙТЕ ФУНКЦИЮ ПАДЕЖП И БУДЕТ ВАМ СЧАСТЬЕ!

// ---------------------------------------------------------------------------------------

// Бибик Галушка Цой Николайчик Наталия Петровна Герценберг Кривошей Капица-Метелица

// Если Падеж(Фио ,1 ,3),       то на выходе получим Фамилия Имя Отчество и т.д.

// Если Падеж(Фио ,1 ,3,"1" ),  то                   Фамилия 

// Если Падеж(Фио ,1 ,3,"2" ),  то                   Имя 

// Если Падеж(Фио ,1 ,3,"3" ),  то                   Отчество 

// Если Падеж(Фио, 1 ,3,"12" ), то                   Фамилия Имя 

// Если Падеж(Фио, 1 ,3,"23" ), то                   Имя Отчество 

// Если Падеж(Фио,-1 ,3,"231" ),то                   И. О. Фамилия 

// Если Падеж(Фио,-1 ,3,"23" ), то                   И. О.  

// 10-11-2003 3-20



Функция Падежик(z1,z2=2,z3=3,Знач z4="123",z5=1) Экспорт

  Возврат?(z5<4,Падежик(СокрЛП(СтрЗаменить(Сред(z1,Найти(z1+" "," ")+1),".",". ")),z2,z3,СтрЗаменить(z4,z5,ПадежС(Лев(z1,Найти(z1+" "," ")-1),z2,Сред("ча"+НРег(Прав(СокрП(z1),1)),z3,1),z5)+" "),z5+1),z4);

КонецФункции//Падежик



Функция Падеж(z1,z2=2,z3=3,Знач z4="123") Экспорт

	z1=СокрП(z1);

	z5=Прав(z1,4);

  z6=Найти("оглы кызы",z5);

	Возврат Падежик(?(z6>0,Лев(z1,СтрДлина(z1)-5),z1),z2,z3,z4)+?(z6>0,z5,"");

КонецФункции//Падеж



Функция ПадежП(Знач z1,Знач z2,z3=0) Экспорт

  z1=СокрЛП(z1);z4=Найти(z1+" "," ")+1;z5=Лев(z1,z4-2);z6=Прав(z5,2);

  z7=?((Найти("ая ий ый",z6)>0)и(Найти("ющий нный",Сред(z1,z4-5,4))=0)и(z3=0),"1","*");

Возврат НРег(?((z6="ая")или(Прав(z6,1)="а"),ПадежС(z5,z2,z7,1)+" "+ПадежС(Сред(z1,z4),z2),ПадежС(z5,z2,"ч",1)+?((z6="ий")и(Найти(z1," ")=0),""," "+?(z7="1",ПадежП(Сред(z1,z4),z2,Число(z7)),Сред(z1,z4)))));

КонецФункции//ПадежП

// (c) Jurer Production End ( Finish )

Пример использования в ЗиК 7.7:

Код 1C v 7.x

  ПодписантРодитПад=Падеж(Константа.Руководитель.Получить(ДатаДок),-2); 

ПодпСтрока="Заместителя Генерального Директора "+СокрЛП(ПодписантРодитПад)+", действующего на основании доверенности "+ сокрлп(Константа.Доверенность);

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

Пакетный режим Конфигуратора 7.7

Пример пакетного файла:

[General]
Output="D:\Типовые конфигурации\1SBBDemo\log.txt"
Quit=1
SaveData=1
[SaveData]
SaveToFile="D:\Типовые конфигурации\1SBBDemo\arch.zip"

Ярлык для запуска базы и выполнения файла пакетного режима:

\\Server\1cv77\BIN\1cv7s.exe config /D "D:\Типовые конфигурации\1SBBDemo\" /@"D:\Типовые конфигурации\1SBBDemo\paket.txt"

Комментарий к файлу:
Во время работы будет сформирован лог-файл (Output="D:\Типовые конфигурации\1SBBDemo\log.txt"). Он будет здесь D:\Типовые конфигурации\1SBBDemo\log.tx.
Будет выполнено сохранение данных (SaveData=1) в файл arch.zip (SaveToFile="D:\Типовые конфигурации\1SBBDemo\arch.zip"). После выполения работы - конфигуратор будет закрыт (Quit=1). Информационная база хранится в D:\Типовые конфигурации\1SBBDemo\. Файл пакетного режима харанится в папке базы и называется paket.txt.

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

Более подробно читайте в статье Параметры, ключи запуска 1Сv7 из командной строки

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

Как сохранить поле BLOB (image) как файл на диск?

Наиболее эффективно это можно сделать с помощью объектов OLE Automation , работа с которыми осуществляется при помощи:
sp_OACreate, sp_OAGetProperty, sp_OASetProperty, sp_OAMethod, sp_OAGetErrorInfo, sp_OADestroy (подробное описание есть в http://technet.microsoft.com/ru-ru/library/ms203721(sql.90).aspx).
Рабочий пример процедуры (была написана для сохранения zip-архивов, хранящихся в базе):

Код

CREATE PROCEDURE dbo.SaveRequestDataAsFile (
@FileName varchar(1024) --имя файла
,@FilePath varchar(1024) --путь файла
,@ReqID --некое условие на таблицу
)
AS
BEGIN

DECLARE
@Stream integer,
@Buffer varbinary(4096),
@Size integer,
@Pos integer,
@BufSize integer,
@FileNameLocal varchar(1024),
@HR integer

if RIGHT(@FilePath, 1)<>'&# 092;' begin set @FilePath=@FilePath+'&# 092;' end

set @FileNameLocal = @FilePath + @FileName

SET @BufSize = 4096

EXEC @HR = sp_OACreate 'ADODB.Stream',@Stream OUT
if @HR<>0
begin
--обработка ошибки создания объекта
EXEC [dbo].[sp_displayoaerrorinfo] @Stream ,@HR
end

EXEC @HR = sp_OASetProperty @Stream,'Type',1 -- binary
EXEC @HR = sp_OASetProperty @Stream,'Mode',3 -- write|read
EXEC @HR = sp_OAMethod @Stream,'Open'

S_elect
@Size = DATALENGTH(SrvRequests.RequestData)
FROM SrvRequests WHERE SrvRequests.RequestID = @ReqID

Set @Pos=0

WHILE @Pos < @Size BEGIN
SET @BufSize = CASE WHEN @Size - @Pos < 4096 THEN @Size - @Pos ELSE 4096 END

S_elect @Buffer = substring(SrvRequests.RequestData ,@Pos+1, @BufSize)
from SrvRequests where SrvRequests.RequestID = @ReqID

EXEC @HR = sp_OAMethod @Stream, 'Write', NULL, @Buffer

SET @Pos = @Pos + @BufSize
END

EXEC @HR = sp_OAMethod @Stream,'SaveToFile',null, @FileNameLocal,2
EXEC @HR = sp_OAMethod @Stream,'Close'
EXEC @HR = sp_OADestroy @Stream
END

Рекомендуется создать еще пару процедур для внятного описания ошибок в случае их возникновения

Код

CREATE PROCEDURE sp_hexadecimal
@binvalue varbinary(255),
@hexvalue varchar(255) OUTPUT
AS
DECLARE @charvalue varchar(255)
DECLARE @i int
DECLARE @length int
DECLARE @hexstring char(16)
S_elect @charvalue = '0x'
S_elect @i = 1
S_elect @length = DATALENGTH(@binvalue)
S_elect @hexstring = '0123456789abcdef'
WHILE (@i <= @length)
BEGIN
DECLARE @tempint int
DECLARE @firstint int
DECLARE @secondint int
S_elect @tempint = CONVERT(int, SUBSTRING(@binvalue,@i,1))
S_elect @firstint = FLOOR(@tempint/16)
S_elect @secondint = @tempint - (@firstint* 16)
S_elect @charvalue = @charvalue +
SUBSTRING(@hexstring, @firstint+1, 1) +
SUBSTRING(@hexstring, @secondint+1, 1)
S_elect @i = @i + 1
END
----------------------------------------------------------------------
CREATE PROCEDURE sp_displayoaerrorinfo
@object int,
@hresult int
AS
DECLARE @output varchar(255)
DECLARE @hrhex char(10)
DECLARE @hr int
DECLARE @source varchar(255)
DECLARE @description varchar(255)
PRINT 'OLE Automation Error Information'
EXEC sp_hexadecimal @hresult, @hrhex OUT
S_elect @output = ' HRESULT: ' + @hrhex
PRINT @output
EXEC @hr = sp_OAGetErrorInfo @object, @source OUT, @description OUT
IF @hr = 0
BEGIN
S_elect @output = ' Source: ' + @source
PRINT @output
S_elect @output = ' Description: ' + @description
PRINT @output
END
ELSE
BEGIN
PRINT ' sp_OAGetErrorInfo failed.'
RETURN
END

Категория: OLE, ActiveX

Как переиндексировать все пользовательские таблицы? Категория: Администрирование

При установке конфигурации 1С:Предприятия 8 под ОС Windows Vista - "Ошибка при инсталляции"

Для конфигураций на платформе "1С:Предприятие 8" используется цифровая подпись. Для подписанных программ виртуализация защищенных каталогов в Windows Vista отключена, в том числе и для каталога Program Files, в который записываются шаблоны конфигураций по умолчанию. При включенном UAC прав на запись в этот каталог нет, что и вызывает ошибку записи. Для решения проблемы установки необходимо либо отключать UAC, либо устроить каталог шаблонов в другом месте, доступном для записи.

Отключить Контроль учетных записей (User Account Control, UAC) можно в Панели управления, раздел "Учетные записи пользователей (User Accounts)", пункт "Включение или отключение контроля учетных записей (Turn User Account Control off/on)". В появившемся диалоге убрать галку (единственную) около "Используйте контроль учетных записей (use User Account Control...)".
После установки конфигурации значение использования UAC можно восстановить.

Из справки по MS Vista:
Средство контроля учетных записей, обеспечивающее защиту системы путем принудительного запуска программ из стандартной учетной записи даже в том случае, если пользователь работает в системе с правами администратора.

Категория: Системные Ошибки

HelpF.pro - Онлайн помощник по 1С

Мы выпускаем beta версию windows - клиента для нашего сайта, под названием: HelpF.pro - Онлайн помощник по 1СКак только мы полностью...

Мы выпускаем beta версию windows - клиента для нашего сайта, под названием: HelpF.pro - Онлайн помощник по 1С

Как только мы полностью оттестируем функционал, то сразу скомпилируем версию под Linux и Mac!

Скачав, разархивировав и запустив клиент Вы увидите в трее (рядом с часами) иконку нашего сайта, вызов клиента по горячим клавишам Alt+H

Вид клиента

Основной функционал

1. Быстрый Поиск информации релевантной запросу. Раздел поиска вы можете указать в выпадающем списке:

Найденные результаты:

Просмотр результата (открыли 3 пункт):

2. Вставка выделенного кода в Конфигуратор. Если Вы вызвали помощник из конфигуратора, т.е. у Вас стоял курсор в модуле, то после нажатия на кнопку Вставить - там появится то что Вы выделили:

Вот пример вставки кода Перебор справочника:

3. Горячие клавиши, упрощающие и ускоряющие написание кода. В настройках клиента вы можете изменить настройки горячих клавиш, по умолчанию:

Вот пример нажатия Alt+D - Добавление блока комментариев Начало и Конец (Внимание! Alt - правый, левый работает штатно):

Настройки клиента

На картинке ниже представлены все настройки клиента

Клиент работает со всеми версиями платформы 8.х и даже с Enterprise Development Tools

Примеры работы с Enterprise Development Tools:

Открыв код, жмем Alt+H и в появившемся окне вводим запрос (например проверка это новый?) и жмем Найти

В результатах поиска выбираем нужное нам:

Далее в статье (1) выделяем нужный нам код и (2) жмем появившуюся кнопку Вставить

Результат вставки:

Кроме этого работают и горячие клавиши:

Вот пример нажатия Alt+D (Внимание! Alt - правый, левый работает штатно):

Отзывы и пожелания

Все комментарии и пожелания Мы ждем в теме форума: HelpF.pro - Онлайн помощник по 1С : Комментарии и Предложения

Категория: Мобильные приложения