I Want Last Purchase Date

Discussion in 'Free Source Codes' started by Sanjay preethi, Jan 8, 2021.

    

  1. Any One Help,,,,,
    I want Last receipt Date


    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;my Code Below;;;;;;;;;;;;;;;;;;;

    [#Menu:Gateway of Tally]
    Add: Key Item: At End: Partywise Weekly Report : Y : Display : CAB Ledger List : $$IsInventoryOn:$$CurrentCompany

    [Report: CAB Ledger List]

    Form : CAB Ledger Form
    Title : "Company Ledger List"

    [Form: CAB Ledger Form]

    Use : DSP Template
    Parts : CAB Ledger Part
    Height : 100% screen
    Width : 100% screen
    Background : Grey

    [Part: CAB Ledger Part]

    Lines : CAB Ledger Title, CAB Ledger Line
    Repeat : CAB Ledger Line : CAB My Ledgers
    CommonBorder: Yes
    Scroll : Vertical

    [Line: CAB Ledger Title]

    Use : CAB Ledger Line

    Local : Field : Default : Type : String
    Local : Field : Default : Align : Centre
    Local : Field : Default : Style : Normal Bold

    Local : Field : CAB Led No : Set as : "Sr. No"
    Local : Field : CAB Led Name : Set as : "Ledger Name"
    Local : Field : CAB Led Name : Align : Left
    Local : Field : CAB Led Sales: Set as : "Sales"
    Local : Field : CAB Led Receipt : Set as : "Receipt"
    Local : Field : CAB Last Receipt: Set as : "Last Receipt"
    Border : Thin Top Bottom

    [Line: CAB Ledger Line]
    Fields : CAB Led No, CAB Led Name, CAB Led Sales, CAB Led Receipt, CAB Last Receipt;, CAB Led Cont,total Bill Value
    Option : AlterOnEnter

    [Field: CAB Led No]

    Set as : $$Line
    Width : 5
    Align : Centre
    Border : Thin Right
    Alter : Ledger

    [Field: CAB Led Name]
    ; Use : Name Field
    Set as : $Name
    Full Width: Yes


    [Field: CAB Led Sales]
    Use : Name Field;AMount Forex field
    Set as : $LedgerSalesTotal
    Width : 15
    Border : Thin Right

    [Field: CAB Led Receipt]

    Use : Amount forex Field
    Set as :$LedgerReceiptTotals
    Width : 15
    Border : Thick Right

    [Field: CAB Last Receipt]

    Use : Uni Date Field
    Set as :$LedgerLastreceiptdate
    Width : 15
    Border : Thin Right

    ;;;;RECEIPT COLL;;;;;;;;;;
    [Collection:AllRcptVchrs]
    Type : Vouchers
    Sort : -$Date
    ;Filter : MyRcptEntries
    Fetch : Amount, AllLedgerEntries.Amount, Date, AllLedgerEntries.Date, VoucherTypeName, AllLedgerEntries.VoucherTypeName


    [#Object: Ledger]
    LedgerSalesTotal : $$FilterAmtTotal:MySalesVouchers:ForThisParty:$Amount
    LedgerReceiptTotals : $$FilterAmtTotal:MyReceiptVouchers:ForThisParty:$Amount
    LedgerLastreceiptdate : $$CollectionField:MyReceiptVouchers:ForThisParty:Date;$$FilterAmtTotal:AllRcptVchrs:ForThisParty:$Amount

    [System: Formulae]

    MyRcptEntries : $$IsReceipt:$VoucherTypeName

    [System: Formula]
    ForThisParty : $PartyLedgerName = @@ReqObjName

    [Collection: My Sales Vouchers]
    Type : Vouchers : Voucher Type
    Child Of : $$VchTypeSales
    Sort : -$Date
    ;Fetch : *.*
    Fetch : PartyLedgerName, LedgerEntries.Amount,Amount, Date, AllLedgerEntries.Date
    [Collection: My Receipt Vouchers]
    Type : Vouchers : Voucher Type
    Child Of : $$VchTypeReceipt
    ;Fetch : *.*
    Fetch : PartyLedgerName,Amount
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    [Collection: CAB My Ledgers]

    Type : Ledger
    Child of : $$GroupSundryDebtors
    Belongs to : Yes
    ;; 'Belongs To' includes the Ledgers pertaining to the subgroups of the group
    ;; mentioned in Attribute 'Child Of'.
    Fetch : *.*
    ;; Fetch attribute required for remoting 2.0
    ;Filter:MyfltrTds
    ;; End-of-File
    [System:Formulas]

    MyfltrTds:$IsTDSApplicable="Yes";if $$IsSysName:##Myvariable then yes Else ##Myvariable = $agentname
     

    Attached Files:

    Last edited: Jan 8, 2021



  2. typing mistake

    i want last receipt date for ledger
     


  3. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Your Collection structure is all wrong.........

    Make collection for Vouchers.... filter it on Receipt Vouchers only.

    Make another collection with Source collection as above .... Filter it so..... $LedgerName = #CabLedName .... and sort this on decreasing date.

    Then use CollectionField in your Field .... Your Syntax is all wrong. Refer Developer to learn how to use this function.

    Also there is no need to define this value in the Object : Ledger........
     



  4. Thank You So Much Sir

    Finally I Success

    ;;;;;;;;;my Code Below;;;;;

    [Field: CAB Last Receipt]

    Use : Uni Date Field
    Set as :$LastRecdate;$LedgerLastreceiptdate
    Width : 15
    Border : Thin Right

    ;;;;RECEIPT COLL;;;;;;;;;;
    [Collection:AllRcptVchrs]
    Type : Vouchers
    Sort : -$Date
    Filter : MyRcptEntries
    Fetch : Amount, AllLedgerEntries.Amount, Date, AllLedgerEntries.Date, VoucherTypeName, AllLedgerEntries.VoucherTypeName

    [Collection : MyPartyColl]
    Source Collection : AllRcptVchrs
    Fetch : Rate, Date, VoucherTypeName, PartyLedgerName, StockItemName
    Filter : MyPartyFltr
    Sort : Default : -$Date

    [System : Formula]
    MyPartyFltr : $PartyLedgerName = #CabLedName
    LastRecdate: $$CollectionField:$Date:1:MyPartyColl
    MyRcptEntries : $$IsReceipt:$VoucherTypeName
     

    Attached Files:

    Amit Kamdar likes this.


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Perfect...... :):cool:
     



  6. One More Query Sir

    I Want Filter Above 7 Days
    But This Code Not Working Sir

    ;;;;;;;;;;;;;;;;;;;My Code Below;;;;;;;;

    [Field:CAB No Of Days]
    Use : Name Field
    Width : 15
    Set as : @@SAPPDaysByDueDate
    Border : Thin Right

    [System : Formula]
    SAPPDaysByDueDate : If $$MachineDate >= @@CreditPeriodss then $$String:mad:@SAPPOverDueDays else ""
    SAPPOverDueDays : $$MachineDate - @@LastRecdate;CreditPeriodss
     

    Attached Files:



  7. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    What is @@CreditPeriodss with a double "s" ???

    In SAPPOverDueDays ...make a string ........... "Hello" and see if that is working.
     
    Jaydeep Shah likes this.




  8. Previous Testing Line ,,Its Commended Line So Issue Sir

    [System : Formula]
    SAPPDaysByDueDate : If $$MachineDate >= @@CreditPeriodss then $$String:mad:@SAPPOverDueDays else ""
    SAPPOverDueDays : $$MachineDate - @@LastRecdate;CreditPeriodss
     



  9. One More Final Query Sir

    1.Sorting Method Does Not Working
    2.This Report Taking Alot time to Load

    ;;;;;;;;;;;My Code Below;;;;;;;;;;;;


    [Field:CAB No Of Days]
    Use : Number Field
    Width : 6
    Set as : @@SAPPDaysByDueDate
    Align : Right
    Border : Thick Right
    Color : lIGHTB
    Space Right:2



    [System : Formula]

    SAPPDaysByDueDate : If $$MachineDate >= $LastRecdate then $$String:mad:@SAPPOverDueDays else ""


    [Collection: CAB My Ledgers]

    Type : Ledger
    Child of : $$GroupSundryDebtors
    Belongs to : Yes
    ;; 'Belongs To' includes the Ledgers pertaining to the subgroups of the group
    ;; mentioned in Attribute 'Child Of'.
    Fetch : PartyLedgerName, LedgerEntries.Amount,Amount, Date, AllLedgerEntries.Date,SAPPDaysByDueDate,LedgerSalesTotal
    ;Filter:MyPartyFltrss
    Keep Source : ().
    Sort : @@Default : @@SAPPDaysByDueDate
     

    Attached Files:

    • Sort.jpg
      Sort.jpg
      File size:
      154.3 KB
      Views:
      60


Share This Page