Receipt Voucher Print Customization

Dear Friends here is Receipt Voucher Print Customization

 

Where ?

 

Modified code with help of this forum code.
;; Sample Code customize receipt print in Tally

[#Form: Receipt Color]

Add : Print : RCPT Sattam
;;PrintAfterSave : ##PPRCTPrintAfterSave OR ##PRCTPrintAfterSav

[Report : RCPT Sattam]

Object : Voucher
;; ;; PrintSet : Report Title : "Receipt"
Filtered : Yes
Print : VCHPrintConfigure
;; ;; Empty : (NOT ##PRCTPrintEnabled) OR (NOT ##PRCTPrintAfterSave AND $$InAcceptMode) OR $$IsEmpty:$VoucherChequeName

[Form : RCPT Sattam]
Parts : RcptCOmpanyAddr, RcptNoDate, Rcpt Body, RcptFoot
Width : ##PRCTWidth inch
Height : ##PRCTHeight inch
Space Top : ##PRCTSpaceTop inch
Space Bottom: 0.25 inch
;; Space Left : 0.75 inch
Space Right : 0.25 inch
Width : 170 mms
Space Left : 10 mms
HorizontalAlign :Left


[Part : RcptCompanyAddr]
Lines : Rcpt Company, Rcpt Addr,Rcpt Email
Repeat : Rcpt Addr : Company Address
Local : Field : Simple Field : Align : Left
Local : Field : Simple Field : FullWidth : Yes
HorizontalAlign : Centre
Border: Thin Box

[Line: Rcpt Company]

Fields : Simple Field
Local : Field : Simple Field : Set as : @@CmpMailName
Local : Field : Simple Field : Style : Normal Bold

[Line: Rcpt Addr]

Fields : Simple Field
Local : Field : Simple Field : Set as : $Address

[Line: Rcpt Email]
Fields : Simple Field
Local : Field : Simple Field : Set as :"Email- " +$EMail:Company:##SVCurrentCompany
Local : Field : Simple Field : Style : Normal Bold

[Part : RcptNoDate]
Lines rntdttime, Rcpt NODate
HorizontalAlign : Center
Border: Thin Left Right
SpaceBottom : 0.5

[Line rntdttime]
Fields : Simple Prompt, RcptNo
RightFields : Info Field, Prntdt
Local : Field : Simple Prompt : Info : "Voucher No. :"
Local : Field : Info Field : Info : "Date of Printing"

[Field : Rcpt No]
Set as : $VoucherNumber
Style : Normal Bold

[Field: Prntdt]
Set as : $$MachineDate
Style : Normal Bold

[Line : Rcpt NoDate]
Fields : Simple Prompt, Rcpt Date
RightFields : Info Field, Prnttime
Local : Field : Simple Prompt : Info : "Voucher Date :"
Local : Field : Info Field : Info : "Time of Printing "

[Field : Prnttime]
Set as : $$MachineTime
Style : Normal Bold

[Field: Rcpt Date]
Set as : $$String:$Date:UniversalDate
Style : Normal Bold

[Part : Rcpt Body]
Parts : Rcpt Top, Rcpt Bottom
Vertical : Yes
Border: Thin Box
[Part : Rcpt Top]

Lines : Rcpt Payer, Rcpt PayerAddr, Rcpt Words ;;Rcpt Thru ;;, Rcpt Remarks
Repeat : Rcpt PayerAddr : Party Address
Local : Field : Short Prompt : Style : Normal Italic
Local : Field : Short Prompt : Width : 20
HorizontalAlign : centre

[Line: Rcpt Title]

Fields : Rcpt Title
SpaceBottom : 2

[Field: Rcpt Title]

Set as : "RECEIPT"
Wide Spaced : Yes
Style : Large Bold
Border : Thin Bottom
Align : Centre
FullWidth : Yes

[Line: Rcpt Payer]

Fields : Short Prompt, Rcpt Payer
Local : Field : Short Prompt : Info : "Received with thanks from :"

SpaceBottom : 0.25

[Field: Rcpt Payer]

Set as : $LedgerName ;;VoucherChequeName
Style : Normal Bold


[Line : Rcpt PayerAddr]
Fields : Short Prompt, Rcpt PartyAddr
Local : Field : Info Field : Width : 17
Local : Field : Info Field : Info : " "

[Field : Rcpt PartyAddr]
Set as:$Address


[Line: Rcpt Words]

Fields : Short Prompt, Rcpt Words
Local : Field : Short Prompt : Info : "The sum of Amount "
SpaceBottom : 1

[Field: Rcpt Words]

Set as : $$InWords:#RcptAmount+" Only"

Style : Normal Bold
Lines : 0
FullWidth : Yes


[Part : Rcpt Bottom]
Parts : RcptBottomLeft, RcptBottomRight
Vertical : No

Local : Field : Short Prompt : Style : Normal Italic
Local : Field : Short Prompt : Width : 20

[Part : RcptBottomLeft]
Lines : RcptThru1, Rcpt Thru2

[Line: Rcpt Thru1]
Local : Field : Short Prompt : Info : "by Cash / Cheque / D.D. No."
Fields : Short Prompt

[Field : Rcpt Thru1]
Info : ""

[Line: Rcpt Thru2]
Field : Rcpt Thru2
Fields : Short Prompt
Local : Field : Short Prompt : Info : "Through Cash/Bank Account"

[Field: Rcpt Thru2]
Info : ""


[Part : RcptBottomRight]
Line : Rcpt Remarks1,Rcpt Remarks2

[Line: Rcpt Remarks1]

Fields : Rcpt Remarks1


[Field: Rcpt Remarks1]

Set as : $Narration
Style : Normal Bold

Width : 120 mms

[Line: Rcpt Remarks2]

Fields : Rcpt Remarks2
[Field: Rcpt Remarks2]

Set as : if $$IsLedOfGrp@BankName:$$GroupCash then $$LocaleString:"Cash" else $BankName
Style : Small Bold

Width : 120 mms

[Part : Rcpt Foot]
Lines : ForComp, RcptAmt, CompSign
Border:Thin Left Right


[Line : ForComp]
Right Fields : ForComp
SpaceBottom : 1

[Field : ForComp]
Set As : "For " + @@CmpMailName
Style : Normal Bold
Border: Thin Bottom Left
[Line : RcptAmt]
Fields : AmtPrompt, RcptAmount

[Field : AmtPrompt]
Info : "Received Amt.Rs."
Style : Normal Bold
Align : Left

[Field: RcptAmount]

Use : Amount Base Field
Set as : $$CollectionField:$Amount:1:AllLedgerEntries
Align : Left
Border : Thin Bottom

[Line : CompSign]
Fields : ChqRel,Chkandvrif, PrepCheck
Right Fields : CompSign
Border : Thin Bottom

[Field : ChqRel]
Info : "Cheques are being subject to realization."
Align : Left
Style : Small Bold

[Field : Chkandvrif]
Info : "Checked & Verified By"
SpaceLeft : 5 mms
Style : Small
Align : Left
Border : Thin Top

[Field : PrepCheck]
Info : "Accountant"
SpaceLeft : 5 mms
Style : Small
Align : Left
Border : Thin Top

[Field : CompSign]
Info : "Authorised Signatory"
Align : Right
Style : Small Bold
Border : Thin Top
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;TDL Developed by SKC

[#Part: Rcpt Foot]
Add:Lines:Before:ForComp:ExBal, RcptAmt1, NetBal

[Line:ExBal]
Space Top:0.5
Field:ExBalFld

[Field:ExBalFld]
Field : Simple Prompt, Amount Field
Local : Field : Simple Prompt : Info : "Previous Balance:"
Local : Field : Simple Prompt : Width : 14
Local : Field : Amount Field : Set as : If ($$IsDr:$$ToValue:$Date:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries) +
then($$ToValue:$Date:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries)+$$abs:$$CollectionField:$Amount:1:AllLedgerEntries else +
($$ToValue:$Date:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries) - $$abs:$$CollectionField:$Amount:1:AllLedgerEntries
Local : Field : Amount Field : Format : "Symbol,DrCr"
Invisible:Not ##BalPrntRcpt

[Line:RcptAmt1]
Field:RcptAmtFld

[Field:RcptAmtFld]
Field : Simple Prompt, Amount Field
Local : Field : Simple Prompt : Info :$$LocaleString:"Receipt Amount:"
Local : Field : Simple Prompt : Width : 14
Local : Field : Simple Prompt : Border : Full Thin Bottom
Local : Field : Amount Field : Set as : $$CollectionField:$Amount:1:AllLedgerEntries
Local : Field : Amount Field : Format : "Symbol,DrCr"
Local : Field : Amount Field : Border : Full Thin Bottom
Invisible:Not ##BalPrntRcpt

[Line:NetBal]
Field:NetBalFld
Border : Double Bottom
[Field:NetBalFld]
Field : Simple Prompt, Amount Field
Local : Field : Simple Prompt : Info : "Current Balance:"
Local : Field : Simple Prompt : Width : 14
Local : Field : Amount Field : Set as : $$ToValue:$date:$ClosingBalance:Ledger:$$CollectionField:$LedgerName:1:LedgerEntries
Local : Field : Amount Field : Format : "Symbol,DrCr"
Local : Field : Amount Field : Border : Double Bottom
Invisible:Not ##BalPrntRcpt

[#Part: Receipt Print Config]
Add:Line:At End:BalPrnt

[Line: BalPrnt]

Fields : Medium Prompt, BalPrnt
Local : Field : Medium Prompt : Set as:"Show Mini Statement?"

[Field: BalPrnt]

Use : Logical Field
Modifies : BalPrntRcpt

[System:Variable]
BalPrntRcpt:Yes

[Variable:BalPrntRcpt]
Type:Logical
Persistent:Yes

 

how we can change the dated as voucher date in tally simple printed invoice in print out

 

Dear sir,

The above is good , and finely working,, request you to add ref no. against which invoice and cheque no not printing., and request for name of the customer bank, .. is required..

 

how to use this i could not see any file. sir please help

 

sattam sir how to use it as.txt file please help

 

COPY THE ABOVE TEXT IN TO A TEXT FILE AND LOAD IN TALLY SIMPLE

 

dear sir
please provide the Sample Code for customize payment voucher add the name of checked by & verified by

 

ur code is brilIANT SATTAM SIR CAN WE SHOW MINI STATEMENT in default tally receipt voucher
plzzzz

 

hi, sattam i tried this to learn , but my question is it come first default receipt printing screen after "ESC" then this come
how i make default printing to this code.

 

can you plzzz a field more in this voucher
bill wise against bill reference
please

 

just add in this against refernce

 

kindly plzzzzzzz

 

Try This

[#Form: Receipt Color]
Delete Print ;; means all existing print format removed, then you add new Print
Add : Print : RCPT Sattam

 

thanks for reply sir
sir i just want to add a line against which invoice i have received the payments

 

could u plz help about this please

 

Hello Sir,
Sir I want previous balance in payment voucher. please provide me Code for customize payment voucher.
Please help me please

 

Hello,
Some one help me please.