TCS 1% tax need add in below code but its not working [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:\Users\kamalhasan\Desktop\tdl expert\SALES.xls" ;; The Excel Sheet Path Mater ODBC Excel Sheet : "SALES" ;; Sheet name in That Excel File ;;End-of-File Kindly help me
