Tilføj bemærkning funktion
Hej,Til mine brugere som bruger Notes klienten bruger jeg følgende kode til at tilføje en bemærkning til formen:
_reason := @Prompt([OkCancelEdit]; "Tilføj Bemærkning"; "Hvad har du på hjertet?"; "");
temp := @IsNewDoc;
@Command([EditDocument]; "1");
@If(@Command([FileSave]); ""; @Return(""));
_Date := @Date(@Now);
_Time := @Time(@Now);
_Bem1 := @Name([CN]; @UserName ) + " on " + @Text(_Date) + " at " + @Text(_Time);
_Bem2 := _reason;
FIELD BemærkningerAdd := @Subset( (BemærkningerAdd) : _Bem1; 999999 );
FIELD BemærkningerEgne := @Subset( (BemærkningerEgne) : _Bem2; 999999 );
@PostedCommand([FileSave]);
@PostedCommand([EditDocument]; "0")
Men det virker naturligvis ikke på Websiden, nogen som har en idé til hvad man kan gøre for at få samme funktion ud på Webben ?
/Leif