VB.NET-TIPS などプログラミングについて

昨日、PCをシャットダウン使用とした時に、「更新プログラムのインストール中(13個中8個目)」で更新処理が終わらなくなりました。
2時間以上「インストール中．．．」の表示で止まったままで、たまにHDDランプが点滅する感じでした。
この状況、Googleで検索すると結構いろんな方が遭遇した様で、解決方法は自己責任で強制終了しか無いようでした。

仕方ないので、HDDランプが点滅していない時を見計らって電源ボタンの長押しで電源をOFFし、 その後、しばらく待って電源を再起動を行いました。

「Windows更新プログラムの構成中」が表示されて無事に起動。
コンピュータの再構成などが行われて、ほどなくWindowsが立ち上がりログインの画面となりました。

更新プログラムの途中で強制終了していますので、残りの更新プログラムのインストールをする必要があります。

[スタート]ボタンをクリックし、[すべてのプログラム]-[Windows Update]をクリックします。
[Windows Update]画面が表示されるので、[更新プログラムのインストール]をクリックし
残りの更新プログラムを処理させます。残りは4個の更新プログラムでしたので、すぐに終わりました。
その後、PCの再起動を行い、問題無く動作しました。
今回、何も無く再起動できましたが、やはりハードディスクのバックアップは必要だと思います。

=====
2014/12/11：の時の情報

シーケンサとの通信を行う「FL-net」を使用する機会が数ヶ月前にありました。
この「FL-net」を使うことで、シーケンサとのプロトコルを意識せずメモリの読み書きで通信ができるものです。
私は知らなかったのですが、シーケンサ(PLC)とパソコン等とを接続し、その間でのデータの授受を行うために「FL-net」はよく用いられているそうです。

「FL-net」の特徴を以下に記します。
■パソコン側のインターフェイスはEthernetがそのまま利用できる。
■FL-netのネットワーク上には、最大254台の機器（ノード）を接続可能。
■各ノードはマスターレス方式で管理され、トークンバス方式でデータを交換する。
■全てのノードが共通認識しているメモリブロックであるコモンメモリが在る。
■コモンメモリは、ビット単位での扱いに適した「領域1（8192ビット分）」と、 　ワード単位（16ビット単位）での扱いに適した「領域2（8192ワード分）」の2ブロックがある。
■コモンメモリの自分のノードのデータ領域の公開と、他のノードのデータ領域の参照が可能。

定期的に他のノードのデータを参照することで、それに対応する処理を行ったり、 自分のノードに他のノードへ伝えることを書き込んだりできることになります。

この「FL-net」を.NETから扱えるようにしたライブラリが「Binarix」から発売されています。 「Binarix FL-net Library for Windows」という製品で開発ライセンスフリーで動作させるパソコンには USBキーを装着することになります。（このUSBキーは60,000円）

http://www.binarix.co.jp/ja/products/flnet/

以下にコモンメモリの領域２を読み書きする簡単なテストプログラムを示します。
「Binarix」のサンプルプログラムで行っているように、FL-netをオープンした後でFL-netの 状態変化イベントでFL-netへの参加を検知する様にしています。
この組み方でほぼ動作すると思うのですが、実際にこの様にして数本のプログラムを組み1個のPC上で 同時に走らせた時に問題が発生しました。
実際のプログラムは5本同時に走らせたのですが、各プログラムでオープンした後で、 必ずしも全てのプログラムでオープン後の参加イベントが返ってくるわけではありませんでした。
「Binarix」の方に伺ったところ、イベントで見るのではなく、自ノードの状態を監視するのみでOKとのことでした。
結局ステータスイベントを使わずにオープン後のDo...WhileループをGetNodeInfo関数で監視すればよいことになります。


■「FL-net Library」の使用テストソース

Module Test

'-----
'FL-net用の変数
'-----
Private WithEvents m_flnet As FLnet             'FL-netコントロール
Private m_blnParticipation As Boolean = False   '参加フラグ
Private m_flRet As FLResult                     'FL-net関数戻り値

Private m_intAddr As Integer
Private m_intData As Integer
Private m_ushortArr(10) As UShort

''' 

''' FL-netテスト用メインSub
''' 
Sub Main()
    'FL-netインスタンス
    m_flnet = New Binarix.FALink.FLnet()

    'FL-netオープン
    m_flRet = m_flnet.Open()
    If m_flRet = FLResult.OK Then
        MsgBox("Fl-net Open Error")
        Exit sub
    End If

    'FL-net参加を待つ
    Do
        If m_blnParticipation = True Then Exit Do
        Threading.Thread.Sleep(100)
    While

    m_intAddr = 100
    '1ワードの領域２のコモンメモリの読込(Address:100)
    m_flRet = m_flnet.ReadC2(m_intAddr, m_intData)
    If Not (m_flRet = FLResult.OK) Then
        MsgBox("Fl-net Open Error")
    End If

    '1ワードの領域２のコモンメモリの書込(Address:200)
    m_intAddr = 200
    m_flRet = m_flnet.WriteC2(m_intAddr, m_intData)

    m_intAddr = 100
    '10ワードの連続領域２のコモンメモリの読込(Address:100)
    m_flRet = m_flnet.ReadC2(m_intAddr, m_ushortArr)
    If Not (m_flRet = FLResult.OK) Then
        MsgBox("Fl-net Open Error")
    End If

    '10ワードの連続領域２のコモンメモリの書込(Address:200)
    m_intAddr = 200
    m_flRet = m_flnet.WriteC2(m_intAddr, m_ushortArr)

	'FL-netクローズ
	Dim result As FLResult = flnet1.Close()
	'Display Close Result
	If result = FLResult.OK Then
		MsgBox("Close OK")
	Else
		MsgBox("Close Error:" & result.ToString())
	End If

End Sub

''' 

''' FL-net状態変更通知イベントハンドラ
''' 
Private Sub flnet_StatusChanged(ByVal sender As System.Object, ByVal e As Binarix.FALink.FLStatusEventArgs) Handles m_flnet.StatusChanged
	'GetNodeInfoメソッドを使用して自ノードの状態を調べます。
	Dim nodeInfo As New FLNodeInfo
	If flnet1.GetNodeInfo(nodeInfo) = FLResult.OK Then
		Dim part As String
		If (nodeInfo.NodeStatus And FLNodeStatus.Participation) = FLNodeStatus.Participation Then
		    '参加フラグON
            m_blnParticipation = True
		End If
	End If
End Sub

End Module

■「FL-net参加を待つ」部分を改良したソース（抜粋）

...
...

''' 

''' FL-netテスト用メインSub
''' 
Sub Main()
    'FL-netインスタンス
    m_flnet = New Binarix.FALink.FLnet()

    'FL-netオープン
    m_flRet = m_flnet.Open()
    If m_flRet = FLResult.OK Then
        MsgBox("Fl-net Open Error")
        Exit sub
    End If

    'FL-net参加を待つ
    Do
        If m_flnet.GetNodeInfo(nodeInfo) = FLResult.OK Then Exit Do
        Threading.Thread.Sleep(100)
    While

    m_intAddr = 100
    '1ワードの領域２のコモンメモリの読込(Address:100)
    m_flRet = m_flnet.ReadC2(m_intAddr, m_intData)
    If Not (m_flRet = FLResult.OK) Then
        MsgBox("Fl-net Open Error")
    End If

...
...

=====
2014/10/06：の時の情報

最近の仕事で、三菱のシーケンサソフトである「GT SoftGOT1000」との通信を行うものがあり、 そのアクセス用のDLLとしての「GDevlib_GT16.dll」を使用しました。

「GT SoftGOT1000」と通信を行うために、「GT SoftGOT1000」がインストールされているパソコンに さらに今回開発のプログラムと同一ディレクトリに「GDevlib_GT16.dll」を設置しました。

「GDevlib_GT16.dll」を使うにあたって、三菱さんからはサンプルプログラムが提供されていますが VC++のソースしか無かったので、今回VB.NET用に書き換えました。
VB.NET用のソースは以下にありますので、よろしければお使い下さい。 但し、間違い等があるかもしれませんので、責任は負いかねますのでご了承下さい。
（「GDevlib_GT16.dll」利用するためのクラスとして「CDev.vb」の1個のファイルにしてあります。）

尚、「GDevlib_GT16.dll」を使っての開発は、三菱さんに伺ったところ「VisualStudios2012上での開発については、保証外となります」 とのことですので、VisualStudio2008で開発を行いました。

■「CDev.vb」クラスの使い方

大体以下の様な感じで使えますが、ErrLogはこの関数外で宣言したエラー出力用の関数です。

'[GT SoftGOT1000]内部デバイス操作クラス
Private Device As GDev

Private Sub TestSub()
    ' [GT SoftGOT1000]内部デバイス操作クラス作成
    Device = New GDev()

    '-----
    '開始処理
    '-----
    If Device.IsOpen() = False Then
        'SoftGOT1000内部デバイス・オープン
        If Device.Open(1) = False Then
            'オープンエラー
            ErrLog("GT SoftGOT1000 が開始されていません。 ")
            Exit Sub
        End If
    End If

    '=====
    'SGT1000.exeの実行中確認
    '=====
    Dim ArrProcess As Process()
    ArrProcess = Process.GetProcessesByName("SGT1000")
    If ArrProcess.Length <= 0 Then
        ErrLog("SoftGOT1000が動作していません。")
        Exit Sub
    End If

    '-----
    '読出
    '-----
    'デバイスNO
    Dim DevNum As UInt32 = 82       'デバイスNO:82から8個のWORD領域
    '内部デバイス入力データ領域
    Dim ArrDev(8 * 2 + 1) As UShort '8ワードの領域
    Dim blnRet As Boolean
    blnRet = Device.Read(GDev.DeviceName.GD, DevNum, ArrDev)
    If blnRet = False Then
        ErrLog("読出エラー(" & DevNum.ToString & ")")
        Exit Sub
    End If

    '-----
    '書込
    '-----
    'デバイスNO
    Dim DevNumO As UInt32 = 400     'デバイスNO:400から8個のWORD領域
    '内部デバイス出力データ領域
    Dim ArrDevO(8 * 2 + 1) As UShort '8ワードの領域
    blnRet = Device.Write(GDev.DeviceName.GD, DevNumO, ArrDevO)
    If blnRet = False Then
        ErrLog("書込エラー")
        Exit Sub
    End If

    'SoftGOT1000内部デバイス・クローズ
    If Device.IsOpen() Then
        Device.Close()
    End If
End Sub

■「CDev.vb」クラスのソース

Imports System
Imports System.Text
Imports System.Runtime.InteropServices

Class GDev
    Private m_hMapFile As IntPtr
    Private m_ulMapPointer As UInt32
    Private m_sGotNo As Int16

    <DllImport("GDevlib_GT16.dll")> _
    Private Shared Function GDev_OpenMapping(ByRef phMapFile As IntPtr, ByVal sGotNo As Int16) As UInt32
    End Function

    <DllImport("GDevlib_GT16.dll")> _
    Private Shared Sub GDev_CloseUnMapping(ByVal hMapFile As IntPtr, ByVal ulMapPointer As UInt32)
    End Sub

    <DllImport("GDevlib_GT16.dll")> _
    Private Shared Function GDev_Read(ByVal ulMapPointer As UInt32, ByVal sDevNameID As Int16, 
                    ByVal lDevNum As Int32, ByRef pusDataTable As UInt16, ByVal lDataSize As Int32) As Int32
    End Function

    <DllImport("GDevlib_GT16.dll")> _
    Private Shared Function GDev_Write(ByVal ulMapPointer As UInt32, ByVal sDevNameID As Int16,
                    ByVal lDevNum As Int32, ByRef pusDataTable As UInt16, ByVal lDataSize As Int32) As Int32
    End Function

    Public Enum DeviceName
        GB
        GD
        GS
    End Enum

    Protected Overrides Sub Finalize()
        Try
            Close()
        Finally
            MyBase.Finalize()
        End Try
    End Sub

    ''' -----------------------------------------------------------------------
    ''' 

    ''' オープン処理
    ''' 
    '''GOT-NO
    ''' 処理結果(True:OK, False:NG)
    ''' 
    ''' -----------------------------------------------------------------------
    Public Function Open(ByVal sGotNo As Int16) As Boolean
        If m_hMapFile = IntPtr.Zero Then
            Dim hMapFile As IntPtr
            m_ulMapPointer = GDev_OpenMapping(hMapFile, sGotNo)
            If m_ulMapPointer <> 0 Then
                m_hMapFile = hMapFile
                m_sGotNo = sGotNo

                Return True
            End If
        End If

        Return False
    End Function

    ''' -----------------------------------------------------------------------
    ''' 

    ''' オープン済チェック
    ''' 
    ''' チェック結果(True:OK, False:NG)
    ''' 
    ''' -----------------------------------------------------------------------
    Public Function IsOpen() As Boolean
        Return (m_hMapFile <> IntPtr.Zero)
    End Function

    ''' -----------------------------------------------------------------------
    ''' 

    ''' クローズ処理
    ''' 
    ''' 
    ''' -----------------------------------------------------------------------
    Public Sub Close()
        If m_hMapFile <> IntPtr.Zero Then
            GDev_CloseUnMapping(m_hMapFile, m_ulMapPointer)

            m_hMapFile = IntPtr.Zero
            m_sGotNo = 0
        End If
    End Sub

    ''' -----------------------------------------------------------------------
    ''' 

    ''' デバイス名からID変換
    ''' 
    '''デバイス名
    ''' ID
    ''' 
    ''' -----------------------------------------------------------------------
    Private Function GetDevNameID(ByVal eDevName As DeviceName) As Int16
        Select Case eDevName
            Case DeviceName.GB
                Return 0
            Case DeviceName.GD
                Return 1
            Case DeviceName.GS
                Return 2
        End Select

        Return -1
    End Function

    Private Function GetFlag(ByVal sVal As UInt16, ByVal iBit As Integer) As Boolean
        Dim iMask As Integer = 1 << iBit
        Return ((sVal And iMask) <> 0)
    End Function

    Private Function SetFlag(ByVal sVal As UInt16, ByVal iBit As Integer, ByVal bFlag As Boolean) As UInt16
        Dim iMask As Integer = (1 << iBit)
        If bFlag Then
            Return CType(sVal Or iMask, UInt16)
        Else
            Return CType(sVal And Not iMask, UInt16)
        End If
    End Function

    ''' -----------------------------------------------------------------------
    ''' 

    ''' 単独データ読出し
    ''' 
    '''デバイス名
    '''デバイスNO
    '''返すデータ
    ''' 読出結果(True:OK, False:NG)
    ''' 
    ''' -----------------------------------------------------------------------
    Public Function Read(ByVal eDevName As DeviceName, ByVal lDevNum As Int32, ByRef DataVal As UInt16) As Boolean
        If m_hMapFile <> IntPtr.Zero Then
            Dim usValue As UInt16 = 0
            Dim sDevNameID As Int16 = GetDevNameID(eDevName)

            If GDev_Read(m_ulMapPointer, sDevNameID, lDevNum, usValue, 1) = 0 Then
                If eDevName = DeviceName.GB Then
                    If GetFlag(usValue, lDevNum Mod 16) Then
                        DataVal = 1
                    Else
                        DataVal = 0
                    End If
                Else
                    DataVal = usValue
                End If
                Return True
            End If
        End If

        Return False
    End Function

    ''' -----------------------------------------------------------------------
    ''' 

    ''' 連続データ読出し
    ''' 
    '''デバイス名
    '''デバイスNO
    '''データ配列
    ''' 読出結果(True:OK, False:NG)
    ''' ビットデータは想定していない
    ''' -----------------------------------------------------------------------
    Public Function Read(ByVal eDevName As DeviceName, ByVal lDevNum As Int32, ByRef DataTable() As UInt16) As Boolean
        If m_hMapFile <> IntPtr.Zero Then
            Dim sDevNameID As Int16 = GetDevNameID(eDevName)

            If GDev_Read(m_ulMapPointer, sDevNameID, lDevNum, DataTable(0), DataTable.Length) = 0 Then
                Return True
            End If
        End If

        Return False
    End Function

    ''' -----------------------------------------------------------------------
    ''' 

    ''' 単独データ書込み
    ''' 
    '''デバイス名
    '''デバイスNO
    '''データ値
    ''' 
    ''' 書込結果(True:OK, False:NG)
    ''' -----------------------------------------------------------------------
    Public Function Write(ByVal eDevName As DeviceName, ByVal lDevNum As Int32, ByVal usValue As UInt16) As Boolean
        If m_hMapFile <> IntPtr.Zero Then
            Dim sDevNameID As Int16 = GetDevNameID(eDevName)

            If eDevName = DeviceName.GB Then
                Dim usTmpValue As UInt16 = 0
                If GDev_Read(m_ulMapPointer, sDevNameID, lDevNum, usTmpValue, 1) = 0 Then
                    usValue = SetFlag(usTmpValue, lDevNum Mod 16, (usValue <> 0))
                End If
            End If

            If GDev_Write(m_ulMapPointer, sDevNameID, lDevNum, usValue, 1) = 0 Then
                Return True
            End If
        End If

        Return False
    End Function

    ''' -----------------------------------------------------------------------
    ''' 

    ''' 連続データ書込み
    ''' 
    '''デバイス名
    '''デバイスNO
    '''データ配列
    ''' 書込結果(True:OK, False:NG)
    ''' ビットデータは想定していない
    ''' -----------------------------------------------------------------------
    Public Function Write(ByVal eDevName As DeviceName, ByVal lDevNum As Int32, ByRef DataTable() As UInt16) As Boolean
        If m_hMapFile <> IntPtr.Zero Then
            Dim sDevNameID As Int16 = GetDevNameID(eDevName)

            If GDev_Write(m_ulMapPointer, sDevNameID, lDevNum, DataTable(0), DataTable.Length) = 0 Then
                Return True
            End If
        End If

        Return False
    End Function

    Public Overrides Function ToString() As String
        Return String.Format("GT SoftGOT1000")
    End Function
End Class

=====
2014/09/03：の時の情報

システムに必要なテーブルで、自動的に番号を振っていくものが必要なときがあります。 たとえば、各種の伝票データの伝票番号の様なものです。

プログラム処理上、データを登録した直後に、自動採番された値を取得し何かに使いたいことがよくあります。
SQL-Serverでは現在の自動採番の値を取得する方法が用意されています。

取敢えず自動採番を行える簡単なテーブルの例を示します。（前回ストアド・ファンクションで使用したテーブルに細工します。）

CREATE TABLE [dbo].[TABLE_B](
	[ID] [int] IDENTITY(1,1) NOT NULL,
	[DATA1] [nvarchar](50) COLLATE Japanese_CI_AS NULL,
	[DATA2] [nvarchar](50) COLLATE Japanese_CI_AS NULL,
 CONSTRAINT [PKEY_TW_MAG_ADDR] PRIMARY KEY CLUSTERED 
(
	[ID] ASC
)WITH (PAD_INDEX  = OFF, IGNORE_DUP_KEY = OFF) ON [PRIMARY]
) ON [PRIMARY]

まず、テストテーブルＢに1件データを挿入します。 「ID」は自動採番の設定なので登録する値は設定しません。

INSERT INTO TABLE_B (DATA1, DATA2)
VALUES('A0001', 'B0001')

■自動採番された値を取得
この直後に、設定された「ID」値を取得するには以下のSELECT文を実行します。

SELECT IDENT_CURRENT('TABLE_B') AS LASTID

結果として「１」という値が返されます。

■自動採番された値をリセット
デバッグ途中でテーブルのデータを全て削除して、さらに自動採番が「１」からにしたい場合はよくあります。 そのときに以下の命令をクエリアナライザ等で実行します。

DBCC CHECKIDENT('TABLE_B', RESEED, 0)

自動採番の値を「０」にする命令ですが、実際INSERT実行時には＋１された値が「ID」に設定されます。

=====
2013/02/14：の時の情報

当然といえばそうなのかもしれませんが、SQL-Serverのストアド・ファンクションではUPDATEなどが実行できない。
TRY・・・CATCHも記述できないようです。関数は戻り値のみを返すもので、テーブル等に変更を与えてはいけないのでしょう。

さて、取敢えずストアド・ファンクションの簡単な例を示します。

前回使用したテストテーブルを利用して、ストアド・ファンクションを作成します。構造は以下の感じです。

CREATE TABLE [dbo].[TABLE_A](
	[ID] [int] NOT NULL,
	[DATA1] [nvarchar](50) COLLATE Japanese_CI_AS NULL,
	[DATA2] [nvarchar](50) COLLATE Japanese_CI_AS NULL,
 CONSTRAINT [PK_TABLE_A] PRIMARY KEY CLUSTERED 
(
	[ID] ASC
)WITH (PAD_INDEX  = OFF, IGNORE_DUP_KEY = OFF) ON [PRIMARY]
) ON [PRIMARY]

■スカラ値関数

テストテーブルＡを利用した簡単な値を返すストアド・関数です。
与えられた検索用ＩＤでテーブルＡの「DATA1」カラムの内容を返す簡単な関数です。

IF OBJECT_ID('dbo.FuncTest2') IS NOT NULL
    DROP FUNCTION [dbo].[FuncTest2]
GO
CREATE FUNCTION [dbo].[FuncTest2](
  @SrcID NVARCHAR
)
RETURNS NVARCHAR(50)
BEGIN
    DECLARE @Des NVARCHAR(50)
    SELECT @Des = DATA1	FROM TABLE_A WHERE ID = @SrcID
    RETURN @Des
END

SELECT文で実行してやれば、以下のようにします。
======================================
SELECT [dbo].[FuncTest2](1)
======================================


■テーブル値関数その１（インラインテーブル値）

テストテーブルＡを利用した簡単な値を返すストアド・関数です。

IF OBJECT_ID('dbo.FuncTest3') IS NOT NULL
    DROP FUNCTION [dbo].[FuncTest3]
GO
CREATE FUNCTION [dbo].[FuncTest3](
  @SrcID NVARCHAR
)
RETURNS TABLE AS
RETURN
(
    SELECT ID, DATA1 FROM TABLE_A WHERE ID = @SrcID
)

SELECT文のFROM句で実行してやれば、以下のようにします。
======================================
SELECT * FROM [dbo].[FuncTest3](1)
======================================


■テーブル値関数その２（複数の行を返すテーブル値）

テストテーブルＡを利用した複数の行を返すストアド・関数です。
指定されたID以降のデータを全て返す様な動作を行います。
RETURNS句で指定されたTABLEにINSERTしていくことで、結果をテーブルの値として返します。

IF OBJECT_ID('dbo.FuncTest4') IS NOT NULL
    DROP FUNCTION [dbo].[FuncTest4]
GO
CREATE FUNCTION [dbo].[FuncTest4]( @SrcID NVARCHAR )
RETURNS @DesTbl TABLE 
(
    ID int primary key NOT NULL,
    DATA1 nvarchar(255) NOT NULL
)
AS
BEGIN
	INSERT @DesTbl
	SELECT ID, LTRIM( DATA1 ) FROM TABLE_A
	WHERE ID >= @SrcID
	/* INSERT @DesTbl VALUES(0, '0000') */
	RETURN
END

INSERTで追加してやればいろんなことができると思います。上の例ではコメント行になっていますが、 強制的にID「０」を作成することも可能です。
この関数の実行も「テーブル値関数その１」で行った方法と同様です。
■スカラ値関数にUPDATE文を記述

IF OBJECT_ID('dbo.FuncTest2') IS NOT NULL
    DROP FUNCTION [dbo].[FuncTest2]
GO
CREATE FUNCTION [dbo].[FuncTest2](
  @SrcID NVARCHAR
)
RETURNS NVARCHAR(50)
BEGIN
    DECLARE @Des NVARCHAR(50)
    SELECT @Des = DATA1	FROM TABLE_A WHERE ID = @SrcID
	UPDATE TABLE_A SET DATA2 = NULL WHERE ID = @SrcID
    RETURN @Des
END

SQL実行結果として以下のエラーメッセージが表示されます。
============================================================
メッセージ 443、レベル 16、状態 15、プロシージャ FuncTest2、行 8
副作用のある演算子または時間に依存する演算子を関数内の 'UPDATE' で使用することはできません。
============================================================


TRY、CATCHを入れてもエラーが表示され使用出来ないようです。

IF OBJECT_ID('dbo.FuncTest2') IS NOT NULL
    DROP FUNCTION [dbo].[FuncTest2]
GO
CREATE FUNCTION [dbo].[FuncTest2](
  @SrcID NVARCHAR
)
RETURNS NVARCHAR(50)
BEGIN
	BEGIN TRY
    DECLARE @Des NVARCHAR(50)
    SELECT @Des = DATA1	FROM TABLE_A WHERE ID = @SrcID
	END TRY
	BEGIN CATCH
	END CATCH
    RETURN @Des
END

SQL実行結果として以下のエラーメッセージが表示されます。
============================================================
メッセージ 443、レベル 16、状態 14、プロシージャ FuncTest2、行 6
副作用のある演算子または時間に依存する演算子を関数内の 'BEGIN TRY' で使用することはできません。
メッセージ 443、レベル 16、状態 14、プロシージャ FuncTest2、行 9
副作用のある演算子または時間に依存する演算子を関数内の 'END TRY' で使用することはできません。
メッセージ 443、レベル 16、状態 14、プロシージャ FuncTest2、行 10
副作用のある演算子または時間に依存する演算子を関数内の 'BEGIN CATCH' で使用することはできません。
メッセージ 443、レベル 16、状態 14、プロシージャ FuncTest2、行 11
副作用のある演算子または時間に依存する演算子を関数内の 'END CATCH' で使用することはできません。
============================================================


副作用のある処理をファンクションのなかでは記述できないので、 どうしても処理したいのであれば、ストアド・プロシージャとして作成するしかないようです。
そこで、結果として何かを返したいのであれば、引数に出力属性のものを持つしかありません。

また、プロシージャの中からファンクションを実行することはできますが、ファンクションの中から プロシージャを実行することはできないようです。
ファンクションのコールが入れ子になっていて、深いところでUPDATEなどを行いたい場合、 全てのファンクションをプロシージャにしないといけなくなってきます。
このあたりは、ファンクション、プロシージャの切り分けをしっかりしておく必要がありそうです。
=====
2013/02/14：の時の情報