Two Company Vouchers Combined Daybook

Discussion in 'Tally Developer' started by tally.manish, May 12, 2014.

         
  1. tally.manish

    tally.manish Member


    How to Create two companies vouchers combined DAY BOOK.

    give the Solution
     


  2. D Lokesh

    D Lokesh Member




    HI Manish

    Try this attached file..
     

    Attached Files:

    knsivam89 and mpal2311 like this.


  3. mpal2311

    mpal2311 Active Member



  4. ebek

    ebek Member


    grop company day book don't working ?
     



  5. Lokesh sir...grt work
     


  6. Sunder

    Sunder New Member


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


  7. Amit Mahajan

    Amit Mahajan New Member


    how to add company name as a first row.
     


  8. priya

    priya Member


    nice one
     


  9. vaithy

    vaithy New Member


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


  10. tally.manish

    tally.manish Member


    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"
     


  11. laxman

    laxman Member


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


  12. Dharmesh

    Dharmesh New Member


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


  13. vyadav

    vyadav Member


    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



    Delete button.jpg
     


  14. Rohit8811

    Rohit8811 New Member


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

    Attached Files:



  15. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Maybe User Id

    Not $$isAllowed.
     


Share This Page