Gebruikersinvoer

• 4/27/2022
• 3 minutes to read

Enums

CFL Input Data Type

extensible = true
values:

• CFL Text
• CFL Integer
• CFL Decimal
• CFL Date
• CFL DateFormula
• CFL Text Multiline
• CFL Enum

Pages

CFL Get Input

Pagina voor het vragen van input aan gebruiker. De opgevraagde response van de gebruiker kan verschillende datatypes zijn (zie enum "CFL Input Data types"):

• Text
• Text Multiline
• Integer
• Decimal
• Date
• DateFormula
• Enum

procedure CFLSetText

procedure CFLSetText(pText: Text)

Instellen van de tekst die bij openen van de pagina reeds ingevuld is voor de gebruiker.

procedure CFLGetText

 procedure CFLGetText(var pText: Text)

Opvragen van de tekst opgegeven door de gebruiker.

procedure CFLSetTextLength

procedure CFLSetTextLength(pLength: Integer)

Opgeven van de maximum lengte van de tekst die de gebruiker mag ingeven.

procedure CFLSetTextCaption(

procedure CFLSetTextCaption(Caption: Text)

Opgeven van de caption bij het tekst-invulveld.

procedure CFLSetTextMultiline

procedure CFLSetTextMultiLine(pText: Text)

Instellen van de tekst die bij openen van de pagina reeds ingevuld is voor de gebruiker.

procedure CFLGetTextMultiline

procedure CFLGetTextMultiLine(var pText: Text)

Opvragen van de tekst opgegeven door de gebruiker.

procedure CFLSetTextMultilineLength

procedure CFLSetTextMutlilineLength(pLength: Integer)

Opgeven van de maximum lengte van de tekst die de gebruiker mag ingeven.

procedure CFLSetTextMultilineCaption

procedure CFLSetTextMultilineCaption(Caption: Text)

Opgeven van de caption bij het mutliline tekst-invulveld.

procedure CFLSetInteger

procedure CFLSetInteger(pInt: Integer)

Instellen van de integer die bij openen van de pagina reeds ingevuld is voor de gebruiker.

procedure CFLGetInteger

procedure CFLGetInteger(var pInt: Integer)

Opvragen van de integer opgegeven door de gebruiker.

procedure CFLSetIntegerCaption

procedure CFLSetIntegerCaption(Caption: Text)

Opgeven van de caption bij het integer-invulveld.

procedure CFLSetDecimal

procedure CFLSetDecimal(var pDec: Decimal)

Instellen van de decimaal die bij openen van de pagina reeds ingevuld is voor de gebruiker.

procedure CFLGetDecimal

procedure CFLGetDecimal(var pDec: Decimal)

Opvragen van de decimaal opgegeven door de gebruiker.

procedure CFLSetDecimalCaption

procedure CFLSetDecimalCaption(Caption: Text)

Opgeven van de caption bij het decimaal-invulveld.

procedure CFLSetDate

procedure CFLSetDate(var pDate: Date)

Instellen van de datum die bij openen van de pagina reeds ingevuld is voor de gebruiker.

procedure CFLGetDate

procedure CFLGetDate(var pDate: Date)

Opvragen van de datum opgegeven door de gebruiker.

procedure CFLSetDateCaption

procedure CFLSetDateCaption(Caption: Text)

Opgeven van de caption bij het datum-invulveld.

procedure CFLSetDateCaptionToWorkdateCaption

procedure CFLSetDateCaptionToWorkdateCaption()

Instellen van de caption van het datum-invulveld op werkdatum.

procedure CFLSetDateFormula

procedure CFLSetDateFormula(var pDateFormula: DateFormula)

Instellen van de datumformule die bij openen van de pagina reeds ingevuld is voor de gebruiker.

procedure CFLGetDateFormula

procedure CFLGetDateFormula(var pDateFormula: DateFormula)

Opvragen van de datumformule opgegeven door de gebruiker.

procedure CFLSetDateFormulaCaption

procedure CFLSetDateFormulaCaption(Caption: Text)

Opgeven van de caption bij het datumformule-invulveld.

procedure CFLSetDataType

procedure CFLSetDataType(pDatatype: enum "CFL Input Data Type")

Opgeven van de caption bij het datumformule-invulveld.

event CFLOnAfterSetDataType

[EventSubscriber(ObjectType::Page, Page::"CFL Get Input",'CFLOnAfterSetDataType', '', false, false)]
local procedure CFLOnAfterSetDataType(Datatype: enum "CFL Input Data Type"; var TextVisible: boolean; var IntVisible: boolean; var DecVisible: Boolean; var DateVisible: Boolean; var DFVisible: Boolean; var TextMultilineVisible: boolean)
begin
end

procedure CFLSetEnumValues

procedure CFLSetEnumValues(TableNo: integer; FieldNo: Integer)

Lijst de mogelijke enum-waardes op aan de hand van tabel en veldnr.

procedure CFLSetEnumValues

procedure CFLGetSelectedEnum(): Integer

Opvragen van de door de gebruiker geselecteerde enum-waarde.

CFL Get G/L Account

Pagina voor het opvragen van een grootboekrekening aan de gebruiker.

procedure GetGLAccount

procedure GetGLAccount(): Code[20]

Retourneert de grootboekrekening opgegeven door de gebruiker.

CFL Get Vendor

Pagina voor het opvragen van een leverancier aan de gebruiker.

procedure GetGLVendor

procedure GetVendor(): Code[20]

Retourneert de leverancier opgegeven door de gebruiker.

CFL Get Customer

Pagina voor het opvragen van een klant aan de gebruiker.

procedure GetGLCustomer

procedure GetCustomer(): Code[20]

Retourneert de klant opgegeven door de gebruiker.

Voorbeeld

In BoCount Dynamics System wordt dit bijvoorbeeld gebruikt bij de drag&drop component om een nieuwe subfolder te maken. Daarbij krijgt de gebruiker de mogelijkheid om de naam van de map op te geven.

action(CFLNewFolder)
{
    ApplicationArea = All;
    Caption = 'New folder';
    Image = Create;
    Visible = NewFolderVisible;
    Enabled = NewFolderVisible;

    trigger OnAction()
    var
        FileMgt: codeunit "File Management";
        NewFolder: text;
        CFLGetText: page "CFL Get Input";
        Datatype: enum "CFL Input Data Type";
    begin
        CFLGetText.CFLSetDataType(Datatype::"CFL Text");
        CFLGetText.CFLSetTextCaption(txt2098000);
        FLGetText.Lookupmode(true);
        if CFLGetText.Runmodal() = Action::LookUpOK then begin
            CFLGetText.CFLGettext(NewFolder);
            FileMgt.ServerCreateDirectory(filepath + '\' + NewFolder);
            CFLSetRecordID(RecID);
        end;
    end;
}

Het is ook mogelijk om met deze pagina meerdere gegevens op te vragen in één beweging. Er kan echter maar 1 per datatype opgevraagd worden.

action(GetInput)
{
    ApplicationArea = All;
    Caption = 'Get Input';
    Image = Allocations;

    trigger OnAction()
    var
        FileMgt: codeunit "File Management";
        NewText: text;
        NewDate: date;
        CFLGetText: page "CFL Get Input";
        Datatype: enum "CFL Input Data Type";
    begin
        CFLGetText.CFLSetDataType(Datatype::"CFL Text");
        CFLGetText.CFLSetTextCaption('Enter Text:');
        CFLGetText.CFLSetDataType(Datatype::"CFL Date");
        CFLGetText.CFLSetDateCaption('Enter Date:');
        CFLGetText.Lookupmode(true);
        if CFLGetText.Runmodal() = Action::LookUpOK then begin
            CFLGetText.CFLGettext(NewText);
            CFLGetText.CFLGetDate(NewDate);
            Message('Entered text: %1 - Entered Date: %2', NewText, format(NewDate));
        end;
end;
}