строк%физлица » Поиск

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

Функция проверки необходимости перерасчета и Перерасчет записей

Код 1C v 8.х

 // Проверяет необходимость выполнения перерасчета документа. 

Функция НеобходимостьПерерасчета(Регистратор) Экспорт



Запрос = Новый Запрос( "ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо

|ИЗ

| (ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо КАК ФизЛицо

| ИЗ

| РегистрРасчета.ОсновныеНачисленияРегл.ПерерасчетОсновныхНачислений

| КАК Перерасчет

| ГДЕ

| Перерасчет.ОбъектПерерасчета = &Регистратор



|



| ОБЪЕДИНИТЬ ВСЕ

|

| ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо

| ИЗ

|РегистрРасчета.ДополнительныеНачисленияРегл.ПерерасчетДополнительныхНачислений

| КАК Перерасчет

| ГДЕ

| Перерасчет.ОбъектПерерасчета = &Регистратор) КАК Перерасчет");



Запрос.УстановитьПараметр("Регистратор", Регистратор); Если Запрос.Выполнить().Пустой() Тогда

Возврат Ложь;



Иначе



Возврат Истина;

КонецЕсли;



КонецФункции // НеобходимостьПерерасчета

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

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

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

Процедура перерасчета записей документа

Код 1C v 8.х

 Процедура Перерассчитать(Физлица = Неопределено) Экспорт



// Перерасчет выполняется в транзакции. НачатьТранзакцию();

Если Не Расчеты.НеобходимостьПерерасчета(Ссылка) Тогда

Возврат; КонецЕсли;



// Считать движения документа по регистрам расчета. Движения.ОсновныеНачисленияРегл.Прочитать(); Движения.ДополнительныеНачисленияРегл.Прочитать();



// Перерасчет и перезапись движений по регистрам расчета.

Расчеты. ПерерассчитатьЗаписиРегистраРасчета("ОсновныеНачисленияРегл", Движения.ОсновныеНачисленияРегл, ОсновныеНачисления, Физлица);

Движения.ОсновныеНачисленияРегл.Записать(Истина, Истина);



Расчеты.ПерерассчитатьЗаписиРегистраРасчета("ДополнительныеНачисленияРегл", Движения.ДополнительныеНачисленияРегл, ДополнительныеНачисления, Физлица);

Движения.ДополнительныеНачисленияРегл.Записать(Истина, Истина);



// Записать измененные данные табличных частей документа. Записать();



// Удалить записи перерасчета, по которым выполнен перерасчет. Для Н = 1 По 2 Цикл

Если Н = 1 Тогда

НаборЗаписей = РегистрыРасчета.ОсновныеНачисленияРегл.

Перерасчеты.ПерерасчетОсновныхНачислений. СоздатьНаборЗаписей();

НаборЗаписей.Записать(); КонецЦикла;



// Перерасчет выполняется в транзакции. ЗафиксироватьТранзакцию();



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

Процедуры общего модуля, выполняющие непосредственный перерасчет записей, по алгоритму схожи с процедурами расчета. Основное отличие состоит в том, что в процедурах перерасчета происходит расчет только тех записей, которые удовлетворяют заданным условиям. В данном случае это записи по заданному списку сотрудников. Также при перерасчете не нужно производить предварительную запись набора с формированием фактического периода действия, так как набор уже записан в регистр (перерассчитываемый документ всегда проведен). Ниже приведен пример процедур ПерерассчитатьЗаписиРегистраРасчета() и ПерерассчитатьНаборЗаписей(). Эти процедуры используют вызов тех же самых процедур и функций, которые используются при расчете.

Процедуры перерасчета записей

Код 1C v 8.х

 Процедура ПерерассчитатьНаборЗаписей(НаборЗаписей, Приоритет, ТабличнаяЧасть = Неопределено, ФизЛица = Неопределено)



Для каждого Запись из НаборЗаписей Цикл

Если Запись.ВидРасчета.Приоритет = Приоритет Тогда

Если НЕ ФизЛица.НайтиПоЗначению(Запись.Физлицо) = Неопределено Тогда



// Получить данные для расчета записи.

ДанныеДляРасчета = ПолучитьДанныеДляРасчета(Запись);



Иначе



НаборЗаписей = РегистрыРасчета.ДополнительныеНачисленияРегл.

Перерасчеты.ПерерасчетДополнительныхНачислений. СоздатьНаборЗаписей();



// Вызвать процедуру расчета записи. РассчитатьЗапись(Запись, ДанныеДляРасчета);



КонецЕсли;

НаборЗаписей.Отбор.ОбъектПерерасчета.Значение = Ссылка; Если Физлица <> НеОпределено Тогда

НаборЗаписей.Прочитать(); СтрокиКУдалению = Новый Массив;



Для Каждого СтрокаПерерасчета из НаборЗаписей Цикл

Если Физлица.НайтиПоЗначению( СтрокаПерерасчета.Физлицо) <> НеОпределено Тогда СтрокиКУдалению.Добавить(СтрокаПерерасчета);

КонецЕсли; КонецЦикла;



Для Каждого Строка Из СтрокиКУдалению Цикл

НаборЗаписей.Удалить(Строка); КонецЦикла;

КонецЕсли;

// Вернуть результат расчета в табличную часть документа. Если Не ТабличнаяЧасть = Неопределено Тогда

СтрокаТабличнойЧасти = ТабличнаяЧасть.Получить(Запись.НомерСтроки-1);

СтрокаТабличнойЧасти.Результат = Запись.Результат; КонецЕсли;

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

КонецЦикла;



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



Процедура ПерерассчитатьЗаписиРегистраРасчета(ИмяРегистра,

НаборЗаписей, ТабличнаяЧасть = Неопределено, Физлица = Неопределено) Экспорт



Регистратор = НаборЗаписей.Отбор.Регистратор.Значение;



// Запрос по приоритетам видов расчета

// только записей заданных сотрудников.



Запрос = Новый Запрос; Запрос.Текст = "

|ВЫБРАТЬ РАЗЛИЧНЫЕ

| " + ИмяРегистра + ".ВидРасчета.Приоритет КАК Приоритет

|ИЗ

| РегистрРасчета." + ИмяРегистра + " КАК " + ИмяРегистра + "

|ГДЕ

| ФизЛицо В (&СписокФизлиц) И Регистратор = &Регистратор

|УПОРЯДОЧИТЬ ПО

| Приоритет

|ИТОГИ ПО

| " + ИмяРегистра + ".ВидРасчета.Приоритет";



Запрос.УстановитьПараметр("СписокФизлиц", Физлица); Запрос.УстановитьПараметр("Регистратор", Регистратор);



ВыборкаПриоритетов = Запрос.Выполнить().

Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);



// Для каждого значения приоритета выполняется расчет записей. Пока ВыборкаПриоритетов.Следующий() Цикл

ПерерассчитатьНаборЗаписей(НаборЗаписей, ВыборкаПриоритетов.Приоритет, ТабличнаяЧасть, Физлица);



// Записать набор в регистр для расчета записей следующего

// приоритета, фактический период действия не пересчитывается. НаборЗаписей.Записать(Истина, Истина);

КонецЦикла;



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

Категория: Регистры расчета

Оператор ВЫРАЗИТЬ, аналог методов Лев, Прав, СокрЛП в Запросе? Категория: Запросы

Функция ПОДСТРОКА()

В языке запросов 1С:Предприятия функция ПОДСТРОКА() в формате ПОДСТРОКА(<Исходная строка>, <Начало>, <Длина>) может применяться к данным строкового типа и позволяет выделить фрагмент <Исходной строки>, начинающийся с символа номер <Начало> (символы в строке нумеруются с 1) и длиной <Длина> символов. Результат вычисления функции ПОДСТРОКА() имеет строковый тип переменной длины, причем длина будет считаться неограниченной, если <Исходная строка> имеет неограниченную длину и параметр <Длина> не является константой или превышает 1024.

Вычисление функции ПОДСТРОКА() на SQL сервере:
В клиент-серверном варианте работы функция ПОДСТРОКА() реализуется при помощи функции SUBSTRING() соответствующего оператора SQL, передаваемого серверу баз данных SQL Server, который вычисляет тип результата функции SUBSTRING() по сложным правилам в зависимости от типа и значений ее параметров, а так же в зависимости от контекста, в котором она используется.

В большинстве случаев эти правила не оказывают влияния на выполнение запроса 1С:Предприятия, однако есть случаи, когда для исполнения запроса существенна максимальная длина строки результата, вычисленная SQL Server. Важно иметь в виду, что в некоторых контекстах использования функции ПОДСТРОКА() максимальная длина ее результата может оказаться равной максимальной длине строки ограниченной длины, которая в SQL Server равна 4000 символам. Это может привести к неожиданному аварийному завершению выполнения запроса.

Например, запрос:

Код 1C v 8.х

 ВЫБРАТЬ

    ВЫБОР

        КОГДА Вид = &ЮрАдресФизЛица 

        ТОГДА ПОДСТРОКА(Представление, 0, 200) 

        ИНАЧЕ NULL 

    КОНЕЦ КАК Представление,

    ВЫБОР

        КОГДА Вид = &ЮрАдресФизЛица 

        ТОГДА ПОДСТРОКА(Представление, 0, 200) 

        ИНАЧЕ NULL 

    КОНЕЦ КАК Представление1

ИЗ

    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

УПОРЯДОЧИТЬ ПО

    Представление,

    Представление1

завершается аварийно с сообщением Ошибка СУБД:
Microsoft OLE DB Provider for SQL Server: Warning: The query processor could not produce a query plan from the optimizer because the total length of all the columns in the GROUP BY or ORDER BY clause exceeds 8000 bytes.
HRESULT=80040E14, SQLSTATE=42000, native=8618
Это происходит потому, что вычисленная Microsoft SQL Server максимальная длина строки, которая является результатом выражения:

Код 1C v 8.х

 ВЫБОР

    КОГДА Вид = &ЮрАдресФизЛица 

    ТОГДА ПОДСТРОКА(Представление, 0, 200) 

    ИНАЧЕ NULL 

КОНЕЦ КАК Представление,

равна 4000 символов. Поэтому длина записи, состоящей из двух таких полей превышает 8000 байт, разрешенные для выполнения операции сортировки.

В связи с описанной особенностью исполнения функции SUBSTRING() на SQL Server использование функции ПОДСТРОКА() с целью приведения строк неограниченной длины к строкам ограниченной длины не рекомендуется. Вместо нее лучше использовать операцию приведения типа ВЫРАЗИТЬ(). В частности, приведенный пример можно переписать в виде:

Код 1C v 8.х

 ВЫБРАТЬ

    ВЫБОР

        КОГДА Вид = &ЮрАдресФизЛица 

        ТОГДА ВЫРАЗИТЬ(Представление КАК Строка(200)) 

        ИНАЧЕ NULL 

    КОНЕЦ КАК Представление,

    ВЫБОР

        КОГДА Вид = &ЮрАдресФизЛица 

        ТОГДА ВЫРАЗИТЬ(Представление КАК Строка(200)) 

        ИНАЧЕ NULL 

    КОНЕЦ КАК Представление1

ИЗ

    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

УПОРЯДОЧИТЬ ПО 

    Представление,

    Представление1

Категория: Запросы

Как сравнить похожие строки (неполное совпадение строк)?

Ниже привожу пример функции нечеткого сравнения строк. Возвращаемое значение - от 0 (вообще не совпадает) до 1 (совпадает полностью)
По опыту, результат сравнения можно считать достоверным при совпадении больше 0.8 (80%)

Код

CREATE FUNCTION fn_FuzzyCompareString(
@Stri1 varchar(250),
@Stri2 varchar(250),
@MaxLen int)
RETURNS float
AS
BEGIN

DECLARE @Str1 varchar(250), @Str2 varchar(250), @SCountVar int,
@SCountEq int, @LenStr int, @Res float
DECLARE @NumSymbStr2 int
DECLARE @Cnt1 int, @Cnt2 int
DECLARE @SubStr varchar(250)

SELECT
@LenStr=1,
@SCountVar=0 ,
@SCountEq=0,
@res=0

Set @Str1 = replace(LTRIM(RTRIM(upper(@Stri1))),'.',' ')
Set @Str2 = replace(LTRIM(RTRIM(upper(@Stri2))),'.',' ')

if ((@MaxLen <= 0) or (Len(@Str1)=0) or (Len(@Str2)=0))
Begin
Set @Res=0
End
else
begin
While (@LenStr<=@MaxLen)
BEGIN
Set @NumSymbStr2=1
Set @Cnt2=0

While ((@Cnt2+@LenStr)<=LEN(@Str2))
BEGIN

Set @SubStr = '%'+SUBSTRING(@Str2,@NumSymbStr2,@LenStr)+'%'
if (PATINDEX(@SubStr, @Str1)<>0)
begin
Set @SCountEq=@SCountEq+1
end

Set @SCountVar=@SCountVar+1
Set @NumSymbStr2=@NumSymbStr2+1
Set @Cnt2 = @Cnt2+1
END

Set @NumSymbStr2=1
Set @Cnt2=0

While ((@Cnt2+@LenStr)<=LEN(@Str1))
BEGIN

Set @SubStr = '%'+SUBSTRING(@Str1,@NumSymbStr2,@LenStr)+'%'
if (PATINDEX(@SubStr, @Str2)<>0)
begin
Set @SCountEq=@SCountEq+1
end

Set @SCountVar=@SCountVar+1
Set @NumSymbStr2=@NumSymbStr2+1
Set @Cnt2 = @Cnt2+1
END

Set @LenStr=@LEnStr+1
END

end
if @SCountVar=0
SET @Res=0
Else
BEGIN
SET @Res=Convert(Numeric (10,5),@SCountEq)/Convert(Numeric (10,5),@SCountVar)
END

RETURN @Res
END

Использование этой функции (на примере прямого запроса к справочнику ФизЛица для 1С:ТиС 7.7): в выборку попадут все физлица, у которых релевантность выше 0.8

Код

DECLARE @FIO varchar(250)

Set @FIO = 'Иванов Петр'

SELECT
Спр.Code as [ФизЛицоКод],
Спр.ID as [ФизЛицо],
Спр.DESCR as [ФИО],
dbo.fn_FuzzyCompareString(dbo.fn_FIO(Спр.DESCR),@FIO,3) As [Релевантность]
FROM
SC503 as Спр (nolock)
where
ISMARK = 0
and
ISFOLDER = 2
and
dbo.fn_FuzzyCompareString(dbo.fn_FIO(Спр.DESCR),@FIO,3)>=0.8
GO

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