[#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
