<NML:TEMPLATE xmlns:NML="http://tempuri.org/NiceML">
  <NML:BLOCK TAG ="App">
    <NML:ENU SOURCE="ProjectItems" TAG="Classes">
        <NML:ENU SOURCE="CodeElements" WHERE="Kind=1">
          <NML:VAR NAME="HasAttribute">
            <NML:ENU SOURCE="CodeAttributes" WHERE="Name=@0 and Value=@1" FILTER="TSReflect;ClassTypes.ctBusinessLayer" TAKE="1">1</NML:ENU>
          </NML:VAR>
          <NML:IF FIELD="?HasAttribute" SIGN="EQUAL" CONDITION="1">
            <NML:BLOCK TAG="{NML:GET FIELD='Name' /}"> <!-- класс -->
              <NML:ENU SOURCE="CodeElements" WHERE="Kind=1 and Access = 1"><!-- публичные методы -->
                <NML:BLOCK TAG="{NML:GET FIELD='Name' /}"> 
                  <NML:ATTR NAME="Type"><NML:GET FIELD="Type"/></NML:ATTR> <!-- возвращаемый тип -->
                  <NML:ENU SOURCE="CodeElements"> <!-- аргументы -->
                    <NML:ATTR NAME="{NML:GET FIELD='Name' /}"><NML:GET FIELD="Type"/></NML:ATTR>
                  </NML:ENU>
                </NML:BLOCK>
              </NML:ENU>
            </NML:BLOCK>
          </NML:IF>
        </NML:ENU>
    </NML:ENU>
  </NML:BLOCK>
</NML:TEMPLATE>

<App>
  <Classes>
    <Response />
    <Rowset />
    <ToolbarMenu />
    <Toolbar />
    <BTError />
    <SelectData />
    <Field />
    <Catalogue />
    <Files />
    <Message />
    <Organizations />
    <Production />
  </Classes>
</App>

        If Not pi.FileCodeModel Is Nothing Then
            For Each ce As CodeElement In pi.FileCodeModel.CodeElements
                If ce.Kind = vsCMElement.vsCMElementClass Then
                    For Each ca As CodeAttribute In CType(ce, CodeClass2).Attributes
                        If ca.Name = "TSReflect" Then
                            If ca.Value.Substring(InStrRev(ca.Value, ".")) = "ctBusinessLayer" Then
                                If Not sbLayer Is Nothing Then
                                    sbLayer.AppendLine(vbTab & "export module " & ce.Name & " {")
                                    sbLayer.AppendLine(vbTab & vbTab & "var objName:string = '" & ce.Name & "';")
                                    Dim col As New Collection
                                    CreateLayerFuncSource(ce, sbLayer, col)
                                    sbLayer.AppendLine(vbTab & "}")
                                    sbLayer.AppendLine()
                                End If
                            Else
                                If Not sbTransport Is Nothing Then CreateTransportSource(ce, sbTransport, Nothing)
                            End If
                        End If
                        If mbCancel Then Return
                    Next
                End If
            Next
        End If

                            If oType.IsEnum Then
                                Dim v As Object = Nothing
                                For Each v In type.GetEnumValues
                                    If CInt(v) = CInt(value) Then Exit For
                                Next
                                Return Expression.Constant(v, type)
                            Else
                                Return Expression.Constant(value, type)
                            End If