EXPORT ADDRESS BOOK DIRECT TO EXCEL JUST ONE CLICK

Discussion in 'Free Source Codes' started by harbansh, Nov 5, 2016.

    
  1. harbansh

    harbansh Active Member


    Dear All,
    Through this moudule you can directly export Debtors and Creditors Detailed Information in Excel Sheet just one Click. Find the attached file.
     

    Attached Files:

    SURENRA likes this.


  2. uttam100

    uttam100 Member


    [#Menu : Account Books]
    Add : Key Item : After : @@locLedger : Address Book : A : Menu : Address Book : $IsAddressBookModuleOn:Company:##SVCurrentCompany

    [Menu : Address Book]
    Key Item : Sundry Debtors : D : Display Collection : Sundry Debtors Collection
    Key Item : Sundry Creditors : C : Display Collection : Sundry Creditors Collection

    [Collection : Sundry Debtors Collection]
    Title : $$LocaleString:"Group List"
    Type : Group
    Belongs To : Yes
    Child Of : $$GroupSundryDebtors
    Variable : SunDebtors
    Trigger : Debtors Collection
    Report : Sundry Debtors
    Fetch : Name, Parent
    Align : Center
    Sub Title : "Name", "Group"

    [Collection : Sundry Creditors Collection]
    Title : $$LocaleString:"Group List"
    Type : Group
    Belongs To : Yes
    Child Of : $$GroupSundryCreditors
    Variable : SunCreditors
    Trigger : Creditors Collection
    Report : Sundry Creditors
    Fetch : Parent
    Align : Center

    ;;Triger Report;;
    [Report : Debtors Collection]
    Form : Debtors Collection

    [Form : Debtors Collection]
    Part : Debtors Collection
    Horizontal Align : Center
    Vertical Align : Top

    [Part : Debtors Collection]
    Line : Debtors CollectionT, Debtors CollectionB

    [Line : Debtors CollectionT]
    Field : Name Title Field
    Space Bottom : .5

    Local : Field : Name Title Field : info : $$LocaleString:"Group List"
    Local : Field : Name Title Field : Style : Normal Bold
    Local : Field : Name Title Field : Align : Center
    Local : Field : Name Title Field : Border: Full Thin Bottom

    [Line : Debtors CollectionB]
    Field : Debtors CollectionB

    [Field : Debtors CollectionB]
    Table : Sundry Debtors Collection, Primary
    Modifies : SunDebtors
    Key : Create Group
    Show Table : Always
    Width : 25
    Max : 251
    Format : Name, 20
    Format : Group, 15

    [Report : Creditors Collection]
    Form : Creditors Collection

    [Form : Creditors Collection]
    Part : Creditors Collection
    Horizontal Align : Center
    Vertical Align : Top

    [Part : Creditors Collection]
    Line : Creditors CollectionT, Creditors CollectionB

    [Line : Creditors CollectionT]
    Field : Name Title Field
    Space Bottom : .5

    Local : Field : Name Title Field : info : $$LocaleString:"Group List"
    Local : Field : Name Title Field : Style : Normal Bold
    Local : Field : Name Title Field : Align : Center
    Local : Field : Name Title Field : Border: Full Thin Bottom

    [Line : Creditors CollectionB]
    Field :Creditors CollectionB

    [Field : Creditors CollectionB]
    Table : Sundry Creditors Collection
    Modifies : SunCreditors
    Key : Create Group
    Show Table : Always
    Width : 25
    Max : 251

    ;;Final Report;;
    [Report : Sundry Creditors]
    Form : Sundry Debtors
    Title : "Address Book"
    Object : Group : ##SunCreditors

    Local : Part : AddressBody Part : Repeat : Address Book Line : AddressBookCredColl
    Local : Line : AddressTitle Line : Delete : Field : Name Field
    Local : Line : AddressTitle Line : Add : Field : Simple Field
    Local : Field : Simple Field : Set as : ##SunCreditors
    Local : Field : Simple Field : Style : Normal Bold
    Local : Field : Simple Field : Full Width: Yes
    Local : Field : ATurnover : Set as : $$AsCrAmt:$ClosingBalance

    [Form : Sundry Creditors]
    Use : Sundry Debtors

    [Report : Sundry Debtors]
    Form : Sundry Debtors
    Title : "Address Book"
    Object : Group : ##SunDebtors

    [Form : Sundry Debtors]
    Height : 100% Screen
    Width : 100% Screen
    Space Top : .5
    Space Bottom: .5

    Part : AddressTitle Part, AddressTop Part, AddressBody Part
    Fetch Object: Ledger : ##LedgerName : TNetSACashLedger, LedOpeningBalance, OpeningBalance, IncomeTaxNumber, IsLedOfBankGrp, TBalClosing, TBalOpening, IsCashBankAccount, +
    IsBillWiseOn, IsCashAccount, LedIsContactLed, Parent, LedgerPhone, LedgerMobile, LedgerContact, MailingName, StateName, Pincode, LedMultiAddressList.AddressName, LedMultiAddressList.PhoneNumber, LedMultiAddressList.MobileNumber, +
    LedMultiAddressList.ContactPerson, LedMultiAddressList.IncomeTaxNumber
    Buttons : Print Button, Export Button, Filter Button, ValueButton, BottomToolBarBtn8, BottomToolBarBtn9, MailButton, UploadButton
    Bottom Button : Report Operations, Multi Address Print

    Local : Field : Default : Style : Calbiri10

    [Part : AddressTitle Part]
    Line : AddressTitle Line
    Local : Field : Default : Style : Calbiri10

    [Line : AddressTitle Line]
    Field : Simple Prompt, Name Field

    Local : Field : Simple Prompt : Info : $$SysName:Group
    Local : Field : Simple Prompt : Width : 10
    Local : Field : Name Field : Set as : ##SunDebtors
    Local : Field : Name Field : Style : Normal Bold
    Local : Field : Name Field : Full Width: Yes


    [Part : AddressTop Part]
    Line : Address Top Titel Line
    Border : Thin Top
    Local : Field : Default : Style : Calbiri10

    [Line : Address Top Titel Line]
    Use : Address Book Line

    Local : Field : APartyName : Info : $$LocaleString:"Party"
    Local : Field : AAddress : Info : $$LocaleString:"Address"
    Local : Field : AContactPerson: Info : $$LocaleString:"Person"
    Local : Field : AMobile : Info : $$LocaleString:"Mobile"
    Local : Field : AEmail : Info : $$LocaleString:"Email"
    Local : Field : APAN : Info : $$LocaleString:"PAN"
    Local : Field : AVAT : Info : $$LocaleString:"TIN"
    Local : Field : AService Tax : Info : $$LocaleString:"Excise Reg no"
    Local : Field : Default : Lines : 2
    Local : Field : Default : Style : Small Bold
    Local : Field : Default : Border: Thin Top Bottom
    Local : Field : Default : Align : Center

    [Part : AddressBody Part]
    Line : Address Book Line
    Repeat : Address Book Line : AddressBookColl
    Scroll : Vertical
    Border : Thin Top
    Border : Thin Bottom
    Common Border : Yes

    [Line : Address Book Line]
    field : APartyName, AAddress, AContactPerson, AMobile, AEmail, APAN, AVAT, AService Tax

    Local : Field : APartyName : Border : Thin Bottom Left
    Local : Field : AAddress : Border : Thin Bottom Left
    Local : Field : AContactPerson: Border : Thin Bottom Left
    Local : Field : AMobile : Border : Thin Bottom Left
    Local : Field : AEmail : Border : Thin Bottom Left
    Local : Field : APAN : Border : Thin Bottom Left
    Local : Field : AVAT : Border : Thin Bottom Left
    Local : Field : AService Tax : Border : Thin Bottom Left Right
    Local : Field : Default : Style : Calbiri10
    Local : Field : APartyName : Width : 30
    Local : Field : AAddress : Width : 30
    Local : Field : AContactPerson: Width : 25
    Local : Field : AMobile : Width : 15
    Local : Field : AEmail : Width : 30
    Local : Field : APAN : Width : 12
    Local : Field : AVAT : Width : 15
    Local : Field : AService Tax : Width : 15

    Option : Alter Line : $$IsLedger

    [!Line : Alter Line]
    Key : Aleter Enter

    [Key : Aleter Enter]
    Key : Enter
    Action : Append : Ledger
    Mode : Display

    [Field : APartyName]
    Use : Name Field
    Set as : $Name
    Quick Search : Yes

    [Field : AAddress]
    Use : Name Field
    Set as : $$FullList:LedAddressColl:$Address + $StateName + " " + $PinCode
    Lines : 0

    [Field : AContactPerson]
    Use : Name Field
    Set as : $LedgerContact

    [Field : AMobile]
    Use : Name Field
    Set as : $LedgerMobile
    Max : 13

    [Field : AEmail]
    Use : Name Field
    Set as : $Email

    [Field : APAN]
    Use : Name Field
    Set as : $IncomeTaxNumber
    Max : 10

    [Field : AVAT]
    Use : Name Field
    Set as : $VATTINNumber
    Max : 11

    [Field : AService Tax]
    Use : Name Field
    Set as : $ExciseRegNo
    Max : 10

    [Collection : AddressBookColl]
    Type : Ledger
    Belongs To : Yes
    Child Of : ##SunDebtors
    Sort : @@Default : $Name
    Fetch : Name, Address, LedgerContact, LedgerMobile, Email, IncomeTaxNumber, VATTINNumber, STXNumber, CurrentTurnover, ClosingBalance, StateName, PinCode
    Fetch : AllLedgerEntries
    Search Key : $Name

    [Collection : AddressBookCredColl]
    Use : AddressBookColl
    Child Of : ##SunCreditors

    [Style : Calbiri10]
    Font : Calbiri
    Height : 8

    [Border : Thin Bottom Left Right]
    Left : Thin
    Right : Thin
    Bottom : Thin

    [Variable : SunDebtors]
    Type : String

    [Variable : SunCreditors]
    Type : String

    [Variable : Creditors]
    Type : Logical

    [System : Variable]
    SunDebtors : No
    SunCreditors: No

    ;;Print Button;;
    [Button : Multi Address Print]
    Title : "Print Address"
    Key : Alt + F11
    Action : Print Report : Address Print
    Scope : Selected Lines

    [Report : Address Print]
    Print : Address Book Confg
    Variable : IsMultiLedgerPrint
    Set : IsMultiLedgerPrint: Yes
    Set : IsMultiPage : Yes
    Set : InNewPages : Yes
    Collection : Select Ledger Address Print
    Form : Address Book Print
    Variable : SVPrintOrientation
    Set : SVPrintOrientation : ##SVPrintOrientation

    ;;Printing Report;;
    [Form : Address Book Print]
    Part : Mobile Details, Address Details, My Logo Print, Address Bottom
    Height : (##SVChqHeight + @@TopAdjustment - @@ChqTopClip) mms
    Width : (##SVChqWidth + @@LeftAdjustment) mms

    Space Top : (@@TopClip) mms
    Space Bottom: (@@BottomClip) mms
    Space Right : (@@RightClip) mms
    Space Left : (@@LeftClip) mms
    Option : AddLandscapeRight : ##CHQOrientationType = $$LocaleString:"Vertical - Right"
    Option : AddLandscapeCentre : ##CHQOrientationType = $$LocaleString:"Vertical - Centre"
    Option : AddLandscapeLeft : ##CHQOrientationType = $$LocaleString:"Vertical - Left"
    Option : AddAlignRear : NOT ##SVAlignment And Not ##CHQOrientationType = $$LocaleString:"Horizontal"

    [!Form : AddLandscapeRight]
    Horizontal Alignment : Right
    Vertical Alignment : Bottom

    [!Form : AddLandscapeCentre]
    Horizontal Alignment : Right
    Vertical Alignment : Centre

    [!Form : AddLandscapeLeft]
    Vertical Alignment : Top
    Horizontal Alignment : Right

    [!Form : AddAlignRear]
    Delete : Horizontal Alignment

    [!Form : AddPreprinted]
    Delete : Local : Line : Address Book Print
    Local : Line : Address : Space Bottom : 1
    [Part : Mobile Details]
    Line : Mobile Details
    Space Top : .25

    [Line : Mobile Details]
    Right Field : AMobile

    Local : Field : AMobile : Align : Left
    Local : Field : AMobile : Set as : if $$IsEmpty:$LedgerMobile then "" else $$LocaleString:"Mb. :" + $LedgerMobile
    Local : Field : AMobile : Width : 35

    [Part : Address Details]
    Line : Address Book Print, MailingName, Address, State, Pin
    Repeat : Address : LedAddressColl
    Space Top : if ##PreprintedEnv then 2 else 1

    [Line : Address Book Print]
    Right Field : Name Field

    Local : Field : Name Field : Info : if ##PreprintedEnv then "" else $$LocaleString:"To,"
    Local : Field : Name Field : Width : 35

    [Line : Logo Printing]

    [Line : MailingName]
    Right Field : Name Field

    Local : Field : Name Field : Set as : if ##MailingName then $MailingName else ""
    Local : Field : Name Field : Width : 35
    Invisible : not ##MailingName

    [Line : Address]
    Right Field : Address
    Space Bottom: if ##PreprintedEnv then 1.25 else .5

    [Field : Address]
    Use : Name Field
    Set as : $Address
    Line : 0
    Width : 35

    [Line : State]
    Right Field : State
    Space Bottom: if ##PreprintedEnv then 1.25 else .5

    [Field : State]
    Use : Name Field
    Set as : $StateName
    Width : 35

    [Line : Pin]
    Right Field : Pin

    [Field : Pin]
    Use : Name Field
    Set as : $Pincode
    Width : 35

    [Part : My Logo Print]
    Use : My Logo
    Space Left : 1 Inch
    Space Top : 1 Inch
    Invisible : Not ##LogoPr
    Height : 6

    [Part : My Logo]
    Line : My Logo
    Graph Type : ##SALogoPath
    Height : 6
    Width : 30% Page
    Vertical : No

    [Line : My Logo]
    Right Field : My Logo

    [Field : My Logo]
    Set as : ""

    [Part : Address Bottom]
    Line : Address Title, Address Company
    Space Top : 1 Inch

    [Line : Address Title]
    Field : Name Field

    Local : Field : Name Field : Set as : if ##CompAddress then $$LocaleString:"Meet Steel" else ""
    Local : Field : Name Field : Space Left : .75 Inch

    [Line : Address Company]
    Field : Address Company
    Space Bottom : .25 Inch

    [Field : Address Company]
    Use : Name Field
    Set as : if ##CompAddress then $$FullList:CompanyAddress:$Address else ""
    Lines : 2
    Width : 3 Inch
    Space Left : .75 Inch

    ;;Print Configuration;;
    [Report : Address Book Confg]
    Use : SV Print Configuration
    Form : Address Book Confg

    [Form : Address Book Confg]
    Use : SV Print Configuration
    Add : Button : Print Space
    Add : Part : Address Print Coommon
    add : Button : Address Orientation

    [Part : Address Print Coommon]
    Line : Print Name, Print Comp Address, Preprinted Envelope, Logo Print

    [Line : Print Name]
    Field : Medium Prompt, Logical Field

    Local : Field : Medium Prompt : Set as : $$LocaleString:"Print Mailing Name ?"
    Local : Field : Logical Field : Modifies : MailingName
    invisible : NOT @@SVPixelMode

    [Line : Print Comp Address]
    Field : Medium Prompt, Logical Field

    Local : Field : Medium Prompt : Set as : $$LocaleString:"Print Company Address ?"
    Local : Field : Logical Field : Modifies : CompAddress
    invisible : NOT @@SVPixelMode

    [Line : Preprinted Envelope]
    Field : Medium Prompt, Logical Field

    Local : Field : Medium Prompt : Set as : $$LocaleString:"Print on Printed Envelope ?"
    Local : Field : Logical Field : Modifies : PreprintedEnv
    invisible : NOT @@SVPixelMode

    [Line : Logo Print]
    Field : Medium Prompt, Logical Field

    Local : Field : Medium Prompt : Set as : $$LocaleString:"Print Logo ?"
    Local : Field : Logical Field : Modifies : LogoPr
    invisible : NOT @@SVPixelMode

    [Button : Print Space]
    Title : "Space"
    Key : F12
    Action : Execute : Print Space Adjustment

    [Report : Print Space Adjustment]
    Form : Print Space Adjustment

    [Form : Print Space Adjustment]
    Part : Print Space Adjustment

    [Part : Print Space Adjustment]
    Line : Height Adjustment

    [Line : Height Adjustment]
    Field : Medium Prompt, Height Adjustment

    Local : Field : Medium Prompt : Info : $$LocaleString:"Height"

    [Field : Height Adjustment]
    Set as : ""
    Modifies: HeightAdj
    Width : 12
    Max : 2

    [Line : AddressPrntOrientation]
    Field : Medium Prompt, Add Orientation, Add Orientation Save

    Local : Field : Medium Prompt : Info : $$LocaleString:"Address Printing Orientation ?"

    [Field: Add Orientation]

    Width : @@NameWidth - 2
    Table : Orientation
    Show Table : Always
    Set as : ##CHQOrientationType
    Set Always : Yes
    Modifies : CHQ Orientation Type : Yes

    [Field: Add Orientation Save]

    Use : Name Field
    Set as : If ((##CHQOrientationType = $$LocaleString:"Horizontal" )) Then $$SysName:portrait Else $$SysName:Landscape
    Set Always : Yes
    Modifies : SVPrintOrientation : Yes
    Invisible : Yes

    ;; Cheque Printing Orientation
    [Button: Address Orientation]
    Key : Alt + N
    Title : $$LocaleString:"Orientation"
    Action : Execute : Address Printing Orientation

    [Report: Address Printing Orientation]

    Auto : Yes
    Title : $$LocaleString:"Address Print Orientation"

    [Form: Address Printing Orientation]
    Part : Address Printing Orientation

    No confirm : Yes

    Full width : No
    Full height : No
    Space Right : 2
    Space Left : 2
    Background : @@SV_CMPCONFIG

    Local : Style : Default : Height : @@SmallSize

    [Part: Address Printing Orientation]

    Lines : Form SubTitle, AddressPrntOrientation, VerticalAddress Alignment

    Local : Line : Default : Space Bottom : 0.2
    Local : Line : Form SubTitle : SpaceBottom : 1

    Local : Field : Form SubTitle : Info : $$LocaleString:"Address Printing Orientation"
    Local : Field : Medium Prompt : Width : 35

    [Line: VerticalAddress Alignment]

    Field : Medium Prompt, VerticalAddress Alignment, VerticalAddress Alignment Inv

    Local : Field : Medium Prompt : Info : $$LocaleString:"Print From(for Vertical Only):"
    Local : Field : Medium Prompt : Inactive : ##CHQOrientationType = $$LocaleString:"Horizontal"

    ;; Field Definitions
    [Field: VerticalAddress Alignment]

    Width : @@NameWidth - 2
    Table : Alignment
    Show Table : Always
    Set as : If ##SVAlignment Then $$LocaleString:"Front" Else $$LocaleString:"Rear"
    Set Always : Yes
    Inactive : ##CHQOrientationType = $$LocaleString:"Horizontal"

    [Field: VerticalAddress Alignment Inv]

    Set as : If #VerticalChequeAlignment = $$LocaleString:"Front" Then Yes Else No
    Set Always : Yes
    Modifies : SVAlignment : Yes
    Invisible : Yes

    [Collection : Select Ledger Address Print]
    Data Source : Report : Selected

    [Collection : LedAddressColl]
    Type : Address : Ledger
    Object : StatePin
    Fetch : MailingName, Address

    [Object : StatePin]
    Address : If $$IsEmpty:$$Owner:$StateName:Ledger:##SunDebtors AND $$IsEmpty:$$Owner:$Pincode:Ledger:##SunDebtors Then "" +
    Else If $$IsEmpty:$$Owner:$Pincode:Ledger:##SunDebtors Then $$Owner:$StateName:Ledger:##SunDebtors +
    Else If $$IsEmpty:$$Owner:$StateName:Ledger:##SunDebtors Then $$LocaleString:"Pincode : " + $$Owner:$Pincode:Ledger:##SunDebtors +
    Else $$Owner:$StateName:Ledger:##SunDebtors + " - " + $$Owner:$Pincode:Ledger:##SunDebtors

    [#Line: LV OpeningBalance]
    Border : Thin Bottom

    [#Line: DSP VchDetail]
    Border : Thin Bottom

    [#Part: CMP TallyShopFeaturesTitle]
    Add : Line : After : CMP TallyShopFeaturesTitle : Address Book Module

    [Line : Address Book Module]
    Field : Long Prompt, Address Book Module
    Local : Field : Long Prompt : Info : $$LocaleString:"Enable Address Book With Printing Module ?"

    [Field : Address Book Module]
    Use : Logical Field
    Storage : IsAddressBookModuleOn

    ;; Formula Definitions
    [System: Formula]

    Portrait : $$LocaleString:"Horizontal"
    LandscapeRight : $$LocaleString:"Vertical - Right"
    LandscapeCentre : $$LocaleString:"Vertical - Centre"
    LandscapeLeft : $$LocaleString:"Vertical - Left"
    AlignFront : $$LocaleString:"Front"
    AlignRear : $$LocaleString:"Rear"

    [System : UDF]
    IsAddressBookModuleOn : Logical : 1008

    [Variable : MailingName]
    Persistent : Yes
    Type : Logical

    [Variable : CompAddress]
    Persistent : Yes
    Type : Logical

    [Variable : Height Adj]
    Persistent : Yes
    Type : Logical

    [Variable : Width Adj]
    Persistent : Yes
    Type : Logical

    [Variable : PreprintedEnv]
    Persistent : Yes
    Type : Logical

    [Variable : LogoPr]
    Persistent : Yes
    Type : Logical

    [System : variable]
    MailingName : no
    CompAddress : No
    Height Adj : No
    Width Adj : No
    PreprintedEnv : No
    LogoPr : No
     
    Hemanth likes this.


  3. Amiya

    Amiya New Member


    Sir,
    How I get the bank details of the Ledger ?
     
    Manoj Kumar S likes this.


  4. Manoj Kumar S

    Manoj Kumar S New Member


    THANK YOU VERY MUCH SIR IT IS VERY USEFUL FOR ME
     


  5. Hemanth

    Hemanth New Member




    I was tried to add the GST Number in the code but not succeed can please tell me how to add it?
     


  6. uttam100

    uttam100 Member


    $PARTYGSTIN
     


Share This Page