Add Address coulumn to this .tcp tally tdl for import masters ---

Discussion in 'Requests' started by bikash agarwal, Jan 14, 2019.

         

  1. 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 !!!!
     

    Attached Files:

    Last edited: Jan 15, 2019


  2. Miscrcc

    Miscrcc New Member


    Very Good Code Thanks Sir,
    But Address only one line showing if such as not showing Address-1, Address-2 & Address-3
     
    Last edited: Apr 2, 2019


Share This Page