CommandButton code

Hi all.
I'm trying to implement a search box "universal" for all section.
Attachment 1022
Attachment 1023

I can create the various controls, but I have a problem, when I press the "search" button, how can I do riferiemnto the values set in the combobox?

this is the code:

Code:

---

//////////////////////////////////////////////////////////////////////////////
proc sem_AddSectionSearchPanel(psTable)
//////////////////////////////////////////////////////////////////////////////

        sp_container = createObject("container")
        sp_container.addObject("osp_combo", "Combobox")
        sp_combo = osp_combo
        osp_combo.move(5, 3, 80, 20)
               
        select(psTable)
       
        afields(laAllFields)
        for lnI = 1 to alen(laAllFields, 1)
                osp_combo.additem(laAllFields(lnI, 1))
        endfor

        sp_container.addObject("osp_comboCondition", "Combobox")
        sp_comboCondition = osp_comboCondition
        osp_comboCondition.move(85, 3, 80, 20)
       
        select(psTable)
       
        osp_comboCondition.additem("Uguale")
        osp_comboCondition.additem("Maggiore di")
        osp_comboCondition.additem("Minore di")
        osp_comboCondition.additem("Compreso")
        osp_comboCondition.additem("Contenente")

        sp_container.addObject("osp_textbox", "textbox")
        sp_textbox = osp_textbox
        sp_textbox.tooltip = psTable
        osp_textbox.move(165, 3, 100, 20)
        sp_container.addObject("sp_search", "commandbutton")
        sp_search.move(270, 3, 60, 20)
        sp_search.text = "Search"
        sp_search.click = sp_search_handler
        sp_search.tooltip = psTable
        sp_container.addObject("sp_clear", "commandbutton")
        sp_clear.move(335, 3, 60, 20)
        sp_clear.text = "Reset"
        sp_clear.click = sp_reset_handler
        this.addSearchPanel(sp_container)
endproc

////////////////////////////////////////////////////////////////
// handlers for the Search Panel
proc sp_search_handler()
////////////////////////////////////////////////////////////////
        private sp_mainTable, sp_comboCondition, sp_combo, sp_textbox
        sp_mainTable = ""
        sp_comboCondition = ""
        sp_combo = ""
        sp_textbox = ""
       
        oActivePage = lianja.activepage
        ActicePage = oActivePage.id
        oActiveSection = Lianja.get(ActicePage).activesection
       
        ? oActiveSection.caption
       
        sp_mainTable = oActiveSection.table
       
        ? "sp_search_handler psTable" + sp_mainTable
        local m_search
       
        ? this.parent()
       
        m_search = dd_search_handler(sp_mainTable, sp_comboCondition, sp_combo, sp_textbox)               
        lianja.get(sp_mainSection).sql = m_search
        Lianja.getElementById(sp_mainSection).filter = ''
               
endproc

---

In the search handler, is possible to refers to the combobox declared in AddSectionSearchPanel procedure?

thanks
Fabio

Hi Fabio,

I'm not sure if this would be the same situation, although for my search panel, I created a public variables to match each item.
Next, when defining the items for the search panel, I was associating them with the public variable.
Once you have a public variable, you can create/associate any feature as though it were a control on a canvas section (such as valid or interactive change).

Code:

---

public sp_txtfind                // Search panel main text box.
public sp_cboText                // Search panel combo box value.

proc page1_section1_searchpanel()
  // Dynamically create the items in the search panel.
  sp_container = createObject("container")
       
  // Determine the item to search for (combo box and textbox).
  sp_container.addObject("sp_cboSearch","combobox")
  sp_cboSearch.move(120,3,160,20)
  sp_cboSearch.addItems("Acct Number (XX######),Phone (##########),Last Name,Address")
  sp_cboSearch.interactivechange = sp_cboText_interactivechange
       
  sp_cboSearch.listindex = -1
  if type("sp_cboListIndex") = "L"
    sp_cboListIndex = 0
  endif
  sp_cboSearch.listindex = sp_cboListIndex
  sp_cboText = sp_cboSearch

  sp_container.addObject("sp_txtsearch", "textbox")
  if type("sp_txtFind") <> "L"
    if len(sp_txtFind.text) > 0
      sp_txtsearch.text = sp_txtFind.text
    endif
  endif
  sp_txtsearch.returntabs = 1
  sp_txtsearch.valid = sp_txtFind_valid
  sp_txtFind = sp_txtsearch                // Save for public usage.
  sp_txtsearch.move(285, 3, 150, 20)       
...
endproc

proc sp_cboText_interactivechange()
  set_search_input_mask()
  sp_txtFind.text = ""
  sp_cboText.setFocus()
endproc

proc sp_txtFind_valid()
  lValidUsed = .F.
  sp_search_handler()
  lValidUsed = .T.
endproc

---

I hope this helps.

With the code you provided, it appears as though you are doing something similar as I described with:
sp_textbox = osp_textbox


Cory

Thank Cory, we are develop the same application? :-)
thanks for the suggestion.

the only doubt is about the use of public variables .. if I have multiple pages, could go in conflict .. or not?

Fabio

It seems like we might have similar approaches for out application.

As long as the public variable names are unique, I don't think there should be many issues using it over multiple pages.
I haven't used it too much, although you can also use namesspaces to keep variables separate.

Cory

In Lianja, objects and arrays are reference counted.

You can create objects and add these objects as properties to the various Lianja UI elements such as a page or section. This provides you with the ability to extend the core UI elements.

See the screenshot below. I opened the "lianjademo" app then fired up the App Inspector, then entered the commands that you see in the screenshot.

So in fact you don't even need to use public variables, you can extend the UI elements with your own custom objects and as they are reference counted, they point at the same object so changing an object in one place changes it everywhere.

Attachment 1025

OK, Barry, thank so much. I do noto know if I've understand all... But monday I try.. :-)

Ok, I think I understand the concept.
In this case, however, I add a container to SearchSection.
How do I reference this object?
I did a bit of testing, but without success ..

Code:

---

        sp_container = createObject("container")
        sp_container.addObject("osp_combo", "Combobox")
        sp_combo = osp_combo
        osp_combo.move(5, 3, 80, 20)

..
..
        this.addSearchPanel(sp_container)

---

where this is the searchpanel.

thanks for all the suggest.
Fabio

I think that custom search panel is not intended to be fully "objected" in LOM. This panel is "rendering" stuff. After creating it, there is no possibility to acccess something like this:

Code:

---

page1.section1.sp_container.sp_textbox.caption="something new"

---

You can do what you want in constructor but after that it is sealed and you depend on Lianja.showdocument(...)

http://www.lianja.com/doc/index.php/SHOWDOCUMENT()

e.g.

Quote:

---

Lianja.showDocument("page: page1.section1?action=search&text=keytosearchfor")

---

Your arsenal is limited to:

Quote:

---

?action=showsearchpanel
?action=hidesearchpanel
?action=togglesearchpanel

---

You are out of luck. Nothing is exposed, I think.
(maybe I am wrong).

Hi Fabio,

For example:

Code:

---

////////////////////////////////////////////////////////////////
// Event delegate for 'searchpanel' event
proc Customers_section1_searchpanel()
        sp_container = createObject("container")
        sp_container.addObject("sp_label", "label")
        sp_label.move(5, 3, 80, 20)
        sp_label.text = "Company Name"
        sp_container.addObject("osp_textbox", "textbox")
        sp_textbox = osp_textbox
        osp_textbox.move(85, 3, 100, 20)
        sp_container.addObject("sp_search", "commandbutton")
        sp_search.move(190, 3, 60, 20)
        sp_search.text = "Search"
        sp_search.click = sp_search_handler
        sp_container.addObject("sp_clear", "commandbutton")
        sp_clear.move(255, 3, 60, 20)
        sp_clear.text = "Reset"
        sp_clear.click = sp_reset_handler
        this.addSearchPanel(sp_container)
        this.addProperty("SearchPanel",sp_container)  // Add reference to the object as a property
endproc

////////////////////////////////////////////////////////////////
// handlers for the Search Panel
proc sp_search_handler()
        Lianja.showDocument("section:section1?action=search&text="+sp_textbox.text)
endproc
 
proc sp_reset_handler()
        Lianja.showDocument("section:section1?action=search&text=")
        sp_textbox.text = ""
endproc

---

Now I can do this:

Code:

---

oSearchPanel = Lianja.get("Customers.section1").SearchPanel
? oSearchPanel.sp_label.text

---

or this:

Code:

---

? Lianja.get("Customers.section1").SearchPanel.sp_label.text

---

Regards,

Yvonne

Hi Barry
if I understand what you mean, I can associate an object to a section.

I tried with:

Code:

---

        oActivePage = lianja.activepage
        ActicePage = oActivePage.id
        oActiveSection = Lianja.get(ActicePage).activesection               
        sp_mainTable = oActiveSection.table

        // add section property               
        m_prop = oActiveSection.id + [.addProperty("searchTable", sp_mainTable)]
        exec(m_prop)



        sp_container.addObject("osp_comboCondition", "Combobox")
       
        // combo con gli operatori
        sp_comboCondition = osp_comboCondition
        osp_comboCondition.move(85, 1, 80, 20)               
        osp_comboCondition.additem("Uguale")
        osp_comboCondition.additem("Maggiore di")
        osp_comboCondition.additem("Minore di")
        osp_comboCondition.additem("Compreso")
        osp_comboCondition.additem("Contenente")


        // add section property       
        m_prop = oActiveSection.id + [.addProperty("searchComboCondition", sp_comboCondition)]
        exec(m_prop)

---

but not work..

Sorry for my last post, Ive not see your last post Yvonne...

I try now.

Thanks
Fabio

Quote:

---

Originally Posted by yvonne.milne

Hi Fabio,

For example:

Code:

---

////////////////////////////////////////////////////////////////
// Event delegate for 'searchpanel' event
proc Customers_section1_searchpanel()
        sp_container = createObject("container")
        sp_container.addObject("sp_label", "label")
        sp_label.move(5, 3, 80, 20)
        sp_label.text = "Company Name"
        sp_container.addObject("osp_textbox", "textbox")
        sp_textbox = osp_textbox
        osp_textbox.move(85, 3, 100, 20)
        sp_container.addObject("sp_search", "commandbutton")
        sp_search.move(190, 3, 60, 20)
        sp_search.text = "Search"
        sp_search.click = sp_search_handler
        sp_container.addObject("sp_clear", "commandbutton")
        sp_clear.move(255, 3, 60, 20)
        sp_clear.text = "Reset"
        sp_clear.click = sp_reset_handler
        this.addSearchPanel(sp_container)
        this.addProperty("SearchPanel",sp_container)  // Add reference to the object as a property
endproc

////////////////////////////////////////////////////////////////
// handlers for the Search Panel
proc sp_search_handler()
        Lianja.showDocument("section:section1?action=search&text="+sp_textbox.text)
endproc
 
proc sp_reset_handler()
        Lianja.showDocument("section:section1?action=search&text=")
        sp_textbox.text = ""
endproc

---

Now I can do this:

Code:

---

oSearchPanel = Lianja.get("Customers.section1").SearchPanel
? oSearchPanel.sp_label.text

---

or this:

Code:

---

? Lianja.get("Customers.section1").SearchPanel.sp_label.text

---

Regards,

Yvonne

---

You can test your code interactively first.

Search panels are typically contained within a section. Why not just have a proc that creates it and you call it giving it the section I'd and oage ID.

If you must write it this way then put some debugging in to see what your code is doing.

Thanks Barry, in fact, is what I always try to do, with the debugger and interactive.
Unfortunately it is not so "simple" as with VFP, where intelisense could suggest the name of the objects .. Until the 2.0 .. or you know whatever you call or go to trial ... or ask to you masters :D

However, there are almost .. then I try to post the complete code, if someone is interested.

ciao
Fabio

Ok, in App builder, all work fine.. but in App Center, no.

Code:

---

        sp_container.addObject("sp_clear", "commandbutton")
        sp_clear.move(500, 3, 60, 20)
        sp_clear.text = "Reset"
        sp_clear.click = sp_reset_handler
       
       
//        this.addSearchPanel(sp_container)       
        oActiveSection.addSearchPanel(sp_container)
       
//        this.addProperty("SearchPanel",sp_container)  // Add reference to the object as a property
        oActiveSection.addProperty("SearchPanel", sp_container)  // Add reference to the object as a property

endproc

////////////////////////////////////////////////////////////////
// handlers for the Search Panel
proc sp_search_handler()
////////////////////////////////////////////////////////////////

        private sp_mainTable, sp_comboCondition, sp_combo, sp_textbox
        sp_mainTable = ""
        sp_comboCondition = ""
        sp_combo = ""
        sp_textbox = ""

        dialog box "sp_search_handler"
       
        oActivePage = lianja.activepage
        ActicePage = oActivePage.id
        oActiveSection = Lianja.get(ActicePage).activesection
        sp_mainSection = oActiveSection.id

---

the row:
oActivePage = lianja.activepage
give error...

how to do?

thanks
Fabio