Need Help

I found a code to stop duplicate purchase from same supplier its working but its check all FY instead of current FY can any one update code for the same

;; STOP DUPLICATE PURCHASE BY INVOICE NUMBER AND PARTY NAME

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

[Function:Refreshtdls]
01 : Refresh TDL
[#Field : Vch Particulars]
Control : IsTitle : IF (($$IsPurchase:$VoucherTypeName) AND ($$Line = 1)) AND ($$InCreatemode OR $$InDuplicateMode) Then @@ChkVal1 Else ""
[#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,PartyLedgerName
Filter : FltVal
Filter :FltValjk


[Collection : VchrefColl1]
Type : Voucher
Fetch : VoucherNumber , Reference,Ledgername,PartyLedgerName
Filter : FltVal
Filter :FltValjkt
Filter :vchjktype

[System : Formulas]

IsTitle : "ERROR !!"+$$NewLine+$$NewLine+"Duplicate Reference No."+$$NewLine+$$NewLine+"Please Check Invoice No."

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

ChkVal1 : NOT $$ISEMPTY:$Reference And $LedgerName =#VchParticulars AND $$NumItems:VchrefColl1 > 0

FltVal : $Reference = #VchRef
FltValjk $LedgerName =#EiConsignee )
FltValjkt :$LedgerName =#VchParticulars
vchjktype:$$IsPurchase:$VoucherTypeName

 

is my query not clear

 

Try this:

Code:

[#Field: Vch Ref]
On:Accept:Yes:Field Accept
On:Accept:Yes:Call:Refreshtdls
[Function:Refreshtdls]
01 : Refresh TDL
[#Field : Vch Particulars]
Control : IsTitle : IF (($$IsPurchase:$VoucherTypeName) AND ($$Line = 1)) AND ($$InCreatemode OR $$InDuplicateMode) Then @@ChkVal1 Else ""
[#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,PartyLedgerName
Filter : FltVal
Filter :FltValjk
Filter :TheCurrentPeriod
[Collection : VchrefColl1]
Type : Voucher
Fetch : VoucherNumber , Reference,Ledgername,PartyLedgerName
Filter : FltVal
Filter :FltValjkt
Filter :vchjktype
Filter :TheCurrentPeriod
[System : Formulas]
IsTitle : "ERROR !!"+$$NewLine+$$NewLine+"Duplicate Reference No."+$$NewLine+$$NewLine+"Please Check Invoice No."
ChkVal : NOT $$ISEMPTY:$Reference And $LedgerName =#EiConsignee AND $$NumItems:VchrefColl > 0
ChkVal1 : NOT $$ISEMPTY:$Reference And $LedgerName =#VchParticulars AND $$NumItems:VchrefColl1 > 0
FltVal : $Reference = #VchRef
FltValjk :($LedgerName =#EiConsignee )
FltValjkt :$LedgerName =#VchParticulars
vchjktype:$$IsPurchase:$VoucherTypeName
TheCurrentPeriod : $Date => $$CurrentPeriodFrom AND $Date <= $$CurrentPeriodTo

 

Sir ji Thanks but its not working even any period

 

in my system below code works thanks for your idea
TheCurrentPeriod : $Date => $$SystemPeriodFrom AND $Date <= $$SystemPeriodTo