Do not let any software impress you!

Only let it convince your intellect.
Slider img 1
Do not look for a business paradise!

It is a waste of time.
Slider img 2
Only yourself can push you uphill.

There is no easy road to prizes.
Slider img 3
Productivity is the name of the game.

And you have to conquer it.
Slider img 4
As long as you understand it,

you will start to build your know-how.
Slider img 5
We can help with that.

We have the tools and the method.
Slider img 6
Document
Related Table
Related Record
Relation Date
Comments
Data Collectiing Mail
Expires at
Expires in days
Is Valid

Title : Document Relation

Toolbars

call CloseForm(True)
call CloseForm(False)

Buttons

Fields


Document (AU_DOC.FILE_NAME)
Related Table (AU_DOC_REL.REL_TABLE_NAME)
Related Record (AU_DOC_REL.REL_REC_ID)
Relation Date (AU_DOC_REL.RELDATE)
Comments (AU_DOC_REL.RTYPE)
Data Collectiing Mail (AU_DOC_REL.IS_DATACOLLECTMAIL)
Expires at (AU_DOC_REL.EXP_DATE)
Expires in days (AU_DOC_REL.EXP_DAYS)
Is Valid (AU_DOC_REL.IS_VALID)


AutoScript

lib

proc Form_OnSelect ( tname, fname, id )

     if (tname = "AU_DOC_RELTYPE2") then

        form_id = SelectFrom("SELECT AU_FORMINPUTTYPE FROM AU_DOC_RELTYPE2 WHERE (AU_DOC_RELTYPE2=",id,")")

        if (form_id > 0) then                 {....load the document form}

         doc_name = SelectFrom("SELECT DOC_NAME FROM AU_FORMINPUTTYPE WHERE (AU_FORMINPUTTYPE=",form_id,")")
         doc_rel_id = AU_DOC_REL!AU_DOC_REL

         call LoadInputDocForm ( form_id, doc_rel_id )

        endif

     endif

end