This is a tdl coding for importing GST Sales Voucher from Excel..... [System : Formula] locImportofXLData : "Import Sales From Excel" [#Menu : Gateway Of Tally] Add : Key item : After : @@locImportofData : @@locImportofXLData : X : CALL : ImportS [Function : ImportS] 001 : Call : ImportSVC [Function : ImportSVC] Variable : Counter : Number Variable : ParName1 : String : 0 00 : SET : Counter : 0 01 : START PROGRESS : ($$NumItems:SalesInfo) : "Importing Vouchers" : @@CmpMailName : "Importing Sales Vouchers ..." 02 : WALK COLLECTION : Sales Info ;;------------------------------------------------- ;;Create Party Ledger under Sundry Debtors if party ledger name not found 40: Set : ParName1 : $DSDCName 41 : IF :$$IsEmpty:$Name:Ledger:##parName1 42 : NEW OBJECT : Ledger 43 : Set Value : Name : ##ParName1 44 : Set Value : Parent : "Sundry Debtors" 46 : CREATE TARGET 47 : END IF ;;------------------------------------------------- ;;Basic Info 49 : SET : SVViewName : $$SysName:AcctgVchView 50 : NEW OBJECT : Voucher 51 : SET VALUE : Date : $$Date@EVchDatePost 52 : SET VALUE : VoucherTypeName : "Sales" 53 : Set Value :IsInvoice :"YES" 54 : SET VALUE : Narration : $DSDNarration 59 : SET VALUE : Reference :$DSDVchNo ;;--------------------------------------------------------- ;;TO Entry 60 : INSERT COLLECTION OBJECT : LedgerEntries 61 : SET TARGET : LedgerEntries 62 : SET VALUE : LedgerName : $DSDCName 63 : SET VALUE : Amount : $DSDTotal 64 : SET VALUE : Is Deemed Positive : "YES" 65 : SET TARGET : .. ;;--------------------------------------------------------- ;;BY SALES Entry 70 : INSERT COLLECTION OBJECT : LedgerEntries 71 : SET TARGET : LedgerEntries 72 : SET VALUE : LedgerName : "GST SALES 28" 73 : SET VALUE : Amount : $DSDSAAmt 74 : SET VALUE : Is Deemed Positive : "NO" 75 : SET TARGET : .. 76 : INSERT COLLECTION OBJECT : LedgerEntries 77 : SET TARGET : LedgerEntries 78 : SET VALUE : LedgerName : "GST SALES 18" 79 : SET VALUE : Amount : $DSDSBAmt 80 : SET VALUE : Is Deemed Positive : "NO" 81 : SET TARGET : .. 90 : INSERT COLLECTION OBJECT : LedgerEntries 91 : SET TARGET : LedgerEntries 92 : SET VALUE : LedgerName : "GST SALES 12" 93 : SET VALUE : Amount : $DSDSCAmt 94 : SET VALUE : Is Deemed Positive : "NO" 95 : SET TARGET : .. 100 : INSERT COLLECTION OBJECT : LedgerEntries 101 : SET TARGET : LedgerEntries 102 : SET VALUE : LedgerName : "GST SALES 5" 103 : SET VALUE : Amount : $DSDSDAmt 104 : SET VALUE : Is Deemed Positive : "NO" 105 : SET TARGET : .. ;;--------------------------------------------------------- ;;BY SGST Enty 110 : INSERT COLLECTION OBJECT : LedgerEntries 111 : SET TARGET : LedgerEntries 112 : SET VALUE : LedgerName : "SGST" 113 : SET VALUE : Amount : $DSDSGSTAmt 114 : SET VALUE : Is Deemed Positive : "NO" 115 : SET TARGET : .. ;;--------------------------------------------------------- ;;BY CGST Enty 120 : INSERT COLLECTION OBJECT : LedgerEntries 121 : SET TARGET : LedgerEntries 122 : SET VALUE : LedgerName : "CGST" 123 : SET VALUE : Amount : $DSDCGSTAmt 124 : SET VALUE : Is Deemed Positive : "NO" 125 : SET TARGET : .. 130 : INSERT COLLECTION OBJECT : LedgerEntries 131 : SET TARGET : LedgerEntries 132 : SET VALUE : LedgerName : "ROUND OFF" 133 : SET VALUE : Amount : $DSDRAAmt 135 : SET TARGET : .. ;;--------------------------------------------------------- 140 : CREATE TARGET ;;--------------------------------------------------------- 150 : SET VALUE : PersistedView : ##SVViewname 160 : INCREMENT : Counter 170 : SHOW PROGRESS : ##Counter 180 : END WALK 190 : END PROGRESS 200 : RETURN [Collection: Sales Info] ODBC : "Driver={Microsoft Excel Driver (*.xls)};Dbq=" + @@MaterODBCExcelPath+"" SQL : "SELECT * FROM ["+@@MaterODBCExcelSheet+"$]" SQLObject : Sales Info Obj [Object : Sales Info Obj] DSDDate : $_1 DSDVchNo : $_2 DSDCName : $_3 DSDSAAmt : $_4 DSDSBAmt : $_5 DSDSCAmt :$_6 DSDSDAmt : $_7 DSDSGSTAmt : $_8 DSDCGSTAmt :$_9 DSDRAAmt :$_10 DSDTotal : $_11 DSDNarration : $_12 [System : Formula] EVchNoPost : $_1 EVchDatePost : $$Date@EVchDateStrPost EVchDateStrPost : ($$StringPart:$_1:8:2) + "-" + + ($$StringPart:$_1:5:2) + "-" + + ($$StringPart:$_1:0:4) [System : Formula] Mater ODBC Excel Path : "C:\SALES.xls" ;; The Excel Sheet Path Mater ODBC Excel Sheet : "SALES" ;; Sheet name in That Excel File ;;End-of-File
Sir where is the tdl file... and what is the procedure. i want to import the sales data with hsn codes from excel to tally.erp9.. please help
This Site is only for Knowledge purpose for those who are learning TDL if you don't know what is TDL Code, Then how can you use the code Learn TDL and write the program, if you have any doubts then our experts will help you, Otherwise Purchase the TDL from experts. Above Code is TDL Code only
Hey Brother VRS please let other members to respond if it is sharable then they will share or else not ,i dont think everybody here is expert in TDL making,so do not discourage needy memebers .
Dear Bro i am not discouraging any one, i am talking about those people who are taking source codes from here and making TCP's, and selling. recently i had seen those peoples, even i am also learning. "Practise makes perfect"
Then Pay money And get Tally Customoisation from Tally Partners. You will not sell any thing for free . Wiil you. One more thing This site is only for knowledge exchange. Nothing Else
some youtube uploaders are doing the same, copy the code from here as it is and coloring as tdl programmers
