DOCUMENT LINKING SYSTEM -Link voucher Scan copy

 [#Part: VCH Narration]
    
    Add : Line    : Attc    
     
;;[!Part: BankDet VCH Narration]
;;Add : Line     : attachfile

;;[#Form: Accounting Voucher]

;;    Add : Button : Open File


[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
;;    On    : Form Accept : CALL : TSPLSmpRefreshFile
    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
;;    Action : CopyFile : ##MyDstFilePath : ##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"
;;      Skip Forward    : Yes
    Storage        : Dirpath
    On : sELECT     : Yes : 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
;;     On : sELECT  : Yes : Modifies : #Filnam

 [Field: savefile]
 
         Use          : Name Field
     Set As          : ($$LocaleString:$Dirpath)+"\"+($$LocaleString:$Filnam)
     Storage      :    Fullpath
;;     Invisible    : Yes
     Set Always   : Yes

 [Field: openfile]
 
         Use          : Name Field
     Set As          : "Open"
     Key           : Open File
;;     Skip           : Yes
     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        : $IsReadOnly, 15
    Format        : $LastModifiedDate, 15
    Format        : $LastModifiedTime, 15

[Collection: AttchPath]
    
    Variable      : Filnam
    Filter        : TSPLSmpAttchFiles



[System: Variable]
 
    TSPLSmpDirectoryPath    : "H:\TDL"

;;[System: Variable]

;;    MyDstFilePath        : "D:\TAUFEEQ"
    


[System: Formula]
 
;; Specify the required Directory Path
    TSPL Smp Directory Path  : ##TSPLSmpDirectoryPath
    TSPL Smp File Name       : ##TSPLFilename
;;   TSPL Smp Text Files     : $$TSPLSmpRefreshTable:#TSPLSmpDirectoryPath AND NOT $$IsDirectory:$Name AND (($Name CONTAINS ".txt" OR $Name CONTAINS ".xml" OR $Name CONTAINS ".sdf" OR $Name CONTAINS ".tdl") AND $Name NOT CONTAINS "tdlserver")
     TSPL Smp Text Files     : $$TSPLSmpRefreshTable:#TSPLSmpDirectoryPath
     Filnam              : $$TSPLSmpRefreshfile:#TSPLFilename


;; Dummy Function introduced to Refresh the Table dependent on the Previous
;; Field Value i.e., User Input
[Function: TSPLSmpRefreshTable]
 
    Parameter        : pTempVar    : String
    00    : RETURN    : True
 
[Function: TSPLSmpRefreshFile]
 
    Parameter        : attchfile    : String
    OO    : RETURN    : True



;; Variable declaration to hold the last updated Directory path
[Variable: TSPLSmpDirectoryPath]
 
    Type    : String
    Persist    : Yes

[Variable: Pathupdate]
 
    Type    : String
    Persist    : Yes