PARTY BALANCE

This code prints party balance on Invoices (both accounts invoice & item invoice) in simple format or non simple format.

The description also automatically changes to receivables & advance............

Printing option is in configuration F 12

See the images................Enjoy ...............Thanks & Regards ---cks

 

Good Work

 

Thanks for Sharing.

 

Thanks for sharing....

 

Hello sir,
how to view ledgers and all reports in t-format from balance sheet, p&l and display menu from gateway of tally

 

Thanks for sharing...

 

Good Master your Real TDL Expert master

 

This is Just Perfect!

 

dear sir,
my code is attached, in this code i take previous balance of party on LAST SALES date ( for eg if i sold last time on 02.04.16 then previous bal on 02.04.16.
then less all receipts from 02.04.16 till current invoice date, then add this invoice and final invoice balance is showing.
THIS CODE WORKS OK IF I PRINT SINGLE INVOICE
BUT FAILS IF I WANT TO PRINT MULTI INVOICES.

CAN YOU PLEASE GUIDE ME WHERE IS MISTAKE ?

[#Form:daybook]

Buttonrint Selected

[Button: Print Selected]
Title : "Print Selected Sales "
Key : Alt + S
Action : Print Report: mynewinvoicerpt
;Action:Call:multipfun

[Function:multipfun]
Variable: counter : Number: 1
Variable:voucherid:String
100 : Walk Collection:Selected Obj Collection
101:Set:voucherid:"ID:"+$$String$MasterID)
102 : Print:mynewinvoicerpt :Yes
103 : End Walk

[Collection: Selected Obj Collection]
Data Source : Report : Selected

[#Collection: Daybook Vouchers of Company]
Fetch : ALLInventoryEntries.*,?
Fetch : LedgerEntries.*
Fetch: myprvdate
[Report:mynewinvoicerpt]
Form:mynewinvoice
object:voucher :##VoucherID
Use: stdinvoice
Print Set : Report Title : "TAX INVOICE (Selected)"
Local : Part : Default : Float : No
Collection : Selected Obj Collection


[#Form:sales color]
deleterint ;; for non obtaining tally default invoice
Addrint:mynewinvoice
; Set : SVCurrentUILanguageId : 1102
[Report:mynewinvoice]
Form:mynewinvoice
object:voucher :##VoucherID
;Use: stdinvoice
;Print Set : Report Title : "TAX INVOICE (Selected)"
;Local : Part : Default : Float : No
;Collection : Selected Obj Collection


[Form:mynewinvoice]
Use:stdinvoicedimensions

Space Left : 10 mms
Parts:top,topB,oppgbrk
Bottom Part:accdtl,BOTPART,vatdeclr ;clpgbrk

Page Breakppgbrk
;bottom parts:accdtl ,BOTPART
Set : SVCurrentUILanguageId : 1102
/*
[Part:clpgbrk]
parts:accdtl ,BOTPART
Vertical:Yes
Border:thin box*/
[Partppgbrk]
Parts: inventorypart
Scroll:Vertical
Vertical:Yes
Border:thin box
Float:Yes



[Part:BOTPART]
;Parts:bankdtl,CURRENTBALANCE,sign
Parts:rcptpart,CURRENTBALANCE,sign
Vertical: No
Height: 30 mms
Space Top: 2 mms
Border:thin box
[Part:bankdtl]
Float:No
;Border: thin box
Line: bnkttl,bnknm,bnkno,bnkifsc
[Line:bnkttl]
Field:name field
Local:Field:name field: Set as:$$LocaleString:"Our Bank Details"
Local:Field:name field: Style:normal bold italic
Local:Field:name field: Align:Center
[Line:bnknm]
Fields : short Prompt, EXPINV BankName
Local:Field:short prompt :Set as: $$LocaleString:"Bank name"
Space Top: 2 mms
[Line:bnkno]
Fields : short Prompt, EXPINV BankAccountNo
Local:Field:short prompt :Set as: $$LocaleString:"A/c No."
Space Top: 2 mms
[Line:bnkifsc]
Fields : short Prompt, EXPINV BankBranchName
Local:Field:short prompt :Set as: $$LocaleString:"IFS Code"
Space Top: 2 mms
[#Field: EXPINV BankBranchName]
Delete:Width
[#Field: EXPINV BankAccountNo]
Width: 30
[#Field: EXPINV BankIFSCode]
Width:30

[Part:top]
Lines:head,mycmpname,mycmpaddr,cmpphno,ourbankdtl,invtitle
Repeat : mycmpaddr : Company Address
[Line:head]
Field:head
local:Field:head:Align: Center
local:Field:head:Full Width:Yes
[Field:head]
Set as:"II Shri Radhakrishna Prasanna II"

[Line:mycmpname]
Fields : Simple Field
Local : Field : Simple Field : Set as : if @@IsPurchase then @@SimplePurcPartyName else @@CmpMailName ;;if @@IsPurchase then @@PurcFromName else @@CmpMailName
Local:Field:Simple Field:Align:Center
Local:Field:Simple Field:Full Width:Yes
Local:Field:Simple Field:Style:large bold
[Line: mycmpaddr]
Field:mycmpaddr
[Field:mycmpaddr]
Use : Simple Field
Set as : $Address
Style : Normal
Align:Center
Full Width:Yes

[Line:cmpphno]
Field:comfld

[Field:comfld]
Fieldsh,email,vat,cst
Full Width: Yes
Align:Center
Style: normal bold
[Fieldh]
Set as:"Contact us - "+$$LocaleStringphno
phno:$phonenumber:Company:##SVCurrentCompany
Full Width: Yes
[Field:email]
Use : Simple Field
Set as : $$LocaleStringCmpEmailid
CmpEmailid : $Email:Company:##SVCurrentCompany
Full Width: Yes
[Field:vat]
Set as:"VAT TIN " + $VATTINNumber:Company:##SVCurrentCompany
Full Width: Yes
[Field:cst]
Set as:"CST TIN "+$InterStateSTNumber:Company:##SVCurrentCompany
Full Width: Yes
[Line:invtitle]
Field:invtitle
local:Field:invtitle:Align: Center
local:Field:invtitle:Full Width:Yes
Space Top: 3 mms
[Field:invtitle]
Set as:"TAX INVOICE"
Style: large bold
Align: Center



;--------- part topB-------------

[Part:topb]
Parts:topb1,topb2
Vertical:No
Border: thin box
Space Top: 3 mms
[Part:topb1]
line:custname,EXPINV ConAddress
Repeat : EXPINV ConAddress : BasicBuyerAddress
Width: 85% page
[Line:custname]
Field:custname

[Field:custname]
Set as: "Party Name : " + @@ConsigneeName
Style: large bold
Full Width: Yes
Set Always:Yes
[Line:custaddr]
Field:custaddr

[Field:custaddr]
Set as:$Address
Indent: 3
Set Always:Yes
Full Width:Yes
[Part:topb2]
Lines:invno,invdt,vehno,custvat,custcst
; Width: 25% page
[Line:invno]
Field: name field,billno
Local:Field: name field:Set as:"Bill No :"
[Field:billno]
Set as:$VoucherNumber
;Full Width:Yes
[Line:invdt]
Field: name field,invdt
Local:Field: name field:Set as:"Bill Date :"
[Field:invdt]
Set as:$Date
;Full Width:Yes
[Line:vehno]
Field: name field,vehno
Local:Field: name field:Set as:"Vechile No:"
[Field:vehno]
Set as:$BasicShipVesselNo
;Full Width:Yes
[Line:custvat]
Field: name field,custvat
Local:Field: name field:Set as:"Party VAT TIN:"
[Field:custvat]
Set as:$BasicBuyersSalesTaxNo
;Full Width:Yes
[Line:custcst]
Field: name field,custcst
Local:Field: name field:Set as:"Party CST TIN:"
[Field:custcst]
Set as@BuyerCSTNum
;Full Width:Yes
;-------------- inventory part-------------

[Part:inventorypart]
Line:invtl,invdtl
Totals:aakar,VATAKR,NAG
Repeat:invdtl:inventory entries
Border: thin box




[Line:invtl]
Use:invdtl
Local:Field:default:Style:normal bold
Space Top: 3 mms
Space Bottom: 2 mms
Border:thin top bottom
Local:Field:sr:Info:"Sr."
Local:Field:stknm:Info:"Particular"
Local:Field:nag:Use:simplefield
Local:Field:nag:Info:"Net Wt."
Local:Field:un:Info:"Unit"
Local:Field:netwt:Info:"Nag"
Local:Field:rt:Info:"Rate"
Local:Field:aakar:Info:"Aakar"
Local:Field:vatakr:Info:"Vat Aakar"
Local:Field:vatrt:Info:"Vat %"


[Line:invdtl]
Fields:sr,stknm,netwt,nag,un,rt,aakar,vatakr,vatrt
Space Top: 2 mms

[Field:sr]
Set as:$$Line
Width: 10 mms
[Field: stknm]
Set as:$StockItemName
Width: 50 mms
Full Width:Yes
[Field:nag]
Use : Qty Field
Set as:$BilledQty
Format:"no Symbol, Short Form, no Compact"
Width: 20 mms
Align:Right
[Field:un]
Set as:$BaseUnits:StockItem:$StockItemName
Width: 10 mms
Align:Right
[Field:netwt]
Set as: $$String:$BilledQty:Symbol,ShortForm,Secondary
Width: 20 mms
Align:Right
[Field:rt]

Set as:if $$IsEmpty:$mygrossamt then $rate else $mygrossamt;; problem to print with UOM
Width: 30 mms
Align:Right
Format : "Symbol,Forex"
[Field:aakar]
Use: AMOUNT FIELD
Set as: $Amount
Width: 30 mms
Align:Right
[Field:vatakr]
Use:AMOUNT FIELD
Set as: if @myrt = 0 then "" else @myrt
myrt: $Amount * (($RateOfVAT:stockitem:$stockitemname)%)
Width: 30 mms
Align:Right
[Field:vatrt]
Type : String
Set as : If $RateOfVAT:TAXClassificationClassName1 = 0 Then $$LocaleString:"" Else $RateOfVAT:TAXClassificationClassName1
ClassName1 : $$CollectionField:$TaxClassificationName:1:AccountingAllocations
Set Always : Yes
Align : Right
Invisible : NOT @@IsIndianVatVch OR NOT @@InvWithVATRate
Width: 12 mms
Align:Right

[Line:invtot]
Use:invdtl
Border:thin top bottom
Local:FieldEFAULT:Use:AMOUNT FIELD
Local:Field:sr:Set as:""
Local:Field:stknm:Set as:"SUB TOTAL"
Local:Field:stknm:Style:Normal bold
Local:Field:nag:Set as:$$Total:NAG
Local:Field:un:Set as:""
Local:Field:netwt:Set as:""
Local:Field:rt:Set as:""
Local:Field:aakar:Set as: $$Total:aakar
Local:Field:vatakr:Set as:$$Total:VATAKR
Local:Field:vatrt:Set as:""



; account details part-------------

[Part:accdtl]
Line:invtot,accdtl,invtotl
Repeat:accdtl:ledger entries
Space Top: 2 MMS
Border:thin box

[Line:accdtl]

remove if:$ledgername=$partyledgername
Use:invdtl
Local:Field:sr:Set as:""
Local:Field:stknm:Set as:$ledgername
Local:Field:nag:Set as:""
Local:Field:un:Set as:""
Local:Field:netwt:Set as:""
Local:Field:rt:Set as:""
Local:Field:aakar:Set as:$amount
Local:Field:vatakr:Set as:""
Local:Field:vatrt:Set as:""

[Line:invtotl]
Use:invdtl
Border: Totals
Local:Field:sr:Set as:""
Local:Field:stknm:Set as:"GRAND TOTAL"
Local:Field:stknm:Style:Normal bold
Local:Field:nag:Set as:""
Local:Field:un:Set as:""
Local:Field:netwt:Set as:""
Local:Field:rt:Set as:""
Local:Field:aakar:Set as: $AMOUNT
Local:Field:vatakr:Set as:""
Local:Field:vatrt:Set as:""

;;---------- PREVIOUS BALANCE PART ---------------

[Part: CURRENTBALANCE]
Lines : LastBillDetails,prevbal,Billamt,recptamt
bottom line: Closingbal
Border: thin box
Invisible: if @@cashparty then yes else no
[Linerevbal]
Fieldrevbald,amount field
Space Top: 2 mms
Local:Field:amount field:set as:$$ToValue$$CollectionField:$Date:1:mycoll):$ClosingBalance:Ledger$$reportobject:$partyledgername)
Local:Field:amount field:Format : "Symbol,DrCr"
[Line:recptamt]
Field:recptamt
Space Top: 2 mms
[Line:Billamt]
Fields:Billamtd
Space Top: 2 mms
[Line:Closingbal]
Field:Clobal
Border:thin top bottom
Height:5 mms
[Field: prevbald]
Field : Simple Prompt
Local : Field : Simple Prompt : Set As: "Lastdate - "+$$LocaleString:$$CollectionField:$Date:1:mycoll
Local : Field : Simple Prompt : Width : 22

[Field:recptamt]
Field : Simple Prompt, myreceipts
Local : Field : Simple Prompt : Info : "total receipts "
Local : Field : Simple Prompt : Width : 22
;Local : Field : Amount Field : Set as : $$FromValue$date-2):$credittotals:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries - $$ToValue$date-1):$credittotals:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries

[Field:myreceipts]
Use: amount field
;Set as: @formula11 + $amount - @formula12
firmula10: @formula11 + @formula12
formula11: $$ToValue:$myprvdate:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries
formula12:$$ToValue:$date:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries
Format : "Symbol,DrCr"
;Storage:myrecpts
Set as: $$CollAmtTotal:collforrecpts:$rcptamt

[Field: Billamtd]
Field : Simple Prompt, Amount Field
Local : Field : Simple Prompt : Info : "Current Bill "
Local : Field : Simple Prompt : Width : 22
Local : Field : Amount Field : Set as : $AMOUNT
Local : Field : Amount Field : Format : "Symbol,DrCr"

[Field: Clobal]
Field : Simple Prompt, Amount Field
Local : Field : Simple Prompt : Info : "Closing Balance"
Local : Field : Simple Prompt : Width : 22
Local : Field : Amount Field : Set as : $$ToValue:$date:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries
Local : Field : Amount Field : Format : "Symbol,DrCr"

;; sign part----------------

[Part:sign]
;Width : 50 mms
Line: signfor
Bottom Line:auth
Border: thin box

[Line:signfor]
Field: signfor

[Field: signfor]
Set as: "For " + @@CmpMailName
Full Width: Yes
Align: Right
[Line:auth]
Right Field:auth
[Field:auth]
Info:"Authorised Sign."
Full Width: if @@cashparty then yes else no
width :35 mms
;-------------- declaration part---------

[Part:vatdeclr]
Line:vatdclrtl,vatdclrline
Border:thin box
[Line:vatdclrtl]
Field:name field
Local:Field:name field:Set as:"Declaration"
[Line:vatdclrline]
Field:myvatdclr
Space Top: 1 mms
Space Bottom: 2 mms
[Field:myvatdclr]
Set as : If NOT $$IsEmpty:$VCHPrintDecl:VoucherType:##SVVoucherType Then $VCHPrintDecl:VoucherType:##SVVoucherType +
Else @@TraderVATDeclaration
Lines:0
;Width: 110 mms
Full Width:Yes


; --------------- voucher custmization ---------------

[#Line: EI ColumnOne]
add:Field:After: VCH ItemTitle:grorate
[Field:grorate]
Info:"Gross rate"

[#Line: EI InvInfo] ;; Invoice Column Headings1 without class
Add:Field:After:VCH StockItem :grossrt
;Add:Field:Before:VCH BilledQty :grossrt
[#Line:CI InvInfo]
Add:Field:After:VCH StockItem :grossrt
[Field:grossrt]
Use: rate price field
Width:10
Set as:$mygrossamt
Storage: mygrossamt
Inactive : $$IsEnd:$StockItemName OR @@NoBaseUnits
Format:"No Symbol, Short Form, No Compact"
[System:udf]
mygrossamt : Rate: 1010


[#Field:VCH NrmlRate]
Set as: if @@IsInvoice then @myformula else $$value
myformula: ($mygrossamt / @myformula1 ) * 100
myformula1: 100 + ($RateOfVAT:stockitem:$stockitemname)



[#Field:vchrateunit]
Add:Table:Unit
Show Table:Always


[Line : LastBillDetails]
Field : myfield

[Field:MyField]
Set As: "Balances Details"
Full Width:Yes
Style: normal bold
Border: thin bottom
Align: Center

[collection:mycoll]
Type : Vouchers : ledger
Child of : $PartyLedgerName
Filter : IsSalesVch,ismydt
Sort : @@Default : -$Date, $VoucherNumber
Fetch : Date, PartyLedgerName, VoucherNumber,closingbalance,partylastdatebal
ParmVar : SVFromDate: Date : $$CurrentPeriodFrom
ParmVar : SVToDate : Date : $$CurrentPeriodTo
Computeartylastdatebal:$$ToValue:#prvbalance:$ClosingBalance:Ledger:#EIConsignee
Format : $Date : 15
Format : $VoucherNumber : 15
Format : $PartyLedgerName, 30
Format: $closingbalance,15
Format:$partylastdatebal,20
;Keep Source : Yes

[Collection:collforrecpts]
Type : Vouchers : ledger
Child of : $PartyLedgerName
Filter : isrecpt,ismydt
Sort : @@Default : -$Date, $VoucherNumber
Fetch : Date, PartyLedgerName, VoucherNumber,rcptamt
ParmVar : SVFromDate: Date : $$CollectionField:$Date:1:mycoll ;$myprvdate ;collforrecpts
ParmVar : SVToDate : Date : $date
Compute:rcptamt:$amount
Format : $Date : 15
Format : $VoucherNumber : 15
Format : $PartyLedgerName, 30
Format: $rcptamt,15


[System:FOrmula]
IsSalesVch: $$IsSales:$VoucherTypeName
ismydt: $$Number:$VoucherNumber<$$Number$$ReportObject:$VoucherNumber)
newdate : ($$CollectionField:$Date:1:mycoll)
FltOldVCHId : $MasterID<$$ReportObject:$..MasterId
EIConBalnew :$$ToValue:#prvbalance:$ClosingBalance:Ledger:#EIConsignee
cashparty : $partyledgername= "cash"
isrecpt:$$IsReceipt:$VoucherTypeName
lastinvdt :01/09/2015;#prvbalance < $$ReportObject:$date
[#Line:eiconsignee]
Add:Field:After:EI Consigneervbalance,oldbalance
[Fieldrvbalance]
Typeate
Set as : $$CollectionField:$Date:1:mycoll
;Storage: myprvdate
Skip: Yes

[Fieldldbalance]
Use: amount field
Set as @EIConBalnew
;Storage: myolbal
Format : "Symbol,DrCr"
Skip: Yes
[System:udf]
myprvdateate:2222
myolbal:Amount:2323
myrecpts:Amount:2424


;; list of receipts
[Part:rcptpart]
Border: thin box
Float:No
Line:rcptlntl,rcptlnhd,rcptline
Repeat:rcptline:collforrecpts

[Line:rcptlntl]
Field:rcptlntl
[Field:rcptlntl]
Info:"Receipt Details"
Style: normal bold
Border: thin bottom
Align: Center
Full Width:Yes

[Line:rcptlnhd]
Space Top: 2 mms
Use:rcptline
Local:Field:default:Type:String
Local:Field:default:Align:Center
Local:Field:default:Style: normal bold
Local:Field:rcptdt:Info:"Date"
Local:Field:rcptno:Info:"No."
Local:Field:rcptamt:Info:"Amount"
[Line:rcptline]
Local:Field:default:Align:Right
Fields:rcptdt,rcptno,rcptamt

[Field:rcptdt]
Set as: $date
Width: 15

[Field:rcptno]
Set as: $vouchernumber
Width: 7
[Field: rcptamt]
Set as: $amount
Width: 15


[Lineurbankdtl]

Fields : short Prompt, EXPINV BankName,tempa,EXPINV BankAccountNo,tempb, EXPINV BankBranchName
Local:Field:short prompt :Set as: $$LocaleString:"Bank name"
Space Top: 2 mms
[Field:tempa]
Set as: $$LocaleString:"A/c No."

[Field:tempb]
Set as: $$LocaleString:"Branch ,IFSC code"



[#object:voucher]
partylastdatebal:$$ToValue:#prvbalance:$ClosingBalance:Ledger:#EIConsignee

 

dear sir,
please update & modify your tdl for party balance for tally.erp9 v 6. 03 gst ready, as it is not printing in invoice , but printing in purchase order, please modify it for tally.erp9 v 6.03 for item invoice printing ( not for simple format )

 

SHOWING ERROR EMPTY DISCRIPTION NAME IN ERP 9

 

please update

 

Sir thank you, to provide this code,but this code is not printing when I print GST analysis of items.
So, please provide me a code for this.

 

HELLO SIR,
DOES ANY CODE FOR STATE WISE SALES REPORT IN TALLY.ERP9

 

Does it also work with TallyERP9 Release 6.0.3

 

Thanks for Sharing

 

Thanks for Sharing

 

Thanks for Sharing

 

Sir
Can you updated code which working for Tally Rel 6.1 ver

 

Good Work ...///

 

SIR, PLEASE UPDATE YOUR CODES, THIS CODES IS NOT WORKING IN TALLY.ERP9 V6.1, SO PLEASE UPDATE YOUR CODES AT EARLIEST AS POSSIBLE.

 

it work when we disable options of GST analysis in printing. But i wanted this without Disabling the option

 

the option of mini statement is not showing in tally erp. 6.1.1 please gime suggestion and aadvice.
and why not showing

 

SIR JI IT IS NOT SHOWING IN THE TALLY ERP9- 6.1.1 PLZ UPDATE

 

Hello Everyone,
Please find the attached code for mini statement in latest release of Tally.ERP9,

Thank you.