1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Double Discount Help Require

Discussion in 'Tally Developer' started by Johar, Jan 7, 2020.

    
  1. Johar

    Johar Member


    I am using default Discount% and created another Cash Disc% now the problem is it automatically calculate default discount% value but its is not calculating Cash Disc% and using batch also it also does not take price list rate

    below is my code :

    [#Line : EI ColumnOne]
    Option : Global EI ColumnOne

    [!Line: Global EI ColumnOne]
    Add : Right Fields : After : VCH DiscTitle : SchemeAmtTL

    [Field : SchemeAmtTL]
    Info : "Scheme %"
    Align : Centre
    Width : 12
    Style : Small
    Border : Thin Left Right
    ;Invisible: If @@IsSales or @@IScreditNote then Yes else No


    [#Line : EI ColumnTwo]
    Option : Global EI ColumnTwo

    [!Line: Global EI ColumnTwo]
    Add : Right Fields : After : VCH DiscTitle : SchemeAmtTL
    Local : Field : SchemeAmtTL : Info : " "

    [#Line : EI InvInfo]
    Option : Global EI InvInfo

    [#Line : CI InvInfo]
    Option : Global EI InvInfo

    [!Line: Global EI InvInfo]
    Add : Right Fields : After : VCH Discount : SchemeAmt
    Add : Fields : Before: VCH StockItem : vchslno1

    [Field : vchslno1]
    Set As : $$Line
    Width : 5
    Align : Centre
    Border : Thin Right
    Skip : Yes

    [Field : SchemeAmt]
    Use : Number Field
    Width : 12
    Set Always : Yes
    Storage : SchemeAmt
    Format : "Zero, Percentage"
    Align : Right
    ;Invisible: If @@IsSales or @@IScreditNote then Yes else No
    Skip : if $StockItemName contains "End of List" then Yes else No

    [#Line: VCHBATCH ColumnOne]
    Add:Right Fields:After:VCH DiscTitle:SchemeAmtTL
    Local:Field:Disc Number Title:Set as:"Scheme"

    [#Line: VCHBATCH ColumnTwo]
    Add:Right Fields:After:VCH DiscTitle:SchemeAmtTL
    Local:Field:Disc Number Title:Set as:"Disc."

    [#Line: STKVCH Batch2]
    Add:Right Fields:After:VCHBATCH ItemDiscount: SchemeAmt

    [#Line: STKVCH BatchTotal]
    Add:Right Fields:After:VCH Discount:SchemeAmt
    Local:Field:SchemeAmt :Set as:""
    Local:Field:SchemeAmt :Border:Totals

    [System:UDF]
    SchemeAmt : Number : 2345

    [#Field: VCH Rate]
    Use : Rate Price Field
    Width : @@VCHRateWidth
    Align : Right
    Storage : Rate
    Inactive : $$IsEnd:$StockItemName OR @@NoBaseUnits
    Set always : Yes
    Format : "Symbol,Forex"

    [#Field: VCH Discount]
    Use : Number Field
    Width : @@VCHDiscountWidth
    Align : Right
    Style : Normal Bold
    Storage : Discount
    Set always : Yes
    Format : "NoZero,Percentage"

    [#Field: VCH Value]
    ResetVal : if (@@NoBaseUnits OR $$IsEmpty:$BilledQty) then $$Value else ((($Rate * $BilledQty) - ((100 - $Discount) / 100)) * ((100 - $SchemeAmt) / 100))
     
    Johar, Jan 7, 2020
    #1


  2. Johar

    Johar Member


    Anybody plz help
     
    Johar, Jan 10, 2020
    #2


Share This Page