Fetching Date based Voucher No UDF in Report

Dear Expert,
following for your review & guidance.
Problem: Not getting voucher UDF in voucher report.

Code:

;; Modification at Voucher Entry Screen

[#Field            : VCH Number]
    Invisible    : Yes
[#Line            : VCH Type]
    Add            : Field: Before: VCHNumber: VchNoDatebase
    Height        : 1
[Field            : VchNoDatebase]
    Use            : NameField
    Width        : 18
    Skip        : Yes
    setas        : @@VchNodatebase
    Background    : Yellow16Bit
    Color        : "Red"
    Style        : Extra Large Bold
    Storage        : VchNoDatebase
[System            : UDF]
    VchNoDatebase: String: 4018
[System            : Formula]
    VchNodatebase:    $$String:@@MonthofDate + $$String:@@DayofDate +"-"+ @@VchNumber + $$String:@@YearofDate
    YearofDate    :    $$StringPart:($$YearOfDate:##VARVchDate):2:2
    MonthofDate    :    $$CaseConvert:UpperCase:$$ShortMonthName:##VARVchDate
    DayofDate    :    $$ZeroFill:($$DayOfDate:##VARVchDate):2
    VchNumber    :    $$String:#VCHNumber
[#Collection    : VouchersofLedger]
    add:fetch    : VchNoDatebase

;; Modification at Voucher Report Screen

[#Report: Ledger Vouchers]
Local: Field: DSPVchNumber: Invisible: Yes
Local: Line: DSP VchDetail: Add: Right Field: After: DSPVchType: ShortNameField
Local: Field: ShortNameField: Set as: $VchNoDatebase