Beispiel für CompanyInfo-Objekt

Beschreibung:

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

VBScript:

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

C#-Script:

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();

TypeScript:

import {

    cRM,

    CompanyInfo,

    CompanyInfoUserDefinedItem,

    Container,

    InputForm,

    ListCompanyInfoUserDefined,

    ListContainers,

    ListWebElements,

    Record,

    WebElement,

    WScript,

} from "./sdk/combitCRM.SDK.WindowsClient.v13";

const companyInfo: CompanyInfo = cRM.CurrentProject.CompanyInfo;

const companyInfoDictionary: Map<string, any> = new Map<string, any>();

companyInfoDictionary.set("AccountNo", companyInfo.AccountNo);

companyInfoDictionary.set("Bank", companyInfo.Bank);

companyInfoDictionary.set("BankCode", companyInfo.BankCode);

companyInfoDictionary.set("City", companyInfo.City);

companyInfoDictionary.set("Company", companyInfo.Company);

companyInfoDictionary.set("Company2", companyInfo.Company2);

companyInfoDictionary.set("Company3", companyInfo.Company3);

companyInfoDictionary.set("Country", companyInfo.Country);

companyInfoDictionary.set("Email", companyInfo.Email);

companyInfoDictionary.set("Extra1", companyInfo.Extra1);

companyInfoDictionary.set("Extra2", companyInfo.Extra2);

companyInfoDictionary.set("Fax", companyInfo.Fax);

companyInfoDictionary.set("IBAN", companyInfo.IBAN);

companyInfoDictionary.set("Internet", companyInfo.Internet);

companyInfoDictionary.set("Logo", companyInfo.Logo);

companyInfoDictionary.set("Phone", companyInfo.Phone);

companyInfoDictionary.set("Street", companyInfo.Street);

companyInfoDictionary.set("VatID", companyInfo.VatID);

companyInfoDictionary.set("ZIP", companyInfo.ZIP);

const listCompanyInfoUserDefined: ListCompanyInfoUserDefined = companyInfo.UserDefinedFields;

let companyInfoUserDefinedItem: CompanyInfoUserDefinedItem | null;

let count: number = 0;

for (count = 1; count <= listCompanyInfoUserDefined.Count; count++) {

    companyInfoUserDefinedItem = listCompanyInfoUserDefined.Item(count);

    if (companyInfoUserDefinedItem.Type === 2) {

companyInfoDictionary.set(companyInfoUserDefinedItem.Key, companyInfoUserDefinedItem.Value);

    }

    companyInfoUserDefinedItem.Dispose();

    companyInfoUserDefinedItem = null;

}

listCompanyInfoUserDefined.Dispose();

let fullCompanyInfo: string = "";

let dictionaryItem: string;

for (dictionaryItem of companyInfoDictionary.keys()) {

    if (companyInfoDictionary.get(dictionaryItem).length > 0) {

fullCompanyInfo += `${dictionaryItem}: ${companyInfoDictionary.get(dictionaryItem)}\n`;

    }

}

WScript.ClipboardText = fullCompanyInfo;

cRM.DialogMessageBox(

    "Die kompletten Firmenstammdaten wurden in die Zwischenablage übernommen.",

    "CompanyInfo", 0

);

companyInfo.Dispose();