ADDRESS BOOK-FIND GSTIN,MOB,PHONE,ADDRESS,LED CONTACT WITH SINGLE CLICK

rajiv jaiswal · Apr 18, 2022

sattam said: ↑

Here is Modified code for Tally Prime
Also added features that you will see this Address Book in Go To feature of Tally Prime

Please Unload the old code and load this Modified code.
Enjoy.

Code:


[#Menu: Gateway of Tally]

Add : Item : Address Book          : Display    : AddressBookFD

[#Table: GT CommonReports]
  
    Add    : Object    :Sat Party Address Book

[Object    : Sat Party Address Book]

    Use                : Go To Report Obj

    Action    : Goto Action        : Display Current Report
    Action    : Display Action    : Display Current Report
    Name            : $$LocaleString:"Party Address Book"
    Current Report    : AddressBookFD
  
[Report:AddressBookFD]
    Form    : AddressBookFD
    Variables : SV CurrentCompany
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""
  
[Form:AddressBookFD]
  
    Use                : Common Hidden Keys      
    Parts           : DSp Company Name, DSP Company Address  
    Part            : SKCHeader,SKCDetails
    Button            : Change Company,BlankButton,SKCGroupFilter,SKCLedgFilter,SKCStateFilter,SKCAddrsFilter,SKCPinFilter,SKCPhoneFilter,SKCgstinFilter,SKCContactFilter
    Bottom Button    : SKCF12Config
    Space Top       : If $$InPrintMode Then 0.5 Else 0 inches
    Width            : 100% Screen
    Space Left        : 1 mm
    Space Right        : 1 mm
    Local             : Line     : Default     : Space Bottom:0.3
    Local            : Field    : Default:Local:Style:Default:Font:"Courier New"
  
[Key: SKCAlterBtn]
    Key         : Enter
    Title       : $$LocaleString:"Alter"
    Type        : BottomToolBarBtn2
    Action      : Alter Object
  
[Key: SKCCreateBtn]
    Key         : ALT+C
    Title       : $$LocaleString:"Create Led."
    Type        : BottomToolBarBtn3
    Action      : Create    : Ledger
  
[Part:SKCHeader]
    Line    : SKCHeader
    Space Bottom        : 2 mm
    Horizontal Align    : Center
  
[Line:SKCHeader]
    Field    : Simple Field
    Local    : Field    : Simple Field    : Set as    : "Address Book"
    Local    : Field    : Simple Field    : Style        : Large Bold  
    Local    : Field    : Simple Field    : Cells        : 13
    Local    : Field    : Simple Field    : Full Width: Yes
    Local    : Field    : Simple Field    : Align        : Center
    Local    : Field    : Simple Field    :color:DarkBlue16Bit
[Part:SKCDetails]
    Line    : SKCDetailsHead,SKCDetails
    Repeat    : SKCDetails:SKCCollectionSKC
    Scroll    : Vertical
    Common Border    : Yes

[Line:SKCDetailsHead]
    Use        : SKCDetails
    Border    : Column Titles
  
    Local    : Field    : Default        : Style        : Normal Bold
    Local    : Field    : Default        : Align        : Center
    Local    : Field    : Default        : Delete    : Border
    Local    : Field    : SKCSno        : Set as    : "Sno"
    Local    : Field    : SKCName        : Set as    : "Ledger Name"
    Local    : Field    : SKCAddress    : Set as    : "Address"
    Local    : Field    : SKCContact    : Set as    : "Contact"
    Local    : Field    : SKCPhone        : Set as    : "Phone"
    Local    : Field    : SKCMobile        : Set as    : "Mobile"
    Local    : Field    : SKCFax        : Set as    : "Fax"
    Local    : Field    : SKCState        : Set as    : "State"
    Local    : Field    : SKCPin        : Set as    : "Pincode"
    Local    : Field    : SKCEmail        : Set as    : "Email"
    Local    : Field    : SKCPan        : Set as    : "GSTIN/PAN"
    Local    : Field    : SKCPan        : color        : "DarkBlue16Bit"
    Local    : Field    : SKCTIN        : Set as    : "PAN/IT"
    Local    : Field    : SKCCST        : Set as    : "CST No."
    Local    : Field    : SKCOpening    : Info        : "Opening Bal."
    Local    : Field    : SKCClosing    : Info        : "Closing Bal."

[Line:SKCDetails]
    Fields        : SKCSno,SKCName,SKCAddress,SKCPan,SKCContact,SKCPhone,SKCEmail,SKCState,SKCOpening,SKCClosing
    ;Right Field        :SKCMobile,SKCTIN,SKCCST,SKCPin,SKCFax,
    ;Repeat : SKCOpening
    Option    : AlterOnEnter
    Border    : Thin Left Right Bottom
    Space Bottom    : 1 mm
    Space Top    : 1 mm  
    Local    : Field    : Default        : Style        : Tiny Bold
    Local   : Field : Default : Local:STYLE:DEFAULT:Height:7.5

[Field:SKCDefault]
    ;Line    : 0
    Border    : Thin Left
    Style    : Tiny Bold
    color    : DarkBlue16Bit
[Field:SKCSno]
    Use    : SKCDefault
    Alter    : Ledger
    Set as    : $$Line
    Width    : 1.5 cm
    Align    : Center
  
[Field:SKCName]
    Use    : SKCDefault
    Set as    : $Name++ $$NewLine +"**"+$Parent;+")"
    Width    : 28
    Tooltip    : "Opening Balance : "+$$String:$OpeningBalance
    Quick Search    : Yes
    Line    :0
  
[Field:SKCAddress]
    Use    : SKCDefault
    Set as  : $$FullList:Address:$Address
    Width    : 40  
    Line    : 0
  
[Field:SKCContact]
    Use    : SKCDefault
    Width    : 28
    Set as    : If NOT $$IsEmpty:$LedgerMobile then $LedgerContact++ $$NewLine +"(Mob- "+$LedgerMobile+")" else if ($$IsEmpty:$LedgerMobile AND $$IsEmpty:$LedgerPhone) then $LedgerContact else $LedgerContact++ $$NewLine +"(Ph - "+$LedgerPhone+")"
    Line    :0
    Invisible: Not $SKCF12Contact:Company:##SVCurrentCompany
  
[Field:SKCPhone]
    Use    : SKCDefault
    Width    : 14
    Set as    : If ($$IsEmpty:$LedgerPhone) then "Not Available" else $LedgerPhone
    Invisible: Not $SKCF12Phone:Company:##SVCurrentCompany
    Color:if $$Value="Not Available" then "Red" else "DarkBlue16Bit"
  
[Field:SKCMobile]
    Use        : SKCPhone
    Width    : 14
    Set as    : If ($$IsEmpty:$LedgerMobile) then "Not Available" else $LedgerMobile
    Invisible: Not $SKCF12Mobile:Company:##SVCurrentCompany
    Color:if $$Value="Not Available" then "Red" else "DarkBlue16Bit"
  
[Field:SKCFax]
    Use        : SKCPhone
    Set as    : $LedgerFax
    Invisible: Not $SKCF12FaxFlag:Company:##SVCurrentCompany
  
[Field:SKCState]
    Use    : SKCDefault
    Width    : 15
    Set as    : If $$IsEmpty:$PinCode then $LedStateName else $LedStateName ++$$NewLine +"("+$PinCode+")"
    Invisible: Not $SKCF12State:Company:##SVCurrentCompany
    Line    :2
  
[Field:SKCPin]
    Use        : SKCDefault
    Width    : 12
    Invisible: Not $SKCF12Pin:Company:##SVCurrentCompany
    Set as    : $Pincode
    Align    : Center
  
[Field:SKCPan]
  
    Use    : SKCDefault
    Set as : If @@NoGSTNoPAN Then @@NoGSTnPANMess Else If @@NoGST Then @@GSTNotExists Else @@GSTExists      
    Align    : Center
    Invisible: Not $SKCF12Pan:Company:##SVCurrentCompany
    Color    :if $$Value CONTAINS "Both Not Available" then "Red" else  "Dark Red"
    Width    : 22
    Line    :0      
  
[Field:SKCTIN]
    Use        : SKCPhone
    Set as    : $IncomeTaxNumber
    Align    : Center
    Invisible: Not $SKCF12Tin:Company:##SVCurrentCompany
  
[Field:SKCCST]
    Use        : SKCPhone
    Set as    : $InterStateSTNumber
    Align    : Center
    Invisible: Not $SKCF12CST:Company:##SVCurrentCompany
  
[Field:SKCEmail]
    Invisible: Not $SKCF12EMail:Company:##SVCurrentCompany
    Use        : SKCDefault
    Width    : 25
    Set as    : if Not $$IsEmpty:$Email AND Not $$IsEmpty:$EmailCC Then $Email+","+$EmailCC Else+
                if Not $$IsEmpty:$Email Then $Email Else $EmailCC
              
[Field:SKCOpening]
    Use    : Amount Field
    Format    : "DrCr"
    Set as    : $OpeningBalance
    Border    : Thin Left
    Invisible    : Not $SKCF12Opening:Company:##SVCurrentCompany
    Style    : Tiny Bold
    color    : Red
  
[Field:SKCClosing]
    Use    : SKCOpening
    Set as    : $ClosingBalance
    Invisible    : Not $SKCF12Closing:Company:##SVCurrentCompany
              
;=========================================================================
;============================== Filter ===================================
[Button:SKCLedgFilter] ;;========================== Ledger Filter ======================
    Key        : F2
    Action    : Execute : SKCLedgFilter
    Title    : Ledger
  
[Report:SKCLedgFilter]
    Form    : SKCLedgFilter
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""
  
[Form:SKCLedgFilter]
    Part    : SKCLedgFilter
    No Confirmation    : Yes

[Part:SKCLedgFilter]
    Line    : SKCLedgFilter

[Line:SKCLedgFilter]
    Field    : Medium Prompt,SKCLedgFilter
    Local    : Field    : Medium Prompt    : Set as    : "Select Ledger : "
  
[Field:SKCLedgFilter]
    Table        : LedgerFilter,EndOfList
    ShowTable    : Always
    Use        : Name Field
    Width        : 20
    Border        : Thin Box
    Variable    : SKCPrtyName
    Modifies    : SKCPrtyName
  
[Variable:SKCPrtyName]
    Type    : String
  
[Button:SKCGroupFilter] ;;========================== Group Filter ======================
    Key        : Alt+F1
    Action    : Execute : SKCGroupFilter
    Title    : Group
  
[Report:SKCGroupFilter]
    Form    : SKCGroupFilter
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""
  
[Form:SKCGroupFilter]
    Part    : SKCGroupFilter
    No Confirmation    : Yes

[Part:SKCGroupFilter]
    Line    : SKCGroupFilter

[Line:SKCGroupFilter]
    Field    : Medium Prompt,SKCGroupFilter
    Local    : Field    : Medium Prompt    : Set as    : "Select Group : "
  
[Field:SKCGroupFilter]
    Table        : SKCGroupFilter,EndOfList
    ShowTable    : Always
    Use        : Name Field
    Width        : 20
    Border        : Thin Box
    Variable    : SKCGroupName
    Modifies    : SKCGroupName
  
[Variable:SKCGroupName]
    Type    : String
  
[Button:SKCAddrsFilter] ;;========================== Address Filter ======================
    Key        : F9
    Action    : Execute : SKCAddrsFilter
    Title    : Address
  
[Report:SKCAddrsFilter]
    Form    : SKCAddrsFilter
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""
  
[Form:SKCAddrsFilter]
    Part    : SKCAddrsFilter
    No Confirmation    : Yes

[Part:SKCAddrsFilter]
    Line    : SKCAddrsFilter

[Line:SKCAddrsFilter]
    Field    : Medium Prompt,SKCAddrsFilter
    Local    : Field    : Medium Prompt    : Set as    : "Select Address : "
  
[Field:SKCAddrsFilter]
    Table        : SKCAddrsFilter,EndOfList
    ShowTable    : Always
    Use        : Name Field
    Width        : 20
    Border        : Thin Box
    Variable    : SKCAddrsName
    Modifies    : SKCAddrsName
  
[Variable:SKCAddrsName]
    Type    : String
  
[Button:SKCPinFilter] ;;========================== Mobile Filter ======================
    Key        : F4
    Action    : Execute : SKCPinFilter
    Title    : Led Mobile
  
[Report:SKCPinFilter]
    Form    : SKCPinFilter
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""
  
[Form:SKCPinFilter]
    Part    : SKCPinFilter
    No Confirmation    : Yes

[Part:SKCPinFilter]
    Line    : SKCPinFilter

[Line:SKCPinFilter]
    Field    : Medium Prompt,SKCPinFilter
    Local    : Field    : Medium Prompt    : Set as    : "Select Mobile No : "
  
[Field:SKCPinFilter]
    Table        : SKCPinFilter,EndOfList
    ShowTable    : Always
    Use        : Name Field
    Width        : 20
    Border        : Thin Box
    Variable    : SKCPinName
    Modifies    : SKCPinName
  
[Variable:SKCPinName]
    Type    : String

[Button:SKCPhoneFilter] ;;========================== Phone Filter ======================
    Key        : F5
    Action    : Execute : SKCPhoneFilter
    Title    : Led Phone
  
[Report:SKCPhoneFilter]
    Form    : SKCPhoneFilter
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""

[Form:SKCPhoneFilter]
    Part    : SKCPhoneFilter
    No Confirmation    : Yes

[Part:SKCPhoneFilter]
    Line    : SKCPhoneFilter

[Line:SKCPhoneFilter]
    Field    : Medium Prompt,SKCPhoneFilter
    Local    : Field    : Medium Prompt    : Set as    : "Select Phone No : "
  
[Field:SKCPhoneFilter]
    Table        : SKCPhoneFilter,EndOfList
    ShowTable    : Always
    Use        : Name Field
    Width        : 20
    Border        : Thin Box
    Variable    : SKCPhoneName
    Modifies    : SKCPhoneName
  
[Variable:SKCPhoneName]
    Type    : String

[Button:SKCgstinFilter] ;;========================== GSTIN Filter ======================
    Key        : F6
    Action    : Execute :SKCgstinFilter
    Title    : GSTIN/PAN
  
[Report:SKCgstinFilter]
    Form    : SKCgstinFilter
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""

[Form:SKCgstinFilter]
    Part    : SKCgstinFilter
    No Confirmation    : Yes

[Part:SKCgstinFilter]
    Line    : SKCgstinFilter

[Line:SKCgstinFilter]
    Field    : Medium Prompt,SKCgstinFilter
    Local    : Field    : Medium Prompt    : Set as    : "Select GSTIN/PAN : "
  
[Field:SKCgstinFilter]
    Table        : SKCgstinFilter,EndOfList
    ShowTable    : Always
    Use        : Name Field
    Width        : 20
    Border        : Thin Box
    Variable    : SKCgstinName
    Modifies    : SKCgstinName
  
[Variable:SKCgstinName]
    Type    : String


[Button:SKCContactFilter] ;;========================== CONTACT Filter ======================
    Key        : F7
    Action    : Execute :SKCContactFilter
    Title    : Contact Person
  
[Report:SKCContactFilter]
    Form    : SKCContactFilter
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""

[Form:SKCContactFilter]
    Part    : SKCContactFilter
    No Confirmation    : Yes

[Part:SKCContactFilter]
    Line    : SKCContactFilter

[Line:SKCContactFilter]
    Field    : Medium Prompt,SKCContactFilter
    Local    : Field    : Medium Prompt    : Set as    : "Select Contact Person : "
  
[Field:SKCContactFilter]
    Table        : SKCContactFilter,EndOfList
    ShowTable    : Always
    Use        : Name Field
    Width        : 20
    Border        : Thin Box
    Variable    : SKCcontactName
    Modifies    : SKCcontactName
  
[Variable:SKCcontactName]
    Type    : String

[Button:SKCStateFilter] ;;========================== STATE Filter ======================
    Key        : F8
    Action    : Execute :SKCStateFilter
    Title    : State
  
[Report:SKCStateFilter]
    Form    : SKCStateFilter
    Set        : SKCPrtyName        : ""
    Set        : SKCGroupName        : ""
    Set        : SKCAddrsName        : ""
    Set        : SKCPinName        : ""
    Set        : SKCPhoneName        : ""
    Set        : SKCgstinName        : ""
    Set        : SKCcontactName    : ""
    Set        : SKCStateName        : ""

[Form:SKCStateFilter]
    Part    : SKCStateFilter
    No Confirmation    : Yes

[Part:SKCStateFilter]
    Line    : SKCStateFilter

[Line:SKCStateFilter]
    Field    : Medium Prompt,SKCStateFilter
    Local    : Field    : Medium Prompt    : Set as    : "Select State : "
  
[Field:SKCStateFilter]
    Table        : SKCStateFilter,EndOfList
    ShowTable    : Always
    Use        : Name Field
    Width        : 20
    Border        : Thin Box
    Variable    : SKCStateName
    Modifies    : SKCStateName
  
[Variable:SKCStateName]
    Type    : String
  

;================================================================================================
;===================================== F12 Configuration ==============================================

[Button:SKCF12Config] ;;========================== Address Filter ======================
    Key        : F12
    Action    : Alter : SKCF12Config
    Title    : Configure
  
[Report:SKCF12Config]
    Object    : Company
    Form    : SKCF12Config
  
[Form:SKCF12Config]
    Top Part: SKCF12Title
    Part    : SKCF12Config
    Background        : @@SV_CMPCONFIG
    Full Width        : No
    No Confirmation    : Yes
    Space Bottom    : 3 mm
    Space Left        : 4 mm
    Space Right        : 4 mm
    Space Top        : 3 mm
  
[Part:SKCF12Title]
    Horizontal Align    : Center
    Line                : SKCF12Title
  
[Line:SKCF12Title]
    Field    : Simple Field
    Space Bottom    : 3 mm
    Local    : Field    : Simple Field    : Info        : "Address Book Configuration"
    Local    : Field    : Simple Field    : Align        : Center
    Local    : Field    : Simple Field    : Style        : Normal Bold
    Local    : Field    : Simple Field    : Border    : Thin Bottom

[Part:SKCF12Config]
    Line    : SKCF12Contact,SKCF12Phone,SKCF12Email,+
                SKCF12State,SKCF12Pan,SKCF12Opening,SKCF12Closing;SKCF12Mobile,SKCF12Fax,SKCF12Tin,SKCF12CST,SKCF12Pin,  

[Line:SKCF12Fax]
    Field    : Medium Prompt,SKCF12Fax
    Local    : Field    : Medium Prompt    : Set as    : "Show Fax : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Fax]
    Use        : Logical Field  
    Set as    : $$Value
    Storage    : SKCF12FaxFlag
  
[Line:SKCF12Contact]
    Field    : Medium Prompt,SKCF12Contact
    Local    : Field    : Medium Prompt    : Set as    : "Show Contact : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Contact]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12Contact
  
[Line:SKCF12Mobile]
    Field    : Medium Prompt,SKCF12Mobile
    Local    : Field    : Medium Prompt    : Set as    : "Show Mobile : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Mobile]
    Use        : Logical Field  
    Set as    : $$Value
    Storage    : SKCF12Mobile
  
[Line:SKCF12Phone]
    Field    : Medium Prompt,SKCF12Phone
    Local    : Field    : Medium Prompt    : Set as    : "Show Phone : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Phone]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12Phone
  
[Line:SKCF12Email]
    Field    : Medium Prompt,SKCF12Email
    Local    : Field    : Medium Prompt    : Set as    : "Show EMail : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Email]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12Email
  
[Line:SKCF12State]
    Field    : Medium Prompt,SKCF12State
    Local    : Field    : Medium Prompt    : Set as    : "Show State : "
    Space Bottom    : 1 mm
  
[Field:SKCF12State]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12State
  
[Line:SKCF12Pin]
    Field    : Medium Prompt,SKCF12Pin
    Local    : Field    : Medium Prompt    : Set as    : "Show Pincode : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Pin]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12Pin
  
[Line:SKCF12Pan]
    Field    : Medium Prompt,SKCF12Pan
    Local    : Field    : Medium Prompt    : Set as    : "Show GSTIN : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Pan]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12Pan
  
[Line:SKCF12Tin]
    Field    : Medium Prompt,SKCF12Tin
    Local    : Field    : Medium Prompt    : Set as    : "Show PAN/IT : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Tin]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12Tin

[Line:SKCF12CST]
    Field    : Medium Prompt,SKCF12CST
    Local    : Field    : Medium Prompt    : Set as    : "Show CST No. : "
    Space Bottom    : 1 mm
  
[Field:SKCF12CST]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12CST
  
[Line:SKCF12Opening]
    Field    : Medium Prompt,SKCF12Opening
    Local    : Field    : Medium Prompt    : Set as    : "Show Opening Bal. : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Opening]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12Opening
  
[Line:SKCF12Closing]
    Field    : Medium Prompt,SKCF12Closing
    Local    : Field    : Medium Prompt    : Set as    : "Show Closing Bal. : "
    Space Bottom    : 1 mm
  
[Field:SKCF12Closing]
    Use        : Logical Field  
    Set as    : $$Value
    Storage : SKCF12Closing
;================================================================================================
;===================================== Collections =================================================

[System:UDF]
    SKCF12FaxFlag    : Logical    : 5821
    SKCF12Contact    : Logical    : 5822
    SKCF12Mobile    : Logical    : 5823
    SKCF12Phone        : Logical    : 5824
    SKCF12Email        : Logical    : 5825
    SKCF12State        : Logical    : 5826
    SKCF12Pin        : Logical    : 5827
    SKCF12Pan        : Logical    : 5828
    SKCF12Tin        : Logical    : 5829
    SKCF12CST        : Logical    : 5830
    SKCF12Opening    : Logical    : 5831
    SKCF12Closing    : Logical    : 5832

[Collection:SKCCollectionSKC]
    Type        : Ledger
    Fetch        : Name,Parent,Address,LedgerContact,LedgerPhone,LedgerMobile,LedStateName,Pincode,Email,OpeningBalance,ClosingBalance
    Filter        : SKCCrDrOnly,SKCFilter
    Belongs To    : Yes
  
[Collection:LedgerFilter]
    Title        : "List of Ledgers"
    Type         : Ledger
    Belongs to    : Yes  
    Fetch          : Name
    Format        : $Name,25
    Filter        : SKCCrDrOnly,SKCFilter
  
[Collection:SKCGroupFilter]
    Title        : "List of Groups"
    Type        : Ledger
    Belongs To    : Yes
    Fetch        : Parent
    Format        : $Parent,25
    Filter        : SKCCrDrOnly
  
[Collection:SKCAddrsFilter]
    Title        : "List of Address"
    Type        : Ledger
    Belongs To    : Yes
    Fetch        : LedStateName,Address
    Format        : ($$FullList:Address:$Address),60
    Filter        : SKCCrDrOnly

[Collection:SKCStateFilter]
    Title        : "List of States"
    Type        : Ledger
    Belongs To    : Yes
    Fetch        : LedStateName
    Format        : $LedStateName,25
    Filter        : SKCCrDrOnly
  
[Collection:SKCPinFilter]
    Title        : "List of Mobile Nos"
    Type        : Ledger
    Belongs To    : Yes
    Fetch        : LedgerMobile
    Format        : $LedgerMobile ,30
    Filter        : SKCCrDrOnly

[Collection:SKCPhoneFilter]
    Title        : "List of Phone Nos"
    Type        : Ledger
    Belongs To    : Yes
    Fetch        : LedgerPhone
    Format        : $LedgerPhone ,30
    Filter        : SKCCrDrOnly

[Collection:SKCgstinFilter]
    Title        : "List of GSTIN/PAN"
    Type        : Ledger
    Belongs To    : Yes
    Fetch        : PARTYGSTIN,IncomeTaxNumber
    Fetch        : PinCode
    Format        : $IncomeTaxNumber ,20
    Format        : $PARTYGSTIN ,30
    Format        : $PinCode ,10
    Filter        : SKCCrDrOnly
    Sort        : @@Default:$PARTYGSTIN

[Collection:SKCContactFilter]
    Title        : "List of Contact Person"
    Type        : Ledger
    Belongs To    : Yes
    Fetch        : LedgerContact
    Format        : $LedgerContact,30
    Filter        : SKCCrDrOnly
  
[System:Variable]
    SKCPrtyName        : ""
    SKCGroupName    : ""
    SKCAddrsName    : ""
    SKCPinName        : ""
    SKCPhoneName    : ""
    SKCgstinName    : ""
    SKCcontactName    : ""
    SKCStateName    : ""

[System:Formula]
    SKCCrDrOnly        : $$IsBelongsTo:$$GroupSundryDebtors OR $$IsBelongsTo:$$GroupSundryCreditors
    SKCFilter        : $Name=@@SKCNameFilter AND $Parent=@@SKCGroupFilter AND ($$FullList:Address:$Address)CONTAINS @@SKCStateFill AND $LedgerMobile=@@SKCPinFilter AND $LedgerPhone=@@SKCPhoneFilter AND (($PARTYGSTIN CONTAINS @@SKCgstinFilter) OR ($IncomeTaxNumber CONTAINS @@SKCgstinFilter))  AND $LedgerContact=@@SKCcontactFilter AND $LedStateName=@@SKCStateFilter
    SKCNameFilter    : if ##SKCPrtyName="" OR $$IsEndOfList:##SKCPrtyName then $Name Else ##SKCPrtyName
    SKCGroupFilter    : if ##SKCGroupName="" OR $$IsEndOfList:##SKCGroupName then $Parent Else ##SKCGroupName
    SKCStateFill    : if ##SKCAddrsName="" OR $$IsEmpty:##SKCAddrsName then $Address Else ##SKCAddrsName
    SKCPinFilter    : if ##SKCPinName="" OR $$IsEmpty:##SKCPinName then $LedgerMobile Else ##SKCPinName
    SKCPhoneFilter    : if ##SKCPhoneName="" OR $$IsEmpty:##SKCPhoneName then $LedgerPhone Else ##SKCPhoneName
    SKCgstinFilter    : if ##SKCgstinName="" OR $$IsEmpty:##SKCgstinName then $IncomeTaxNumber Else ##SKCgstinName
    SKCcontactFilter: if ##SKCcontactName="" OR $$IsEmpty:##SKCcontactName then $LedgerContact Else ##SKCcontactName
    SKCStateFilter    : if ##SKCStateName="" OR $$IsEmpty:##SKCStateName then $LedStateName Else ##SKCStateName
  
[System : Formula]

GSTExists : ($PARTYGSTIN + $$NewLine + " ( " + $GSTRegistrationType + " )")
GSTNotExists : ($IncomeTaxNumber + $$NewLine + "(GSTIN Not Available)")
NoGSTnPANMess : "(GST and PAN" + $$NewLine + "Both Not Available)"
NoGST : $$IsEmpty:$PARTYGSTIN
NoGSTNoPAN : $$IsEmpty:$PARTYGSTIN AND $$IsEmpty:$IncomeTaxNumber

Click to expand...

great sir ji

naren1234 · Apr 21, 2022

sattam said: ↑

Code Modified
Click to expand...

Thank you for the updated code. It works in Tally Prime!!

M. Sajid Razzaq · Apr 23, 2022

Sattam Sir, May I use this code in Tally Erp9

sattam · Apr 23, 2022

M. Sajid Razzaq said: ↑

Sattam Sir, May I use this code in Tally Erp9
Click to expand...

May be this code not run some small changes will be required

Use my earlier code for Erp9 which already shared

M. Sajid Razzaq · Apr 24, 2022

Thanks for reply Sattam sir, I added your first TDL file. ( Error in TDL ) Variable:SV Print Orientation : String Could not find Description

sattam · Apr 24, 2022

M. Sajid Razzaq said: ↑

Thanks for reply Sattam sir, I added your first TDL file. ( Error in TDL ) Variable:SV Print Orientation : String Could not find Description
Click to expand...

just removed this lines this should work in Erp9

[#Table: GT CommonReports]

Add : Object :Sat Party Address Book

[Object : Sat Party Address Book]

Use : Go To Report Obj

Action : Goto Action : Display Current Report
Action : Display Action : Display Current Report
Name : $$LocaleString:"Party Address Book"
Current Report : AddressBookFD

M. Sajid Razzaq · Apr 25, 2022

Sattam Sir, which tdl file I was download. pls attach one more time. Thanks

I SYS · Apr 27, 2022

Nice effort Sattam Sir 1 Suggestion, if you feel like so then check orelse you already put a great effort in this work
Try to integrate ENVELOPE PRINT / ADDRESS PRINT option from Address Book itself. Value Added to your efforts...

mryogi261176 · May 1, 2022

sattam said: ↑

Modified code from this forum
Press f12 from address book and select what you want to show in this address Book
You will search GSTIN,address,Ledger Mobile,Led Phone,Contact Person with a single click.
You will also be able to filter group wise and ledger wise.
Hope you will enjoy this code.
Click to expand...

Wowww, Excellent ........

mryogi261176 · May 1, 2022

Amit Kamdar said: ↑

Also just like GST-PAN has been combined... you can combine in 2 lines the contact name and mobile number....it will save one more column.

Just ideas to make your module... much better

View attachment 7139
Click to expand...

Great Mind.... u r great sir,

Abhishek55 · May 1, 2022

A very useful and handy code. Thank you for your effort!

VKAMATH · Jul 23, 2022

sattam said: ↑

Modified code from this forum
Press f12 from address book and select what you want to show in this address Book
You will search GSTIN,address,Ledger Mobile,Led Phone,Contact Person with a single click.
You will also be able to filter group wise and ledger wise.
Hope you will enjoy this code.
Click to expand...

Thanks a lot ..This is a useful report

ch ruchitha · Dec 18, 2022

sattam said: ↑

As per Amit Ji's valuable reply code modified
1) Combine GST & PAN details as PAN is within the GST number...with appropriate warning message (With both Search facility)
2) Added GST Registration type in GST column
3) Added Parent Group in Ledger Name column
4) Remove pin code column and combine Pin code with state
5) Remove CST No and fax no

Please see the screen shot. View attachment 7138
Click to expand...

Really its nice sir....
Can i view the red marked rows only ?

RAVI BANOTH · May 11, 2023

sattam said: ↑

As per Amit Ji's valuable reply code modified
1) Combine GST & PAN details as PAN is within the GST number...with appropriate warning message (With both Search facility)
2) Added GST Registration type in GST column
3) Added Parent Group in Ledger Name column
4) Remove pin code column and combine Pin code with state
5) Remove CST No and fax no

Please see the screen shot. View attachment 7138
Click to expand...

Sir Please Add Party :- MSME REG NO.

sattam · May 11, 2023

RAVI BANOTH said: ↑

Sir Please Add Party :- MSME REG NO.
Click to expand...

It is open source code.you can modify it according to your need

dinesh2005 · Aug 23, 2023

sir great code help full, can we add ledger description and alias name also will be great

Bipin Damania · Aug 25, 2023

Full code is given...
Just try to add the same.

sureshoctten · Sep 13, 2023

Thanks

Mac · Feb 1, 2024

In latest Release , its not show Party GSTin number , any solution Please Suggest.

vishnu joshi · Feb 1, 2024

Show the code.. and which tally Rel 2.1 or 4.0

sattam · Feb 1, 2024

Mac said: ↑

In latest Release , its not show Party GSTin number , any solution Please Suggest.
Click to expand...

In the code replace $PARTYGSTIN with $LEDGSTREGDETAILS[Last].GSTIN

Mac · Feb 1, 2024

thank u sattambhai

JD Siddiqi · Feb 5, 2024

Filter button not work in TallyPrime4.0

plz guide anyone for this.
I want to add button for Apply filter
in Address book

JD Siddiqi · Feb 5, 2024

sattam said: ↑

In the code replace $PARTYGSTIN with $LEDGSTREGDETAILS[Last].GSTIN
Click to expand...

Plz guide me
I want to add Apply filter button in This code.

vishnu joshi · Feb 6, 2024

[#Object:Ledger]
FinGSTNum : $PARTYGSTIN with $LEDGSTREGDETAILS[Last].GSTIN

;Add Filter thin new Method - FinGSTNum

Log in or Sign up

ADDRESS BOOK-FIND GSTIN,MOB,PHONE,ADDRESS,LED CONTACT WITH SINGLE CLICK

rajiv jaiswal Member

naren1234 Member

M. Sajid Razzaq Member

sattam Active Member

M. Sajid Razzaq Member

sattam Active Member

M. Sajid Razzaq Member

I SYS New Member

mryogi261176 New Member

mryogi261176 New Member

Abhishek55 New Member

VKAMATH New Member

ch ruchitha Member

RAVI BANOTH Member

sattam Active Member

dinesh2005 New Member

Bipin Damania Active Member

sureshoctten New Member

Mac Member

vishnu joshi Member

sattam Active Member

Mac Member

JD Siddiqi New Member

JD Siddiqi New Member

vishnu joshi Member

Share This Page

Log in or Sign up

ADDRESS BOOK-FIND GSTIN,MOB,PHONE,ADDRESS,LED CONTACT WITH SINGLE CLICK

rajiv jaiswal Member

naren1234 Member

M. Sajid Razzaq Member

sattam Active Member

M. Sajid Razzaq Member

sattam Active Member

M. Sajid Razzaq Member

I SYS New Member

mryogi261176 New Member

mryogi261176 New Member

Abhishek55 New Member

VKAMATH New Member

ch ruchitha Member

RAVI BANOTH Member

sattam Active Member

dinesh2005 New Member

Bipin Damania Active Member

sureshoctten New Member

Mac Member

vishnu joshi Member

sattam Active Member

Mac Member

JD Siddiqi New Member

JD Siddiqi New Member

vishnu joshi Member

Share This Page

Useful Searches