Find Duplicate Vouchers Entry (अगर एक ही date में एक से अधिक party को Payment या receipt हुआ है, तो)

Please Help me, Amit Kamdar Sir Ji

अगर एक ही date में,
एक ही party को,
एक से अधिक बार Payment या receipt हुआ है,
तो ऐसे entry को खोजकर निकलना है |

मुझसे filter नहीं बन रहा है |
;; Shri Ganeshay Namah ;; Shri Ganeshay Namah ;; Shri Ganeshay Namah ;;

;;------------------------------------------------------------------------
;; In Add-On Features ;;
;;------------------------------------------------------------------------
[#Part : CMP TallyShopFeaturesTitle]

Add : Lines : At End : RkcEnable DupPmtRptLne
Space Left : 2

[Line : RkcEnable DupPmtRptLne]

Field : Long Prompt, RkcEnable DupPmtRptFld
Local : Field : Long Prompt : Info : "Enable Find Duplicate Vouchers ?"

Space Top : 0.4

[Field : RkcEnable DupPmtRptFld]
Use : Logical Field
Type : Logical:Forced
Storage : RkcEnableDupVchOn
Set always : Yes


[System: Formula]

EnableDuplicateVch : $RkcEnableDupVchOn:Company:##SVCurrentCompany


[System: UDF]

RkcEnableDupVchOn : Logical : 39261


;;------------------------------------------------------------------------------------------------------------------------------------------
;; Start Menu - Find Duplicate Vouchers ;;

[#Menu : Gateway of Tally]

Add: Item : Duplicate Vouchers : Display : RkcDup VchRpt
Control : Duplicate Vouchers : @@EnableDuplicateVch


[Report : RkcDup VchRpt]

Title : $$LocaleString:"Duplicate Vouchers"
Print Set : Report Title: $$LocaleString:"Duplicate Vouchers"

Variable : SVFromDate, SVToDate

Set : SVFromDate : $$MonthStart:##SVCurrentDate
Set : SVToDate : $$MonthEnd:##SVCurrentDate

Form : RkcDup VchFrm

[Form : RkcDup VchFrm]

Part : DBTitle, RkcDup VchPrt

Height : 100% Screen
Width : 100% Screen

Buttons : Print Button, Export Button, F2 Change Period

Local: Line: DBTitle : Local: Field: Name Field: Info : $$LocaleString:"Duplicate Voouchers with Party"
Local: Line: DBTitle : Local: Field: Name Field: Full Width : Yes
Local: Line: DBTitle : Local: Field: Name Field: Style : Normal Bold

Local: Line: DBTitle : Local: Field: DSP MainDateTitle: Full Width : Yes
Local: Line: DBTitle : Local: Field: DSP MainDateTitle: Style : Normal Bold


[Part : RkcDup VchPrt]

Line : RkcDup VchTtleLne, RkcDup VchDetlsLne
Repeat : RkcDup VchDetlsLne : RkcDup VchColl
;Bottom Line : RkcDup VchBttmLne
Scroll : Vertical
Common Border : Yes


[Line : RkcDup VchTtleLne]

Use : RkcDup VchDetlsLne

Local : Field : Default : Type : String
Local : Field : Default : Style : Normal Bold

Local : Field : RkcDup SnoFld : Info : $$LocaleString:"SNo."
Local : Field : RkcDup DateFld : Info : $$LocaleString:"Date"
Local : Field : RkcDup DaysNameFld : Info : $$LocaleString:"Days Name"
Local : Field : RkcDup ParticularsFld : Info : $$LocaleString:"Particulars"
Local : Field : RkcDup VchTypeFld : Info : $$LocaleString:"Vch Type"
Local : Field : RkcDup DebitAmtFld : Info : $$LocaleString:"Debit"
Local : Field : RkcDup CreditAmtFld : Info : $$LocaleString:"Credit"

Border : Thin Top Bottom

[Line : RkcDup VchDetlsLne]

Field : RkcDup SnoFld, RkcDup DateFld, RkcDup DaysNameFld, RkcDup ParticularsFld
Right Field : RkcDup VchTypeFld, RkcDup DebitAmtFld, RkcDup CreditAmtFld


Local : Field : Default : Style : Normal

Option : Alter on Enter : $$IsVoucher AND NOT $IsDeleted

;;Remove : ($LedgerName = #RkcDupDateFld)
Remove if : $Date = $Ledgername


[Field : RkcDup SnoFld]

Use : Short Name Field
Set as : $$Line
Width : @@ShortWidth-5
Set Always : Yes


[Field : RkcDup DateFld]

Use : Short Date Field
Set as : $Date
Width : @@ShortWidth
Set Always : Yes



[Field : RkcDup DaysNameFld]

Use : Short Name Field
Set as : $$DayOfWeek:$Date
Width : @@ShortWidth
Set Always : Yes
Alter : Voucher


[Field : RkcDup ParticularsFld]

Use : Name Field
Set as : $LedgerName
Full Width : Yes
Set Always : Yes
Quick Search: Yes



[Field : RkcDup VchTypeFld]

Use : Short Name Field
Set as : $VoucherTypeName
Width : @@ShortWidth
Set Always : Yes


[Field : RkcDup DebitAmtFld]

Use : Amount Field
;;Set as : If $VoucherTypeName = "Payment" then $Amount else 0
Set as : IF $$IsPayment:$VoucherTypeName Then $Amount else 0
Width : @@AmountWidth
Set Always : Yes


[Field : RkcDup CreditAmtFld]

Use : Amount Field
;;Set as : If $VoucherTypeName = "Receipt" then $Amount else 0
Set as : IF $$IsReceipt:$VoucherTypeName Then $Amount else 0
Width : @@AmountWidth
Set Always : Yes


[Collection : RkcDup VchColl]

Type : Vouchers : Group
Child Of : $$GroupCash
Belongs To : Yes
;;Child Of : $Name
Fetch : Date, LedgerName, VoucherTypeName, Amount
Filter : RkcDup PmtRptType ;;, RkcDup PartyDate
Sort : @@Default : $Date ;;LedgerName

[System : Formula]

RkcDup PmtRptType : $$IsPayment:$VoucherTypeName OR $$IsReceipt:$VoucherTypeName

 

see the video


https://drive.google.com/file/d/1TX2WBrMhMJckqblB4ZL9Hty47cFBSYjv/view?usp=drive_link

 

share code please