hello sir, i have added "Address column & mobile number" to this .tdl for import masters --- problem is when master is imported by this TDL .. address and mobile No & DETAILS. are shown in alter mode not in display mode when we view ledger information ..... ?????? ;------------------------------GST MASTER IMPORT BY BK [#Menu : Accounts Info.] Title : $$LocaleString:"Accounts Info." Add : Key Item : Before : @@LocQuit : GST Ledger Master Import : L : Execute : GSTLedger Import Add : key Item : Before : @@LocQuit : Blank [Report : GSTLedger Import] Form : GSTLedger Updation Title : $$LocaleString:"Import GST Ledger Master [Powered By BK ]" Auto : Yes [Form : GSTLedger Updation] No Confirm : Yes Space Top : 1 Space Left : 1 Space Right : 1 Space Bottom : 1 Option : Small Size Form Full Width : No Full Height : No Vertical Align : Centre Parts : GSTLedger Updation Title, GSTLedger Updation Details On : Form Accept : Yes : CALL : GSTLedger Updation Button : GST Ledger Template Button [Part : GSTLedger Updation Title] Lines : GSTLedger Updation , 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 [Powered By BK ]" [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:\Program Files\Tally\Tally.ERP9\EXCEL2TOLLYBK\GSTLedgerMaster.xlsx" 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" Width : @@NarrWidth Full Width : Yes [Function : GSTLedger Updation] Variable : RCnt : Number Variable : CCnt : Number Variable : APTotRCount : Number : 2 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 : 2 042 : While : Not $$IsEmpty$$FileReadCell:##RCnt:2) 044 : Set : GSTLedName : $$FileReadCell:##RCnt:2 051 : New Object : Ledger : ##GSTLedName : Yes 052 : Set Value : NAME : $$FileReadCell:##RCnt:2 053 : Set Value : Parent : $$FileReadCell:##RCnt:3 054 : Set Value : CountryName : If $$IsEmpty:$$FileReadCell:##RCnt:4 Then "" Else $$FileReadCell:##RCnt:4 055 : Set Value : LedStateName : If $$IsEmpty:$$FileReadCell:##RCnt:5 Then "" Else $$FileReadCell:##RCnt:5 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 058 : Set Value : LedgerPhone : If $$IsEmpty:$$FileReadCell:##RCnt:8 Then "" Else $$FileReadCell:##RCnt:8 059 : Set Value : Address : If $$IsEmpty:$$FileReadCell:##RCnt:9 Then "" Else $$FileReadCell:##RCnt:9 060 : Set Value : OpeningBalance : If $$IsEmpty:$$FileReadCell:##RCnt:10 Then "" Else $$FileReadCell:##RCnt:10 063 : Alter Target 071 : Increment : RCnt 072 : Show Progress : ##RCnt 073 : 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 : 2 042 : While : Not $$IsEmpty$$FileReadCell:##RCnt:3) 044 : Set : GSTCurGroup : $$FileReadCell:##RCnt:3 052 : If : Not ($$NumItems:GSTLedgerGroups > 0) 053 : New Object : Group : ##GSTCurGroup : Yes 054 : Set Value : Name : $$FileReadCell:##RCnt:3 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 ;---------------- xlsx file is attached as attachment !!!!
Very Good Code Thanks Sir, But Address only one line showing if such as not showing Address-1, Address-2 & Address-3