DOCUMENT LINKING SYSTEM

 [#Part: VCH Narration] 

    Add : Line    : Attc    

     

[Button : Open File]

    Key    : Ctrl + O

    Action : Exec Command: $Fullpath

[Line: Attc]

    Field: Medium Prompt, Attinfo

    Local: Field: Medium Prompt: Info: "Want to Attach File  ? "

    Space Top: 1

[Field: Attinfo]

    Use    : Logical Field

    Storage : Enableprenarration

    Set as    : If $$IsEmpty:$$Value then "No" else $$Value

    Sub Form: Attchdet Rep    : $$Value = "Yes"

[Report : Attchdet Rep]

    Form : Attchdet Form

[Form : Attchdet Form]

    Parts     : Attchdet Part

    Height  : 15% Page

    Width   : 90% Page

    Add    : Button      : Upload File

    Add     : Button      : Open File

[Part : Attchdet Part]

    Line :  attachfile

[Line: attachfile]  

    Fields  : Short Prompt, Dirpath, Filnam, Savefile

    Local   : Field : Short Prompt : Info: $$LocaleString:"File Path"

[System: UDF]

    Dirpath        : String    : 11101

    Filnam        : String    : 11102

    Fullpath    : String    : 11103

    

[Button : Upload File]

    Key : Ctrl + S

    Action : CopyFile : "H:\TDL" : ##Fullpath

[Field: Dirpath]

    Use : Name Field

    Color : Blue

    Border : Thin Bottom

    Set As : ##TSPLSmpDirectoryPath

    Modifies: TSPLSmpDirectoryPath    : True

Tooltip : "Enter the folder path from where the files are to be listed"

    Storage : Dirpath

    On : Accept    : Yes :Call: Modifies : #dirpath

    

[Field: Filnam]

Use          : Name Field

Table        : List of Files, Not Applicable , End of list

Set Always   : Yes

Show Table   : Always

Align        : Center

Width        : 40% Page

Tooltip      : "Select a file from the Table"

Storage      :    Filnam

Modifies     : Pathupdate   : True

[Field: savefile]

Use          : Name Field

Set As          : ($$LocaleString:$Dirpath)+"\"+($$LocaleString:$Filnam)

Storage      :    Fullpath

Set Always   : Yes

[Field: openfile]

Use          : Name Field

Set As          : "Open"

Key           : Open File

Color        : Black

Print FG     : Pale Leaf Green

Border          : TQ

Width        : 5

    

[Border: TQ]

    Top          : Thick, Double

    Bottom           : Thick, Double

    Left          : Thick, Double

    Right           : Thick, Double

[Collection: List of Files]

Title         : $$LocaleString:"List of Files"

    Data Source   : Directory    : #TSPLSmpDirectoryPath

Filter          : TSPLSmpTextFiles

Format        : $Name, 25

    Format        : $FileSize, 15

    Format        : $LastModifiedDate, 15

    Format        : $LastModifiedTime, 15

[Collection: AttchPath]   

    Variable      : Filnam

    Filter        : TSPLSmpAttchFiles

[System: Variable]

    TSPLSmpDirectoryPath    : "C:\TDL"

[System: Formula]

TSPL Smp Directory Path  : ##TSPLSmpDirectoryPath

TSPL Smp File Name       : ##TSPLFilename

TSPL Smp Text Files     : $$TSPLSmpRefreshTable:#TSPLSmpDirectoryPath

Filnam              : $$TSPLSmpRefreshfile:#TSPLFilename

[Function: TSPLSmpRefreshTable]

    Parameter        : pTempVar    : String

    00    : RETURN    : True

 

[Function: TSPLSmpRefreshFile]

    Parameter        : attchfile    : String

    OO    : RETURN    : True

[Variable: TSPLSmpDirectoryPath]

    Type    : String

    Persist    : Yes

[Variable: Pathupdate]

    Type    : String

    Persist    : Yes