Pocket Diary

Discussion in 'Free Source Codes' started by SANTHOSH C KURIAN, Dec 30, 2015.

    
  1. SANTHOSH C KURIAN

    SANTHOSH C KURIAN Active Member


    Img 1.jpg Img 2.jpg Hi all,

    This TDL is helpful to get a look back to the previous transactions pertaining to a particular ledger while making a Receipt Voucher or Payment Voucher.

    While passing a Receipt Voucher or Payment Voucher, if you want to analyze the previous transactions of that particular ledger Press CONTROL + P on the field "ACLS Led", then you will be prompted to a POCKET DIARY which portraits the last transactions related to that particular ledger.

    Wishing you all a very happy and prosperous NEW YEAR 2016 :):):):)
     
    Last edited: Jan 7, 2016
    mahbu, panam and SAJI K D like this.


  2. vyadav

    vyadav Member


    Dear Sir,,

    Nice but, If line select and Back to voucher (Receipt , Payment) current voucher is not show, Exist TALLY
     


  3. SANTHOSH C KURIAN

    SANTHOSH C KURIAN Active Member


    Thanks for your observation, now code rectified; drill down disabled and narration brought into the pocket diary.
     


  4. vyadav

    vyadav Member


    Dear Sir..

    I have one question , when import excel to tally . how can import this example please suggest me sir

    Dr. 500
    Cr. 300
    Cr. 200

    Double entry import in one voucher , I am create single Entry Import in one voucher
    The Code are given below ,

    [Variable : Payment SVExcelPath]

    Type : String
    Default : ""
    Persist : Yes

    [System : Variable]

    Payment SVExcelPath : ""

    [System : Formula]

    PaymentExcelFilePath : "D:\ImportVouchers.xls"

    [Collection : Excel Payment]

    ODBC : "Driver={Microsoft Excel Driver (*.xls)};DBQ= " + @@PaymentExcelFilePath
    SQL : "Select * from [PAYMENTVCH$]"

    [Collection : Payment Import]

    Source Collection : Excel Payment
    Fetch : *.*

    Compute : PYDate : $_1
    Compute : PYNarration : $_2
    Compute : PYDebitName : $_3
    Compute : PYDebitAmt : $_4
    Compute : PYCreditName : $_5
    Compute : PYCreditAmt : $_6
    Compute : PYVCHNO : $_7

    [System : Formula]


    PYDate : $$Date:(($$StringPart:$PYDate:8:2) + "-" + +
    ($$StringPart:$PYDate:5:2) + "-" + +
    ($$StringPart:$PYDate:0:4))

    [Function : Payment Import]

    Variable : ProgressCount : Number
    Variable : Counter : Number
    Variable : VoucherTypeName : String

    Variable : PYDate : Date
    Variable : PYDebitName : String
    Variable : PYDebitAmt : Amount
    Variable : PYCreditName : String
    Variable : PYCreditAmt : String
    Variable : PYNarration : String
    Variable : PYVCHNO : String

    00 : Set : Counter : 0
    10 : Query Box : "Import Payment Voucher ?":Yes:No
    20 : SET : ProgressCount : 1

    30 : IF : NOT ($$NumItems:paymentImport> 0)
    40 : RETURN
    50 : END IF

    60 : START PROGRESS : ($$NumItems:paymentImport) : "Importing" : " Journal Vouchers"

    70 : SET : SVViewName : $$SysName:AccVchView

    90 : If : $$LastResult

    80 : Walk Collection : PaymentImport

    101 : Set : PYDate : $$String:$PYDate
    102 : Set : PYDebitName : $$String:$PYDebitName
    103 : Set : PYDebitAmt : $$String:$PYDebitAmt
    107 : Set : PYCreditName : $$String:$PYCreditName
    108 : Set : PYCreditAmt : $$String:$PYCreditAmt
    113 : Set : PYNarration : $$String:$PYNarration
    114 : Set : PYVCHNO : $$String:$PYVCHNO

    120 : NEW OBJECT : Voucher

    130 : SET VALUE : Date : @@PYDate
    140 : SET VALUE : VoucherTypeName : $$VchTypePayment
    150 : Set Value : PARTYLEDGERNAME : ##PYDebitName
    155 : Set Value : NARRATION : ##PYNarration

    160 : SET VALUE : ISINVOICE : No

    170 : Insert Collection Object: Ledger Entries

    180 : SET TARGET : LedgerEntries
    190 : SET VALUE : LEDGERNAME : ##PYDebitName
    200 : SET VALUE : Amount : ##PYDebitAmt
    210 : SET VALUE : ISDEEMEDPOSITIVE : "Yes"
    211 : Set Value : VoucherNumber : ##PYVCHNO

    220 : Set Target : ..

    230 : Insert Collection Object: Ledger Entries

    240 : SET TARGET : LedgerEntries
    250 : SET VALUE : LEDGERNAME : ##PYCreditName
    260 : SET VALUE : Amount : ##PYCreditAmt
    265 : SET VALUE : ISDEEMEDPOSITIVE : "No"

    330 : SET VALUE : PersistedView : ##SVViewName
    340 : CREATE TARGET
    350 : SHOW PROGRESS : ##ProgressCount
    360 : SET : ProgressCount : ##ProgressCount + 1
    380 : END WALK
    385 : Increment : Counter
    390 : Msg Box : "Status" : "Payment Vouchers Imported \n successfully!!! "
    370 : End If
    400 : Return
     


  5. JObimon Arackal JOhn

    JObimon Arackal JOhn Active Member



  6. mpal2311

    mpal2311 Active Member


    Great.
     


  7. khkhilji

    khkhilji New Member


    Dear Sir,,

    Nice but, If line select and Back to voucher (Receipt , Payment) current voucher is not show,when press CTR=P Exist TALLY
     


  8. rajiv jaiswal

    rajiv jaiswal Member


    sir
    nothing happening
     


  9. SANTHOSH C KURIAN

    SANTHOSH C KURIAN Active Member


    Check the screen captures, it works fine, download the tdl again and try, if problem persists give me details, I cannot guarantee performance in older versions
     


  10. SANTHOSH C KURIAN

    SANTHOSH C KURIAN Active Member


    Check the screen captures, it works fine, download the tdl again and try, if problem persists give me details, I cannot guarantee performance in older versions
     


  11. khkhilji

    khkhilji New Member


    Thnks Santosh, I Redownload tdl & it is working fine now,thanks again
     


  12. khkhilji

    khkhilji New Member


    Thnks Santosh, I Redownload tdl & it is working fine now,thanks again
     


  13. vyadav

    vyadav Member


    Please Check Sir,

    I am trying list of Companies line no wise but not success please help Compnay sr.no.jpg


    [#Collection: List of Companies On Disk]

    Title : $$LocaleString:"List of Companies"
    Type : Company on Disk
    Child of : $Dest
    Format : $Name, 25
    Format : @@DskCompanyNumberStr, 5
    Format : $CompanyPeriodStr, 20
    Align : Centre
    FullHeight : Yes
    Format : @@Myline

    [System : formula]
    MyLine : $$Number:"10"
     
    Ankur Tiwari likes this.


  14. B Patil

    B Patil New Member


    [System : formula]
    MyLine : $$LineNumber
     


  15. D Lokesh

    D Lokesh Member


    [System : formula]
    MyLine : $$Line
     


  16. tvs preeti

    tvs preeti New Member


    hi
    this code was not working please tell me how to use this code
     


  17. harbansh

    harbansh Active Member


    Dear Preeti
    This code is working fine this code is working only single entry Voucher Mode pls change payment voucher in single entry mode by pressing f12.
    I think you are trying to view in double entry mode that's why you have faced problem.
     
    SURENRA likes this.


  18. Info

    Info New Member



  19. haejosh

    haejosh New Member


    Again Try to share this TDL file. for newly entered..:cool:
     


  20. Rohit Khedar

    Rohit Khedar Member


    this problem will be solved
     


Share This Page