how to create this type of voucher

how to create this type of voucher, this is a customized voucher

SEE THIS IMAGE


​

 

hi all expert, I have customized tdl for the voucher , please check this code and give me the correct solution



[#Menu : Gateway of Tally]
Add : Key Item :After : @@LocAccountingVouchers : "1) POS Sale " : V : Create Collection : OkSales
[Form: OkSales]
Part : OkSalesTitle, OkSalesDt1
height : 200% Screen
Width: 200% Screen

[Part:OkSalesTitle]
Line: OkSalesTitle
[Line:OkSalesTitle]
Field:OkSalesTitle
[Field:OkSalesTitle]
Use: name field
Set as: "POS SALE"
Full Width:Yes
Style: Small Bold
Align:Center

[Part:OkSalesDt1]
Line: OkSalestitleline,OkSalesDtLine
Repeat:OkSalesDtLine:OkSalescoll
Common Border:Yes
Scroll:Horizontal
Border : Thin Left Right

[Collection:OkSalescoll]
Type: vouchers:vouchertype
Child Of:$$VchTypeSales
Belongs To: Yes
Fetch: date, vouchernumber,Particulars, qty , Rate , amount ,

[System : Formula]
VSaleFilt : $VoucherTypeName = " POS sale"

[Line:OkSalestitleline]
Field: Vs sno, Vs Particulars, Vs billedqty, Vs Rate, cs totalbillamt
Local:Field: Vs sno:Set as: "S.no"
Local:Field:Vs Particulars:Set as: "Particulars"
Local:Field:Vs billedqty:Set as: "QTY."
Local:Field: Vs Rate:Set as: "Rate"
Local:Field:cs totalbillamt:Set as: "Total Bill Amount"
Border : Thin Left Right Bottom

[Line:OkSalesDtLine]
Field: OkSales sno, OkSales Particulars, OkSales billedqty, OkSales Rate, OkSalestotalbillamt
[Field: OkSales sno]
Use:number Field
Set as: $$Line
Border : Thin Left Right

[Field:OkSalesParticulars]

Width : @@ParticularsWidth
Set as : @@Particulars
Border : Thin Left Right
Skip : Yes
Fixed : Yes
Style : Small Bold
WideSpace : Yes
Indent : 2

[Field: OkSales Qty Field]

Type : Quantity
Width : @@QtyWidth
Max : @@MaxNumberWidth
Border : Thin Left Right
Style : Normal Bold
Format : "No Zero"
Align : Center

[Field: OkSales Rate Field]

Width : @@RateWidth
Max : @@MaxNumberWidth
Type : Rate
Style : Small Bold
Border : Thin Left Right
Key : Calculator
Align : Right
Format : "Symbol," + ##ShowForex

[Field: OkSales totalbillamt]
Use:amount Field
Set as: $amount
Border : Thin Left Right

[!Part: VCH POS WithClass]

Line : VCH POS InvoiceTotal, OkSales POS Card Receipt
Line : OkSales POS Bank Receipt, OkSales POS Cash Receipt
Local : Field : Short Prompt : Width : @@MediumWidth
Local : Field : Short Prompt : Skip : Yes
Local : Field : Medium Prompt : Width : 12

[Line: OkSales POS Card Receipt]

Field : OKSALES POSCardPaymentType, OKSALES POS CardDeemedPos, Short Prompt, OKSALES POSCardLedger, OKSALES POSCardAmount, OKSALES POSCardAccNoZero
Field : Medium Prompt, VCH POS CardNumber, VCH POSCardLedgerName
Local : Field : Short Prompt : Set as : $$LocaleString:"Credit/debit card:"
Local : Field : Short Prompt : Inactive : (##POSSinglePayment AND $$IsEmpty:#OKSALESPOSCardAmount)
Local : Field : Medium Prompt : Set as : $$LocaleString:"Card no.:"
Local : Field : Medium Prompt : Inactive : $$IsEmpty:#OKSALESPOSCardAmount
Local : Field : VCH POSCardLedgerName : Set as : If $$IsEmpty:#OKSALESPOSCardAmount Then $$SysName:NOTApplicable Else #OKSALESPOSCardLedger
Invisible : NOT @@IsPOSCardEnabled

[Line: OKSALES POS Bank Receipt]

Field : OKSALES POSBankPaymentType, OKSALES POS BankDeemedPos, Short Prompt, OKSALES POSBankLedger, OKSALES POSBankAmount, OKSALES POSBankAccNoZero
Field : Medium Prompt, VCH POS ChequeBank, Simple Prompt, VCH POS ChequeNo, VCH POSChqLedger

Local : Field : Short Prompt : Set as : $$LocaleString:"Cheque:"
Local : Field : Short Prompt : Inactive : (##POSSinglePayment AND $$IsEmpty:#OKSALESPOSBankAmount)

Local : Field : Medium Prompt : Set as : $$LocaleString:"Bank Name:"
Local : Field : Medium Prompt : Inactive : $$IsEmpty:#OKSALESPOSBankAmount

Local : Field : Simple Prompt : Set as : $$LocaleString:"Cheque no.: "
Local : Field : Simple Prompt : Width : 10
Local : Field : Simple Prompt : Inactive : $$IsEmpty:#OKSALESPOSBankAmount
Local : Field : VCH POSChqLedger : Set as : If $$IsEmpty:#OKSALESPOSBankAmount Then $$SysName:NOTApplicable Else #OKSALESPOSBankLedger
Invisible : NOT @@IsPOSBankEnabled

[Line: OKSALES POS Cash Receipt]

Field : OKSALES POSCashPaymentType, OKSALES POS CashDeemedPos, Short Prompt, OKSALES POSCashLedger, OKSALES POSCashAmount, VCH POSCashLedgerName, OKSALES POSCashAccNoZero
Field : Medium Prompt, VCH POS MoneyTendered
Field : Simple Prompt, VCH POS Balance

Local : Field : Short Prompt : Set as : $$LocaleString:"Cash"
Local : Field : VCH POSCashLedgerName : Set as : If $$IsEmpty:#OKSALESPOSCashAmount Then $$SysName:NOTApplicable Else #OKSALESPOSCashLedger

Local : Field : Medium Prompt : Set as : $$LocaleString:"Cash tendered:"
Local : Field : Medium Prompt : Inactive : $$IsEmpty:#OKSALESPOSCashAmount

Local : Field : Simple Prompt : Set as : $$LocaleString:"Balance" + ":"
Local : Field : Simple Prompt : Width : 8
Local : Field : Simple Prompt : Inactive : $$IsEmpty:#OKSALESPOSCashAmount

Local : Field : VCH POS MoneyTendered : Inactive : $$IsEmpty:#OKSALESPOSCashAmount
Invisible : NOT @@IsPOSCashEnabled

[INCLUDE: posinvclass.fld]

[Report : OkSales]
Use : Voucher
Set : SVVoucherType : " POS Sale"
Set : ORIGVchType : $$VchTypeSales
Delete : Form
Form : OkSales
[Form : OkSales]
Use : Voucher

 

hello experts please help me

 

There is probably no one in this page to help you?

 

hi Rohit , why and what happened bro

 

Because there is more to paint in the telly

 

Hello guy's help me .

 

what was the issue.........

 

hi santosh shrestha sir , can you help me for this code

 

on opening it error shown
please sent your full code on itcnepaltraders@gmail.com
i will resolve your issue

 

ok check your email id

 

PLEASE CHECK YOUR EMAIL.