Set Me.OrgKey.Recordset = con.Execute("EXEC hp_ObjSource 'OrgKey', @RecKeyList='IN 1 3'")
Set Me.OrgKey1.Recordset = Me.OrgKey.Recordset
Set Me.OrgKey2.Recordset = con.Execute("EXEC hp_ObjSource 'OrgKey', @RecKeyList='NOTIN 1 3'")

IF @ObjName = 'CT_ID'
    SELECT CT_ID, Alfa2 + ' - ' + Country_Ukr FROM tab_Country WHERE Sost=0 ORDER BY Country_Ukr
IF @ObjName = 'CTyp_ID'
   SELECT CTyp_ID, CTypName FROM tab_MCenaType WHERE Sost=0 ORDER BY CTypName
IF @ObjName = 'DC_ID'
   SELECT DC_ID, DocType FROM tab_Document_Type WHERE Sost=0 ORDER BY DocType
...

IF @ObjName = 'OrgKey'
	BEGIN
		IF @RecKeyList = ''
			BEGIN
				IF @RecKey <> 0 AND @RecKey1 = 0
					SELECT	OrgKey, RecFld
					FROM	qry_hp_ObjSource_sub
					WHERE	OrgType=@RecKey
					ORDER BY NameYur
				IF @RecKey = 0 AND @RecKey1 <> 0
					SELECT	OrgKey, RecFld
					FROM	qry_hp_ObjSource_sub
					WHERE	OrgKey=@RecKey
					ORDER BY NameYur
				IF @RecKey <> 0 AND @RecKey1 <> 0
					SELECT	OrgKey, RecFld
					FROM	qry_hp_ObjSource_sub
					WHERE	OrgType=@RecKey AND OrgKey = @RecKey1
					ORDER BY NameYur								
			END
		ELSE
			BEGIN
				IF CHARINDEX(N'NOTIN', @RecKeyList) > 0
					BEGIN
						SET @DopWhere = SUBSTRING(@RecKeyList, 7, Len(@RecKeyList));
						SELECT	OrgKey, RecFld
						FROM	qry_hp_ObjSource_sub
						WHERE	OrgType NOT IN(SELECT number FROM dbo.iter_intlist_to_table(@DopWhere))
						ORDER BY NameYur
					END					
				ELSE
					IF CHARINDEX(N'IN', @RecKeyList) > 0
						BEGIN
							SET @DopWhere = SUBSTRING(@RecKeyList, 3, Len(@RecKeyList));
							SELECT	OrgKey, RecFld
							FROM	qry_hp_ObjSource_sub
							WHERE	OrgType IN(SELECT number FROM dbo.iter_intlist_to_table(@DopWhere))
							ORDER BY NameYur
						END									
			END
	END

If sLookup("SELECT COUNT(OrgKey2) AS ReCnt FROM tab_Org WHERE OrgKey=" & Me.OrgKey1) > 0 Then
    If MsgBox("бла бла бла?", vbExclamation + vbYesNo + vbDefaultButton2, NomWers) = vbNo Then
        Exit Sub
    Else
        con.Execute "hp_InsertZakazIsp " & Me.TTD_ID & "," & Me.OrgKey1 & "," & Me.Zak_ID
    End If
End If

Function funInsertDopKod(ByVal Kart_ID As Long, ByVal UKT_ID As Long) As Boolean
Dim flg_Trans As Boolean

On Error GoTo Err_
    If Nz(sLookup("SELECT Count(*) AS RecCnt FROM tab_UKT_ZED_DopKodInvois WHERE UKT_ID=" & UKT_ID), 0) = 0 Then
        If Nz(sLookup("SELECT Count(*) AS RecCnt FROM tab_MKart_DopKodInvois WHERE Kart_ID=" & Kart_ID), 0) > 0 Then
            If MsgBox("Для обраного коду УКТ ЗЕД відсутні дані по додатковим кодам в Електронний Інвойс, 
але додаткові коди з іншого коду УКТ ЗЕД вже присутні в картці товару. Видалити їх?", 
vbExclamation + vbYesNo + vbDefaultButton2, NomWers) = vbNo Then Exit Function
            con.Execute "Delete From tab_MKart_DopKodInvois Where Kart_ID=" & Kart_ID
            funInsertDopKod = True
        End If
    Else
        If MsgBox("Присутні дані по додатковим кодам в Електронний Інвойс. Додати їх в картку товару? Попередні дані будуть видалені.",
 vbExclamation + vbYesNo + vbDefaultButton2, NomWers) = vbNo Then Exit Function
'***************<Начало транзакции>********************
        con.BeginTrans
        flg_Trans = True
        
        con.Execute "Delete From tab_MKart_DopKodInvois Where Kart_ID=" & Kart_ID
        con.Execute _
            "Insert Into tab_MKart_DopKodInvois(Kart_ID, DK_ID) " & _
            "SELECT " & Kart_ID & ",DK_ID " & _
            "FROM   tab_UKT_ZED_DopKodInvois " & _
            "WHERE  UKT_ID=" & UKT_ID

        con.CommitTrans
        flg_Trans = False
'***************<Конец/ транзакции>********************
        funInsertDopKod = True
    End If
Exit Function

Err_:
    If flg_Trans = True Then con.RollbackTrans
    Call ErrorBases(Err, "mdl_FormFun", "InsertDopKod")
End Function

Function funInsertDopKod(ByVal Kart_ID As Long, ByVal UKT_ID As Long) As Boolean
Dim Result As Integer
Dim rs As ADODB.Recordset
Dim sErrMsg As String, sConfirms As String

On Error GoTo Err_
    Set rs = New ADODB.Recordset
lab:
    Set rs = con.Execute( _
            "USE tam;" & _
            "DECLARE @ErrMsg nvarchar(1000)='" & sErrMsg & "',@Confirms nvarchar(1000)='" & sConfirms & "',@Result INT;" & _
            "EXECUTE hp_InsertDopKod " & Kart_ID & "," & UKT_ID & ",@ErrMsg OUTPUT,@Confirms OUTPUT,@Result OUTPUT;" & _
            "SELECT @ErrMsg AS Cnt;SELECT @Confirms AS Cnt;SELECT @Result AS Cnt")
    sErrMsg = Nz(rs.NextRecordset.Fields(0).Value, "")
    sConfirms = Nz(rs.NextRecordset.Fields(0).Value, "")
    Result = Nz(rs.NextRecordset.Fields(0).Value, 0)
    
    Select Case Result
      Case -1
        MsgBox sErrMsg, vbCritical, NomWers
        Exit Function
      Case -2
        If MsgBox(sErrMsg, vbExclamation + vbYesNo, NomWers) = vbYes Then GoTo lab
    End Select
    funInsertDopKod = True
Exit Function

Err_:
    Call ErrorBases(Err, "mdl_FormFun", "InsertDopKod")
End Function

ALTER PROCEDURE [dbo].[hp_InsertDopKod]
	@Kart_ID INT,
	@UKT_ID INT,
	@ErrMsg nvarchar(1000)=N'' OUTPUT,
	@Confirms nvarchar(1000)=N'' OUTPUT,
	@Result INT OUTPUT
AS
 
BEGIN
	SET NOCOUNT ON;

	IF NOT EXISTS(SELECT * FROM tab_UKT_ZED_DopKodInvois WHERE UKT_ID=@UKT_ID)
		IF EXISTS(SELECT * FROM tab_MKart_DopKodInvois WHERE Kart_ID=@Kart_ID) 
			IF CHARINDeX(N'check1', @Confirms) = 0 
				BEGIN
					SET @ErrMsg = 'Для обраного коду УКТ ЗЕД відсутні дані по додатковим кодам в Електронний Інвойс,
 але додаткові коди з іншого коду УКТ ЗЕД вже присутні в картці товару. Видалити їх?'
					SET @Confirms = @Confirms + N'check1'
					SET @Result = -2
				END
			ELSE
				DELETE FROM tab_MKart_DopKodInvois WHERE Kart_ID=@Kart_ID
	ELSE
		IF CHARINDeX(N'check2', @Confirms) = 0
			BEGIN			
				SET @ErrMsg = 'Присутні дані по додатковим кодам в Електронний Інвойс. 
Додати їх в картку товару? Попередні дані будуть видалені.'
				SET @Confirms = @Confirms + N'check2'
				SET @Result = -2
			END
		ELSE
			BEGIN
				BEGIN TRY
					BEGIN TRANSACTION
						DELETE FROM tab_MKart_DopKodInvois WHERE Kart_ID=@Kart_ID;
						INSERT INTO tab_MKart_DopKodInvois(Kart_ID, DK_ID)
						SELECT @Kart_ID, DK_ID
						FROM   tab_UKT_ZED_DopKodInvois
						WHERE  UKT_ID=@UKT_ID;
					COMMIT TRANSACTION
				END TRY
				BEGIN CATCH
					ROLLBACK
					SET @ErrMsg = 'Произошел откат транзакции';
					THROW
					SET @Result = -1
				END CATCH
			END
END

If (Условие)=0 Then Exit Sub