[#Field: Vch Ref]
    On:Accept:Yes:Field Accept
    On:Accept:Yes:Call:Refreshtdls

[Function:Refreshtdls]
01 : Refresh TDL

[#Field : EiConsignee]
Control : IsTitle : IF $$IsPurchase:$VoucherTypeName And ($$InCreatemode OR $$InDuplicateMode) Then @@ChkVal Else ""
Set Always :Yes
[Collection : VchrefColl]

Type : Voucher
Fetch : VoucherNumber , Reference,Ledgername
Filter : FltVal
Filter : FltValJK

[System : Formulas]

IsTitle : "ERROR !!"+$$NewLine+$$NewLine+"Duplicate Reference No."+$$NewLine+$$NewLine+"Please Check Invoice No.";+$$NewLine+$$NewLine+$$NewLine+"(Code By:-Jay Kumar Tailor,Sikar)"

ChkVal : NOT $$ISEMPTY:$Reference And $PartyLedgerName =#EiConsignee AND $$NumItems:VchrefColl > 0

FltVal : $Reference = #VchRef
FltValJK:$LedgerName = #EiConsignee