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

Discussion in 'Free Source Codes' started by sattam, Jul 25, 2020.

    
  1. sattam

    sattam Active Member


    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.
     

    Attached Files:

    Last edited: Jul 25, 2020


  2. sattam

    sattam Active Member


    Untitled.png
     
    Vashisth and psr like this.


  3. sattam

    sattam Active Member


    Please share your valuable thoughts.
     


  4. mpal2311

    mpal2311 Active Member


    nice addition
     




  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Very nicely done..Sattamji

    You can freeze the column upto Ledger name......so data is not compressed and user can pan right for more columns.

    Combine GST & PAN details as PAN is within the GST number...with appropriate warning message. Please see the screenshot below.

    ledadd.PNG .
     


  6. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Refer this Thread ............
    http://www.tdlexpert.com/index.php?threads/comprehensive-address-book.6629/

    Since than I've added many more features....
    -- details of party --- i.e. supplier, Mfg or labour etc etc
    -- Contact Person
    -- TDS details and section code, if applicable.
    -- Credit limit and days assigned.
    -- Multi-address if any
    -- business value for the year.
    -- Bank details (as per User-level)
     


  7. sattam

    sattam Active Member


    Thanks for your valuable reply
     


  8. Bipin Damania

    Bipin Damania Active Member


    Sattamji

    Nice Address book
    can remove CST No

    Thanks for sharing...
     


  9. sattam

    sattam Active Member


    Thanks Bipin Damania ji for your valuable reply
     


  10. sattam

    sattam Active Member


    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. Untitled.png
     

    Attached Files:

    Rajnish Kapahi likes this.


  11. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    superb Sattamji...... nicely done....... ;):)

    now you can add Bank details, credit limits etc....as per user level (only Admin or owner)

    The idea is to have a single screen KUNDLI for managers/owners to find which details are missing or to change limits etc.......

    Keep on.......
     
    sattam likes this.


  12. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    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 ;):)

    11.PNG
     
    mryogi261176 and sattam like this.


  13. Bipin Damania

    Bipin Damania Active Member


    Sattamji

    Thank you
    &
    Amitji

    You Too..
    Always there for Help and Inspiring...
     
    panam and sattam like this.


  14. sattam

    sattam Active Member


    Your debtors or creditors list is full of VVIP personel ,Great:):):):):):):)
    and thanks for your valuable response.
     
    panam likes this.


  15. sattam

    sattam Active Member


    "You can freeze the column upto Ledger name......so data is not compressed and user can pan right for more columns."
    Amit Ji I have no Idea about this would you please help on this
     


  16. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    In...
    [Line:SKCDetailsHead]
    and
    [Line:SKCDetails]

    Add this ............ Repeat : SKCPan
     


  17. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    If you want to freeze upto Ledger name.... then use SKCAddress ... instead of SKCPan
     


  18. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    LOL ... am just injecting humor in the dull procedure of creating dummy data for each and every module I create.
     


  19. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    A PRO tip.....

    you have this.....
    Set as : if ($$IsEmpty:$PARTYGSTIN AND NOT $$IsEmpty:$IncomeTaxNumber) then $IncomeTaxNumber ++ $$NewLine +"("+$GSTRegistrationType+")" else If ($$IsEmpty:$IncomeTaxNumber AND NOT $$IsEmpty:$PARTYGSTIN) then $PARTYGSTIN ++ $$NewLine +"("+$GSTRegistrationType+")" else +
    if($$IsEmpty:$PARTYGSTIN AND $$IsEmpty:$IncomeTaxNumber) then "Both Not Available" ++ $$NewLine +"("+$GSTRegistrationType+")" else if (NOT $$IsEmpty:$PARTYGSTIN AND NOT $$IsEmpty:$IncomeTaxNumber) then $PARTYGSTIN ++ $$NewLine +"("+$GSTRegistrationType+")" else ""

    Instead...always better to break down in [System : Formula]

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

    and in your FIELD .......... Set as : If @@NoGSTNoPAN Then @@NoGSTnPANMess Else If @@NoGST Then @@GSTNotExists Else @@GSTExists

    Easy to understand, edit and change....
     


  20. Deepak Sharma (KNP)

    Deepak Sharma (KNP) New Member


    Try this ...
     

    Attached Files:

    sattam likes this.


  21. sattam

    sattam Active Member


    Thanks a lot
     


  22. sattam

    sattam Active Member


    Thanks
     
    Deepak Sharma (KNP) likes this.


  23. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    upload_2020-8-22_23-2-19.png

    Thanks, sattamji
     


  24. SUSHIL SHARMA

    SUSHIL SHARMA Member


    sir can you help me add one more column name party phon number in this code


    [#Menu : Gateway of Tally]
    Item : Column Day Book : Display : Column Day Book
    [Report : Column Day Book]
    Form :Column Day Book
    Variable : SVFromDate,SVToDate
    Set : SVFromDate : ##SVCurrentDate
    Set : SVToDate : ##SVCurrentDate

    [Form :Column Day Book]
    Part :daybookhead,daybookhead1, Column Day Book ;;,daybookhead2

    bottom Part : daybookbottam
    Button : Change Period,Print Button,Export Button,FilterButton,GRPVCH Configure

    Background : LightBlue

    [Part : daybookhead]
    Line :daybookhead
    [Line :daybookhead]
    Field : Simple Field
    ;Local : Field : Simple Field : Set As : ". Coulmer Day Book on " + $$String:##SVCurrentDate

    Local : Field : Simple Field : Set As : " Coulmer Day Book on " + $$String:##SVFromDate +" to " + $$String:##SVToDate
    Local : Field : Simple Field : Style : Normal Bold
    Local : Field : Simple Field : Align : Centre
    [Part : daybookhead1]
    Use : Column Day Book
    Delete : Repeat
    Delete : Scroll
    Border : ColumnTitles
    Local : Field : Default : Type : string
    Local : Field : My Voucher Date : Set As : "Date"
    Local : Field : MyVoucherParty: Set As : "Particular"
    Local : Field : MyVchNo : Set As : "Voucher No"
    Local : Field : MyVchType : Set As : "Voucher Type"
    Local : Field : MEBNo : Set As : "Narration"
    Local : Field : MyVchAmount0 : Set As : "Contra"
    Local : Field : MyVchAmount : Set As : "Sales"
    Local : Field : MyVchAmount1 : Set As : "Receipt"
    Local : Field : MyVchAmount2 : Set As : "Payment"
    Local : Field : MyVchAmount3 : Set As : "Debit Note"
    Local : Field : MyVchAmount4 : Set As : "Credit Note"
    Local : Field : MyVchAmount5 : Set As : "Journal"
    Local : Field : MyVchAmount6 : Set As : "Purchase"
    Local :Field : Default : Style : Large Bold
    Local: Field: Default: Align: Center
    Local: Field: Default:Background: Green

    [Part :Column Day Book]
    Line : Column Day Book
    Repeat :Column Day Book :My Voucher Rep Collection
    tOTAL : MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6
    Scroll : Vertical
    [Line :Column Day Book]
    Field :My Voucher Date,MyVoucherParty,MyVchNo,MyVchType,MEBNo

    Right Field : MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6
    Option : Alter On Enter

    [Field :My Voucher Date]
    Use : Short Date Field
    Set As : $Date
    Border : Thin Right

    [Field : MyVoucherParty]

    Use : NAme Field
    Set As : $LedgerName
    Width : 35
    Border : Thin Right
    Alter : Voucher



    [Field : MyVchNo]
    Use : NAme Field
    Set As : $VoucherNumber
    Width : 18
    Border : Thin Right

    [Field : MyVchType]
    Use : Name Field
    Set As : $VoucherTypeName
    Border : Thin Right
    Width : 15
    [Field : MEBNo]
    Use : Name Field
    Set As : $Narration
    Width : 60
    Border : Thin Right
    Style : Normal
    Set Always : Yes

    [Field : MyVchAmount0]
    Use : Amount Field

    Set As :if $VoucherTypeName CONTAINS "Con" then $Amount else ""
    Format : "DrCr"
    Border : Thin Right
    [Field : MyVchAmount]
    Use : Amount Field

    Set As :if $VoucherTypeName CONTAINS "Sale" then $Amount else ""
    Format : "DrCr"
    Border : Thin Right
    [Field : MyVchAmount1]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Rec" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount2]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "pay" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount3]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "deb" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount4]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Cre" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount5]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Jou" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount6]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Pur" then $Amount else ""
    [Collection : My Voucher Rep Collection]
    Type : Vouchers
    Fetch : Date,Amount,VoucherTypeName,PArtyLedgerName,VoucherNumber,Narration

    */
    [Part: daybookbottam]
    Lines : daybookTotalLine
    [Line: daybookTotalLine]
    Use : Column Day Book
    Local: Field: Default : Style : Small Bold
    Local: Field: Default:Background: Green
    Local: Field: Default: Type: String
    Local: Field: Default: Align: Center
    Local : Field : MyVoucherParty: Set As : "Total"
    Local : Field : MyVoucherParty: Color: Blue
    Local : Field : MyVchNo : Set As : "Day Book"
    Local : Field : MyVchNo: Color: Blue
    Local : Field : MyVchType : Set As : "Amount"
    Local : Field : MyVchType : Color: Blue
    Local : Field : MyVchAmount0 :Set As: $$Total:MyVchAmount0
    Local : Field : MyVchAmount : Set As : $$Total:MyVchAmount
    Local : Field : MyVchAmount1 : Set As : $$Total:MyVchAmount1
    Local : Field : MyVchAmount2 : Set As : $$Total:MyVchAmount2
    Local : Field : MyVchAmount3 : Set As : $$Total:MyVchAmount3
    Local : Field : MyVchAmount4 : Set As : $$Total:MyVchAmount4
    Local : Field : MyVchAmount5 : Set As : $$Total:MyVchAmount5
    Local : Field : MyVchAmount6 : Set As : $$Total:MyVchAmount6
    Border : Totals
     


Share This Page