SigmaScript funktioner, der anvendes til at definere indtastningsformularerne.

Hvis denne funktion er angivet i et SigmaScript vil værdier angivet i [Default] blive anvendt som input til feltet i stedet for standardværdi. Dette kan bruges til at sikre at værdien i et felt altid hænger sammen med en ekstern værdi, f.eks. en rapportvariabel.

DefaultValuesEnforce();
value := Project.GetReportVariable("value");
Project.SetReportVariable("value", GetText("Value:", value));

HideScriptErrors()

GetLastErrorText()

HideScriptErrors();
projectSalaryQuantity := KeyFigures.Eval("SumByFilter(Quantity;Category=Wages*)");

errorText := GetLastErrorText();
if errorText <> "" then
   AddText("Error: " + errorText);

AddText("Quantity, salary: " + FormatFloat("#,##0.00", projectSalaryQuantity));

Indtastningsfelt til heltal.

quantity := GetInteger("Indtast mængde (heltal):", 100);

Indtastningsfelt til heltal. Skal udfyldes.

quantity := GetRequiredInteger("Indtast mængde (heltal):", 100);

Spinbutton felt til valg af heltalsværdier. Parameteren "Multiple" angiver opløsningen af de tal der kan vælges. F.eks. vil Multiple=2 give brugeren mulighed for at vælge lige tal.

quantity := GetIntegerMultiple("Mængde:", 4, 2);

Indtastningsfelt til reelt tal (dvs. med mulighed for at angive decimaler)

quantity := GetFloat("Mængde:", 5.5);

Indtastningsfelt til reelt tal. Skal udfyldes.

quantity := GetRequiredFloat("Mængde:", 5.5);

Indtastningsfelt til tekst.

text := GetText("Angiv tekst:");

Følgende eksempel viser en checkbox, som giver mulighed for at indtaste enhedspris:

text := GetText("Tekst:");
quantity := GetFloat("Mængde:");

specifyUnitPrice := GetBoolean("Ønsker du at ændre enhedsprisen?");

if (specifyUnitPrice) then
begin
    costPrice := GetFloat("Enhedspris:");
end;

Tekst indtasningsfelt med mulighed for at indtaste flere linjer. Parameteren "Lines" angiver hvor mange linjer der skal vises.

I AutoTextFile kan angives en tekstfil indeholdende linjer med tekster. Der kan benyttes en absolut sti, eller en relativ i forhold til mappen Data filer.

Dette vil resultere i at der vises en knap over indtastningsfeltet, som folder en menu ud hvorfra teksterne fra filen kan vælges. Det er muligt at benytte indryk i filen for at skabe flere niveauer i menuen.

note := GetMemo("Note:", 5, "Angiv tekst til note");

Eksempel på en "mini-konfigurator" til at vælge transportmiddel:

type := GetChoice("Vælg type af køretøj:", 0, "", "Motorcykel", "Bil", "Lastbil");

if (type = 1) then // motorcykel
begin
    brand := GetChoice("Vælg mærke:", 0, "", "Yamaha", "Harley", "Andre");
end
else if (type = 2) then // bil
begin
    brand := GetChoice("Vælg mærke:", 0, "", "BMW", "Opel", "Renault", "Andre");
    doors := GetChoice("Antal døre:", 0, "", "2", "3", "4", "5");
end
else if (type = 3) then // lastbil
begin
    brand := GetChoice("Vælg mærke:", 0, "", "Iveco", "Volvo", "Scania", "Andre");
end;

Følgende eksempel viser hvorledes funktionerne GetChoiceFromFileRow(), GetChoiceFromFileColumn() og KeyFigures.TableLookup() fungerer. Der skal oprettes en CSV fil i Sigma data mappen, med følgende indhold: (indeholder afstande mellem et par udvalgte byer)

;Sorø;Roskilde;Tølløse
Sorø;0;47,8;27,6
Roskilde;47,8;0;25,6
København;80,2;35,7;60,0

Dialog script:

filename := "#Sigma_DataPath#\TableLookupTestData.csv";

source := GetChoiceFromFileRow("Fra:", filename);
destination := GetChoiceFromFileColumn("Til:", filename);

distance := KeyFigures.TableLookup(filename, source, destination);

AddText("Afstanden fra '" + source + "' til '" + destination + "' er " + distance + " km");

choice := GetRadioChoice("Vælg én af følgende:", 0, "Nummer 1", "Nummer 2");

startDate := GetDate("Angiv startdato:", AddDays(Now(), 1));

Eksempel på opbygning af en indtastningsformular i SigmaScript, med brug af diverse funktioner:

SetTitle("SigmaScript eksempel");
UseImage("billede1");
UseComment("Dette er et eksempel på opbygning af formularer i SigmaScript");

AddPage("Komponent værdier");
AddHeader("Indtast værdier");

AddText("Mængde/enhedspris:");
quantity := GetFloat("Mængde:");
unitprice := GetFloat("Enhedspris");
SetStatusText("Kostpris=" + quantity * unitprice);

AddSpace(50);
AddImage("","#Sigma_DataPath#\MyImage.jpg");
AddText("Tekst felter:");
text := GetText("Tekst:");
note := GetMemo("Note:", 5);

Require(quantity * unitprice > 100, "Kostpris skal være mindst 100");

Eksempel på en knap som benyttes til at åbne et navngivet bibliotek

ShowButton("","Bibliotek1");
if ControlActivated() then
    Commands.OpenLibrary("Bibliotek1.sli");

SetControlWidth(500);

ResetControlWidth();

SetLabelWidth(0);

ResetLabelWidth();

SetControlAlignment("Right");