Additional Tax based on Item

Discussion in 'Tally Developer' started by Muddasar Shaikh, Jun 17, 2014.

    

  1. Hello I am creating the tdl for Additional Tax Calculation. Base on Item. Where I have set the Percentage Rate in Item Master. and I have created Additional Column in Sales Invoice.

    I want to Calculate the same in Formula Rate of Item * Percentage Specified in Item Master/100

    I can set the value by condition but I am not able to set the value using formula.

    Please find the attached Code and please guide.
     

    Attached Files:



  2. Raju Das

    Raju Das Member



    ;;;;;Bro try and Enjoy and click like.......


    ;;;;Here is it.....

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tax Ledger in Stockk Item;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    [#Form: Stock Item]

    Use : Master Inventory Form
    Normal Color: @@SV_STOCK
    Switch: MSTSimpleStkItemOutput: MSTSimpleOutput : NOT (##UseLangAliasesInMaster OR ##MSTHasLangAliases)
    Switch: MSTSimpleStkItemOutput: MSTLangAliasOutput : ##UseLangAliasesInMaster OR ##MSTHasLangAliases

    Delete : Bottom Button : Master Configure
    Add : Bottom Button: StockItem Master Configure
    Set : Master Type : "Stock Item"

    FullWidth : No
    Full Height: No

    Parts : STKI Basic, STKI Desc, STKI Features, STKI Balances,MUPTax
    Local: Line: Default: NoCursor: Yes
    Local : Button : Master Stock Item : Inactive : Yes
    SpaceBottom : 0.25
    Space Left: 0
    Space Right: 0
    Option: MST Form SpaceTop: ##UseLangAliasesInMaster OR ##MSTHasLangAliases
    [*Part: STKI Balances]

    Lines : STKI BalTitles, STKI OpBal, STKI OpAlt
    Add: Part: After: STKI Balances: MUPTax
    Invisible : $$InCreateMode AND $$InExecuteMode
    Horizontal Align: Centre
    Border: Thick Bottom

    [Part: MUPTax]
    Lines: Mkt Fee Line
    Horizontal Align: Left

    [Line: Mkt Fee Line]

    Fields : Medium Prompt, STKI Rate of Mkt Fee , Calc
    Local : Field : Medium Prompt : Set as :"Rate of Mkt Fee (%) :"
    Invisible : (NOT $$IsInvoicingOn) OR (NOT @@IsIndianVATUsed AND NOT @@IsMalaysianSalesTaxOn AND NOT @@IsIndonesianVATOn AND NOT @@IsBangladeshVATOn AND NOT @@IsGhanaVATOn)
    Space Top : 0.5

    [Field: STKI Rate of Mkt Fee]

    Use : Number Field
    Storage : RateOfmktfee
    Format : "NoZero,Percentage"

    [Field: Calc]
    Use: Name Field
    Storage: Calc
    Set as: "Percentage"

    [System:UDF]

    RateOfmktfee: Number: 1001
    Calc:String:1004

    ;;;;;;;;;;;;;;;;;Sale Invoice

    [#Line : EI Column One]
    Add: Right Field: Before: VCH AmtTitle: Market Fees Title

    [Field: Market Fees Title]
    Use: Name Field
    Set as: "Market Fee"
    Width: 10
    Skip: Yes

    [#Line : EI Inv Info] ;; Inventory Repeat Line - - With out Class

    Add : Right Fields: Before : VCH Value: MktfeeValue

    [#Line : CI Inv Info] ;; Inventory Repeat Line - - With Class

    Add : Right Fields: Before : VCH Value: MktfeeValue

    [Field: MktfeeValue]
    Use: Number Field
    Set By Condition:$Rate= 0: If $RateOfmktfee:StockItem:$StockItemName= $$Number:"5" then $$Number:"4.76" else If $RateOfmktfee:StockItem:$StockItemName= $$Number:"12.5" then $$Number:"11.11" else 0
    Storage: MktfeeValue
    Format : "NoZero,Percentage"

    [#Field: VCH Value]
    Use : Amount Forex Field
    Width : @@VCHAmountWidth
    Storage : Amount
    Set always : Yes
    Inactive : $$IsSysName:#VchStockItem
    ResetVal : if (@@NoBaseUnits OR $$IsEmpty:$BilledQty) then $$Value else (($Rate * $BilledQty * (100 - ($Discount + $MktfeeValue))) / 100)
    BatchTotal : $$CollAmtTotal:BatchAllocations:$Amount

    Switch: VCH Value: VCH JrnlValue : $$IsStockJrnl:##SVVoucherType
    Switch: VCH Value: VCH NrmlValue : NOT $$IsStockJrnl:##SVVoucherType AND NOT @@IsPOSInvoice AND NOT (@@IsJournal AND $$IsSysNameEqual:CENVATAvailing:mad:IsCenvat)
    Switch: VCH Value: VCH POSValue : NOT $$IsStockJrnl:##SVVoucherType AND @@IsPOSInvoice
    Switch: VCH Value: VCH DNCENVATAvailing Value: @@IsDebitNote AND $$IsSysNameEqual:CENVATAvailing:mad:IsCenvat
    Switch: VCH JobOrderValue: VCH JobOrderVal: @@IsJoborderVouchers
    IsCenvat: $$BaseOwner:#VCHExciseAdjustment

    Sub Form : Trader PurcExciseDetails: @@IsExciseDealerOn AND (($IsInvoice AND @@IsPurchase) OR (@@IsRcptNote AND $$IsTrackingOn AND NOT $$IsSysNameEqual:NotApplicable:$TrackingNumber)) AND @@IsTraderInvoice AND @@TraderItemTariff
    ;; For New Service Tax - Item Invoice with Common Ledger a/c
    Sub Form: STX InvTaxObject Alloc: If @@IsIndianServiceTax AND @@STXLedForService AND @@IsPOSInvoice Then Yes +
    Else @@IsIndianServiceTax AND @@STXLedForService AND @@IsServiceTaxParty AND (##ICFGCommonLed OR @@UseClassFmt) AND (($IsInvoice AND NOT ##SVAcctsInvoice) OR ($$IsPurcOrder:$VoucherTypeName OR $$IsSalesOrder:$VoucherTypeName))

    [System:UDF]

    MktfeeValue : Number : 402

    [#System: Formula]

    NrmlAmount : (100 * $Amount) / (100 - ($Discount + $MktfeeValue))
    CalcedAmt : (($Rate * $BilledQty * (100 - ($Discount + $MktfeeValue))) / 100)
     


Share This Page