Dear Experts, I got one TDL from Sample TDL's from Tally, that is for Simple Stock Summary. That TDL is working Fine, and it shows all Stock Groups and Stock Items in that report. But, I need to filter Stock Group and Items with some particular groups. I have attached sample code for your reference. Kindly check and let me know how to do it... I am waiting for your reply... Regards, vanandd
Code: ;; Sri Ganeshji : Sri Balaji : Sri Pitreshwarji : Sri Durgaji : Sri Venkateshwara /* Bro Here is It try this..... */ [#Menu: Gateway of Tally] Add: Item: Grp Report : Display: Smpl Stk Grp Rep [Report: Smpl Stk Grp Rep] Form : Smpl Stk Grp Rep Use : Dsp Template Title : "Stock Group Report" Variable: ExplodeFlag, Stock Group Name [Form: Smpl Stk Grp Rep] Part : Smpl Stk Grp Rep Background : White, Light Orange Button : Change Period, Print Button, Explode Flag Keys : Form Remove Line, Form Show Last Removed Line Button : BtnGroup Height : 100 % Screen Width : 100 % Screen [Part: Smpl Stk Grp Rep] Parts : Form SubTitle, Smpl Stk Grp Rep Details Local : Field : Form SubTitle : Set as : "Stock Group Report For the Period " + @@DspDateStr Vertical: Yes [Part: Smpl Stk Grp Rep Details] Lines : Smpl Stk Grp Rep Title, Smpl Stk Grp Rep Details Bottom Line : Smpl Stk Grp Rep Total Repeat : Smpl Stk Grp Rep Details : Smpl Stk Grp and Item Coll Total : MyField1, Smpl Stk Grp Rep Item Qty, Smpl Stk Grp Rep Item Value Scroll : Vertical [Line: Smpl Stk Grp Rep Details] Fields : Smpl Stk Grp Rep Item Name, MyField1 Right Field : Smpl Stk Grp Rep Item Qty, Smpl Stk Grp Rep Item Value Explode : Smpl Stk Grp Item Details : $$IsStockGroup AND (##ExplodeFlag OR $$KeyExplode) Option : Smpl IsStock Item : $$IsStockItem Space Bottom: 2 mms [!Line: Smpl IsStock Item] ;Local : Field : Default : Style : Normal Italic Local : Field : Default : Color : Blue [Part: Smpl Stk Grp Item Details] Line : Smpl Stk Grp Item Details Repeat : Smpl Stk Grp Item Details : Smpl Stk Grp and Item Coll [Line: Smpl Stk Grp Item Details] Use : Smpl Stk Grp Rep Details [Line: Smpl Stk Grp Rep Total] Use : Smpl Stk Grp Rep Details Local : Field : Default : Type : String Local : Field : Smpl Stk Grp Rep Item Name : Align : Center Local : Field : Smpl Stk Grp Rep Item Name : Set As : "Total" Local : Field : MyField1 : Set as : $$Total:MyField1 Local : Field : Smpl Stk Grp Rep Item Qty : Set As : $$Total:SmplStkGrpRepItemQty Local : Field : Smpl Stk Grp Rep Item Value : Set As : $$Total:SmplStkGrpRepItemValue Border : Totals [Line: Smpl Stk Grp Rep Title] Use : Smpl Stk Grp Rep Details Local : Field : Default : Type : String Local : Field : Smpl Stk Grp Rep Item Name : Align : Center Local : Field : Smpl Stk Grp Rep Item Name : Set As : "Particulars" Local : Field : MyField1 : Set as : "Opening Balance" Local : Field : Smpl Stk Grp Rep Item Qty : Set As : "Closing Balance" Local : Field : Smpl Stk Grp Rep Item Value : Set As : "Closing Value" Border : Column Titles [Field: Smpl Stk Grp Rep Item Name] Use : Name Field Set As : $Name Option : Smpl Stk Grp Item Name : $$IsStockItem Option : Smpl Stk Grp Name : $$IsStockGroup Color: Green [!Field: Smpl Stk Grp Name] Variable: Stock Group Name Display : Smpl Stk Grp Rep Alter : Stock Group Variable: StockGroupName Color : Red [!Field: Smpl Stk Grp Item Name ] Variable: Stock Item Name Display : Item Monthly Summary Alter : Stock Item [Field: MyField1] Use: Number Field Set as: $IntQtyOpBal Color: Red [Field: Smpl Stk Grp Rep Item Qty] ;Use : Qty Primary Field ;Type: Number: Forced ;Set Always: Yes Width : @@NameWidth Set As : $ClosingBalance Color : REd [Field: Smpl Stk Grp Rep Item Value] Use : Amount Field Width : @@NameWidth Set As : $ClosingValue Color : REd [Collection: Smpl Stk Grp and Item Coll] Collection : Smpl Stk Grp Coll, Smpl StkGrp Items [Collection: Smpl Stk Grp Coll] Type : Stock Group ;Child Of: #StockGroupName Fetch : Name, Closing Balance, Closing Value Filter:RDGroupOnly [Collection: Smpl StkGrp Items] Type : Stock Item Childof : #StockGroupName Fetch : Name, Closing Balance, Closing Value Compute : IntQtyOpBal :$$AsSignedQty:$$GodownItemValue:@@IntFGPET:$StockItemName:$OpeningBalance [System: Formula] IntFGPET : "Finished Good PET";"Finished Goods - Int" RDGroupOnly:if ##isRDGrpName contains "All Item" then $Name contains "" else $Name = ##isRDGrpName [Button:BtnGroup] Key:F5 Action:Alter:BtnGroup Title:Group Wise [Report:BtnGroup] Form:BtnGroup [Form:BtnGroup] Part:BtnGroup No Confirmation:Yes [Part:BtnGroup] Line:BtnGroup [Line:BtnGroup] Field:Medium Prompt,BtnGroup Local:Field:Medium Prompt:Set as:"Select Group" Local:Field:Medium Prompt:Style:Normal Bold Local:Field:Medium Prompt:Color:RED [Field:BtnGroup] Use:Name Field Variable:isRDGrpName Modifies:isRDGrpName Set Always:Yes Table:GrpFilter,allitems,EndOfList Show Table:Always Width:40 Border:thinbox [System:variable] isRDGrpName:"" [Variable:isRDGrpName] Type:String [Collection:GrpFilter] Title:"List of Group (Please Select)" + " Closing Value" Type:Stock Group Belongs To:Yes Report:Smpl Stk Grp Rep Fetch:Name, Parent, IsDeemedPositive Format:$$Name, 30 Format:$ClosingValue, 10 Set as:$Name Fetch: SortPosition, AdditionalName Is ODBC Table:Yes
Dear Mr. Raju Das, Thanks for your reply and your code is working fine. Actually, I need the report like following, When I run this TDL, its showing all Groups, then I can go one by one group by entering "ENTER" button. then , If I press Alt + F1 it will show the Stock Item Details and under created group names. But, here I do not want all the groups to display. I need only my specific group. I mean, I created as Finished Goods -> Finished Goods 1, Finished Goods 2 Finished Goods 1 -> Sub Materials 1, Sub Materials 2 Sub Materials 1 -> Our Products, Other Products Our Products -> TV, Washing Machine, Fridge Other Products -> Printers, Computers, Mouse I created Stock item, under Printers , Computers and Mouse. So, I want to filter, when I open my report there it should start from Printers, Computers, Mouse. If I press Enter or Alt + F1, that Stock Items should appear. I try to Filter the Stock Group, Its appearing correctly but, When I Press Enter or Alt + F1, its not working and tally hangs Can you please check this and give me your valuable suggestions to make this report. Regards, vanandd
Just Change this Collection..... [Collection:GrpFilter] Title:"List of Stock Item (Please Select)" + " Closing Value" Type:Stock Item Belongs To:Yes Report:Smpl Stk Grp Rep Fetch:Name, Parent, IsDeemedPositive Format:$$Name, 30 Format:$ClosingValue, 10 Set as:$Name Fetch: SortPosition, AdditionalName Is ODBC Table:Yes
SIR @Raju Das PLEASE ANSWER MY THREAD IT WILL BE PLEASURE http://tdlexperts.com/index.php?threads/please-correct-code-round-off-amount.3872/
Dear sir,, Please check the code & help me How to filter between Enter by or Alter by and it should be filter through User Wise [#Report: Day Book] Variable : UserName : String Set as : UserName : "" [#Form : Day Book] Add : Button : At End : UserSearch [Button : UserSearch] Key : ALT+W Title: "WHO" Action : Alter : UserName [Report : UserName] Form : UserName [Form :UserName] Part : UserName [Part : UserName] Line : UserName [Line : UserName] Field : Medium Prompt, UserName Local : Field : Medium Prompt : Info : $$LocaleString:"User Name" [Field :UserName] Use : Name Field Variable : UserName Modifies : UserName [#Collection : User List1] Type : User List : Company Child of : ##SVCurrentCompany Fetch : Name, Security ;;, StatVal, AlteredVal, CancVal, DelVal, MstCreated, MstAltered ; Filter : IsNotTallyNETRemoteUser Filter : auditer [System : Formula] auditer : $Name = ##UserName OR $$IsSysName:##UserName
Dear Raju Das Sir, You have advised in the earlier code you published as : ;;; JustChange this Collection..... [Collection:GrpFilter] Title:"List of Stock Item (Please Select)" + " Closing Value" Type:Stock Item Belongs To:Yes Report:Smpl Stk Grp Rep Fetch:Name, Parent, IsDeemedPositive Format:$$Name, 30 Format:$ClosingValue, 10 Set as:$Name Fetch: SortPosition, AdditionalName Is ODBCTable:Yes But sorry to say this Sir, that now nothing displays when I select the stock group. I hope that you have asked to make one single replacement at one single last few lines. If not kindly do advise.