Field Value

Discussion in 'Free Source Codes' started by Rakesh Kumar, Sep 26, 2020.

    
  1. Rakesh Kumar

    Rakesh Kumar Member


    Dear Experts, I want to add TDS value as per screenshot. I think there is some missing in
    below code. Please guide me how to show TDS amount as I have deducted.

    upload_2020-9-26_14-41-52.png

    Code is below :-

    [#Menu : Gateway of Tally]
    Add : Item : GST Report1 : Menu : GST Report

    [Menu : GST Report]
    Add : Item : All GST Purchase : Display : GST Purchase
    Add : Item :""


    [Report : GST Purchase]
    Title: GST Purchase
    Variables : SV CurrentCompany

    Form :GST Purchase
    Variable : SVFromDate,SVToDate
    Set : SVFromDate : $$MonthStart:##SVCurrentDate
    Set : SVToDate : $$MonthEnd:##SVCurrentDate
    Set : Is Day Book : Yes

    [Form :GST Purchase]
    Space Right : 1.5
    Space left : 1.5
    ;Space tOP : 1.5
    ;Space Bottom : 1.5

    Part :DSP AccTitles, daybookheadbb2, GST Purchase,daybookbottam2 ;;,daybookhead22 ;;;daybookhead2,
    Buttons : ExplodeFlag,ChangeDybkDate,ChangePeriod
    BottomButton: BlankButton, RelReports, InvReports, AcctReports, Report Operations, FilterButton, ValueButton
    Buttons : PrintButton, ExportButton, UploadButton, MailButton
    Bottom Toolbar Buttons : BottomToolBarBtn1, BottomToolBarBtn2_EditVch, BottomToolBarBtn3, BottomToolBarBtn4, BottomToolBarBtn5, BottomToolBarBtn6, BottomToolBarBtn7, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12
    Background : white

    Page Break : UsCs GI ClPgBrk2 , UsCs GI OpPgBrk2


    [Part: UsCs GI ClPgBrk2]

    Lines : UsCs GI ClPgBrk2

    [Line: UsCs GI ClPgBrk2]

    Fields : Simple Field
    Local : Field : Simple Field : Set As : "Continued..."
    Local : Field : Simple Field : FullWidth : Yes
    Local : Field : Simple Field : Align : Right
    Border : Full Thin Top


    [Part: UsCs GI OpPgBrk2]

    Parts : SD Title2, daybookheadbb2 ;;;;, UsCs GI Inventory Title
    Vertical : Yes





    [Part: SD Title2]
    Line: SD Title2, daybookheadB2

    [Line: SD Title2]

    Fields : Simple Field
    Local : Field : Simple Field : Set As : @@CmpMailName
    Local : Field : Simple Field : Align : Center
    Local : Field : Simple Field : FullWidth : Yes
    Local : Field : Simple Field : WideSpaced: Yes
    SpaceBottom : 1




    [Line :daybookheadB2]
    Field : Simple Field
    Local : Field : Simple Field : Info : "GST Purchase from " + $$String:##SVFromDate +" to " + $$String:##SVToDate


    ;;==================GST Purchase==============================



    [Part : daybookheadbb2]
    Use : GST Purchase
    Delete : Repeat
    Delete : Scroll
    Border : ColumnTitles
    Local : Field : Default : Type : string
    Local : Field : My Voucher Srl2 : Set As : "Sr.No"
    Local : Field : MyVchTIN2 : Set As : "GST No"
    Local : Field : MyVoucherParty2: Set As : "Party Name"
    Local : Field : MyVchNo2 : Set As : "Bill No"
    Local : Field : My Voucher Date2 : Set As : "Received on"
    Local : Field : My Voucher Date3 : Set As : "Bill Date"
    ;;;Local : Field : Item : Set As : "Item Details"
    ;;;Local : Field : IEQty : Set As : "Quantity"
    ;;;;;Local : Field : IGST PER:Set as:"%"
    ;;;;;Local : Field : HSNCodeSS : Set As : "HSN CODE"
    ;;;;Local : Field : IGST PER1:Set as:"%"
    ;;;;;Local : Field : HSNCodeSS1 : Set As : "Ledger HSN CODE"
    Local : Field : MyVchTotAmount2x : Set As : "Total Amount"
    Local : Field : MyVchAmount2x : Set As : "Goods Value"

    Local : Field : TDS : Set As : "TDS Amt"

    Local : Field : MyVchfNo2 : Set As : "CGST "
    Local : Field : MyVchfNo3 : Set As : "SGST "
    Local : Field : MyVchfNo4 : Set As : "IGST "

    Local :Field : Default : Style : Normal
    Local: Field: Default: Align: Center


    [Part :GST Purchase]
    Line : GST Purchase
    Repeat :GST Purchase :My Voucher Rep Collection2
    tOTAL : My Voucher Srl2, MyVchTotAmount2x, MyVchAmount2x, MyVchfNo4,MyVchfNo2,MyVchfNo3,MyVchfNo4
    Common Border : Yes
    Scroll : Vertical
    [Line :GST Purchase]
    Field :My Voucher Srl2, MyVchTIN2, MyVoucherParty2, MyVchNo2, My Voucher Date2, My Voucher Date3, MyVchTotAmount2x, MyVchAmount2x, TDS, MyVchfNo4,MyVchfNo2,MyVchfNo3,MyVchfNo4
    Option : Alter on enter
    Option : DisplayOnAltEnter
    Explode : My TB Inv Explosion : ##ExplodeFlag or $$KeyExplode
    Option:Colorfull display:$amount>10000
    [!Line:Colorfull Display]
    Local:Field:MyVoucherParty2:Color:DARK red
    Local:Field:MyVchAmount2x:Color:dark red
    [Part: My TB Inv Explosion]
    Lines : My TB Inv Explosion
    Repeat : My TB Inv Explosion : ledger Entries;Inventory Entries
    Scroll : Vertical

    [Line : My TB Inv Explosion]
    Field : My TB Inv ExplosionItem ; here add other fields
    Indent : 5



    [Field: My TB Inv ExplosionItem]
    USe : Name field
    Set as : $StockItemName
    Width : 78
    Align: Right



    ;Option : Alter On Enter

    [Field :My Voucher Srl2]
    Use : Number Field
    SET AS:$$LINE
    Width : 4% Screen
    Align: Centre
    Border : Thin LEFT Right

    [Field : MyVchTIN2]
    Use : Name Field
    Set As :$PartyGSTIN:Ledger:$PartyLedgerName
    Width : 11
    Border : Thin Right


    [Field :My Voucher Date2]
    Use : Short Date Field
    Set As : $Date
    Border : Thin Right
    Format:"Short Date"
    Color : "Dark Red"
    Align:Center
    Width : 9









    [Field :My Voucher Date3]
    Use : Short Date Field
    Set As : $ReferenceDate
    Border : Thin Right
    Format:"Short Date"
    Align:Center
    Width : 8






    [Field : MyVoucherParty2]
    Use : NAme Field
    Set As : $LedgerName ;;;$BASICBUYERNAME
    Width : 35
    Border : Thin Right
    Alter : Voucher
    Display : Ledger Vouchers:$$ISLedger
    Variable: Ledger Name


    [Field : MyVchNo2]
    Use : NAme Field
    Set As : $REFERENCE
    Width : 10
    Border : Thin Right
    Align:Center



    [Field : MyVchAmount2x]
    Use : Amount Field

    ;Set as:$$FilterAmtTotal:allLedgerEntries:2:$Amount
    ;Set as : $$NettAmount:$GSTExpTaxableAmt:$GSTIncTaxableAmt
    Set As: $$CollAmtTotal:allinventoryEntries:$Amount ;allinventoryEntries:$Amount ; THIS SEA ALSO LEDGER ENTRY which this field
    Border : Thin Right




    ;***********************










    [Field : TDS]
    Use : Amount Field
    Set as:$$TDSVchVoucher:$Amount
    Border : Thin Right
    Width : 10











    [Field : MyVchfNo2]
    Use : Amount Forex Field
    Set as:$$FilterAmtTotal:LedgerEntries:CGST1:$Amount; $CGSTAmount is ok
    Border : Thin Right
    Width : 10

    ;***********************
    [Field : MyVchfNo3]
    Use : Amount Forex Field
    Set as : $$FilterAmtTotal:LedgerEntries:SGST1:$Amount;$SGSTAmount
    Border : Thin Right
    Width : 10

    ;***********************
    [Field : MyVchfNo4]
    Use : Amount Forex Field
    Set as : $$FilterAmtTotal:LedgerEntries:IGST1:$Amount;$IGSTAMOUNT ; this problems
    Border : Thin Right
    Width : 10

    ;***********************

    [Field : MyVchTotAmount2x]
    Use : Amount Field
    Set As : $Amount
    Border : Thin Right

    ;***********************


    [System: Formula]
    SGST :$$FilterAmtTotal:LedgerEntries:SGST1:$Amount
    SGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"SGST"

    CGST :$$FilterAmtTotal:LedgerEntries:CGST1:$Amount
    CGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"CGST"

    IGST :$$FilterAmtTotal:LedgerEntries:IGST1:$Amount
    IGST1 :$Name:Ledger:$LedgerName Contains $$LocaleString:"IGST"









    [Collection : My Voucher Rep Collection2]
    Type : Ledger
    ;Sort : Default : $BASICBUYERNAME
    Type : Vouchers
    Walk : allLedgerEntries
    Filter : IsSalesVT2 ;;;;,CSTFilter2 ;;,Recfiltee2
    Fetch : Date,Amount,VoucherTypeName ,PArtyLedgerName,VoucherNumber,REFERENCE,ReferenceDate, MyVchTotAmount2x, TDS, HSNCodeSS, HSNCodeSS1, GSTDutyAmount,BASICBUYERNAME,CGSTAmount,SGSTAmount,IGSTAmount

    Fetch : *.*

    Compute:IGSTAmount:$$CollAmtTotal:InventoryEntries:$Amount * $(Stockitem,$stockitem).GSTIGSTRate / 100 ; ledger entries
    Compute:CGSTAmount :$$CollAmtTotal:InventoryEntries:$Amount * $(Stockitem,$stockitem).GSTIGSTRate / 100/2
    Compute:SGSTAmount:$$CollAmtTotal:InventoryEntries:$Amount * $(Stockitem,$stockitem).GSTIGSTRate / 100/2

    [Part: daybookbottam2]

    Lines : daybookTotalLine2

    [Line: daybookTotalLine2]

    Use : GST Purchase
    Local: Field: Default : Style : Small Bold
    ;Local: Field: Default: Type: String
    Local: Field: Default: Align: Right
    Local : Field : My Voucher Srl2 : Set as:$$NumItems:MyVoucherRepCollection2;$$PrevLine:#MyVoucherSrl2
    Local : Field : MyVoucherParty2:Set As : "Total"
    Local : Field : MyVchNo2 : Set As : ""
    ;;;;Local : Field : IEQty:Set As:$$Total:IEQty
    Local : Field : TDS : Set As : $$TDSVchVoucher:$Amount
    Local : Field : MyVchAmount2x : Set As : $$Total:MyVchAmount2x
    LOCAL : FIELD: MyVchTotAmount3x:Set as:$$Total:MyVchTotAmount3x
    LOCAL : FIELD: MyVchTotAmount2x:Set as:$$Total:MyVchTotAmount2x
    LOCAL : FIELD: MyVchfNo2:Set as:$$Total:MyVchfNo2
    LOCAL : FIELD: MyVchfNo3:Set as:$$Total:MyVchfNo3
    LOCAL : FIELD: MyVchfNo4:Set as:$$Total:MyVchfNo4




    Border : Totals

    [System: Formula]

    IsSalesVT2 : $$IsPurchase:$VoucherTypeName


    CSTFilter2 : not ##IsRevChargeAppl
     


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Since you are walking All Ledger Entries...same way compute the TDS Amount in that collection, which will be as per condition and against that Invoice.
     


  3. Rakesh Kumar

    Rakesh Kumar Member


    Dear Amit Sir, I have tried a lot with below collection but not get results :-

    Compute:TDSLedgerAmount:$$CollAmtTotal:LedgerEntries:$Amount * $(Ledger,$Ledger).TDS / 100
     


  4. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Your collection is of Purchase Vouchers.........

    TDS is deducted by way of JV or Payment vouchers. Then how will it be possible to collect the TDS amount???

    Also TDS rate is defined in the Expense Ledger not the Party Ledger, so from where will you get the TDS Rates?

    Also when advance payment is made and TDS deducted thereon and later full Purchase bill is booked, TDS will be auto calculated on balance?

    SO.....As per your report structure, not possible to derive TDS, but you can do it manually, provided all the parties have the same rate of TDS.
     
    panam and Jaydeep Shah like this.


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Open your own topical thread and re-post your query.............
     


Share This Page