Few lines are missing here. Watch the full video for full coding.
[#Menu: Gateway of Tally]
Add : Item : Blank
Add : Key Item : Search Description: H : Alter : FindVoucherRajiv
Title : $$LocaleString:"Description Search "
[Form: FrmFindVoucher]
Part : PrtFindVoucher
Full Width : Yes
Space Right : 2
Space Left : 2
Option : Small Size Form
Background : @@SV_CMPCONFIG
On: Form Accept : Yes : Form Accept
On: Form Accept : Yes : Display : FindVoucherRajiv Entries in Daybook
[Part: PrtFindVoucher]
Line :LinImpReceiptV
[Line: LinImpReceiptV]
Fields : Medium Prompt, Name Field;
Local: Field: Medium Prompt : Set As : " Search String (Contains)"
Local: Field: Name Field : Modifies : xlsFilePath : Yes
[Report: FindVoucherRajiv Entries in Daybook]
Use : Daybook
; Title:Search Contain data
Set : SVFromDate : $$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
Set : SVToDate : $$FinYearEnd:##StartDate:$StartingFrom:Company:##SVCurrentCompany
Set : ExplodeNarrFlag : Yes
Set :DSPShowAdditionalDescription:Yes
Local : Collection : Default : Add : Filter : Dup Filter
; FetchValues : Date, VoucherTypeName, Narration
[System: Formula]
;Dup Filter : $Narration CONTAINS "Duplicated"
Dup Filter :if NOT $$IsEmpty:##xlsFilePath then $VoucherNumber CONTAINS ##xlsFilePath or $$CollectionField:$BasicDesc:1:InventoryEntries CONTAINS ##xlsFilePath else $$CollectionField:$BasicDesc:2:InventoryEntries CONTAINS "Duplicated"
[Function: Voucher Duplication]
10 : WALK COLLECTION : TSPL Smp Company Vch
20 : SET : SVViewName : $$SysName:AcctgVchView
30 : NEW OBJECT : Voucher
40 : SET VALUE : Date : $Date
50 : SET VALUE : VoucherTypeName : $VoucherTypeName
60 : SET VALUE : Description : $$CollectionField:$BasicDesc:1:InventoryEntries; + " Duplicated"
70 : SET VALUE : PersistedView : ##SVViewName
80 : WALK COLLECTION : InventoryEntries
90 : INSERT COLLECTION OBJECT : InventoryEntries
100 : SET VALUE : Ledger Name : $LedgerName
110 : SET VALUE : IsDeemedPositive : $IsDeemedPositive
120 : SET VALUE : Amount : $Amount
130 : SET TARGET : ..
140 : END WALK
150 : CREATE TARGET
160 : END WALK
170 : DISPLAY : FindVoucherRajiv Entries in Daybook
180 : RETURN
[Collection: TSPL Smp Company Vch]
Source Collection : Voucher; Vouchers
Fetch : Date, VoucherTypeName, Narration, LedgerEntries.*
[#Object : InventoryEntry]
;BasicDesc : $$CollectionField:$BasicUserDescription:1:BasicUserDescription
BasicDesc : $$FullList:BasicUserDescription:$BasicUserDescription
[System: Variable]
xlsFilePath: ""
[Variable:xlsFilePath]
Type : String
Default : ""
Persistent : Yes
;; End-of-File
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें