CompanyInfo Objekt

Ermöglicht den Zugriff per COM auf die konfigurierten Firmenstammdaten des Projektes (Menüpunkt: Datei > Information > Firmenstammdaten).

Beispiel VBScript:

' Sammelt alle Firmenstammdaten und schreibt diese in die Windows-Zwischenablage

Dim oCompanyInfo : Set oCompanyInfo = cRM.CurrentProject.CompanyInfo

Dim dicCompanyInfo : Set dicCompanyInfo = CreateObject("Scripting.Dictionary")

Call dicCompanyInfo.Add("AccountNo", oCompanyInfo.AccountNo)

Call dicCompanyInfo.Add("Bank", oCompanyInfo.Bank)

Call dicCompanyInfo.Add("BankCode", oCompanyInfo.BankCode)

Call dicCompanyInfo.Add("City", oCompanyInfo.City)

Call dicCompanyInfo.Add("Company", oCompanyInfo.Company)

Call dicCompanyInfo.Add("Company2", oCompanyInfo.Company2)

Call dicCompanyInfo.Add("Company3", oCompanyInfo.Company3)

Call dicCompanyInfo.Add("Country", oCompanyInfo.Country)

Call dicCompanyInfo.Add("Email", oCompanyInfo.Email)

Call dicCompanyInfo.Add("Extra1", oCompanyInfo.Extra1)

Call dicCompanyInfo.Add("Extra2", oCompanyInfo.Extra2)

Call dicCompanyInfo.Add("Fax", oCompanyInfo.Fax)

Call dicCompanyInfo.Add("IBAN", oCompanyInfo.IBAN)

Call dicCompanyInfo.Add("Internet", oCompanyInfo.Internet)

Call dicCompanyInfo.Add("Logo", oCompanyInfo.Logo)

Call dicCompanyInfo.Add("Phone", oCompanyInfo.Phone)

Call dicCompanyInfo.Add("Street", oCompanyInfo.Street)

Call dicCompanyInfo.Add("VatID", oCompanyInfo.VatID)

Call dicCompanyInfo.Add("ZIP", oCompanyInfo.ZIP)

Dim oListCompanyInfoUserDefined : Set oListCompanyInfoUserDefined = oCompanyInfo.UserDefinedFields

Dim oCompanyInfoUserDefinedItem

Dim nCount : nCount = 0

For nCount = 1 To oListCompanyInfoUserDefined.Count

    Set oCompanyInfoUserDefinedItem = oListCompanyInfoUserDefined.Item(nCount)

    If (oCompanyInfoUserDefinedItem.Type = 2) Then ' Wenn es eine Textinformation ist

        Call dicCompanyInfo.Add(oCompanyInfoUserDefinedItem.Key, oCompanyInfoUserDefinedItem.Value)

    End If

    Set oCompanyInfoUserDefinedItem = Nothing

Next

Set oListCompanyInfoUserDefined = Nothing

Dim sFullCompanyInfo : sFullCompanyInfo = ""

Dim dicItem

For Each dicItem In dicCompanyInfo

    If (Len(dicCompanyInfo(dicItem)) > 0) Then

        sFullCompanyInfo = sFullCompanyInfo & dicItem & ": " & dicCompanyInfo(dicItem) & vbCrlf

    End If

Next

WScript.ClipboardText = sFullCompanyInfo

Call cRM.DialogMessageBox("Die kompletten Firmenstammdaten wurden in die Zwischenablage übernommen.", "CompanyInfo", vbOkOnly)

Set dicCompanyInfo = Nothing

Set oCompanyInfo = Nothing

Beispiel C#-Script:

// Sammelt alle Firmenstammdaten und schreibt diese in die Windows-Zwischenablage

CompanyInfo companyInfo = cRM.CurrentProject.CompanyInfo;

System.Collections.Generic.Dictionary<string, string> dictionaryCompanyInfo = new System.Collections.Generic.Dictionary<string, string>();

dictionaryCompanyInfo.Add("AccountNo", companyInfo.AccountNo);

dictionaryCompanyInfo.Add("Bank", companyInfo.Bank);

dictionaryCompanyInfo.Add("BankCode", companyInfo.BankCode);

dictionaryCompanyInfo.Add("City", companyInfo.City);

dictionaryCompanyInfo.Add("Company", companyInfo.Company);

dictionaryCompanyInfo.Add("Company2", companyInfo.Company2);

dictionaryCompanyInfo.Add("Company3", companyInfo.Company3);

dictionaryCompanyInfo.Add("Country", companyInfo.Country);

dictionaryCompanyInfo.Add("Email", companyInfo.Email);

dictionaryCompanyInfo.Add("Extra1", companyInfo.Extra1);

dictionaryCompanyInfo.Add("Extra2", companyInfo.Extra2);

dictionaryCompanyInfo.Add("Fax", companyInfo.Fax);

dictionaryCompanyInfo.Add("IBAN", companyInfo.IBAN);

dictionaryCompanyInfo.Add("Internet", companyInfo.Internet);

dictionaryCompanyInfo.Add("Logo", companyInfo.Logo);

dictionaryCompanyInfo.Add("Phone", companyInfo.Phone);

dictionaryCompanyInfo.Add("Street", companyInfo.Street);

dictionaryCompanyInfo.Add("VatID", companyInfo.VatID);

dictionaryCompanyInfo.Add("ZIP", companyInfo.ZIP);

ListCompanyInfoUserDefined listCompanyInfoUserDefined = companyInfo.UserDefinedFields;

foreach (CompanyInfoUserDefinedItem companyInfoUserDefinedItem in listCompanyInfoUserDefined)

{

    if (companyInfoUserDefinedItem.Type == 2)

    {

        dictionaryCompanyInfo.Add(companyInfoUserDefinedItem.Key, companyInfoUserDefinedItem.Value);

    }

}

string fullCompanyInfo = string.Empty;

foreach (var dictionaryItem in dictionaryCompanyInfo)

{

    if (dictionaryItem.Value != "")

    {

        fullCompanyInfo = fullCompanyInfo + dictionaryItem.Key + ": " + dictionaryItem.Value + System.Environment.NewLine;

    }

}

WScript.ClipboardText = fullCompanyInfo;

cRM.DialogMessageBox("Die kompletten Firmenstammdaten wurden in die Zwischenablage übernommen.", "CompanyInfo", 0);

companyInfo.Dispose();