Help Needed: TDL Import Function Failing at SAVE TARGET (Label 180)

Discussion in 'Tally Developer' started by kishan agrawal, May 31, 2025.

  1. kishan agrawal

    kishan agrawal Member


    I'm working on a TDL code to import up to 10 rows with 2 columns (reportv320vs2, reportv320vs3) from an Excel file into a custom object (reportv320vs1) in Tally. The collection reportv320vlist1 displays data correctly, but the import function P8015importexcel fails at label 180 (SAVE TARGET), and no data is imported.

    [System: UDF]
    reportv320vs1: Aggregate: 31801
    reportv320vs2: String: 31802
    reportv320vs3: String: 31803

    [Collection: reportv320vlist1]
    Type: reportv320vs1 : Company
    Child Of: ##SVCurrentCompany
    Format: $reportv320vs2, 20
    Format: $reportv320vs3, 20
    Title: "List of Courses"

    [Function: P8015importexcel]
    VARIABLE: Total: Number
    VARIABLE: Count: Number

    00: SET: Total: $$Min:10:$$NumItems:p8015EXCELOPEN
    10: IF: $$IsEmpty:##Total
    20: MSG BOX: "Error": "No data to import!"
    30: RETURN
    40: END IF
    50: START PROGRESS: ##Total: @@P8015NAME: "Import": ##SVCurrentCompany
    60: SET: Count: 0

    70: WALK COLLECTION: P8015EXCELOPEN
    80: IF: ##Count >= 10
    90: BREAK
    100: END IF
    110: IF: $$IsEmpty:$_1
    120: CONTINUE
    130: END IF
    140: SET OBJECT: Company: ##SVCurrentCompany
    150: NEW OBJECT: reportv320vs1:company
    160: SET VALUE: reportv320vs2: $_1
    170: SET VALUE: reportv320vs3: $_2
    180: SAVE TARGET
    190: INCREMENT: Count
    200: SHOW PROGRESS: ##Count
    210: END WALK

    220: END PROGRESS
    230: MSG BOX: "Status": "Imported " + $$String:##Count + " records"
     
    kishan agrawal, May 31, 2025
    #1


  2. kishan agrawal

    kishan agrawal Member


    i add this blue line on my code its word nice

    Object : Company : ##SVCurrentCompany

    01 : SET TARGET

    02 : SET TARGET


    VARIABLE: Total: Number
    VARIABLE: Count: Number

    00: SET: Total: $$Min:10:$$NumItems:p8015EXCELOPEN
    10: IF: $$IsEmpty:##Total
    20: MSG BOX: "Error": "No data to import!"
    30: RETURN
    40: END IF

    50: START PROGRESS: ##Total: @@P8015NAME: "Import": ##SVCurrentCompany
    60: SET: Count: 0

    70: WALK COLLECTION: P8015EXCELOPEN
    80: IF: ##Count >= 10
    90: BREAK
    100: END IF

    110: IF: $$IsEmpty:$_1
    120: CONTINUE
    130: END IF
    135: LOG: $_1
    136 : LOG:$_2

    140: SET TARGET: Company :##SVCurrentCompany
    150: INSERT COLLECTION OBJECT: reportv320vs1
    160: SET VALUE: reportv320vs2 : $_1
    170: SET VALUE: reportv320vs3 : $_2


    70x : SET TARGET : ..

    180: INCREMENT: Count
    190: SHOW PROGRESS: ##Count
    100x : END Walk

    120x : SET TARGET : ..

    130x : ACCEPT ALTER



    210: END PROGRESS
     
    kishan agrawal, Jun 1, 2025
    #2


Share This Page