Two Company Vouchers Combined Daybook

How to Create two companies vouchers combined DAY BOOK.

give the Solution

 

HI Manish

Try this attached file..

 

Great

 

grop company day book don't working ?

 

Lokesh sir...grt work

 

not working . error at line
Collection: MultiCmpDB VchCollection: Company Collection

 

how to add company name as a first row.

 

nice one

 

Dear admin, entry in the same company are showing twice....

 

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"

 

i see single ledger in two company voucher if possible ...

 

I want to view the ledger transactions of the group company or all the companies currently loaded.

 

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

 

sir after select Alt+G GroupWise , There was nothing, no entry show.

 

Maybe User Id

Not $$isAllowed.