Код (SQL)

BEGIN TRAN
exec _1sp__1SJOURN_TLockX

declare @MAXIDDOC_UIDCTL char(9)
declare @MAXIDDOC_JOURN char(9)
declare @MAXIDDOC char(9)
declare @BDCODE char(3)
declare @NewIDDOC char(9)

set @MAXIDDOC_UIDCTL='         '
set @MAXIDDOC_JOURN='         '

exec _1sp__1SUIDCTL_GetMaxID 0,@MAXIDDOC_UIDCTL output

exec _1sp__1SJOURN_MaxID @MAXIDDOC_JOURN output

select @MAXIDDOC=case when @MAXIDDOC_UIDCTL < @MAXIDDOC_JOURN then @MAXIDDOC_JOURN else @MAXIDDOC_UIDCTL end

select top 1 @BDCODE=DBSIGN from _1SSYSTEM

select @NewIDDOC=dbo.Convert10To36(dbo.Convert36To10(left(@MAXIDDOC,6))+1)+@BDCODE

declare @DOCNO char(10)

set @DOCNO=(
			SELECT
				R)-3)+1),len(DOCNUMBER)-3) NEWNUMBER
			FROM
			(
				SELECT
					ISNULL(MAX(TMP.DOCNUMBER),'ЦР-'+'0000000') DOCNUMBER
				FROM(
					SELECT
						MAX(DOCNO) AS DOCNUMBER
					FROM _1SJOURN  WITH (NOLOCK)
					WHERE IDDOCDEF = 1731
						AND left(DOCNO,3)='ЦР-'
						AND left(DATE_TIME_IDDOC,4)='2018'

					UNION ALL

					SELECT
						MAX(DOCNO)  AS DOCNUMBER
					FROM _1SDNLOCK WITH (NOLOCK)
					WHERE CAST(LEFT(DNPREFIX,10) AS Int) = 1731
						AND left(DOCNO,3)='ЦР-'
				) AS TMP
			) AS TMP2
		)
select @DOCNO

INSERT INTO _1SJOURN...

INSERT INTO DH...

exec _1sp__1SUIDCTL_SetMaxID 0,@NewIDDOC

COMMIT TRAN