Payment Voucher Customisation with Cost Center & Currency Note denominator

;**********************************************************;
;*********************================*********************;
;*********************| Explore Busy |*********************;
;*********************================*********************;
;**********************************************************;

[#Form: Payment Color]

Delete : Print
Add : Print : PaymentVoucher

[Report : Payment Voucher]
Object : Voucher
Filtered : Yes
Print : VCHPrintConfigure

[Form : Payment Voucher]
Parts : PYVCHCOmpanyAddr, SMTDate, SMTTime, VoucherType, PaymentFrom, ChqDetail, TopHeadings, VoucherDetails, CheckedBy, VCHTotalAmount
Width : ##PPRWidth inch
Height : ##PPRHeight inch
Space Top : ##PPRSpaceTop inch
Width : 190 mms
HorizontalAlign : Centre

[Part: PYVCHCOmpanyAddr]
Part : PRCT CompanyDetails1
HorizontalAlign : Centre
Border : Thick Cover

[Part : PRCT CompanyDetails1]
Parts : PRCT Image1, PRCT Company Addr1 , Empty
Local : Part : Empty : Width : if @@IsLogoEnabled then 15% Else 10% Page
Local : Part : EXPSMP Image : Height : If ($$InExportMode And $$IsSysNameEqual:HTML:##SVExportFormat) then 15% else 10% Page
Local : Part : EXPSMP Image : Invisible : NOT @@IsLogoEnabled

[Part: PRCT Image1]

Part : Empty, EXPSMP Image
Vertical: Yes

Local : Line : Empty : Local : Field : Simple Field : Set as : ""
Invisible : NOT @@IsLogoEnabled

[Part : PRCT Company Addr1]
Lines : PRCT Company1
Local : Field : Simple Field : Align : Centre
Local : Field : Simple Field : FullWidth : Yes
SpaceBottom : 0.1
Option : PRCTAddr1 : ##PrintWithCompanyName AND ##PrintWithAddress

[!Part: PRCTAddr1]
Add : Lines : PRCTAddr1
Repeat : PRCT Addr1 : Company Address
Option : PRCT CMA CompanyAddress1 : NOT ($$IsSysNameEqualrimary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint)

[!Part: PRCT CMA CompanyAddress1]

Delete : Repeat
Add : Repeat : PRCTAddr1 : Company Multi Address Print

[Line: PRCT Company1]

Fields : Simple Field
Local : Field : Simple Field : Set as : @@CmpMailName
Local : Field : Simple Field : Style : INSTITUTE ; Normal Bold
Local : Field : Simple Field : PrePrinted: Yes
Invisible : NOT ##PrintWithCompanyName

Option : PRCT CMA CompanyName1 : NOT ($$IsSysNameEqualrimary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint)

[!Line: PRCT CMA CompanyName1]

Local : Field : Simple Field : Set as : $(Company, ##SVCurrentCompany).MultiAddressList[1, @@IsSameCmpAddrType].MailingName

[Line: PRCT Addr1]

Fields : Simple Field
Local : Field : Simple Field : Set as : $Address
Local : Field : Simple Field : Border : Thin Bottom : $$Line = $$NumItems
Local : Field : Simple Field : PrePrinted: Yes

[Part : SMTDate]
Lines : SMDate
HorizontalAlign : Left
Border: Thick Left Right

[Line : SMDate]
Fields : Simple Prompt, SystDate
RightFields : Info Field, VCHNo
Local : Field : Simple Prompt: Info: "Date "
Local : Field : Simple Prompt: Style : StyleAllText
Local : Field : Info Field : Info : "Voucher No. : "
Local : Field : Info Field : Style : StyleAllText

[Field : SystDate]
Set as : $$MachineDate
Style : StyleAllTextBold

[Field : VCHNo]
Set as : $VoucherNumber
Style : StyleAllTextBold

[Part : SMTTime]
Lines : SMTTimeLine
HorizontalAlign : Left
Border: Thick Left Right

[Line : SMTTimeLine]
Fields : Simple Prompt, SystTime
RightFields : Info Field, VCHDated
Local : Field : Simple Prompt : Info: "Time "
Local : Field : Simple Prompt : Style : StyleAllText
Local : Field : Info Field : Info : "Dated : "
Local : Field : Info Field : Style : StyleAllText

[Field : SystTime]
Set as : $$MachineTime
Style : StyleAllTextBold

[Field : VCHDated]
Set as : $Date
Style : StyleAllTextBold

[Part : VoucherType]
Lines : VoucherTypeLine
HorizontalAlign : Center
Border: Thick Left Right

[Line : VoucherTypeLine]
Fields : Info Field
Local : Field : Info Field : Info: "Payment Voucher"
Local : Field : Info Field : Style : StyleHeadingI

[Part : PaymentFrom]
Lines : PaymentFromLine
HorizontalAlign : Center
Border: Thick Left Right

[Line : PaymentFromLine]
Space Top: 2
Fields : PMTFrom

[Field : PMTFrom]
Set as : $$CollectionField:$LedgerName$$NumItems:AllLedgerEntries):AllLedgerEntries ;;"Explore Busy (YouTube Channel)"
Style : StyleHeadingI

[Part : ChqDetail]
Lines : ChqDetailLine
HorizontalAlign : Right
Border: Thick Left Right

[Line : ChqDetailLine]
Fields : Info Field, ChqNum
Local : Field : Info Field : Info: "Cheque # "
Local : Field : Info Field : Style : StyleAllText

[Field : ChqNum]
Set as : $$Number:$DueDateOfPymt
Style : StyleAllTextBold

[Part : TopHeadings]
Lines : TopHeadingsLine
HorizontalAlign : Center
Border: Thick Left Right

[Line : TopHeadingsLine]
Fields : PartyTitle, PartyDr, PartyCr

[Field : PartyTitle]
Fields : Info Field
Local : Field : Info Field : Info: "Title and Narration"
Local : Field : Info Field : Style : StyleAllTextBold
Local : Field : Info Field : Width : 70
Border : BlueBorderXThin

[Field : PartyNarration]
Fields : Info Field
Local : Field : Info Field : Info: "Narration"
Local : Field : Info Field : Style : StyleAllTextBold
Local : Field : Info Field : Width : 40
Border : BlueBorderXThin

[Field : PartyDr]
Fields : Info Field
Local : Field : Info Field : Info: "Debit"
Local : Field : Info Field : Style : StyleAllTextBold
Local : Field : Info Field : Width : 10
Local : Field : Info Field : Align : Center
Border : BlueBorderXThin

[Field : PartyCr]
Fields : Info Field
Local : Field : Info Field : Info: "Credit"
Local : Field : Info Field : Style : StyleAllTextBold
Local : Field : Info Field : Width : 10
Local : Field : Info Field : Align : Center
Border : BlueBorderXThin

[Part : VoucherDetails]
Space Top: 1
Line : PartyDetailsAll, PartyLedNarr
Repeat : PartyDetailsAll : AllLedgerEntries
Border: Thick Left Right

[Line : PartyDetailsAll]
Lines : PartyName, BlankLineI

[Line : PartyName]
Field : PartyLedName, CostCenterName, PartyDrAmount, PartyCrAmount
;Field : PartyLedName, CostCenterName, PartyDrAmount, PartyCrAmount
;Field : PartyLedName, PartyClosingBalance, PartyDrAmount, PartyCrAmount
Explode : PartyLedNarrPart : yes

[Part : PartyLedNarrPart]
Line : PartyLedNarr
Repeat : PartyLedNarr : LedgerEntries

[Line : PartyLedNarr]
Fields : Short Prompt, PartyLedNarration
Local : Field : Short Prompt : Info : $$LocaleString:"Payment Remarks" + ":"
Local : Field : Short Prompt : PrePrinted : Yes
SpaceBottom : 1
Space Top : 1

[Field : PartyLedName]
Set as : $LedgerName
Width : 49
Space Left : 1
Style : StyleAllTextBold

[Field : CostCenterName]
Use : Name Field
;Set as : $AllLedgerEntries[Last].Categoryallocations.Costcentreallocations.Name
Set as : $Costcentreallocations.Name
Width : 18
Space Left : 1
Style : StyleAllTextBold

[Field : PartyClosingBalance]
Set as : $ClosingBalance;;; Closing value will be displayed on the field ;Align : Right
;Space Right = 1
;Width : 10.5
;Style : StyleAllText

[Field : PartyDrAmount]
Set as : if $$IsDr:$Amount then $$AsDrAmt:$Amount else ""
Align : Right
Width : 11
Style : StyleAllText

[Field : PartyCrAmount]
Set as : if $$IsDr:$Amount then "" else $$AsCrAmt:$Amount
Align : Right
Space Right = 1
Width : 10.5
Style : StyleAllText

[Field : PartyLedNarration]
Set as : $Narration
Width : 69
Line : if $$StringLength:$Narration > 120 then 2 else 1
Style : StyleAllTextNarration

[Line : BlankLineI]
Fields : Simple Field
Local : Field : Simple Field : Set as : " "
Local : Field : Simple Field : Style : StyleAllTextBold
Local : Field : Simple Field : Align : Right
Local : Field : Simple Field : Width : 69

[Line : BankNarrLine]
Field : BankNarrField

[Field : BankNarrField]
Set as : $Narration
Width : 69
Space Left : 1
Style : StyleAllText

[Part : VCHTotalAmount]
Line : TotalWordsLine
Width : 190 mms
;Border: Thick Left Right
Space Top: 0.5 ;0.2
Border: Thick Left Right Double Bottom

[Line : TotalWordsLine]
Fields : Info Field
RightFields : TotalPaidFig
Local : Field : Info Field : Info: "Paid "+$$InWords($$CollectionField:$Amount$$NumItems:AllLedgerEntries):AllLedgerEntries)+00000)+" Only. "+"कृपया पैसा गिनने के बाद ही हस्ताक्षर करें." ;;"Paid "+$$String:$Amount+" Only."
Local : Field : Info Field : Style : StyleAllTextBold
Local : Field : Info Field : Width : 69
Border : BlueBorderXThin

[Field : TotalPaidFig]
Set as : $$CollectionField:$Amount$$NumItems:AllLedgerEntries):AllLedgerEntries ;;$Amount
Width : 23
Align : Right
Style : StyleAllTextBold
Border : BlueBorderXThin

[Part : CheckedBy]
Lines : CreatedByUserLine, AmountNote, CurrencyNote
Space Top : 1
HorizontalAlign : Center
Border: Thick Left Right

[Line : AmountNote]
Fields : Info Field
Local : Field : Info Field : Info: "मैंने पैसे गिनने के बाद हस्ताक्षर किये हैं."
Local : Field : Info Field : Style : StyleAllTextBold
Local : Field : Info Field : Width : 93
Local : Field : Info Field : Align : Right
Space Top: 0.5 ;0.2
Space Bottom: 0.5 ; 1

[Line : CurrencyNote]
Fields : Info Field
Local : Field : Info Field : Info: "Other x + 50 x + 100 x + 200 x + 500 x + 2000 x = /-"
;Local : Field : Info Field : Style : StyleAllTextBold
Local : Field : Info Field : Width : 93
Local : Field : Info Field : Align : Right

[Line : CreatedByUserLine]
Fields : Info Field, CheckedByLine, ApprovedByLine, ReceivedByLine
Local : Field : Info Field : Info: "Created By : "+$$CmpUserName
Local : Field : Info Field : Style : StyleAllTextSmall
Local : Field : Info Field : Width : 17
Local : Field : Info Field : Space Left : 1
Border: Thick Left Right

[Field : CheckedByLine]
Fields : Info Field
Local : Field : Info Field : Info: "Given By : ____________________"
Local : Field : Info Field : Style : StyleAllText
Local : Field : Info Field : Width : 23
Local : Field : Info Field : Space Left : 1

[Field : ApprovedByLine]
Fields : Info Field
Local : Field : Info Field : Info: "Approved By : ____________________"
Local : Field : Info Field : Style : StyleAllText
Local : Field : Info Field : Width : 24
Local : Field : Info Field : Space Left : 1

[Field : ReceivedByLine]
Fields : Info Field
Local : Field : Info Field : Info: "Received By : ____________________"
Local : Field : Info Field : Style : StyleAllTextBold
Local : Field : Info Field : Width : 24
Local : Field : Info Field : Space Left : 1


[Border : BlueBorderXThick]
Top : thick
Bottom : Thick
Right : Thick
Left : Thick
Color : "Blue"
Print Fg: "Blue"

[Border : BlueBorderXThin]
Top : thin
Bottom : thin
Right : thin
Left : thin
Color : "Blue"
Print Fg: "Blue"

[Border: Thick Left Right Double Bottom]
Left : Thick
Right : Thick
Bottom : Thick, Double

[Style : StyleGSName]
Font: "Cooper Black"
Height : 12

[Style : StyleAllTextSmall]
Font: "Calibri"
Height : 8

[Style : StyleAllText]
Font: "Calibri"
Height : 10

[Style : StyleAllTextNarration]
Font: "Calibri"
Height : 8

[Style : StyleAllTextBold]
Font: "Calibri"
Height : 10
Bold : Yes

[Style : StyleHeadingI]
Font: "Verdana"
Height : 10
Bold : Yes

;**********************************************************;
;*********************================*********************;
;*********************| Explore Busy |*********************;
;*********************================*********************;
;**********************************************************;

 

DEAR SIR YOUR CODE LOAD IN TALLY BUT NOT SHOW THIS FILE PLEASE HELP & Screen short solution as possible soon

 

Its work fine with Tally ERP9..

 

[#Form: Payment Color]
Delete : Print
Add : Print : Ali Payment Voucher

[Report : Ali Payment Voucher]
Object : Voucher
Filtered: Yes

[Form : Ali Payment Voucher]
;Parts : CompanyTitle, VoucherDate, StmDateNTime, VoucherType, PaymentFrom, ChequeDetails, TopHeading, +
; VoucherDetails, ChequedBy, TotalAmount

Parts : CompanyTitle, DateNTime, VoucherType, PaymentFrom, ChequeDetails, TopHeading, VoucherDetails, +
TotalLines, Signatures ;pymtRemarks,

Width : ##PPRWidth inch
Height : ##PPRHeight inch
SpaceTop: ##PPRSpaceTop inch
SpaceLeft: 0.1 cm
SpaceRight: 0.1 cm

;;-----------------------------------| Company Title |-----------------------------------
[Part : CompanyTitle]
Line : CompanyTitle, CompanyAddress
Repeat : CompanyAddress : CompanyAddress
Border : Thin Top Left Right

[Line : CompanyTitle]
Fields : SimpleField
Local : Field : SimpleField : Set As : @@CmpMailName
Local : Field : SimpleField : Style : CompanyTitle
Local : Field : SimpleField : Full Width: Yes
Local : Field : SimpleField : Align : Center

[Line : CompanyAddress]
Fields : SimpleField
Local : Field : SimpleField : Set as : $Address
Local : Field : SimpleField : Border : Thin Bottom : $$Line = $$NumItems
Local : Field : SimpleField : PrePrinted: Yes
Local : Field : SimpleField : Full Width: Yes
Local : Field : SimpleField : Align : Center
Local : Field : SimpleField : Style : HeadingI

;;-----------------------------------| Date & Time |-----------------------------------
[Part : DateNTime]
Line : DateInfo, TimeInfo
Border : Thick Left Right

[Line : DateInfo]
Left Fields : NameField1, SystemDate
Right Fields : NameField2, VoucherDate
Space Top : 0.1
Space Bottom: 0.1
Local : Field : NameField1 : Info : "Print Date :"
Local : Field : NameField1 : Width : 10
Local : Field : NameField1 : Align : Right
Local : Field : NameField1 : Style : SubHead1
Local : Field : NameField2 : Info : "Voucher Date :"
Local : Field : NameField2 : Align : Right
Local : Field : NameField2 : Style : SubHead1

[Field : SystemDate]
Set As : $$String:$$MachineDate
Width : 10
Align : Left
Style : NormalText1

[Field : VoucherDate]
Set As : $Date
Width : 10
Style : NormalText1

[Line : TimeInfo]
Left Field : NameField1, SystemTime
Right Field : NameField2, VoucherNo
Local : Field : NameField1 : Info : "Print Time :"
Local : Field : NameField1 : Width : 10
Local : Field : NameField1 : Align : Right
Local : Field : NameField1 : Style : SubHead1
Local : Field : NameField2 : Info : "Voucher No :"
Local : Field : NameField2 : Align : Right
Local : Field : NameField2 : Style : SubHead1

[Field : SystemTime]
Use : SystemDate
Set As : $$String:$$MachineTime
Type : Time
Style : NormalText1

[Field : VoucherNo]
Use : VoucherDate
Set As : $VoucherNumber

;;-----------------------------------| Voucher Type |-----------------------------------
[Part : VoucherType]
Lines : VoucherType
HorizontalAlign : Center
Border : Thick Left Right

[Line : VoucherType]
Fields : Info Field
Local : Field : Info Field : Info: "PAYMENT VOUCHER"
Local : Field : Info Field : Style : HeadingI
Local : Field : Info Field : WideSpaced : Yes

;;-----------------------------------| Payment From |-----------------------------------
[Part : PaymentFrom]
Lines : PaymentFrom
Space Top : 0.5
HorizontalAlign : Center
Border: Thick Left Right

[Line : PaymentFrom]
Fields : PaymentFrom

[Field : PaymentFrom]
Set As : $$CollectionField:$LedgerName$$NumItems:AllLedgerEntries):AllLedgerEntries
Style : HeadingI

;;----------------------------------| Cheque Details |-----------------------------------
[Part : ChequeDetails]
Line: ChequeDetails
Border: Thick Left Right

[Line : ChequeDetails]
Right Field : Info Field, ChequeNo, ChequeDate
Local : Field : Info Field : Info: "Chq. No:"
Local : Field : Info Field : Style : SubHead1

[Field : ChequeNo]
Set As : $AllLedgerEntries[Last].BankAllocations[1].InstrumentNumber
Style : NormalText1

[Field : ChequeDate]
Set As : " Dated " + $$String:$AllLedgerEntries[Last].BankAllocations[1].InstrumentDate
Style : NormalText1

;;-----------------------------------| Top Headings |-----------------------------------
[Part : TopHeading]
Lines : TopHeading
Border : Thick Box
Space Top : 0.2
Space Bottom : 0.2
Space Left : 1
Space Right : 1
Common Border : Yes

[Line : TopHeading]
Left Fields : pNameH
Right Fields : ccNameH, pAmountDrH, pAmountCrH

[Field : pNameH]
Set As : "Particulars / Narration"
WideSpaced : Yes
Style : SubHead1
Align : Center

[Field : ccNameH]
Set As : "Site Name"
Style : SubHead1
Align : Right
Width : 16
Space Right : 1

[Field : pAmountDrH]
Set As : "Debit Rs."
Align : Right
Style : SubHead1
Width : 13
Border : Thick Left
Space Right : 1

[Field : pAmountCrH]
Set As : "Credit Rs."
Align : Right
Style : SubHead1
Width : 13
Border : Thick Left

;;---------------------------------| Voucher Details |-----------------------------------
[Part : VoucherDetails]
Lines : VoucherDetails
Repeat : VoucherDetails : AllLedgerEntries
Border : Thick Left Right
Space Top : 1
; Space Bottom : 1
Space Left : 1
Space Right : 1
Common Border : Yes

[Line : VoucherDetails]
Fields : pName
Right Fields: pNarration, ccName, pAmountDr, pAmountCr

[Field : pName]
Set As : $LedgerName
Style : SubHead1

[Field : pNarration]
Set As : $Narration
Lines : 2
Style : NarrationText
Align : Right

[Field : ccName]
Set As : $Costcentreallocations.Name
Width : 16
Align : Right
Style : SubHead1
Space Right : 1

[Field : pAmountDr]
Type : Amount
Set As : if $$IsDr:$Amount Then $$AsDrAmt:$Amount else ""
Align : Right
Width : 13
Border : Thick Left
Style : NormalText1
Space Right : 1

[Field : pAmountCr]
Type : Amount
Set As : if $$IsDr:$Amount Then "" Else $$AsCrAmt:$Amount
Align : Right
Width : 13
Border : Thick Left
Style : NormalText1

;;---------------------------------| Total Lines |-----------------------------------
[Part : TotalLines]
Line : TotalLines
Border : Thick Box
Space Top : 0.2
Space Bottom : 0.2
Space Left : 1
Space Right : 1
Common Border : Yes

[Line : TotalLines]
Fields : TotalLines
Right Fields: SimpleField, TotalAmount
Local : Field : SimpleField : Info : "कृपया पैसा गिनने के बाद ही हस्ताक्षर करें."
Local : Field : SimpleField : Style: SubHead1

[Field : TotalAmount]
Use : pAmountCr
Set As : $$CollectionField:$Amount$$NumItems:AllLedgerEntries):AllLedgerEntries
Style : SubHead1
Width : 13
Align : Right
Border : Thick Left

[Field : TotalLines]
Set As : "Paid "+$$InWords($$CollectionField:$Amount$$NumItems:AllLedgerEntries):AllLedgerEntries)+00000)+" Only."
Style : SubHead1

[Part : pymtRemarks]
Line : pymtRemarks
Border : Thick Left Right
Space Top : 0.2
Space Bottom : 0.2
Space Left : 1
Space Right : 1

[Line : pymtRemarks]
Fields : Short Prompt, pymtRemarks
Local : Field : Short Prompt : Info : $$LocaleString:"Remarks"
Local : Field : Short Prompt : Width : 6
Local : Field : Short Prompt : PrePrinted : Yes
Local : Field : Short Prompt : Style : NarrationText

[Field : pymtRemarks]
Set As : $Narration
Style : NarrationText
Lines : 2

;;------------------------------------| Signatures |-----------------------------------
[Part : Signatures]
Line : pymtRemarks, Signatures, ReceiverDetail, CurDenominator
Space Top : 0.2
Space Bottom : 0.2
Space Left : 1
Space Right : 1
Border : Thick Box

[Line : Signatures]
Field : CreatedBy
Right Fields : Signatures

[Field : CreatedBy]
Set As : "Created By: " + $$CmpUserName
Style : SubHead1

[Field : Signatures]
Set As : "Given By : __________________ " + +
"Approved By : __________________ " + +
"Received By : __________________"
Style : SubHead1

[Line : ReceiverDetail]
Field : SimpleField
Local : Field : SimpleField : Set As : "Receiver's Name: _______________________________________________ Date : __________________"
Local : Field : SimpleField : Full Width : yes
Local : Field : SimpleField : Align : Right
Local : Field : SimpleField : Style: SubHead1
Space Top : 0.5

[Line : CurDenominator]
Field : SimpleField
Local : Field : SimpleField : Info : "2000 x _______ + 500 x _______ + 200 x _______ + 100 x _______ + 50 x _______ + Other _______ : __________________"
Local : Field : SimpleField : Full Width : yes
Local : Field : SimpleField : Align : Right
Local : Field : SimpleField : Style: SubHead1
Space Top : 0.5
Space Bottom : 0.5

;;-----------------------------------| Font Styles |-----------------------------------
[Style : CompanyTitle]
Font : "Arial Black"
Height : 12
Bold : Yes

[Style : HeadingI]
Font : "Calibri"
Height : 12
Bold : Yes

[Style : SubHead1]
Font : "Calibri"
Height : 10
Bold : Yes

[Style : NormalText1]
Font: "Calibri"
Height : 10

[Style : NarrationText]
Font : "Calibri"
Height : 10
Italic : Yes

 

VERY NICE

 

ITS FEEL GOOD IF SHOWING AGAINST REFERENCE IN THIS VOUCHER

 

Dear Experts,

I have modify this code & generate two copy in A4 size paper. Image as under:
Another one is i want cost center wise details as screen shoot att.

Awaiting for replay

 

Dear Experts,
Can Any one solve the issue . How to print cost center wise breakup in receipt voucher.

Thanks
Mani