Dear All Members, My report is showing like First Pic . If person doing entry like Second Pic Report is showing correct. But if a person is doing entry like Third pic in the Abc Test Company Amount should be 1100 not 1000. Am using $LedgerEntries[1].Amount at field Please help Code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#Menu : Gateway of Tally] Add : Item : Profit/Sales (PartyWise) : DISPLAY : Sales Report [Report : SalesReport] Form : SalesReport Set: variable : svfromdate, svtodate Set : SVFromDate : $$MonthStart:##SVCurrentDate Set : SVToDate : $$MonthEnd:##SVCurrentDate [Form : SalesReport] Part : ASTPURTitle,ASTPURDtls Bottom Part : ASTTotal Height : 100% Screen use : DSP Template Add : Button : LedgerwiseS [Part : ASTPURTitle] Line : ASTPURTL1,ASTPURTL2 [Line : ASTPURTL1] Field : ASTPURTL1 [Field : ASTPURTL1] Set as : @@cmpmailname Full Width : Yes Align : Centre Style : Large Bold Skip : Yes [Line : ASTPURTL2] Field : ASTPURTL2 Right Field : AStPeriod ; Border : Column Titles [Field : ASTPURTL2] use : Name Field Set as : "Sales Register" Fullwidth : No Align : Left Skip : Yes ;Style : Bold [Field : Astperiod] Set as : "From "+$$String:##svfromdate+" To "+$$String:##svtodate Skip : Yes [Part : ASTPURDtls] Line : saleTitles,salesdtls Repeat : salesdtls : Salescoll Total : Invamt,VchREV,VchGross,VchPrft,VchPct Scroll : Vertical option : Ledgerwise : ##Newchangecoll Not Contains "ALL ITEMS" option : AllLedger : ##Newchangecoll contains "ALL ITEMS" [!Part: Ledgerwise] Repeat : salesdtls : Ledsalescoll [!Part : AllLedger] Repeat : salesdtls : Salescoll [Line : Saletitles] Field : Sno, Invno, invdt,Party,Invamt,VchREV,VchGross,VchPrft,VchPct Local : Field : sno : Set as : "S.No." Local : Field : Party : Set as: "Buyer Name" Local : Field : Party : Line : 0 Local : Field : invdt : Set as :"Date" Local : Field : Invno : Set as :"Vch No." Local : Field : Invamt : type : String Local : Field : Invamt : Set as : "Sales Amount" Local : Field : VchREV : type : String Local : Field : VchREV : Set as : "Commission" Local : Field : VchGross : type : String Local : Field : VchGross : Set as : "Airline Sale" Local : Field : VchGross : Align:Center Local : Field : VchPrft : type : String Local : Field : VchPrft : Set as : "Mark-Up" Local : Field : VchPrft : Align:Center Local : Field : VchPct : type : String Local : Field : VchPct : Set as : "Discount" Border : Column Titles [Line : salesdtls] Field : Sno, invno,invdt,Party, Invamt,VchREV,VchGross,VchPrft,VchPct Option : AlterOnEnter Border: Thin bottom [Field : Sno] Set as : $$Line Width : 5% Screen Alter : Voucher Border:Thin Right [Field : Party] use : Name Field set as : $PartyLedgername Width : 25% Screen Border: Thin Right [Field : InvNO] use : Name Field Set as : $Vouchernumber Width : 10% Screen Border: Thin Right [Field : Invdt] Set as : $Date Width : 10% Screen Border:Thin Right [Field : Invamt] use : Amount Field Set as : $$OrigVchLedDrTotal:"Abc Test Company";$$Filteramttotal:Ledgerentries:cndn1:$Amount;$LedgerEntries[1].Amount Width : 10% Screen Border : Thin Right [System : Formula] cndn1 :$$Isdebit:$Amount [Field : VchREV] Use : Amount Field Set as : $LedgerEntries[2].Amount Width : 10% Screen Border:Thin Right [Field : VchGross] Use : Amount Field Set as : $LedgerEntries[3].Amount Width : 10% Screen Border:Thin Right [Field : VchPrft] Use : Amount Field Set as : $LedgerEntries[4].Amount Width : 10% Screen Border:Thin Right [Field : VchPct] Use : Amount Field Align : Right Width : 10 Format:"No Zero, Symbol," ;Format : "NoZero, Percentage, Decimal:2" Set as : $LedgerEntries[5].Amount [Part : ASTTotal] Line : Asttotal [Line : Asttotal] Field : Sno,Invno,invdt,party, Invamt,VchREV,VchGross,VchPrft,VchPct Local : Field : sno : Set as : "" Local : Field : Party : Set as: "Total==>>" Local : Field : Party :Align:Centre Local : Field : Cstno : Set as : "" Local : Field : invdt : Set as :"" Local : Field : Invno : Set as :"" Local : Field : Invamt : Set as : $$Total:Invamt Local : Field : VchREV : Set as : $$Total:VchREV Local : Field : VchGross : Set as :$$Total:VchGross Local : Field : VchPrft : Set as :$$Total:VchPrft Local : Field : VchPct : Set as:$$Total:VchPct Border : Column Titles [Collection : Salescoll] Type : voucher ;Filter : IsSale Fetch : Vouchernumber,PartyLedgername,Amount,Buyerscstnumber,Date,GrossRevenue,GrossCost,GrossProfit,VchPct [Collection:BSPSALES] Type : Vouchers ;: Ledger ;ChildOf : "Abc Test Company" Fetch : *, LedgerEntries.*,LedgerEntries.Amount,Date,Amount [#Object : Ledger Entry] BSPTotal :$$Total:LedgerAmount:$Amount [Collection : LedSalescoll] Type : voucher ;Filter : IsSale Fetch : Vouchernumber,PartyLedgername,Amount,Buyerscstnumber,Date,GrossRevenue,GrossCost,GrossProfit,VchPct Filter : ChkParty [Collection : SalesColldtl] ;Source Collection : Salescoll ;Walk : Inventoryentries ;By : Vouchernumber: $Vouchernumber Fetch : Vouchernumber,PartyLedgername,Amount,Buyerscstnumber,Date,Amount,GrossRevenue,GrossCost,GrossProfit,VchPct ;,Stockitemname [System : Formula] Issale : $$IsSales:$vouchertypename ChkParty : $PartyLedgername = ##Newchangecoll DrParty : $PartyLedgername = "Abc Test Company" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Button: LedgerwiseS] Key : CTRL + L Action : Execute : LedgerwiseColl Title : $$LocaleString:"Ledgerwise" [Report : LedgerwiseColl ] Form : NewchangeColl [Form : NewchangeColl] Part : Newchangecoll Width :35% Screen [Part : Newchangecoll] Line: New Change Coll [Line: New Change Coll] Field : Short Prompt, MyLedger Local : Field : Short Prompt : Info : $$LocaleString:"Select Ledger:" ;[Field: MyLedger] ;Use : Name Field ;Table : MyLedger,All Items ; Modifies : New Change Coll : Yes ;Show Table : Always ;Style : Small ;Set Always : All Items [Field: MyLedger] Use : Name Field Table : List of ExtractLedgers,All Items Modifies : New Change Coll : Yes Key : Create Ledger Show Table : Always CommonTable : No [Collection : MyLedger] Collection : All Items Collection : Ledger [Variable : NewChangeColl] Type : String Persistent : NO Volatile : NO [System : Variable] NewChangeColl : All Items [Collection : MyVouchers] Type : Vouchers : Ledger ChildOf : "Abc Test Company" Fetch : *, LedgerEntries.* PIC-I PIC-II PIC-III
Here is Direct Link to Pic http://s28.postimg.org/ideq0ecml/image.jpg http://s28.postimg.org/hlc2178fh/image.jpg http://s28.postimg.org/zcnofnnu5/image.jpg
Change the code as follows , you will get it [Field : Invamt] use : Amount Field Set as : $$Filteramttotal:Ledgerentries:Cndn1:$Amount [System : Formula] cndn1 : $$Isdebit:$Amount
Thank you very much Sir ! You are always very helping to all the members and thanking you for always guide me ! Would like to ask one more thing is How we can get Total of Particular Group from Voucher Entry ?
