Request for Assistance with Coding Issues (code)

Discussion in 'Free Source Codes' started by Sanjaykuindia, Apr 24, 2023.

    
  1. Sanjaykuindia

    Sanjaykuindia New Member


    I have been working on a code and I have encountered some difficulties. I have created a collection in tally but I am now stuck and unable to move forward. Furthermore, I need to import some data from Excel to Tally using this code, but I am also facing some challenges in this area.

    I am hoping that you could provide me with some guidance or assistance on how to move forward with these issues. Any help or advice that you could provide would be greatly appreciated.

    Thank you in advance for your time and consideration.





    [#Menu: Gateway of Tally]
    Add : Item: reportv318v : alter : reportv318v

    [Report: reportv318v]

    Form : reportv318v
    Title : "recode"
    Object : Company

    [Form: reportv318v]

    Part : reportv318v
    Width : 60% Screen
    Height : 60% Screen
    Background : FormClr


    [Part:reportv318v]

    Lines : reportv318vt1, reportv318vt2
    Repeat : reportv318vt2 : reportv318vs1
    Scroll : Vertical
    Common Border : Yes
    Break On : $$IsSysName:$reportv318vs2

    [Line: reportv318vt1]

    Use : reportv318vt2
    Local : Field : Default : Delete : Storage
    Local : Field : Default : Inactive : No
    Local : Field : Default : Type : String
    Local : Field : reportv318vf1 : Info : "KEYWORD"
    Local : Field : reportv318vf2 : Info : "LEDGER"
    Border : Thin Bottom

    [Line: reportv318vt2]

    Fields : reportv318vf1,reportv318vf2



    [Field: reportv318vf1]

    Use : Name Field
    Storage : reportv318vs2


    [Field: reportv318vf2]

    Use : Name Field
    Storage : reportv318vs3
    Table : List of ledgers, End of List
    Show Table : Always


    [System: UDF]

    reportv318vs1: Aggregate: 31801
    reportv318vs2: String : 31802
    reportv318vs3: String : 31803




    ;; End-of-File





    [#Menu: Gateway of Tally]

    ;Add : Item : Before : @@locQuit : "IMPORT EXCEL" : Call : UPDATE321
    Add : Item : "IMPORT EXCEL" : Call : UPDATE321


    [Collection: UPDATE321]
    ODBC : "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=D:\DX.xlsx" ;;A COLOUM "KEYWORD" B COLOUM "LEDGER"
    SQL : "Select * from [Sheet1$]"

    [Function: UPDATE321]
    Variable : TotalEntries : String
    Variable : Count : Number

    Variable : DATA : String
    Variable : LEDGER : String


    00 : Set : TotalEntries : $$NumItems:UPDATE321
    01 : Start Progress: ##TotalEntries : "IMPORT COLLECTION" : ##SVCurrentCompany
    02 : Walk Collection : UPDATE321

    10: SET : DATA : $$STRING:$_1
    11: SET : LEDGER : $$STRING:$_2
    12 : log : ##data ;;LOG ENTRY
    13 : Set Object
    14 : Insert Collection Object : reportv318vs1 ;: COMPANY ;##SVCurrentCompany
    15 : Set Target:reportv318vs1


    ;16 : Walk : reportv320vlist1
    ;17 : SET OBJECT VALUES : reportv318vs1.reportv318vs2 : $$TgtObject:$$STRING:##DATA
    ;18 : SET OBJECT VALUES : reportv318vs3 : $$TgtObject:$$STRING:##LEDGER

    20 : ListAdd : reportv318vs2 : ##Index : $$STRING:##DATA
    21 : SET VALUE : reportv318vs2 : $$TgtObject:$$STRING:##DATA
    ;22 : SET VALUE : reportv318vs3 : $$TgtObject:$$STRING:##LEDGER

    60: Set Target:..
    70: Accept Create
    80: Accept Object
    100: Return
    ;101 : End Walk
    201 : Show Progress : ##Count
    202 : Increment : Count
    203 : End Walk
    204 : End Progress
     


  2. Sanjaykuindia

    Sanjaykuindia New Member


    IMPORT FORM EXCEL NOT WORK

    [Function: UPDATE321]
    Variable : TotalEntries : String
    Variable : Count : Number

    Variable : DATA : String
    Variable : LEDGER : String


    00 : Set : TotalEntries : $$NumItems:UPDATE321
    01 : Start Progress: ##TotalEntries : "IMPORT COLLECTION" : ##SVCurrentCompany
    02 : Walk Collection : UPDATE321

    10: SET : DATA : $$STRING:$_1
    11: SET : LEDGER : $$STRING:$_2
    12 : log : ##data ;;LOG ENTRY
    13 : Set Object
    14 : Insert Collection Object : reportv318vs1 ;: COMPANY ;##SVCurrentCompany
    15 : Set Target:reportv318vs1


    ;16 : Walk : reportv320vlist1
    ;17 : SET OBJECT VALUES : reportv318vs1.reportv318vs2 : $$TgtObject:$$STRING:##DATA
    ;18 : SET OBJECT VALUES : reportv318vs3 : $$TgtObject:$$STRING:##LEDGER

    20 : ListAdd : reportv318vs2 : ##Index : $$STRING:##DATA
    21 : SET VALUE : reportv318vs2 : $$TgtObject:$$STRING:##DATA
    ;22 : SET VALUE : reportv318vs3 : $$TgtObject:$$STRING:##LEDGER

    60: Set Target:..
    70: Accept Create
    80: Accept Object
    100: Return
    ;101 : End Walk
    201 : Show Progress : ##Count
    202 : Increment : Count
    203 : End Walk
    204 : End Progress
     


Share This Page