// Check, Print and Print&Send button behavior !#Window-Dossier .+OpenDossier => *FocusOnDossierData << "Overview Panel" // Tc06 .+FocusOnDossierData => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Not enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Not enabled" // Tc13 .+FocusOnEmptyPanel => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Not enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Not enabled" // Tc20a from dossier, Tc20b from action .+FocusOnAction => ?{former action usage} = = "newly created action" => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" // Tc29 = "archived action" => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" // says mXXXX .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" .§{Action is read-only} // Tc37 = "focussing first time after opening dossier" => .Button-Check.ICON := "Unchecked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "state of action in CXXXX at dossier opening time" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" // Tc44 = "focussing again on action" => .Button-Check.ICON := "last state of action" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "last state of action" .Button-PrintSend.ENABLED := "last state of action" .Button-Print.ENABLED := "Enabled" // Tc51a use Valid.result, Tc51b, Tc51c left navig. or alias .+ModifyFocussedAction => .Button-Check.ICON := "Not checked" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Statusbar.REMOVE.("Checked", "Sent") .?{Action already sent?} = = "Yes, sent at least once" => .CXXXX.{this action}."Open" // Tc62 remove send = "No, never sent before" => .CXXXX."no entry for this action" // Tc64 remove error .+Button-Check .$ENABLED << "Enabled if an action panel has the focus" .ICON : [ "Unchecked" | "Checked without errors" | "Checked with errors" ] // visible appearance => ?@DoCheck << "Check only" = = "Errors found" => .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "last state of the action" // ??? assert this .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" .§{Let examiner correct errors} .§{Dialog-ValidationResult may stay opened, is not modal} // Tc78 = "Warnings or Info found" => .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "last state of the action" .Button-PrintSend.ENABLED := "Enabled" // this doesn't stop sending .Button-Print.ENABLED := "Enabled" .§{Let Examiner correct errors} .§{Dialog-ValidationResult may stay opened, is not modal} // Tc88 = "OK, nothing to complain" => .Window-Dossier.Statusbar.SHOW."Action checked, is ok" .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "last state of the action" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .BEEP // Tc97a, Tc97b .+Button-Print .$ENABLED << "Enabled if an action panel has the focus" => ?*Dialog-PrintSelect.OPEN = = "Cancelled, don't print" => .NOP // Tc309, Tc306, Tc301 = "One or more forms selected to print" => .@DoDefaultPrint << "Selected Forms" .Window-Dossier.Statusbar.SHOW."Action printed" // Tc303a, Tc303b .+Button-PrintSend .$ENABLED << "Enabled if an action panel has the focus AND last check of this action showed no error" .ICON : [ "Sent" | "Not sent" ] ?{Is this action a search report or combined action?} = = "Yes, action is or contains search report" => ?@DoCheck << "Check before send" = = "At least one Error" => .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT // might already be opened .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" .BEEP // Tc123 = "No Errors, but at least one Warning or Info" => ?*Dialog-SendAnyway.OPEN = = "Cancelled, don't print or send" => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT // Tc133 = "Send anyway" => ?@DoPrintSend = = "Successful" => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Print and Send successful" .EXAMINER << "Print and send successful" // Tc142 = "Not successful" => .EXAMINER << "Print and send was not successful" .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" // TESTCASE NOT SETTABLE = "OK, nothing to complain" => ?@DoPrintSend = = "Successful" => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Print and Send successful" .EXAMINER << "Print and send successful" // Tc161 = "Not successful" => .EXAMINER << "Print and send was not successful" .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" // TESTCASE NOT SETTABLE = "No, action is a simple action and not a search report" => ?@DoCheck << "Check before send" = = "At least one Error" => .Button-Check.ICON := "Checked with errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Not enabled" .Button-Print.ENABLED := "Enabled" .*Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT // might already be opened .BEEP // Tc179 = "No Errors, but at least one Warning or Info" => ?*Dialog-SendAnyway.OPEN = = "Cancelled, don't print or send" => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Dialog-ValidationResult.UPDATED.OPEN_AND_FRONT // Tc189 = "Send anyway" => ?@DoSend = = "Successful" => ?*Dialog-PrintSelect.OPEN = = "Cancelled" => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Send successful" .EXAMINER << "Send without printing was successful" // Tc200 = "One or more forms selected to print" => .@DoDefaultPrint << "Selected forms" .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Print and Send successful" .EXAMINER << "Print and send successful" // Tc210 = "Not successful" => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .EXAMINER << "Send was not successful, no printing started." // TESTCASE NOT SETTABLE = "OK, nothing to complain" => ?@DoSend = = "Successful" => ?*Dialog-PrintSelect.OPEN = = "Print cancelled, ignore print" => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Send successful" .EXAMINER << "Send without printing was successful" // Tc231 Send without printd = "One or more forms selected to print" => .@DoLocalPrint << "Selected forms" .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .Window-Dossier.Status.SHOW."Print and Send successful" .EXAMINER << "Print and send successful" // Tc240 = "Not successful" => .Button-Check.ICON := "Checked without errors" .Button-Check.ENABLED := "Enabled" .Button-PrintSend.ICON := "Not sent" .Button-PrintSend.ENABLED := "Enabled" .Button-Print.ENABLED := "Enabled" .EXAMINER << "Send was not successful, no printing started." // TESTCASE NOT SETTABLE ... // many more Activators in Dossier Window !#Dialog-ValidationResult .§{non-modal window, can be open all the time} .+Button-CheckAgain => .*Window-Dossier.Button-Check // this button is simply an alias .+Checkbox-AlwaysFloatOnTop .TxLastCheckResults : _DateTime .ListOfResults ...+Error .§{describes one or more errors in one list entry} => .{Focus field in #Window-Dossier associated with the error or the next error} // can be multiple error message ...+WarningOrInfo .§{describes one or more warnings or infos in one list entry} => .{Focus field in #Window-Dossier associated with the error or the next error} // can be multiple error message .+Button-Help => ... .+Button-Close => .Dialog-ValidationResult.CLOSE !#Dialog-SendAnyway .§{modal window, must be closed before continuing work} .ListOfProblems ...WarningOrInfo .+Button-Send => .Dialog-SendAnyway.CLOSE .^"Send anyway" // Tc210 .+Button-Cancel => .Dialog-SendAnyway.CLOSE .^"Cancelled" // Tc189 .++OSCloseWindow // an alias, the (x) in the top right corner or ALT-F4 or OS menu item => .Dialog-SendAnyway.CLOSE .^"Cancelled" // Tc133 !#Dialog-PrintSelect .ListOfFormsToPrint .§{all forms selected by default} ...+Checkbox-FormToPrint // Tc240 single, Tc303a several, Tc240/Tc210 adapt content .+Button-ShowHideSpecialItemsToPrint .#Panel-SpecialItems .§{some items may be selected by default, not specified} .$Visible : _Boolean ... .+Button-Help => ... .+Button-Print => .Dialog-PrintSelect.CLOSE ?{are forms selected?} = = "no form selected" .^"Cancelled" // Tc301, Tc301c = "one, some or all forms selected" .^"one or more forms to print" // Tc303a, Tc303b, Tc303c, Tc303d, Tc303e .+Button-DontPrint // means also "ignore print" => .Dialog-PrintSelect.CLOSE .^"Cancelled" // Tc306 .++OsCloseWindow // an alias, the (x) in the top right corner or ALT-F4 or OS menu item => .Dialog-PrintSelect.CLOSE .^"Cancelled" // Tc309 !@DoDefaultPrint .$ListOfForms << EXTERN.{selected forms to print} => .@{Printout to default printer} .§{draft print for search report and combined actions} .§{final print for simple actions} .Window-Dossier.Statusbar.SHOW."Action printed" !@DoSend => .@{Send action to CXXXX and MXXXX} .^[ "Successful" | "Not successful" ] !@DoPrintSend => .@{Send search report or combined action to CXXXX, MXXXX, SXXXX ... and let it print} .^[ "Successful" | "Not successful" ] !@DoCheck $Scope << $EXTERN.{set of checks} => ?$SCOPE = = "Check only, no send following" => .§{always perform all the tests on the list} .{verify correct action data as defined in ADF} .^{List of Errors, Warnings, Infos, or OK if none of these} // Tc179 et al. = "Check before send" => .§{perform only those tests not yet performed on current action data} .{verify correct action data as defined in ADF} .{check for sendgroup dependencies, hardcoded} .{test for sender's authorization to send, action dependent} .{check for plausibility using plausibility engine} .^{List of Errors, Warnings, Infos, or OK if none of these} // Tc344, NOT YET TESTED