Ledger & Stock Item GST Details Import from Excel To Tally

Dear All

Here with we have attached the Ledger GST Details & Stock Item GST Details updation from Excel to Tally,

After load this file

In Accounts Info --> GST Ledger Import --> Press Alt + L --> All Ledger Master Will Export and save in Default tally location the add required information the close close Excel

and come to same process the press entry it ask ledger Import then it will import

same process for item also ( In Item master once you update GST details on particular Date then again you try in same date means it show error then need to change another data or go to GST Item menu and clear the rate then import again)

 

CAN YOU DEVELOP TDL FOR ME FOR AUTO ROUND OFF OF TOTAL INVOICE VALUES IN TALLY.ERP9 V6.3 INVOICE FORMAT WITHOUT CREATING CLASS IN VOUCHER, IT SHOULD WORK NORMALLY IN SALES VOUCHER ENTRY , SO WHEN WE SELECT ROUND OFF IT AUTOMATICALLY CALCULATE & ROUND OFF VALUE SHOULD BE AUTOMATICALLY GET ENTER & WE HAVE TO JUST ACCEPT THE VOUCHER

 

FUNCTION: 'GSTItem Updation' LABEL: 010 : Source Excel file specified does not exists OR could not be opened
FUNCTION: 'GSTItem Updation' LABEL: 020 : No source file open!
FUNCTION: 'GSTItem Updation' LABEL: 022 : No open file in current context!
FUNCTION: 'GSTItem Updation' LABEL: 042 : No open file in current context!


tHIS ERROR sHOW IN CODE

 

[Field : GST Item Import FileName]
Use : Name Field
Set as : "./GST Master\GSTStockItemMaster.xlsx"



solve with this change


Thanks for Sharing this code

 

i hope some fraud code in tcp file when i attach file in tally error message comes as " Mail server could not connect"

 

Hi J G Kumar,

In this post i'm attached full source code so while you checking kindly connect the main file. no need to connect the TCP.

And one more thing suppose you are developer means open the code and check where that error occur.

There is mistake in my side while i'm uploading i need to remove the TCP file. Every one who can access this code just remove that TCP. Connect the main file and compile as per your wish.

Mr. Kumar Don't tell that "FRAUD" code.​

 

can you send the excel templates also

 

can you send the excel templates also

 

after Load this TDL go to Accounts Info --> GST Ledger Import --> Press the Button Alt + L
In Same Way Item also

Excel will come qutomatically

 

Hi. Can you help with importing other items and entries from excel?

 

its not working btw if my tally not a gst is this still working ?? i just need a way to import the stock items cuz all the tdl file in internet are not working =( and need an easy way to import them

 

Dear sir,

This tdl file is very good and work"s perfect. See if you can add standard rates & standard cost to this tdl also.

 

Dear Sir,

While importing the stock item, I am getting some error, i,e.;
FUNCTION: 'GSTItem Updation' LABEL: 063 : Invalid Method Name: SECBox
FUNCTION: 'GSTItem Updation' LABEL: 063 : Action Execution Failed!
FUNCTION: 'GSTItem Updation' LABEL: : Action Execution Failed!

Please help!

 

Dear Sir,

While importing the stock item, I am getting some error, i,e.;
FUNCTION: 'GSTItem Updation' LABEL: 063 : Invalid Method Name: SECBox
FUNCTION: 'GSTItem Updation' LABEL: 063 : Action Execution Failed!
FUNCTION: 'GSTItem Updation' LABEL: : Action Execution Failed!

Please help!

 

Dear Sir,

While importing the stock item, I am getting some error, i,e.;
FUNCTION: 'GSTItem Updation' LABEL: 063 : Invalid Method Name: SECBox
FUNCTION: 'GSTItem Updation' LABEL: 063 : Action Execution Failed!
FUNCTION: 'GSTItem Updation' LABEL: : Action Execution Failed!

Please help!

 

[#Menu : Accounts Info.]
Title : $$LocaleString:"Accounts Info."
Add : Key Item : Before : @@LocQuit : "Import Ledger Master" : G : Execute : GSTLedger Import
Add : Key Item : Before : @@LocQuit : "Import Stock Master" : A : Execute : GST Item Import
Add : key Item : Before : @@LocQuit : Blank
Add : Key Item : Before : @@LocQuit : Import Ledger Group Master : L : Execute : Group Masters Import
Add : Key Item : Before : @@LocQuit : Import Stock Group1 : S : Execute : StGroup Masters Import

Add : key Item : Before : @@LocQuit : Blank

[Report : GSTLedger Import]

Form : GSTLedger Updation
Title : $$LocaleString:" Goodwill Import GST Ledger Master"
Auto : Yes

[Form : GSTLedger Updation]

No Confirm : Yes
Space Top : 1
Space Left : 1
Space Right : 1
Space Bottom : 1
Option : Small Size Form
Width : 60% page
Height : 30% Page
Vertical Align : Centre
Parts : GSTLedger Updation Title, GSTLedger Updation Details
;;Bottom Part:smsMark
On : Form Accept : Yes : CALL : GSTLedger Updation
; Button : GST Ledger Template Button
[Part:smsMark]
Line:smsMarkLn

[Line:smsMarkLn]
Field:smsMarkFld

[Field:smsMarkFld]
Use:Name Field
Set as:""
Full Width:Yes
Align:Center
Color:"Blue"
Style:sms007
Border:Thin Bottom
Read Only:Yes
Skip Forward:Yes

[Style:sms007]
Font:"Times New Roman"
Height:14
[Part : GSTLedger Updation Title]

Lines : GSTLedger Updation ,GSTLedger Developer, GSTLedger Updation Info

[Line : GSTLedger Updation]

Fields : Form Sub Title
Space Bottom : 0.25
Local : Field : Form Sub Title : Info : $$LocaleString:"Import GST Ledger Master"
[Line : GSTLedger Developer]
Fields : Form Sub Title
Space Bottom : 0.25
Local : Field : Form Sub Title : Info : $$LocaleString:"Goodwill Learning world. The Experts in Income Tax, GST,Tally.Erp 9 and M S Excel"

[Line : GSTLedger Updation Info]

Field : Simple Field
Space Bottom : 0.75
Local : Field : Simple Field : Info : $$LocaleString:"(Only Specific Excel Format is Supported Like .xls or .xlsx)"
Local : Field : Simple Field : Full Width : Yes
Local : Field : Simple Field : Align : Centre

[Part : GSTLedger Updation Details]
Lines : GSTLedger ImportFileName, GSTLedger ImportSheetName
Local : Line : Default : Space Top : 1 MMS
Local : Line : Default : Space Bottom : 1 MMS

[Line : GSTLedger ImportFileName]
Field : Medium Prompt, GSTLedger ImportFileName
Local : Field : Medium Prompt : Info : $$LocaleString:"Import File Name (Excel) :"
[Field : GSTLedger ImportFileName]
Use : Name Field
;; Set as : "C:\Users\Dhruv\Desktop\New folder (2)\GSTLedgerMaster.xlsx"
;; Set as : "D:\Tally\Tally.ERP9.493\2022-02-20 V0.2 Bhojal Main(Print 6-3-22) With Led+Back.xlsx"
;; Set as : "D:\Tally\Tally.ERP9.493\2022-05-01 Bhojal Main.xlsx"
Set as : "C:\Users\Dhruv\Desktop\2022-10-25 Format - Plot List_V0.7_m.xlsm"

Width : @@NarrWidth
Full Width : Yes

[Field : GST LedgersList]
Use : Name Field
Table : GSTLedger Updation
Show Table : Always
Set Always : Yes

[Line : GSTLedger ImportSheetName]

Field : Medium Prompt, GSTLedger ImportSheetName
Local : Field : Medium Prompt : Info : $$LocaleString:"Sheet Name:"
[Field : GSTLedger ImportSheetName]
Use : Name Field
;;Set as : "Sheet1"
Set as : "LED-T"
Width : @@NarrWidth
Full Width : Yes

[Function : GSTLedger Updation]

Variable : RCnt : Number
Variable : CCnt : Number
Variable : APTotRCount : Number : 3
Variable : APFilePath : String
Variable : SPShetName : String

Variable : GSTLedName : String
G01 : Call : GSTLedger Importgroup
001 : Set : APFilePath : #GSTLedgerImportFileName
005 : Set : SPShetName : #GSTLedgerImportSheetName
010 : Open File : ##APFilePath : Excel : Read
020 : Set Active Sheet : ##SPShetName
032 : While : Not $$IsEmpty$$FileReadCell:##APTotRCount:1)
034 : Increment : APTotRCount
036 : End While

040 : Start Progress : ##APTotRCount : ##SVCurrentCompany : "GST Ledger Updation" : "Please Wait..."
041 : Set : RCnt : 3

042 : While : Not $$IsEmpty$$FileReadCell:##RCnt:3)
044 : Set : GSTLedName : $$FileReadCell:##RCnt:3

051 : New Object : Ledger : ##GSTLedName : Yes
052 : SET VALUE : LedPok : If $$IsEmpty:$$FileReadCell:##RCnt:2 Then "" Else $$FileReadCell:##RCnt:2
053 : Set Value : NAME : $$FileReadCell:##RCnt:4
054 : insert collection object : language name : GSTLedAlias ;ok
055 : set value : name : $$FileReadCell:##RCnt:3
; 056 : Alter Target : ..
057 : set target : ..



065 : SET VALUE : LedgerMobile : If $$IsEmpty:$$FileReadCell:##RCnt:5 Then "" Else $$FileReadCell:##RCnt:5
070 : SET VALUE : LedgerPhone : If $$IsEmpty:$$FileReadCell:##RCnt:6 Then "" Else $$FileReadCell:##RCnt:6
071 : Set Value : LedFailSqYd : If $$IsEmpty:$$FileReadCell:##RCnt:7 Then "" Else $$FileReadCell:##RCnt:7
075: Set Value : Parent : $$FileReadCell:##RCnt:8

080 : SET VALUE : Narration : If $$IsEmpty:$$FileReadCell:##RCnt:9 Then "" Else $$FileReadCell:##RCnt:9
081 : SET VALUE : Address : If $$IsEmpty:$$FileReadCell:##RCnt:10 Then "" Else $$FileReadCell:##RCnt:10 + ", " ;+ (##RCnt:22) ;+ ##RCnt:22
; 085 : SET VALUE : Address : If $$IsEmpty:$$FileReadCell:##RCnt:11 Then "" Else $$FileReadCell:##RCnt:11 + ", " ;+ (##RCnt:22) ;+ ##RCnt:22
; 090 : SET VALUE : Address : If $$IsEmpty:$$FileReadCell:##RCnt:12 Then "" Else $$FileReadCell:##RCnt:12 + ", " ;+ (##RCnt:22) ;+ ##RCnt:22
091 : SET VALUE : Pincode : If $$IsEmpty:$$FileReadCell:##RCnt:13 Then "" Else $$FileReadCell:##RCnt:13

095 : Set Value : LedCountryName1 : If $$IsEmpty:$$FileReadCell:##RCnt:14 Then "" Else $$FileReadCell:##RCnt:14
;; 100 : Set Value : LedStateName : If $$IsEmpty:$$FileReadCell:##RCnt:15 Then "" Else $$FileReadCell:##RCnt:15
105 : Set Value : StateName : If $$IsEmpty:$$FileReadCell:##RCnt:15 Then "" Else $$FileReadCell:##RCnt:15
110 : Set Value : LedgerContact : If $$IsEmpty:$$FileReadCell:##RCnt:16 Then "" Else $$FileReadCell:##RCnt:16
115 : Set Value : LedgerFax : If $$IsEmpty:$$FileReadCell:##RCnt:17 Then "" Else $$FileReadCell:##RCnt:17
120 : Set Value : Email : If $$IsEmpty:$$FileReadCell:##RCnt:18 Then "" Else $$FileReadCell:##RCnt:18
125 : Set Value : IncomeTaxNumber : If $$IsEmpty:$$FileReadCell:##RCnt:19 Then "" Else $$FileReadCell:##RCnt:19
130 : Set Value : SalesTaxNumber : If $$IsEmpty:$$FileReadCell:##RCnt:20 Then "" Else $$FileReadCell:##RCnt:20
135 : Set Value : VATTINNUMBER : If $$IsEmpty:$$FileReadCell:##RCnt:21 Then "" Else $$FileReadCell:##RCnt:21
140 : Set Value : InterStateSTNumber : If $$IsEmpty:$$FileReadCell:##RCnt:22 Then "" Else $$FileReadCell:##RCnt:22
145 : Set Value : LedMobile : If $$IsEmpty:$$FileReadCell:##RCnt:23 Then "" Else $$FileReadCell:##RCnt:23
150 : Set Value : MGLedDINo : If $$IsEmpty:$$FileReadCell:##RCnt:24 Then "" Else $$FileReadCell:##RCnt:24
155 : Set Value : LedFailCr : If $$IsEmpty:$$FileReadCell:##RCnt:25 Then "" Else $$FileReadCell:##RCnt:25
160 : Set Value : LedBack : If $$IsEmpty:$$FileReadCell:##RCnt:26 Then "" Else $$FileReadCell:##RCnt:26
165 : Set Value : LedBackDate : If $$IsEmpty:$$FileReadCell:##RCnt:27 Then "" Else $$FileReadCell:##RCnt:27
166 : Set Value : OpeningBalance : If $$IsEmpty:$$FileReadCell:##RCnt:28 Then "" Else $$FileReadCell:##RCnt:28

; 056 : Set Value : GSTRegistrationType:If $$IsEmpty:$$FileReadCell:##RCnt:6 Then "" Else $$FileReadCell:##RCnt:6
; 057 : Set Value : PartyGSTIN : If $$IsEmpty:$$FileReadCell:##RCnt:7 Then "" Else $$FileReadCell:##RCnt:7
200 : Alter Target

205 : Increment : RCnt
210 : Show Progress : ##RCnt
220 : End While

[Function : GSTLedger Importgroup]
Variable : GSTCurGroup : STring

001 : Set : APFilePath : #GSTLedgerImportFileName
005 : Set : SPShetName : #GSTLedgerImportSheetName

010 : Open File : ##APFilePath : Excel : Read
020 : Set Active Sheet : ##SPShetName
032 : While : Not $$IsEmpty$$FileReadCell:##APTotRCount:1)
034 : Increment : APTotRCount
036 : End While

041 : Set : RCnt : 3

042 : While : Not $$IsEmpty$$FileReadCell:##RCnt:8)

044 : Set : GSTCurGroup : $$FileReadCell:##RCnt:8

052 : If : Not ($$NumItems:GSTLedgerGroups > 0)

053 : New Object : Group : ##GSTCurGroup : Yes
054 : Set Value : Name : $$FileReadCell:##RCnt:8
055 : Set Value : PARENT : " Primary"
056 : Create Target
059 : End If

060 : Increment : RCnt
070 : End While

[Collection : GSTLedger Groups]
Type : Group
Format : $Name
Filter : GSTCurGroup

[System : Formula]

GSTCurGroup : $Name = ##GSTCurGroup