ASTDataSearchStock>formulaScript

formulaScript
    | formula model |

    model  := (ASFSearchSystem new).
    formula := ILFormula on: model.
    formula buttons: {'Search' -> #save}.

    (formula addField: (ASCAutocompleInputFieldWithUnderscore on: formula selector: #reference))
        options: (ASWarehouse theWarehouse onlyReference).
    (formula inputOn: #designation).
    (formula inputOn: #location).
    (formula selectOn: #allStock)
        options: #( 'All Stock' 'Used Stock').

    formula saveAction: [ :m |
        formula answer: nil.
        formula commit.
        self doSearch: m.
    ].
    formula cancelAction: [
        formula answer: nil.
    ].

    ^ formula