Beschreibung:

Bietet dem Nutzer eine Datensatzauswahl an und überträgt Informationen aus dem ausgewählten Datensatz in die aktuell dargestellte Eingabemaske. Basis für dieses Beispiel ist die Kontakte-Ansicht einer Large-Solution.

VBScript:

<!--#pragma keepeditmode-->

Dim oProject, oRecordSet, oCurrentInputForm, oRecordSelected

Set oProject = cRM.CurrentProject

Set oCurrentInputForm = cRM.ActiveView.CurrentInputForm(0)

Set oRecordSet = oProject.ViewConfigs.ItemByName("Firmen").CreateRecordSet("SetSortOrder:1 SetFilter:upper(""ZIP"") >= upper('70000') AND upper(""ZIP"") <= upper('80000')")

If Not (oRecordSet is Nothing) and oRecordSet.MoveFirst() Then

Set oRecordSelected = oCurrentInputForm.DialogSelectRecordDropDown(oRecordSet, oCurrentInputForm.GetHwndByName("UserDefined1"), "CompanyID")

        If Not (oRecordSelected Is Nothing) Then

oCurrentInputForm.SetContentsValueByName "UserDefined1", oRecordSelected.GetContentsValueByName("Company")

        Else

        End If

Else

    Msgbox "Filter fehlgeschlagen"

End If

Set oRecordSelected = Nothing

set oCurrentInputForm = Nothing

Set oRecordSet = Nothing

Set oProject = Nothing

C#-Script:

// <!--#pragma keepeditmode-->

Project project = cRM.CurrentProject;

RecordSet recordSet = project.ViewConfigs.ItemByName("Firmen").CreateRecordSet(@"SetSortOrder:1 SetFilter:upper(""ZIP"") >= upper('70000') AND upper(""ZIP"") <= upper('80000')");

InputForm currentInputForm = cRM.ActiveView.CurrentInputForm(0);

Record recordSelected = null;

if (recordSet != null && recordSet.MoveFirst())

{

recordSelected = currentInputForm.DialogSelectRecordDropDown(recordSet, currentInputForm.GetHwndByName("UserDefined1"), "CompanyID");

    if (recordSelected != null)

    {

currentInputForm.SetContentsValueByName("UserDefined1", recordSelected.GetContentsValueByName("Company").ToString());

    }

    else

    {

    }

}

else

{

cRM.DialogMessageBox("Filter fehlgeschlagen!", "InputForm.DialogSelectRecordDropDown", 0);

}

recordSelected.Dispose();

currentInputForm.Dispose();

recordSet.Dispose();

project.Dispose();

TypeScript:

import {

  cRM,

  Project,

  RecordSet,

  Record,

  InputForm

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

const project : Project = cRM.CurrentProject;

const recordSet : RecordSet = project.ViewConfigs.ItemByName("Firmen").CreateRecordSet(@"SetSortOrder:1 SetFilter:upper(""ZIP"") >= upper('70000') AND upper(""ZIP"") <= upper('80000')");

const currentInputForm : InputForm = cRM.ActiveView.CurrentInputForm(0);

if (recordSet != null && recordSet.MoveFirst())

{

    // Auswahl des Datensatzes durch den Benutzer

const recordSelected : Record = currentInputForm.DialogSelectRecordDropDown(recordSet, currentInputForm.GetHwndByName("UserDefined1"), "CompanyID");

    if (recordSelected != null)

    {

currentInputForm.SetContentsValueByName("UserDefined1", recordSelected.GetContentsValueByName("Company").ToString());

    }

    else

    {

        // Abbruch

    }

    recordSelected.Dispose();

}

else

{

cRM.DialogMessageBox("Filter fehlgeschlagen!", "InputForm.DialogSelectRecordDropDown", 0);

}

currentInputForm.Dispose();

recordSet.Dispose();

project.Dispose();