Formular

Diese Datei dokumentiert alle Makrofunktionen der Kategorie Formular.

Inhaltsverzeichnis

• CloseForm(Form)
• DataCommand(Form,Result,[DataCmd],[Data])
• EnterValue(Form,Field,[Value])
• GetCurrentForm()
• GetFldData(Form,Field,[PlainText])
• GetFldName(Wnd)
• GetFldProperty(Form,Control,Property,[Plaintext])
• GetFldWnd(Form,Field)
• GetFormDocument(Form)
• GetFormWindow(Form)
• GetFrmName(Form)
• GetModifiedFlag(Form)
• HideMessage(Form,[Text],[Value])
• PressButton(Form,Command)
• SetFldData(Form,Field,[Value],[Unmask])
• SetFldFocus(Form,Field)
• SetFldProperty(Form,Control,Property,[Value])
• SetFormMakro(Form,MacroName)
• SetFormPage(Form,[Page])
• SetModifiedFlag(Form,Modified)
• ShowMessage(Form,[Text],[Value],[Typ],[Event])
• StartEdit(Form)

CloseForm(Form)

Schließt ein Formularfenster.

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

42 Makro Runtime

DataCommand(Form,Result,[DataCmd],[Data])

Führt ein Daten Kommando aus [Kommando=Leer liefert Kommandoliste]

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

EnterValue(Form,Field,[Value])

Ändert den Wert eines Feldes im Formular, wenn möglich.

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

42 Makro Runtime

GetCurrentForm()

Ermittelt die Nummer des aktuellen Formulars

Parameter

Diese Funktion hat keine oder keine benannten Parameter.

Rückgabewert

Formularnummer

Verfügbarkeit

Standard

GetFldData(Form,Field,[PlainText])

Ermittelt den Inhalt des Feldes auf dem Formular

Parameter

Rückgabewert

Inhalt

Verfügbarkeit

Standard

Beispiel

Ein Beispiel finden Sie in der Datei 42Feld.42m im Verzeichnis Makro / Beispiele / Programmierhandbuch Beispiele
OnCommand(Form, Cmd)
{
    if(stricmp(Cmd, ”GetFeld”) == 0)
    {
        Erg = GetFldData(Form, ”Artikelnummer”);
        Print(“Inhalt des Feldes Artikelnummer = “+Erg);
    }
    return(0);
}

GetFldName(Wnd)

Ermittelt den Feldnamen einer Fensternummer

Parameter

Rückgabewert

Feldname

Verfügbarkeit

Standard

GetFldProperty(Form,Control,Property,[Plaintext])

Ermittelt eine Eigenschaft eines Formularfeldes

Parameter

Rückgabewert

Text

Verfügbarkeit

Standard

GetFldWnd(Form,Field)

Ermittelt die Fensternummer des Feldes im Formular

Parameter

Rückgabewert

Fensternummer

Verfügbarkeit

Standard

GetFormDocument(Form)

Ermittelt die Dokumentart zu einem Formular

Parameter

Rückgabewert

Dokumentart

Verfügbarkeit

Standard

GetFormWindow(Form)

Ermittelt die Fensternummer des Formularfensters

Parameter

Rückgabewert

Fensternummer

Verfügbarkeit

42 Makro Runtime

GetFrmName(Form)

Ermittelt den Namen der zugehörigen Formulardatei

Parameter

Rückgabewert

Formularname

Verfügbarkeit

Standard

GetModifiedFlag(Form)

Ermittelt das Modifiedflag eines Formulars

Parameter

Rückgabewert

Modified 0:Unverändert, 1:Verändert

Verfügbarkeit

42 Makro Runtime

HideMessage(Form,[Text],[Value])

Löscht eine Nachricht in der Meldungsleiste, wenn diese noch angezeigt wird.

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

PressButton(Form,Command)

Sendet ein Kommando an ein geöffnetes Formular

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

SetFldData(Form,Field,[Value],[Unmask])

Setzt den Inhalt eines Feldes in einem Formular

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

SetFldFocus(Form,Field)

Setzt den Focus auf ein bestimmtes Feld im angebenen Formular

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

SetFldProperty(Form,Control,Property,[Value])

Setzt eine Eigenschaft eines Formularfeldes

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

Beispiel

Eine Beispiel finden Sie im Verzeichnis Makro / Beispiele / Grid Handling
z.B.: Buttontext ändern
.....
SetFldProperty(Form, "[Kommandoname des Buttons]", "Value", "Das ist der neue Buttontext");
.....
Eine Beispiel finden Sie im Verzeichnis Makro / Beispiele / Register setzen
z.B.: Unterregister Vertrieb setzen
....
SetFldProperty(Form, "Kundenselect", "Page", "kundea17.for");
....
Eine Beispiel finden Sie im Verzeichnis Makro / Beispiele / FeldFarben
....
SetFldProperty(Form, "Feld", "Color", "0");
SetFldProperty(Form, "Feld", "BkgColor", "255");
....
Beispiel, Anlagedatei in den Bereich "Anhang" (42 Team) und Register Dokumente (42 ERP) einfügen:
....
File = fmt("{0}\memo.doc", GetDirectory(0));
SetFldProperty(Form, "Anhang", "AddItem", File);
ExecuteMenu("Speichern");
....
Beispiel, Filter im Kunden Auswahl-Register setzen:
.....
FilterSetzen()
{
    SetFldProperty(GetCurrentForm(), "Auswahl", "Filter", "Kunde.Name gleich 'Mustermann' und Kunde.Plz gleich '83026' ");
}
FilterLoeschen()
{
    SetFldProperty(GetCurrentForm(), "Auswahl", "Filter", "");
}
.....
Beispiel, Selektion im Kunden Auswahl-Register setzen:
.....
SelektionSetzen()
{
    SetFldProperty(GetCurrentForm(), "Auswahl", "Sort", "Kunde.Name:1;Kunde.Plz:0");
}
Eine Beispiel finden Sie im Verzeichnis Makro / Beispiele / Spreadsheet
......
SetFldProperty(Form, "SheetA", "Heights", "20, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100"); SetFldProperty(Form, "SheetA", "Widths", "20, 300, 50, 400"); SetFldProperty(Form, "SheetA", "Value;1;1", "Beispiel Funktion ABS()"); SetFldProperty(Form, "SheetA", "Value;3;1", "-100"); SetFldProperty(Form, "SheetA", "Value;2;1", "=ABS(C1)"); SetFldProperty(Form, "SheetA", "Value;1;3", "Beispiel Funktion COS()"); SetFldProperty(Form, "SheetA", "Value;3;3", "60"); SetFldProperty(Form, "SheetA", "Value;2;3", "=COS(C3*PI()/180)");
........
Beispiel für das setzen von Propertys für Buttons:
// Eigenschaft Einfärben
SetFldProperty(Form, "ButtonTest", " ImageColor ", "16711680");
// der Farbwert muß als Integer angegeben werden. Mit der Makro-Funktion RGB() können Sie diesen entsprechend ermitteln
// Eigenschaft Bild
SetFldProperty(Form, "ButtonTest", " Image ", "arrow-dd.svg");
// Eigenschaft Quelle
SetFldProperty(Form, "ButtonTest", " Source ", "Datei");
// Eigenschaft Erscheinung
// 0 = (Text)
// 1 = Bild
// 2 = Text & Bild
SetFldProperty(Form, "ButtonTest", " Appereance ", "2");
// Eigenschaft Beschreibung
SetFldProperty(Form, "ButtonTest", " Description ", "Makrobeschreibung");
// Eigenschaft Bildposition
// 0 = (Links)
// 1 = Rechts
// 2 = Oben
SetFldProperty(Form, "ButtonTest", " ImageLocation ", "1");

SetFormMakro(Form,MacroName)

Setzen das zugehörige Makro zu einem Formular

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

SetFormPage(Form,[Page])

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

SetModifiedFlag(Form,Modified)

Setzt das Modifiedflag eines Formulars

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

42 Makro Runtime

ShowMessage(Form,[Text],[Value],[Typ],[Event])

Zeigt eine Nachricht in der Meldungsleiste an

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard

StartEdit(Form)

Startet den Erfassungsmodus im Formular, wenn möglich.

Parameter

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Verfügbarkeit

Standard