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

Date Folder Subject
0:1-0

Title : Contact Mail

Toolbars

call OpenFormTop("ptEdit","*_E*.FM","WORK.TABLENAME",1,"?=UNIQUEFIELDNAME")
call OpenFormTop("ptDelete","*_E*.FM","WORK.TABLENAME",1,"?=UNIQUEFIELDNAME")
call BrowseFilter()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.MDATE)
 (.FOLDER_STR)
 (.SUBJECT)
 (.MDATE)
 (.FOLDER_STR)
 (.SUBJECT)


AutoScript

lib

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
         SELECT AU_MAIL.*, AU_DOC.*, AU_DOC.AU_DOC AS AU_DOC
         FROM AU_MAIL, AU_DOC
         WHERE (AU_MAIL.AU_DOC = AU_DOC.AU_DOC) AND (AU_MAIL.AU_CONTACT = :C)
         ORDER BY MDATE
     end_sql

     q = QueryByName("DATA")
     call TSetParam(q,"C",_PARAM[4])
     call TPrepare(q)

end

proc Form_Start()

     call SetCaption("Contact Mail")

end

proc Lst_DblClick()

       doc = TGetFld(q,"AU_DOC")
       islink = TGetFld(q,"ISLINK")
       file = TGetFld(q,"FILE_NAME")
       command = TGetFld(q,"OPENCOMMAND")

       if (islink = 1) then
         call Browse(file)
       else
         call DocView(doc,"",command)
       endif
end