app.red

sql-builder: function[] [
    sql-request: "SELECT FROM xml_files WHERE "
    if only-failed-button/enabled? [append sql-request "status='failed' "  replace/all sql-request " status='success'" "" ]
    if only-succesed-button/enabled? [append sql-request "status='success' " replace/all sql-request " status='failed'" "" ]

    if all [only-succesed-button/enabled? only-failed-button/enabled?] [ replace/all sql-request " status='success'" "" replace/all sql-request " status='failed'" "" ]
    ; if all [ only-succesed-button/enabled? only-failed-button/enabled?] [ print "ddd" ]

    print sql-request
]

sql-selection-param-control: [
	group-box
	[
		only-succesed-button: button "Only Succesed" [only-failed-button/enabled?: not only-failed-button/enabled? ]
		only-failed-button: button "Only Failed" [only-succesed-button/enabled?: not only-succesed-button/enabled? ]
	]
    group-box
	[
		extract-top-added: button "Top Added" [
            extract-new-added/enabled?: not extract-new-added/enabled?
            extract-last-processed/enabled?: not extract-last-processed/enabled?
            extract-forced-processed/enabled?: not extract-forced-processed/enabled?
            ]

		extract-new-added: button "New Added" [
            extract-top-added/enabled?: not extract-top-added/enabled?
            extract-last-processed/enabled?: not extract-last-processed/enabled?
            extract-forced-processed/enabled?: not extract-forced-processed/enabled?
            ]

        extract-last-processed: button "Last Processed" [
            extract-top-added/enabled?: not extract-top-added/enabled?
            extract-new-added/enabled?: not extract-new-added/enabled?
            extract-forced-processed/enabled?: not extract-forced-processed/enabled?
            ]
        extract-forced-processed: button "Forced Reprocessing" [
            extract-top-added/enabled?: not extract-top-added/enabled?
            extract-new-added/enabled?: not extract-new-added/enabled?
            extract-last-processed/enabled?: not extract-last-processed/enabled?
            ]
    ]

]

view [
	panel sql-selection-param-control
    button "Gen SQL" [
        sql-builder
        ]
]