Try This You Create the Group Company name -- Containing Group and Modify the code as follows [Collection: Company Collection] Type : Company Fetch : Name,TBalOpening Filter : NonGrp [System: Formula] NonGrp : $Name NOT Containing "Group"
Dear All Please help on Group Company day book reports , i want to need Delete Command On ,,,, filter wise also .. ;;;;;;;;;;;;;;;;;;;;;;; [#Menu : GateWay of Tally] Key Item : Group Company Day Book : G : Display : MultiCmpDBRep [Report: MultiCmpDBRep] Form : MultiCmpDBForm Use : DSP Template Title : "Group Company Day Book" Variable : BTNPartyName : String Set : BTNPartyName : "" Variable : BTNPartyName1 : String Set : BTNPartyName1 : "" Variable : BTNPartyName2 : String Set : BTNPartyName2 : "" Variable : BTNPartyName3 : String Set : BTNPartyName3 : "" [Form: MultiCmpDBForm] Top Part : title Part : MultiCmpDBPart Bottom Part : Totalamt Background : @@SV_DAYBOOK Add : Button : Print Button, Change Period, ExportButton,BTNParty ,BTNParty1, BTNParty2,BTNParty3 ,Change Company Bottom Toolbar Buttons : BottomToolBarBtn3, BottomToolBarBtn11, BottomToolBarBtn12 Background : Crystal Blue ;Use : DSP Template [#Key: BottomToolBarBtn3] Key : Alt+D Title : $$LocaleString:"Delete" Type : BottomToolBarBtn3 Action : Modify Object [Part : Totalamt] Line: TotalAmt Border: Thick Top Bottom [Line : TotalAmt] Right Field: TotalTitle,Totalvalue [Field :TotalTitle] Set as: "" Use : nameField Color : "RED" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Field :Totalvalue] ;Set as: "00023478" [Part : title] Line: title [Line : title] Field: title [Field : title] Use: DSP DateTitle Align : Center Full Width: Yes Style : Large Bold [Button : BTNParty] Key : Alt+V Title : Voucher Type Action : Alter:BTNPartyName [Report: BTNPartyName] Form : BTNPartyName [Form : BTNPartyName] Part: BTNPartyName Height: 3 Width: 40 [Part :BTNPartyName] Line: BTNPartyName [Line : BTNPartyName] Field: Medium Prompt,BTNPartyName Local: Field : Medium Prompt : Info : "Select Voucher" Local: Field : Medium Prompt : Color : "RED" Local: Field : Medium Prompt : Style : Large Bold [Field :BTNPartyName] Use : name Field Table : Voucher Type;Ledger Show Table : Always Variable:BTNPartyName Modifies : BTNPartyName [Button : BTNParty3] Key : Alt+G Title : Group Wise Action : Alter:BTNPartyName3 [Report: BTNPartyName3] Form : BTNPartyName3 [Form : BTNPartyName3] Part: BTNPartyName3 Height: 3 Width: 40 [Part :BTNPartyName3] Line: BTNPartyName3 [Line : BTNPartyName3] Field: Medium Prompt,BTNPartyName3 Local: Field : Medium Prompt : Info : "Select Group" Local: Field : Medium Prompt : Color : "RED" Local: Field : Medium Prompt : Style : Large Bold [Field :BTNPartyName3] Use : name Field Table : Group;Voucher Type;Ledger Show Table : Always Variable:BTNPartyName3 Modifies : BTNPartyName3 [Button : BTNParty1] Key : Alt+L Title : Ledger Name Action : Alter:BTNPartyName1 [Report: BTNPartyName1] Form : BTNPartyName1 [Form : BTNPartyName1] Part: BTNPartyName1 Height: 3 Width: 70 [Part :BTNPartyName1] Line: BTNPartyName1 [Line : BTNPartyName1] Field: Medium Prompt,BTNPartyName1 Local: Field : Medium Prompt : Info : "Enter Ledger Name Same" Local: Field : Medium Prompt : Color : "RED" Local: Field : Medium Prompt : Style : Large Bold Local: Field : Medium Prompt : Full Width: True [Field :BTNPartyName1] Use : name Field ;Table : Ledger Show Table : Always Variable:BTNPartyName1 Modifies : BTNPartyName1 Full Width : Yes [Button : BTNParty2] Key : Alt+N Title : Voucher No Action : Alter:BTNPartyName2 [Report: BTNPartyName2] Form : BTNPartyName2 [Form : BTNPartyName2] Part: BTNPartyName2 Height: 3 Width: 50 [Part :BTNPartyName2] Line: BTNPartyName2 [Line : BTNPartyName2] Field: Medium Prompt,BTNPartyName2 Local: Field : Medium Prompt : Info : "Enter Voucher No (Same)" Local: Field : Medium Prompt : Color : "RED" Local: Field : Medium Prompt : Style : Large Bold Local: Field : Medium Prompt : Full Width: True [Field :BTNPartyName2] Use : name Field ;Table : Ledger Show Table : Always Variable:BTNPartyName2 Modifies : BTNPartyName2 Full Width : Yes [Part: MultiCmpDBPart] Common Border: Yes Border : Thin Left Right Lines : MultiCmpDBLnTitle, MultiCmpDBLnDetails Repeat : MultiCmpDBLnDetails: Vouchers of Multiple Companies Scroll : Vertical ;Repeat : GroupParent : GropuParent ;[Collection: GropuParent] ; ; Type : Group ; Fetch : Parent ;Date, Vouchernumber, VoucherTypeName, Amount, MasterID, LedgerName ; Compute : Owner Company : $$LoopCollObj:$Name [Line : MultiCmpDBLnTitle] Use : MultiCmpDBLnDetails Local : Field : Name Field : Set as : "Particulars" Local : Field : MultiCmpVchNo : Set as : "Vch No." Local : Field : MultiCmpVchTypeName : Set as : "Vch Type" Local : Field : UniDate Field : Set as : "Date" Local : Field : GroupParent : Set as : "GROUP" Local : Field : GroupParent : Use : Name Field Local : Field : Amount Field : Set as : "Amount" Local : Field : Serialno : Set as : "SR" Local : Field : Default : Type : String Local : Field : Default : Align : Center Local : Field : Default : Style : Normal Bold Local : Field : Default : Lines : 0 Border : Thick Top Bottom [Line: MultiCmpDBLnDetails] Fields : Serialno,UniDate Field,GroupParent, Name Field , MultiCmpOwnerCmpName Right Field : MultiCmpVchTypeName,MultiCmpVchNo, Amount Field Local : Field : Default : Border : Thick Left Right Local : Field : UniDate Field : Set as : $Date Local : Field : UniDate Field : Full Width: Yes Local : Field : Amount Field : Set as : $Amount Local : Field : Amount Field : Format : "ShowBaseCurrency" Local : Field : Amount Field : Width : 20 Local : Field : Name Field : Set as : $LedgerName Local : Field : Name Field : Align : Left Local : Field : Name Field : Width : 50 Local : Field : Default : Align : Center Local : Field : Default : Type : String Option : Alter on Enter Empty : @@InvisibleVType /* As our collection is a loop collection, when we press enter on voucher, alongwith its master id, we also need to modify the company name variable 'SVCurrentCompany' so the voucher understands its current company */ [Field : GroupParent] Set as : $Parent:Ledger:$LedgerName;$Parent:Group:##ParentName ;Set as : "569+" Use : Name Field [Field :Serialno] Set as : $$Line Border : thin right ;Style : large Width : 5 [Field : MultiCmpOwnerCmpName] Use : Name Field Set as : $OwnerCompany Alter : Voucher Variable : SVCurrentCompany Modifies : SVCurrentCompany Invisible: Yes [Field : MultiCmpVchNo] Use : Short Name Field Set as : $VoucherNumber Full Width: Yes [Field : MultiCmpVchTypeName] Use : Short Name Field Set as : $VoucherTypeName Full Width: Yes [Collection: Vouchers of Multiple Companies] Collection : MultiCmpDB VchCollection : Company Collection Sort : Default : $Date, $LedgerName ;Collection : Grouping : Groupings ;[Collection : Grouping] ; Type : Ledger ; ;Type : Group ; Belongs To : Yes ; Fetch : Parent ; Compute : Owner Company : $$LoopCollObj:$Name ; Sort : @@Default : $ParentFullList, $Name [Collection: MultiCmpDB VchCollection] Type : Voucher Fetch : Date, Vouchernumber, VoucherTypeName, Amount, MasterID, LedgerName, Parent,ParentFullList Compute : Owner Company : $$LoopCollObj:$Name Filter : PartyFilter Filter : PartyFilter1 Filter : PartyFilter2 Filter : PartyFilter3 [Collection: Company Collection] Type : Company Fetch : Name, ;[Collection :Groupings] ; Type : Group ; Fetch : Parent,ParentFullList [System : Formula] PartyFilter: $VoucherTypeName = ##BTNPartyName or $$IsSysName:##BTNPartyName [System : Formula] PartyFilter1: $LedgerName = ##BTNPartyName1 or $$IsSysName:##BTNPartyName1 [System : Formula] PartyFilter2: $VoucherNumber = ##BTNPartyName2 or $$IsSysName:##BTNPartyName2 [System : Formula] PartyFilter3: $Parent = ##BTNPartyName3 or $$IsSysName:##BTNPartyName3