fetch excel file path and excel sheet problem

Discussion in 'Free Source Codes' started by Jenny, Mar 31, 2021.

    
  1. Jenny

    Jenny Active Member


    in one function i call 2 function at a time . if i direct import to tally its working good but if i put excel path and excel sheet (manually) its showing error.
    showing error is - LABLE : 01 : invaild number of steps
    LABLE : 01 : Action execution of failed
    LABLE : 1 : Action execution of failed
    Code:
    [#Menu        : Import Indirect]
        Add    : Key Item    :  After : @@LocBanking    :  "Excel Import"    : T : alter    : Excel_Options :  NOT $$IsEmpty:$$SelectedCmps
    
    [System: Variable]
        Excel_Path     : ""
        Excel_File     : ""
        Excel_PathFile: ""
    
    [Variable: Excel_Path]
        Type: String
        Default: ""
        Persist: Yes
    
    [Variable: Excel_File]
        Type: String
        Default: ""
        Persist: Yes
    
    [Variable: Excel_PathFile]
        Type: String
        Default: ""
        Persist: Yes
        
    [Report: Excel_Options]
        Form        : Excel_Options
        Full Screen    : Yes
    
    [Form: Excel_Options]
        No Confirm      : No
        Space Top       : 1
        Space Left      : 1
        Space Right     : 1
        Space Bottom    : 1
    
        Height        : 30% Page
        Width        : 60% Page
        Vertical Align  : Centre
        Local    : Field    : Excel_Import Directory    : Modifies    : Excel_Path    : Yes
        Local    : Field    : Excel_Import FileName    : Modifies     : Excel_File    : Yes
        Local: Field: Form SubTitle    : Info    : "Select (.xls, .xlsx, .xlsm, .xlsb) file from the List"
        Part: Excel_ImportSet
        On : Form Accept:yes:Call: ImportS
       
    [Function    : LogjSonfileName]
        10        : Log: ##Excel_PathFile
    
    [Part: Excel_ImportSet]
        Parts    : Excel_Import Title, Form SubTitle
        Parts    : Excel_Import Details
        Vertical     : Yes
        Border            : thin Bottom
    [Part: Excel_Import Title]
        Lines    : Excel_Import, Excel_Import Info
        Space Bottom    : 0.20
        Border            : thin Bottom
    
        [Line: Excel_Import]
            Fields          : Form Sub Title
            Local   : Field : Form Sub Title : Info    : $$LocaleString:"Excel file Importing"
                
        [Line: Excel_Import Info]
            Field    : Simple Field
      
            Local   : Field : Simple Field : Info       : $$LocaleString:"(Only Excel Format is Supported)"
            Local   : Field : Simple Field : Full Width : Yes
            Local   : Field : Simple Field : Align      : Centre
    
        
    [Part: Excel_Import Details]
            Lines    :   Excel_Import Directory, Excel_Import FileName
            Space Bottom    : 0.10
            Space Bottom    : 0.20
        
        
        [Line: Excel_Import Directory]
            Field   : Long Prompt, Excel_Import Directory
            Local   : Field : Long Prompt    : Info     : $$LocaleString:"Import Directory :"
            Local   : Field : Long Prompt : Alignment: Left
            Local   : Field : Long Prompt : Width : 40
            Space Bottom    : 0.20
        
        [Line: Excel_Import FileName]
            Field   : Long Prompt, Excel_Import FileName
            Local   : Field : Long Prompt    : Info     : $$LocaleString:"Import File Name (.xls, .xlsx, .xlsm, .xlsb) :"
            Local   : Field : Long Prompt : Alignment: Left
            Local   : Field : Long Prompt : Width : 40
            Space Bottom    : 0.20
          
        
        [Field: Excel_Import Directory]
            Use        : Name Field
            Width   : @@MaxNameWidth
            Set as    : ##Excel_Path
            Full Width   : Yes
            Style        : Normal
            Set Always    : Yes
            Storage        : u_RMP_Directory
            Modifies    : Excel_Path
            Validate    : NOT $$IsEmpty:$$Value
        
        [Field: RBC Medium Prompt]
            Use            : Name Field
            Set as        : ""
            Width        : @@NarrWidth
            Full Width    : Yes
            Style        : Normal
            
       [Field: Excel_Import FileName]
            Use        : Name Field
            Width   : @@MaxNameWidth
            Full Width   : Yes
            Modifies    : Excel_File
            Storage        : u_RMP_FileName
            Style        : Normal
            Set Always    : Yes
            Table        : ExcelList of Files
            Show Table : On Blank
            Validate    : NOT $$IsEmpty:$$Value
            On    : Accept:  Yes  : Set:Excel_PathFile:##Excel_Path+"\"+$$Value
            On     : Accept:  Yes: Field Accept
    
    
        
    [Collection: ExcelList of Files]
                Title                : "List of Files : " + ##Excel_Path
                Source Collection    : Excel Files Src
                Compute                : Name            : $Name
                Compute                : FileDate        : $LastModifiedDate
                Compute                : FileSize        : $FileSize
                Compute                : IsDirectory    : $IsDirectory
    
                Format                    : $Name, 30
                Format                    : $FileDate, 15
                Format                  : $FileSize, 8
                Format                    : @@FileType
                Sub Title                : "File Name", "System Date", "Size", "Type"
                Full Height                : Yes
                Client Only                : Yes
        
    [Collection:Excel Files Src]
    
        Data Source    : Directory    : ##Excel_Path
        Filter        :  ExcelOnlyFilesFilter
        Filter        :  ExcelSelectedFormats
        
        Client Only    : Yes
        Keep Source: Yes
    
    [Function: ExcelSupportedFiles]
    
        Parameter    : InFileName    : String
    
        0010        : Do If    :  ##InFileName ENDING WITH "xls" OR ##InFileName ENDING WITH "xlsx" OR ##InFileName ENDING WITH "xlsm" OR ##InFileName ENDING WITH "xlsb": Return    : Yes
    [System: Formula]
    
        ExcelOnlyFilesFilter            : NOT $IsDirectory
        ExcelSelectedFormats            : ($Name ENDING WITH "xls" OR $Name ENDING WITH "xlsx" OR $Name ENDING WITH "xlsm" OR $Name ENDING WITH "xlsb")
    
      
    
    [Function : ImportS]
    001 : Call : ImportSVC
    002 : Call : Receipt Import
    
    [Function : ImportSVC]
    
    21 : QUERY BOX                : "Import Sales Data"    : Yes    : No
    22 : SET : Counter : 0
    23 : START PROGRESS : ($$NumItems:SalesInfo) : "Importing Vouchers" : @@CmpMailName : "Importing Sales Vouchers ..."
    24 : WALK COLLECTION : Sales Info
    
    [Function : Receipt Import]
    
    210 : QUERY BOX                : "Import Receipt Data"    : Yes    : No
    220 : SET : Counter : 0
    230 : START PROGRESS : ($$NumItems:ReceiptInfo) : "Importing Receipt Vouchers" : @@CmpMailName : "Importing Receipt Vouchers ..."
     


  2. Kps97

    Kps97 New Member


    Hi, Jenny

    We need your Help for another TDL so pl drop your contacts details
     


  3. Jenny

    Jenny Active Member


    For which help...now a days me busy with my study....when I have time then I help you.. kissudears@gmail.com
     


Share This Page