@prompt - Probleme

  • Hi !

    ich möchte die "Senden" Funktion im EMail dahingehend erweitern, dass bei einer bestimmten Email-Grösse, ein Hinweis erscheint, wo der Benutzer dann entscheiden kann, ob er wirklich senden möchte, oder nicht.

    Mein Problem ist, dass der Hinweis-Text immer hochkommt, egal wie gross die EMail ist. Das soll natürlich nicht.


    Vielleicht kann mir jemand einen Tipp geben.

    Vielen Dank vorab :-)




    ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    MEMO_SEND:="1024";

    FIELD ActionInProgress:=MEMO_SEND;



    REM {========================================} ;

    REM {Fehlermeldung anzeigen, wenn Dokument grösser als die erlaubten KB sind} ;

    REM {========================================} ;


    MaxKB := 50000 ;

    DocSize := @Sum( @If ( @Attachments > 0 ; @DocLength / 1024 ; 0)) ;

    Text := "Das Memo kann nicht versendet werden, da es grösser als " + @Text(MaxKB;"F,0") + " KB (50 MB) ist. Aktuelle Memogrösse: " + @Text(DocSize;"F,0") + " KB." ;


    _xx:= @Prompt([YesNo];"Info";Text + "Trotzdem Senden ?") ;


    @If ( DocSize > MaxKB ; _xx; "");

    @If ( DocSize > MaxKB & _xx = 1 ; (@Command([FileSave])&@Command([FileCloseWindow])); "")

  • Hi Andreas,


    hab´s nochmal geändert.

    Jetzt passt es.

    Info kommt nur, wenn die max. Grösse überschritten wird.



    @If ( DocSize < MaxKB;

    @Do(

    @Command([filesave]);

    @Command([FileCloseWindow])

    );

    DocSize > MaxKB & @Prompt([YesNo];"Info";Text + "Trotzdem Senden ?") = 1;


    @Do(

    @Command([filesave]);

    @Command([FileCloseWindow])

    );

    "");