Grid Section - Hyperlink click

I have a grid section that I have set up a hyperlink on but do not have it pointing to anything. I would like to have the operator click on the hyperlink and simply store that value in a variable. I have tried putting my procedure in click and click hyperlink but it does not appear to work. Any suggestions on the best way to do this. It is basically a table of invoices and I need to store an invoice number of a selected record in the grid section on a click. the process seems simple enough.

Hi Rdd1963.

When you set a grid field as a hyperlink, you need use the "Link click delegate" on the section.
Attachment 1571

In this case, I've a column "File" whith the "Hyperlink" set to "true".

My code is:

Code:

---

////////////////////////////////////////////////////////////////
// Event delegate for 'linkclick' event
proc Documenti_linkclick(hyperlinktext, _text)
       
        ? "Documenti_linkclick"
        ? "1 " + hyperlinktext
        ? "2 " + _text
       
        Q_selectTable("progetti")
        locate for progetti.id = documenti.progettoid
       
//        MessageBox("You clicked '" + hyperlinktext + "' with text " + _text + "'")
       
        // insert your code here
        m_default = default()
        ? "comando " + hyperlinktext + " " + _text
        if hyperlinktext == "m_load_documenti_file"
               
                create_link_file()
       
        endif

        if hyperlinktext == "m_edit_caso"
               
                select documenti
               
                ? "documenti.id = " + etos(documenti.id)
                m_filtro = "page:documento.Documento_documento?action=search&" + "text=" + etos(documenti.id)
                               
                ? "m_filtro" + m_filtro
                Documento_changed()
       
// apre nella stess app
//                Lianja.showDocument(m_filtro)
               
// apre la nuova app
                lianja.spawnapp("SFM_Documento","","", "page:documento?action=search&text=" + etos(documenti.id))
               
//                Lianja.showDocument("page:documento.Documento_documento?action=show")       
       
//                Lianja.showDocument("page:documento?action=show")               
        endif
       
        if hyperlinktext == "m_load_allegati_file"
                select allegati

                if empty(allegati.file)
                        nReturn = 6
                else                       
                        nReturn = messagebox("Sei sicuro?", 36, "Attenzione, c'è già un file assegnato")
                endif                       
                if nReturn = 6
       
                        m_recno = recno()               
                        oGrid = Lianja.Get("documento.documento_allegati").grid
                       
                        m_newDefault = mline(progetti.path, 1)
                        if !empty(m_newDefault)
                                set default to &m_newDefault
                        endif
                       
                        m_file = getfile()
                        if !empty(m_file)
                                select allegati
                                goto m_recno
       
                                replace allegati.file with m_file
                                if m_recno > 1
                                        oGrid.refreshRecord( m_recno )
                                endif
                        endif
                else
                    // user selected 'No', process accordingly
                endif                       
        endif
       
        set default to &m_default
                       
        if hyperlinktext = "m_open_documenti_file"
                ? "Apertura file " + mline(documenti.file, 1)
                showdocument("file:///" + mline(documenti.file, 1))
        endif

        if hyperlinktext = "m_open_allegati_file"
                ? "Apertura file " + mline(allegati.file, 1)
                showdocument("file:///" + mline(allegati.file, 1))
        endif

        if hyperlinktext = "CASO"
                select documenti
                m_filtro = "page:documento.documento_documento?action=search&text=" + etos(documenti.id)
                               
                ? m_filtro
                Lianja.showDocument(m_filtro)
                Lianja.showDocument("page:documento.documento_documento?action=show")
        endif
               
               
endproc

---

When you click a link in a grid the row and record are made current before calling the delegate so you can reference the record number to link invoices together.

OK, I am sure I am overlooking something simple. Just to test to see if the hyperlink was working I created a procedure and went from there Below is what I created, but it does not appear to work when I click on the hyperlink in runtime. Nothing happens when I click the hyperlink. Below are the screen shots of what I created.

Attachment 1572
Attachment 1573
Attachment 1574

show() not show as it is a method.

Thank you. I knew it was something easy, probably syntax.