loïc Carpier

Présentation : fermer l’écran suite à un test

09-02-2013

Le code OBL suivant permet de fermer la présentation si le test n’est pas concluant avant de lancer la sauvegarde des données de l’écran.

Code: Tout sélectionner

    BEGIN Evclick tlbbttnSave_evcSave

        BEGIN Action_script as1

            Code = "if CFR_VERIFY_DOUBLON_HR() = -1 Then return(1) else return(0)"

            Ontrue = "Action_Call_Unload"

            Onfalse = "asSaveOrNot"

        END

        BEGIN Action_call Action_Call_Unload

            Sentence = "*O*/Pres2/FormMain.Unload (END_PRESENTATION)"

        END

        BEGIN Action_dataprops tlbbttnSave_dataSave

            Action = "Save"

        END

    END

Tags: presentation