;http://tdlexpert.com/index.php?

threads/export-address-book-direct-to-excel-just-
one-click.4936/
;;EXPORT ADDRESS BOOK DIRECT TO EXCEL JUST ONE CLICK

[#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: ASno : Info : "S.no"
Local: Field: APartyName : Info : $$LocaleString:"રસીદ નં. + પ્લોટ નં. + નામ +
(પ્લોટ વાર) " ;"Party"
Local: Field: AAddress : Info : $$LocaleString:"સરનામું" ;"Address"
Local: Field: AContactPerson : Info : $$LocaleString:"Person"
Local: Field: APhone : Info : $$LocaleString:"Phone"
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

Local : Field : SD Sr No : Set as : "SNo"

Local : Field : SD Name : Set as : "રસીદ નં. + પ્લોટ નં. + નામ +(પ્લોટ વાર)
"
Local : Field : SD Mobile : Set as : "મોબાઇલ નં."
Local : Field : SD Phone : Set as : "ફોન નં."
Local : Field : SD Contact No : Set as : "ફોન નં.-2"
Local : Field : SD TinNo : Set as : "ફાઈલ વાર."
Local : Field : SD Pan : Set as : "ફાઈનલ વાર"

Local : Field : SD Address : Set as : "સરનામું"

Local : Field : SD ST : Set as : "સહી."
Local : Field : SD Fax : Set as : "Rc No-dt."

Local : Field : Email ID : Set as : "ID No."

Local : Field : GroupName1 : Set as : "વિભાગ"
Local: Field: SD Amount : Set as: "રકમ"

[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 : ASno,APartyName, AAddress, AContactPerson,APhone, AMobile, AEmail, APAN,
AVAT, AService Tax
Local : Field : ASno : Border : Thin Bottom Left
Local : Field : APartyName : Border : Thin Bottom Left
Local : Field : AAddress : Border : Thin Bottom Left
Local : Field : AContactPerson: Border : Thin Bottom Left
Local : Field : APhone : 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 : ASno : Width : 5
Local : Field : APartyName : Width : 30
Local : Field : AAddress : Width : 30
Local : Field : AContactPerson: Width : 25
Local : Field : APhone : Width : 15
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:ASno]

Use : Sort : @@Default : $Name

Use : ADefault
Alter : Ledger
Set as : $$Line
Width : 1.5 cm
Align : Center
color : Red ;;DarkBlue16Bit

[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 : APhone]
Use : Name Field
Set as : $Ledgerphone
Max : 13

[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, Ledgerphone, 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