want some help for this TDL

This TDL not working properly in tally, once you load this TDL in your tally, it will be shown only like voucher but not working properly, so I request to you please give me correct solution about this TDL. thank you.

SEE THIS IMAGE






SEE THIS TDL
​

[#Menu: Gateway Of Tally]

Add : Item : Before : @@locQuit: QUICK POS SALE : Alter : POS Sales Form

[Report: POS Sales Form]

Form : POS Sales Form
Title : "POS Sales Form"
Object : Company

[Form: POS Sales Form]

Part :VCH Titlea, POS Column, POS ColumnBady
Width : 100% Screen
Height : 100% Screen
Background : FormClr
;;--------------------------------------------------------------------
[Part: VCH Titlea]

Parts : VCHTitleLefta
RightParts : VCHTitleRighta
Vertical : No

[Part: VCHTitleLefta]

Lines : VCH Typea,EI Consigneea

[Line: VCH Typea]

Fields : VCH TypeComboa
;;RightField : VCH VoucherClassPrompta


[Field: VCH Type Comboa]

Fields : VCH Typea, VCH Numbera Prompt
;Local : Field : VCH DirectBills : Set as : No
;Local : Field : VCH DirectTaxBills : Set as : No

[Field: VCH Typea]

Use : Short Name Field
Color : @@SV_VCHCOLOR
Background : @@SV_VCHTYPE
Skip : Yes
Set as : "Point of Sale"

Align : Center

[Field: VCH Numbera Prompt]

Set as : $$LocaleString:"No."
Inactive : @@NoVchNumbering
Space Right : 0
Skip : Yes
Fixed : Yes

[Line: EI Consigneea]

Field : Simple Prompt, EI Consigneea


Local : Field : Simple Prompt: Info : $$LocaleString:"Party A/c name:"
Local : Field : Simple Prompt: Width : 18

[Field: EI Consigneea]
Use: Vch LedgerFetch
Table : Party Ledgers
Width : 10


[Part: VCHTitleRighta]
Lines : VCH WeekDaya

[Line: VCH WeekDaya]
RightFields : VCH WeekDay a

[Field: VCH WeekDaya]
Use : Short Date Field
Set as : if @@UseEffectiveDate then ##VARVchEffDate else ##VARVchDate
Set Always : Yes
;Skip : Yes

Width : @@VCHDateWidth
;;----------------------------------------------------------------------
[Part: POS Column]

Lines : POS Column Title, POS Column Details
Bottom Line OS Column Totle
Repeat : POS Column Details : POS Column Info
Scroll : Vertical
Common Border : Yes
Break On : $$IsSysName:$CourseNameUdf
Height : 80 mms
Total : PO QtyTitle , PO AmtTitle

; Border : Flush Totals


[Line: POS Column Title]

Use : POS Column Details

Local : Field : Default : Delete : Storage
Local : Field : Default : Inactive : No
Local : Field : Default : Type : String

Local: Field: PO SN : Set as : "Sr No"
Local: Field: PO ItemTitle : Set as : "Name of Item"
Local: Field: PO QtyTitle : Set as : "Quantity"
Local: Field: PO RateTitle : Set as : "Rate"
Local: Field: PO RateUnitsTitle : Set as : "Per"
Local: Field: PO RateUnitsTitle : Style : Small
Local: Field: PO RateUnitsTitle : Color : Blue
Local: Field: PO DiscTitle : Set as : "Disc%"
Local: Field: PO DiscTitle : Style : Small
Local: Field: PO DiscTitle : Color : Red
Local: Field: PO AmtTitle : Set as : "Amount"
; Local: Field: PO AmtTitle : Color : Red
Local: Field: PO AmtTitle : Align : Right
Border : Column Titles



[Line: POS Column Details]

Fields : PO SN, PO ItemTitle
Right Fields: PO QtyTitle, PO RateTitle, PO RateUnitsTitle, PO DiscTitle, PO AmtTitle


[Field: PO SN]
Set as : $$Line
Width : 4
Border : Thin Left Right


[Field: PO ItemTitle]
Use : Name Field
Table : List of Stock Items
Show Table : Always


[Field: PO QtyTitle]
;Use : Qty Field
Width : @@VCHQtyWidth


[Field: PO RateTitle]
;Use : Rate Field
Width : @@VCHRateWidth

[Field: PO RateUnitsTitle]
;Use : Rate Field
Width : @@VCHRateUnitsWidth


[Field: PO DiscTitle]
;Use : Rate Field
Width : @@VCHDiscountWidth


[Field: PO AmtTitle]
Type : Amount
Width : @@AmountWidth
Max : @@MaxNumberWidth
Style : Normal Bold
Format : "No Zero, Symbol," + ##ShowForex
Align : Right
Key : Calculator
Option : SetAlignLeft : @@IsRightToLeftScript
;-------------------------------------------------------

[Line: POS Column Totle]

Use : POS Column Details


Local: Field: PO SN : Set as : "Total"
Local: Field: PO ItemTitle : Set as : ""
Local: Field: PO QtyTitle : Set as : $$TotalOQtyTitle
Local: Field: PO RateTitle : Set as : ""
Local: Field: PO RateUnitsTitle : Set as : ""

Local: Field: PO DiscTitle : Set as : ""

Local: Field: PO AmtTitle : Set as : $$TotalOAmtTitle

Border : Column Titles
Border : Flush Totals
;----------------------------------------------------------

[System: UDF]

POS Column Info : Aggregate : 900
PO ItemTitle UDf : String : 901
PO QtyTitle Udf : String : 902
PO RateTitle UDf : Amount : 903
PO RateUnitsTitle UDf : Amount : 904
PO AmtTitle UDf : Amount : 905

;-----------------------------------------------------------
[Part: POS ColumnBady]

Lines : POS ColumnBady, POS ColumnBadyA, POS ColumnBadyB, POS ColumnBadyC
Height : 50 mms

[Line: POS ColumnBady]

Field: Short Prompt, PO Mode , Simple Prompt, PO Cost , Medium Prompt, PO Disc

Local : Field : Default : Style : TextStyle
Local : Field : Default : FullWidth : Yes

Local : Field : Short Prompt : Set as : "Receipt Mode"
Local : Field : Simple Prompt : Set as : "Customer Name"
Local : Field : Medium Prompt : Set as : "Discount"

[Style: TextStyle]
Font : Calbri
Height : 12


[Field: PO Mode]

[Field: PO Cost]

[Field: PO Disc]
;-----------------------------------------------------------------
[Line: POS ColumnBadyA]

Field: Short Prompt, PO Mo , Simple Prompt, PO Mobi , Medium Prompt, PO Net

Local : Field : Default : Style : TextStyle
Local : Field : Default : FullWidth : Yes

Local : Field : Short Prompt : Set as : ""
Local : Field : Simple Prompt : Set as : "Mobile No"
Local : Field : Medium Prompt : Set as : "Net Sales"



[Field: PO Mo]

[Field: PO Mobi]

[Field: PO Net]

;---------------------------------------------------------------------

[Line: POS ColumnBadyB]

Field: Short Prompt, PO A , Simple Prompt, PO B , Medium Prompt, PO Ten

Local : Field : Default : Style : TextStyle
Local : Field : Default : FullWidth : Yes
Local : Field : Default : Color : Blue

Local : Field : Short Prompt : Set as : ""
Local : Field : Simple Prompt : Set as : ""
Local : Field : Medium Prompt : Set as : "Tender"



[Field: PO A]

[Field: PO B]

[Field: PO Ten]

;----------------------------------------------------------------------

[Line: POS ColumnBadyC]

Field: Short Prompt, PO AA , Simple Prompt, PO BB , Medium Prompt, PO BaCh

Local : Field : Default : Style : TextStyle
Local : Field : Default : FullWidth : Yes
Local : Field : Default : Color : Blue

Local : Field : Short Prompt : Set as : ""
Local : Field : Simple Prompt : Set as : ""
Local : Field : Medium Prompt : Set as : "Balance in Change"



[Field: PO AA]

[Field: PO BB]

[Field: PO BaCh]

​

 

Where is function ?

 

k

KINDLY UPDATE THIS CODE PLZZZZ

 

no idea sir , please update this code

 

this code has lots of issues first od all check storage and alignment

 

@anilmishra yes there are lots of issues in this TDL. want a correct solution in this tdl.

 

I want to change Rate based on some condition in POS invoice. My code is working fine with normal sales invoice by changing field VCH RATE. But i am unable to modify rate field in POS invoice. Pls provide solution.
Thank you