You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

241 lines
26 KiB

<topic template="API_general" status="Complete" lasteditedby="VSdocman">
<title translate="true">ModMain.Check_Umfeld Method</title>
<keywords>
<keyword translate="true">ModMain.Check_Umfeld Method</keyword>
<keyword translate="true">EDKB12WS.ModMain.Check_Umfeld Method</keyword>
<keyword translate="true">Check_Umfeld Method</keyword>
</keywords>
<a-keywords>
<a-keyword>topic_00000000000003AC</a-keyword>
<a-keyword>EDKB12WS.ModMain.Check_Umfeld</a-keyword>
</a-keywords>
<topic-variables>
<topic-variable id="CONTEXT-TERM1">EDKB12WS.ModMain.Check_Umfeld</topic-variable>
<topic-variable id="CONTEXT-TERM2">ModMain.Check_Umfeld</topic-variable>
<topic-variable id="CONTEXT-TERM3">EDKB12WS.ModMain.ModMain.Check_Umfeld</topic-variable>
<topic-variable id="MEMBER-FULLNAME">EDKB12WS.ModMain.Check_Umfeld</topic-variable>
<topic-variable id="MEMBER-ASSEMBLY-NAME">EDKB12WS (in EDKB12WS.exe)</topic-variable>
<topic-variable id="MEMBER-NAME">ModMain.Check_Umfeld</topic-variable>
<topic-variable id="MEMBER-TYPE">Method</topic-variable>
<topic-variable id="MEMBER-PARENT">EDKB12WS.ModMain</topic-variable>
<topic-variable id="MEMBER-LINK">topic_00000000000003AC</topic-variable>
</topic-variables>
<body>
<header>
<para styleclass="Title"><text styleclass="Title" translate="true">ModMain.Check_Umfeld Method</text></para>
</header>
<para styleclass="Normal">
<br/><text styleclass="Normal" style="font-weight:bold;" translate="true">Assembly:</text>
<text styleclass="Normal" translate="true">
EDKB12WS (in EDKB12WS.exe)
</text>
</para>
<para styleclass="Heading1"><conditional-text type="IF" value="declarations"/><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" id="syntaxToggle" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[Syntax]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Normal"><table styleclass="MainSectionTable" rowcount="2" colcount="1">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading VB"><text styleclass="Table Heading VB" translate="true">Visual Basic</text></para>
</td>
</tr>
<tr style="vertical-align:top">
<td>
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">Private Shared Function Check_Umfeld() As <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.Boolean" translate="true">Boolean<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text></text></para>
</td>
</tr>
</table></para>
<para styleclass="Normal"><table styleclass="MainSectionTable" rowcount="2" colcount="1">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading Csharp"><text styleclass="Table Heading Csharp" translate="true">C#</text></para>
</td>
</tr>
<tr style="vertical-align:top">
<td>
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">private static <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.Boolean" translate="true">bool<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text> Check_Umfeld()</text></para>
</td>
</tr>
</table></para>
<para styleclass="Normal"><table styleclass="MainSectionTable" rowcount="2" colcount="1">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading Cpp"><text styleclass="Table Heading Cpp" translate="true">C++</text></para>
</td>
</tr>
<tr style="vertical-align:top">
<td>
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">private: <br/>static <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.Boolean" translate="true">bool<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text> Check_Umfeld() </text></para>
</td>
</tr>
</table></para>
<para styleclass="Normal"><table styleclass="MainSectionTable" rowcount="2" colcount="1">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading Jscript"><text styleclass="Table Heading Jscript" translate="true">JScript</text></para>
</td>
</tr>
<tr style="vertical-align:top">
<td>
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">private static function Check_Umfeld() : <text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Code Example" defaultstyle="true" type="weblink" href="msdn::T:System.Boolean" translate="true">boolean<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Code Example" defaultstyle="true"></text>;</text></para>
</td>
</tr>
</table></para>
</td>
</tr>
</table></para>
<para styleclass="ToggleSectionParagraph"><conditional-text type="END"/></para>
</td>
</tr>
</table></para>
$END-IFNOTEMPTY$
<para styleclass="Heading1"><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[Source code]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1" style="border-width:0px; border-spacing:0px; border-collapse:collapse; cell-border-width:1px; border-color:#ffffff; border-style:solid;">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Normal"><table styleclass="CodeTable" rowcount="2" colcount="2">
<tr style="vertical-align:top">
<td>
<para styleclass="Table Heading VB"><text styleclass="Table Heading VB" translate="true">Visual Basic</text></para>
</td>
<td style="width:1%;">
<para styleclass="Copy Code Link"><conditional-text type="IF" value="CHM,HTML,HXS"/><html-code width="200" height="20" translate="true"><![CDATA[<span title="Copy Code" class="copyCode" onclick="CopyCode(this)" onkeypress="CopyCode_CheckKey(this, event)" onmouseover="ChangeCopyCodeIcon(this)" onmouseout="ChangeCopyCodeIcon(this)" tabindex="0"><img class="copyCodeImage" name="ccImage" align="absmiddle" alt="Copy Code" src="copycode.gif" />Copy Code</span>
]]></html-code><conditional-text type="END"/></para>
</td>
</tr>
<tr style="vertical-align:top">
<td colspan="2">
<para styleclass="Code Example"><text styleclass="Code Example" translate="true">
Private Function Check_Umfeld() As Boolean<br/> &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160;End If<br/> <br/> &#160; &#160;Try<br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Mitarbeiter&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> <br/> &#160; &#160; &#160; &#160;xMitarbeiter.xtgnummer = tmpAction.GetParameterByName(&quot;creatorTg&quot;).Value<br/> &#160; &#160; &#160; &#160;Mitarbeiter.cpMainConnectionProvider = Globals.conn<br/> &#160; &#160; &#160; &#160;conn.OpenConnection()<br/> &#160; &#160; &#160; &#160;xMitarbeiter.cpMainConnectionProvider = Globals.conn<br/> &#160; &#160; &#160; &#160;Mitarbeiterdata = xMitarbeiter.SelectWithTGNummer()<br/> &#160; &#160; &#160; &#160;conn.CloseConnection(True)<br/> <br/> &#160; &#160; &#160; &#160;Mitarbeiter.cpMainConnectionProvider = Globals.conn<br/> &#160; &#160; &#160; &#160;conn.OpenConnection()<br/> &#160; &#160; &#160; &#160;Mitarbeiter.iMitarbeiternr = New SqlInt32(Mitarbeiterdata.Rows(0).Item(&quot;Mitarbeiternr&quot;))<br/> &#160; &#160; &#160; &#160;Mitarbeiter.SelectOne()<br/> &#160; &#160; &#160; &#160;conn.CloseConnection(True)<br/> <br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Dokumenttyp&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160; &#160; &#160;DokType.cpMainConnectionProvider = Globals.conn<br/> &#160; &#160; &#160; &#160;conn.OpenConnection()<br/> &#160; &#160; &#160; &#160;DokType.iDokumenttypnr = New SqlInt32(tmpAction.GetParameterByName(&quot;DokumentTypNr&quot;).Value - 900000000)<br/> &#160; &#160; &#160; &#160;DokType.SelectOne()<br/> &#160; &#160; &#160; &#160;conn.CloseConnection(True)<br/> <br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Partner&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> <br/> &#160; &#160; &#160; &#160;Partner.cpMainConnectionProvider = Globals.conn<br/> &#160; &#160; &#160; &#160;conn.OpenConnection()<br/> &#160; &#160; &#160; &#160;Partner.iNRPAR00 = New SqlInt32(tmpAction.GetParameterByName(&quot;PartnerNr&quot;).Value)<br/> &#160; &#160; &#160; &#160;Partner.SelectOne()<br/> &#160; &#160; &#160; &#160;conn.CloseConnection(True)<br/> <br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Office-Vorlage&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160; &#160; &#160;OfficeVorlage.cpMainConnectionProvider = Globals.conn<br/> &#160; &#160; &#160; &#160;conn.OpenConnection()<br/> &#160; &#160; &#160; &#160;OfficeVorlage.iOffice_vorlagenr = New SqlInt32(DokType.iOffice_vorlagenr.Value)<br/> &#160; &#160; &#160; &#160;OfficeVorlage.SelectOne()<br/> &#160; &#160; &#160; &#160;conn.CloseConnection(True)<br/> <br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Auslesen Office-Vorlage&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> <br/> &#160; &#160; &#160; &#160;'Office 2010<br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Param.CheckOffice2010_Vorlage:&quot; + Param.CheckOffice2010_Vorlage.ToString, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160; &#160; &#160;If Param.CheckOffice2010_Vorlage = True Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;Dim applnr As Integer = Get_Applikationnr(OfficeVorlage.iOffice_vorlagenr.Value)<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Appl-Nr:&quot; + applnr.ToString, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160; &#160; &#160;Select Case applnr<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 0<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.doc&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 1<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.doc&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 2<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xls&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 3<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.pdf&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 4<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.docx&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 5<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.docm&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 6<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.dotx&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 7<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.dotm&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 8<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xlsx&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 9<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xlsm&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 10<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xltx&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 11<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xltm&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160;End Select<br/> &#160; &#160; &#160; &#160;Else<br/> <br/> &#160; &#160; &#160; &#160; &#160; &#160;Select Case OfficeVorlage.iAnwendungnr.Value<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 0<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.doc&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 1<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.doc&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 2<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xls&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 3<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.pdf&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 4<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.docx&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 5<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.docm&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 6<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.dotx&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 7<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.dotm&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 8<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xlsx&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 9<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xlsm&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 10<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xltx&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Case 11<br/> &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;FileExtension = &quot;.xltm&quot;<br/> &#160; &#160; &#160; &#160; &#160; &#160;End Select<br/> <br/> &#160; &#160; &#160; &#160;End If<br/> <br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld:: Office_Voralge: &quot; + OfficeVorlage.iOffice_vorlagenr.Value.ToString, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld:: Dokumenttyp: &quot; + FileExtension, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> <br/> &#160; &#160; &#160; &#160;If Office_Vorlage_Get_From_DB(OfficeVorlage.iOffice_vorlagenr.Value, Filename + FileExtension) = &quot;&quot; Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;Return False<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160; &#160; &#160;DokumentFilename = Filename + FileExtension<br/> <br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Profil&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> <br/> &#160; &#160; &#160; &#160;Profile = Get_Profil(Mitarbeiter.iMitarbeiternr.Value)<br/> &#160; &#160; &#160; &#160;If Profile.Rows.Count &lt; 1 Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;Profilnr = 0<br/> &#160; &#160; &#160; &#160; &#160; &#160;Unterschriftlinks = 0<br/> &#160; &#160; &#160; &#160; &#160; &#160;Unterschriftrechts = 0<br/> &#160; &#160; &#160; &#160;Else<br/> &#160; &#160; &#160; &#160; &#160; &#160;Profilnr = Profile.Rows(0).Item(&quot;Profilnr&quot;)<br/> &#160; &#160; &#160; &#160; &#160; &#160;Unterschriftlinks = Profile.Rows(0).Item(&quot;Unterschriftlinks&quot;)<br/> &#160; &#160; &#160; &#160; &#160; &#160;Unterschriftrechts = Profile.Rows(0).Item(&quot;Unterschriftrechts&quot;)<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160; &#160; &#160;Profile.Dispose()<br/> <br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Start Check_Umfeld::Teams&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> <br/> &#160; &#160; &#160; &#160;Teams = Get_Team(Profilnr)<br/> &#160; &#160; &#160; &#160;If Teams.Rows.Count = 0 Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;teamnr = 0<br/> &#160; &#160; &#160; &#160;Else<br/> &#160; &#160; &#160; &#160; &#160; &#160;teamnr = Teams.Rows(0).Item(&quot;Teamnr&quot;)<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160; &#160; &#160;Teams.Dispose()<br/> <br/> <br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Ende Check_Umfeld (True)&quot;, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> &#160; &#160; &#160; &#160;Return True<br/> &#160; &#160;Catch ex As Exception<br/> &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12::Fehler:: Check_Umfeld::&quot; &amp; ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)<br/> &#160; &#160; &#160; &#160;If Param.DebugMode Then<br/> &#160; &#160; &#160; &#160; &#160; &#160;DivFnkt.InsertJournale(&quot;EDKB12: Ende Check_Umfeld (False)::&quot; &amp; ex.Message, clsDivFnkt.Enum_InfoTyp.Information)<br/> &#160; &#160; &#160; &#160;End If<br/> <br/> &#160; &#160; &#160; &#160;Return False<br/> &#160; &#160;End Try<br/> End Function
</text></para>
</td>
</tr>
</table></para>
</td>
</tr>
</table></para>
<para styleclass="Heading1"><conditional-text type="IF" value="PLATFORMS"/><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[Platforms]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1" style="border-width:0px; border-spacing:0px; border-collapse:collapse; cell-border-width:1px; border-color:#ffffff; border-style:solid;">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Normal"><text styleclass="Normal" translate="true">Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">The .NET Framework does not support all versions of every platform. For a list of the supported versions, see
<text></text><html-code width="20" height="20" translate="true"><![CDATA[<span class="msdn-link-container">]]></html-code><link displaytype="text" styleclass="Normal" defaultstyle="true" type="weblink" href="msdn::298275e2-da1d-4618-9f74-6a3567832350" translate="true">System Requirements<title translate="true"></title></link><conditional-text type="IF" value="HXS"/><html-code width="20" height="20" translate="true"><![CDATA[<MSHelp:link keywords="a" indexMoniker="!DefaultAssociativeIndex" tabindex="0">a</MSHelp:link>]]></html-code><conditional-text type="END"/><html-code width="20" height="20" translate="true"><![CDATA[</span>]]></html-code><text styleclass="Normal" defaultstyle="true"></text>.</text></para>
</td>
</tr>
</table></para>
<para styleclass="ToggleSectionParagraph"><conditional-text type="END"/></para>
<para styleclass="Heading1"><conditional-text type="IF" value="FRAMEWORKS"/><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[Version Information]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1" style="border-width:0px; border-spacing:0px; border-collapse:collapse; cell-border-width:1px; border-color:#ffffff; border-style:solid;">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">.NET Framework</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0<br/></text></para>
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">.NET Compact Framework</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">Supported in: 3.5, 2.0, 1.0<br/></text></para>
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">XNA Framework</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">Supported in: 3.0, 2.0, 1.0<br/></text></para>
</td>
</tr>
</table></para>
<para styleclass="ToggleSectionParagraph"><conditional-text type="END"/></para>
<para styleclass="Heading1"><anchor id="seeAlsoToggle" styleclass="Heading1"></anchor><conditional-text type="IFNOT" value="PDF,PRINT"/><image src="expall.gif" scale="100.00%" styleclass="Heading1"></image><conditional-text type="END"/><toggle type="dropdown" id="seeAlsoToggleSection" print-expanded="true" help-expanded="true" defaultstyle="true" src-collapsed="expall.gif" src-expanded="collall.gif" styleclass="Heading1"><caption translate="true"><![CDATA[See Also]]></caption></toggle></para>
<para styleclass="ToggleSectionParagraph"><table styleclass="ToggleSection" rowcount="1" colcount="1">
<tr style="vertical-align:top">
<td style="width:10%; background-color:#ffffff;">
<para styleclass="Heading2"><text styleclass="Heading2" translate="true">Reference</text></para>
<para styleclass="Normal"><text styleclass="Normal" translate="true">
<link displaytype="text" styleclass="Normal" defaultstyle="true" type="topiclink" href="topic_000000000000038A" translate="true">ModMain Class<title translate="true">ModMain Class</title></link><br/>
<link displaytype="text" styleclass="Normal" defaultstyle="true" type="topiclink" href="topic_000000000000038A_members--" translate="true">ModMain ModMain Members<title translate="true">ModMain ModMain Members</title></link><br/>
</para>
</td>
</tr>
</table></para>
</body>
</topic>