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. 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 SP 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:ColorARK 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
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.
Dear Amit Sir, I have tried a lot with below collection but not get results :- Compute:TDSLedgerAmount:$$CollAmtTotal:LedgerEntries:$Amount * $(Ledger,$Ledger).TDS / 100
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.