dbo.QBM_PPrePropCheckExpression

1         create   procedure QBM_PPrePropCheckExpression(@StrEingabe nvarchar(max) ,@PrePropColElemente nvarchar(max)  ) as begin   declare @result
2 int declare @strS nvarchar(max) declare @declString nvarchar(max)  declare @assignString nvarchar(max)  declare @ergstring nvarchar(max)  select @declString
3 = N'' select @assignString = N'' select @ergstring = N'' declare @SQLcmd nvarchar(max)  declare @posi int declare @lenIn int declare @morph nvarchar(max
4)  select @morph = N''  declare @istAn nvarchar(16)  SET XACT_ABORT OFF BEGIN TRY if rtrim(isnull(@strEingabe,N'') ) = N'' begin select @result = 1 goto
5 ende  end select @posi= 1 select @lenIn= len(rtrim(@StrEingabe)) while @posi <= @lenIn  begin  While substring(@StrEingabe, @posi, 1) = N' ' And @posi
6 <= @lenIn begin select @posi = @posi + 1 end If @posi > @lenIn begin GoTo endeSyntax End select @strS = N''  If substring(@StrEingabe, @posi, 1) = ')'
7 Or substring(@StrEingabe, @posi, 1) = N'(' begin select @strS = substring(@StrEingabe, @posi, 1) select @posi = @posi + 1 end Else begin While substring
8(@StrEingabe, @posi, 1) not in (N' ' , N')' , N'(' ) And @posi <= @lenIn begin select @strS = @strS + substring(@StrEingabe, @posi, 1) select @posi = @posi
9 + 1 end end if @strs in (N'OR', N'AND', N'NOT', N'(', N')') begin select @ergstring = @ergstring + N' ' + @strs end else begin  if charindex(N'|' + @strs
10 + N'#', @morph) = 0 begin select @morph = @morph + N'|' + @strs + N'#' end select @ergstring = @ergstring + N' @' + @strs + N' = 1 ' end end  endeSyntax:
11  select @declString = replace(replace(@morph, N'|', N'declare @'), N'#', ' bit' + nchar(13) + nchar(10))  while len(@morph ) > 0 begin select @strs = 
12substring(@morph, 2, charindex(N'#', @morph)-2)  select @morph = substring(@morph, charindex(N'#', @morph)+1, 8000)  select @istan = ' = 0 ' if charindex
13(N'|' + @strs + N'|', @PrePropColElemente) > 0  begin select @istan = ' = 1 ' end select @assignString = @assignString + N'select @'+@strs + @IstAn + nchar
14(13) + nchar(10) end  select @SQLcmd = N'declare @rueckgabe nvarchar(16) ' select @SQLcmd = @SQLcmd + @declString + @assignString + N'if (' + @ergstring
15 + N')  select @rueckgabe = 1 '    exec @result = QBM_PExecuteSQLWithRetry_LLP @SQLStatement = @SQLCmd , @LockTimeout_ms = default , @MaxWaitTimeForLock_s
16 = default , @ProcIDForJournal = @@procid , @HandleErrorSilent = 0   END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000
17) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH ende:  return (@result) end 
18