Beschreibung:

Speichert die Eingabemaske nachdem der Nutzer einen neuen Namen für den dargestellten Kontakte-Datensatz hinterlegt hat. Basis für dieses Beispiel ist die Kontakte-Ansicht einer Large-Solution.

VBScript:

Dim oInputForm : Set oInputForm = cRM.ActiveView.CurrentInputForm(2)

Dim sUserInput : sUserInput = cRM.DialogInputBox("Welcher Name soll für den Kontakte-Datensatz hinterlegt werden?", "InputForm.Save", "Soleil")

If (sUserInput <> "$CANCEL$" And Len(sUserInput) > 0) Then

    Call oInputForm.SetContentsValueByName("Name", sUserInput)

    If (oInputForm.Save()) Then

        Call cRM.DialogMessageBox("Der eingegebene Inhalt konnte erfolgreich gespeichert werden.", "InputForm.Save", vbOkOnly)

    End If

End If

Set oInputForm = Nothing

C#-Script:

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

InputForm inputForm = cRM.ActiveView.CurrentInputForm(2);

string userInput = cRM.DialogInputBox("Welcher Name soll für den Kontakte-Datensatz hinterlegt werden?", "InputForm.Save", "Soleil");

if (userInput != "$CANCEL$" && userInput != "")

{

    inputForm.SetContentsValueByName("Name", userInput);

    if (inputForm.Save() == true)

    {

        cRM.DialogMessageBox("Der eingegebene Inhalt konnte erfolgreich gespeichert werden.", "InputForm.Save", 0);

    }

}

inputForm.Dispose();

TypeScript:

import {

    cRM,

    InputForm

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

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

const userInput: string = cRM.DialogInputBox(

    "Welcher Name soll für den Kontakte-Datensatz hinterlegt werden?",

    "InputForm.Save",

    "Soleil"

);

if (userInput !== "$CANCEL$" && userInput.length > 0) {

    inputForm.SetContentsValueByName("Name", userInput);

    if (inputForm.Save()) {

        cRM.DialogMessageBox(

            "Der eingegebene Inhalt konnte erfolgreich gespeichert werden.",

            "InputForm.Save",

            0

        );

    }

}

inputForm.Dispose();

cRM.ActiveView.CurrentInputForm(2).UpdateAllContainers();