Documentation()

OnRun()
fct_Create_locations();

fct_Create_locations()
recKdgLocation.RESET;
recKdgSetup.RESET;
IF recKdgLocation.FINDFIRST THEN
  recKdgLocation.DELETEALL;
recKdgSetup.SETFILTER(recKdgSetup."No.",'=1');
recKdgSetup.INIT;
recKdgSetup.FINDFIRST;
WHILE recKdgSetup."Location Start" <> recKdgSetup."Location End" DO
BEGIN
recKdgLocation.INIT;
recKdgLocation.Code := recKdgSetup."Location Start";
recKdgSetup."Location Start" := INCSTR(recKdgSetup."Location Start");
recKdgLocation.Description := 'Location ' + recKdgLocation.Code;
recKdgLocation."Default Item" := recKdgSetup."Loc Default Item";
recKdgLocation."Default Customer" := recKdgSetup."Loc Default Customer";
recKdgLocation."Total Width (cm)" := recKdgSetup."Loc Default Width (cm)";
recKdgLocation."Total Height (cm)" := recKdgSetup."Loc Default Height (cm)";
recKdgLocation."Total Depth (cm)" := recKdgSetup."Loc Default Depth (cm)";
recKdgLocation.INSERT(TRUE);
END;
MESSAGE('%1 rows inserted.', recKdgLocation.COUNT);

fct_Demo_StrMenu()
lintResponse := STRMENU('Red,Yellow,Stripes,Green,Blue,I do not know',6,
'Which of these is not like the others?');
CASE lintResponse OF
1..2,4..5: MESSAGE('Wrong!');
3: MESSAGE('True!');
6: MESSAGE('How sad :(');
END;

fct_Demo_Date2DMY()
ldatStartDate := 210312D;
lintDD := DATE2DMY(ldatStartDate, 1);
lintMM := DATE2DMY(ldatStartDate, 2);
lintYY := DATE2DMY(ldatStartDate, 3);
MESSAGE('%1', lintMM);

fct_Show_NoContact()
recCustomer.RESET;
recCustomer.SETFILTER(recCustomer.Contact,'=%1','');
recCustomer.SETFILTER(recCustomer."No.",'6*');
MESSAGE('Amount is %1',recCustomer.COUNT);

fct_Show_CustomerName()
recCustomer.RESET;
recCustomer.SETFILTER(recCustomer.Contact,'=%1','Jenny Lysaker');
IF recCustomer.FINDFIRST THEN
MESSAGE('%1\%2',recCustomer."No.",recCustomer.Name);