ÿþ<?xml version="1.0" encoding="utf-16" standalone="yes"?>

<!--Created: 16.02.2010 12:08:17-->

<!--ACTOptimumVersion: 4.1.3687.35011-->

<AutoDataItems ACTOptimumVersion="4.1.3687.35011" Created="16.02.2010 12:08:17">

    <AutoDataControl Created="16.02.2010 12:08:17" ClassName="Melville_Schellmann.ACTOptimum3.Control.AutoData3.AutoData3" PrefClassVersion="1.0" ACTOptimumVersion="4.1.3687.35011">

        <Source>	' Funktion: Kontaktsuche erstellen zu allen Kontakten, die mit der Firma des aktuellen Kontaktes verlinkt sind.

	' Autor: Robert Schellmann, rs@melville-schellmann.de

	' Datum: 16.02.2010



Dim sAppName As String = "Suche Kolleg(inn)en"

Dim oCurrentContact As Act.Framework.Contacts.Contact

Dim oContacts As Act.Framework.Contacts.ContactList

Dim oCompany As Act.Framework.Companies.Company

Dim aOneGUID(0) As System.Guid



oCurrentContact = ACTApp.ApplicationState.CurrentContact

If oCurrentContact.CompanyID.Equals(System.Guid.Empty) Then

	MsgBox("Kontakt ist mit keiner Firma verlinkt.", MsgBoxStyle.Information, sAppName)

	Exit Function

End If

aOneGUID(0) = oCurrentContact.CompanyID

oCompany = ACTApp.ActFramework.Companies.GetCompaniesByID(Nothing, aOneGUID)(0)

oContacts = oCompany.GetContacts(Nothing)

If oContacts.Count = 1 Then

	MsgBox(String.Format("Der Firma '{0}' ist nur der eine Kontakt zugeordnet.",oCompany.Name), MsgBoxStyle.Information, sAppName)

	Exit Function	

End If

ActApp.UIContactManager.ShowListView()

ActApp.UILookupManager.LookupContacts(oContacts)</Source>

        <SourceComment>Begriff: {0}</SourceComment>

        <TargetFields></TargetFields>

        <MsgText>{0}</MsgText>

        <Picklist></Picklist>

        <Multiple>False</Multiple>

        <Expandable>True</Expandable>

        <OverwriteAlways>True</OverwriteAlways>

        <CopyToClipboard>False</CopyToClipboard>

        <ShowMsgBox>False</ShowMsgBox>

        <PositionMode>1</PositionMode>

        <FlatStyle>Standard</FlatStyle>

        <AutoDataText>Kolleg(inn)en</AutoDataText>

        <TextAlign>MiddleCenter</TextAlign>

        <AutoDataFormSize>160; 270</AutoDataFormSize>

        <TooltipText>Zeigt alle Kollegen und Kolleginnen dieses Kontaktes an.</TooltipText>

        <RefreshLoadedViews>False</RefreshLoadedViews>

    </AutoDataControl>

</AutoDataItems>