how to add average payment performance in sales invoice

Discussion in 'Free Source Codes' started by gauravss, Sep 16, 2022.

    
  1. gauravss

    gauravss Member


    i need to print average payment performance by bill date and by due date in field of terms of delivery in sales invoice please help me with source code can any 1 let me know the source code

    ;;--------Other Sales Detail average payment in this number of days i need to add in formula how can i do that----------------

    [#Part:Expinv Terms]
    Add:Lines: At End:Expinv SubTitle,LWTermPER,LWTermP,LWTermPP,LWTermPPP
    Local:Field:Expinv SubTitle:Info:"Other Sales Detail"
    Local:Field:Expinv SubTitle:Border:Thin Bottom


    [Line : LWTermPER]
    Field : Short Prompt, EXPSMP PrevBalPER
    Local : Field : Short prompt : Set as : "Average Payment."
    Invisible : $$IsGroup:$Parent:Ledger:$PartyLedgerName



    [Field : EXPSMP PrevBalPER]
    Use : Amount Field
    Set as : $$AsDrAmt:#EXPSMPNetBal / $$ToValue:$Date:$DebitTotals:Ledger:$PartyLedgerName * 100 ;----------(no of days how can i do that)
    Style : Small Bold
    Color : Red
    Print FG : Red
    ;Set as : if $$IsEmpty:$Performance then "" else $$SPrintf:mad:@DaysFormat:mad:@PerformanceFormula
    ;TotalVal: $Performance:Group:##GroupName
    ;Set as : $$SPrintf:mad:@DaysFormat:mad:CalcDaysFormula
    ;CalcDays : ($$Total:LPPNumDays / #LPPTotalLines)
    ;CalcDaysFormula : $$String:mad:CalcDays:"Decimals:2"

    [Line : LWTermP]
    Field : Short Prompt, EXPSMP PrevBal
    Local : Field : Short prompt : Set as : "Prev.Bal."
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName

    [Field : EXPSMP PrevBal]
    Use : Amount Field
    Set as : $$AsDrAmt:#EXPSMPNetBal - #EXPSMPBillAmt
    Format : "DrCr"
    Style : Small Bold
    Color : Red
    Print FG : Red

    [Line:LWTermPP]
    Field : Short Prompt, EXPSMP BillAmt
    Local : Field : Short prompt : Set as : "Bill Amt."
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName

    [Field : EXPSMP BillAmt]
    Use : Amount Field
    Set as : $Amount
    Border : Thin Bottom
    Format : "DrCr"
    Style : Small Bold
    Color : Dark Green
    Print FG : Dark Green

    [Line : LWTermPPP]
    Field : Short Prompt, EXPSMP NetBal
    Local : Field : Short prompt : Set as : "Net Bal."
    Space Bottom : 3 mms
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName


    [Field : EXPSMP NetBal]
    Use : Amount Field
    Set as : $$AsDrAmt:$$ToValue:$Date:$ClosingBalance:Ledger:$PartyLedgerName
    Border : Thin Bottom
    Format : "DrCr"
    Style : Small Bold
    ;Color : Red
    ;Print FG : Red
    ;;---------------------------------------------------

    ;;-----------------------------NEEDD TO ADD AVERAGE PAYMENT PERFORMANCE OF LEDGER ----------------------
     
    Last edited: Sep 20, 2022


  2. gauravss

    gauravss Member


    any 1 who can help
     


  3. gauravss

    gauravss Member


    ;;--------Other Sales Detail average payment----------------
    [#Part:Expinv Terms]
    Add:Lines: At End:Expinv SubTitle,LWTermP,LWTermPP,LWTermPPP
    Local:Field:Expinv SubTitle:Info:"Other Sales Detail"
    Local:Field:Expinv SubTitle:Border:Thin Bottom


    [Line : LWTermPER]
    Field : Short Prompt, EXPSMP PrevBalPER
    Local : Field : Short prompt : Set as : "Average Pay Days."
    Invisible : $$IsGroup:$Parent:Ledger:$PartyLedgerName



    [Field : EXPSMP PrevBalPER]
    Use : Amount Field
    Set as : $$AsDrAmt:#EXPSMPNetBal / $$ToValue:$Date:$DebitTotals:Ledger:$PartyLedgerName * ((@@DSPToDate - @@DSPFromDate) + 1)
    Style : Small Bold
    Color : Red
    Print FG : Red

    [Line : LWTermP]
    Field : Short Prompt, EXPSMP PrevBal
    Local : Field : Short prompt : Set as : "Prev.Bal."
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName

    [Field : EXPSMP PrevBal]
    Use : Amount Field
    Set as : $$AsDrAmt:#EXPSMPNetBal - #EXPSMPBillAmt
    Format : "DrCr"
    Style : Small Bold
    Color : Red
    Print FG : Red

    [Line:LWTermPP]
    Field : Short Prompt, EXPSMP BillAmt
    Local : Field : Short prompt : Set as : "Bill Amt."
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName

    [Field : EXPSMP BillAmt]
    Use : Amount Field
    Set as : $Amount
    Border : Thin Bottom
    Format : "DrCr"
    Style : Small Bold
    Color : Dark Green
    Print FG : Dark Green

    [Line : LWTermPPP]
    Field : Short Prompt, EXPSMP NetBal
    Local : Field : Short prompt : Set as : "Net Bal."
    Space Bottom : 3 mms
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName

    [Field : EXPSMP NetBal]
    Use : Amount Field
    Set as : $$AsDrAmt:$$ToValue:$Date:$ClosingBalance:Ledger:$PartyLedgerName
    Border : Thin Bottom
    Format : "DrCr"
    Style : Small Bold
    ;Color : Red
    ;Print FG : Red
    ;;---------------------------------------------------
     


  4. gauravss

    gauravss Member


    problem is I need according to bill date average payment received can i have the formula for same
     


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Use $Billdate .........
     


  6. gauravss

    gauravss Member


    VERY SMALL HELP NEEDED
    IN THIS IF PRINCIPAL IS NEGATIVE ITS SHOULD BE IN RED COLOUR AND PROSITIVE IT SHOULD BE IN GREEN COLOR
    PROVIDE SOURCE CODE

    how to get total sales (turnover) value of ledger

    [#Part:Expinv Terms]
    Add:Lines: At End:Expinv SubTitle,LWTermP,LWTermPP,LWTermPPP,LWTermPER
    Local:Field:Expinv SubTitle:Info:"Other Sales Detail"
    Local:Field:Expinv SubTitle:Border:Thin Bottom

    [Line : LWTermPER]
    Field : Short Prompt,EXPSMP PrevBalPER,grossprofit,principal
    Local : Field : Short prompt : Set as : "Average Pay Days."
    Invisible : $$IsGroup:$Parent:Ledger:$PartyLedgerName
    ;Explode : BILL Vouchers : $$InPixelMode AND ($$KeyExplode OR ##ExplodeFlag)

    [Field : grossprofit]
    Use : Amount Field
    Set as : $$AsDrAmt:10/100*#EXPSMPNetBal
    Invisible : Yes

    [Field : principal]
    Use : Amount Field
    Set as : $$AsDrAmt:#grossprofit-#EXPSMPNetBal
    Invisible : Yes


    [Field : EXPSMP PrevBalPER]
    Use : Amount Field
    Set as : $$AsDrAmt:#principal/#EXPSMPNetBal * 100 ;---------------NEGATIVE RED------ POSITIVE GREEN------
    Style : Small Bold
    Color : Red
    Print FG : Red

    [Line : LWTermP]
    Field : Short Prompt, EXPSMP PrevBal
    Local : Field : Short prompt : Set as : "Prev.Bal."
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName

    [Field : EXPSMP PrevBal]
    Use : Amount Field
    Set as : $$AsDrAmt:#EXPSMPNetBal - #EXPSMPBillAmt
    Format : "DrCr"
    Style : Small Bold
    Color : Red
    Print FG : Red

    [Line:LWTermPP]
    Field : Short Prompt, EXPSMP BillAmt
    Local : Field : Short prompt : Set as : "Bill Amt."
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName

    [Field : EXPSMP BillAmt]
    Use : Amount Field
    Set as : $Amount
    Border : Thin Bottom
    Format : "DrCr"
    Style : Small Bold
    Color : Dark Green
    Print FG : Dark Green

    [Line : LWTermPPP]
    Field : Short Prompt, EXPSMP NetBal
    Local : Field : Short prompt : Set as : "Net Bal."
    Space Bottom : 3 mms
    Invisible : $$IsGroupCash:$Parent:Ledger:$PartyLedgerName

    [Field : EXPSMP NetBal]
    Use : Amount Field
    Set as : $$AsDrAmt:$$ToValue:$Date:$ClosingBalance:Ledger:$PartyLedgerName
    Border : Thin Bottom
    Format : "DrCr"
    Style : Small Bold
    ;Color : Red
    ;Print FG : Red
    ;;---------------------------------------------------
     
    Last edited: Sep 23, 2022


  7. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Set condition if $$value > 0 then "green" else "red"

    For turnover ...make a collection of vouchers of that ledger ...filter it for Sales voucher and compute the total sales. For perfection filter for Sales voucher and Credit note.
     


Share This Page