BY creating a button,i need to delete the selected voucher and need to display the deleted voucher

I have created a button to delete the selected voucher and need to display the deleted voucher in the another report.I have tried using list variable concept..but i am not sure that i have used the correct format.Kindly help me.i have attached my tried code for list variables and data source : variable:selected:concept

Code:

->I am a learner
[System:Variables]
    List variable:MyVoucher
   
[Variable:MyVoucher]
    Variable     : MyVTDate                 : Date
    Variable     : MyVTVchNumber         : String
    Variable     : MyVTVchTypeName         : String
    Variable     : MyVTPartyName         : String
    Variable     : MyVTAmount            : Amount
    Variable    : MyVTTotAmt            : Amount
    Variable     : MyVTID                   : Number
    Variable     : MyVTExpireDay            : Number
    Variable     : MyVTFromDate            : Date
    Variable    : MyVTToDate            : Date
    Variable     : MyVTItemName            : String
   
   

[Collection:MyListVariable]
    Data Source :Variable  : selected
    ;Type        : Voucher
    ;Fetch        : VoucherTypeName,Date,VoucherNumber,PartyLedgerName,Amount,ToAmcPeriod,FromAmcPeriod
    ;Fetch        : TotInvAmt,SalesReprentiveTDL,ToExpireInDays,MasterId,Inactive,VoucherId
    ;Filter        : IsAMCVoucherType,IsBillExpirDays,IsActive,IsEmptyAMCPeriod ;;,IsExpireIndays     ;; ,IsExpireIndays,IsActive,IsEmptyAMCPeriod;;,IsPartyBill ;;,IsBillExpirDays
    Filter        : FilterAll
    ;Sort        : Default    : -$MasterId
   
   
[System:Formulae]
    FilterAll:$$FilterCount:MyListVariable:VchValue
    FilterInAll:$$FilterCount:MyListVariable:VchValue
    ;VchInValue:$VoucherId


[Button:Expire]
      Title        : "Mark Expired"
    Key            : Alt+E
    ;Action :Create:Button
    Action        : Call:ExpireFunc
   
[Function:ExpireFunc]
   
    0010 :       Walk Collection    : Etco SrcPartyBillColl
    0020 :       Increment            : MyVoucher
    0030 :         SET        : MyVoucher    : "ID:" + $$String:$MasterId
    1000 :         List Add     : MyVoucher : $MasterID : $Date             : MyVTDate
    1001 :         List Add     : MyVoucher : $MasterID : $VoucherNumber   : MyVTVchNumber
    1002 :        List Add     : MyVoucher : $MasterID : $VoucherTypeName : MyVTVchTypeName
    1003 :         List Add     : MyVoucher : $MasterID : $PartyLedgerName : MyVTPartyName
    1004 :        List Add     : MyVoucher : $MasterID : $Amount           : MyVTAmount
    1005 :        List Add     : MyVoucher : $MasterID : $TotInvAmt        : MyVTTotAmount
    1006 :        List Add     : MyVoucher : $MasterID : $ToExpireInDays   : MyVTExpireDay
    1007 :         List Add    : MyVoucher    : $MasterId    : $ToAmcPeriod        : MyVTToDate
    1008 :         List Add    : MyVoucher    : $MasterId    : $FromAmcPeriod    : MyVTFromDate
    1007 :         List Add     : MyVoucher : $MasterID : $MasterID         : MyVTID
    1008 :        List Add     : MyVoucher : $MasterID : ""                : MyVTMark
   
    ;30:List Remove:MyVoucher:$MasterId
    30    :    Call:MyDelFunc
    100    : END WALK
   
[Function:MyDelFunc]
    00    : WALK COLLECTION    : Etco SrcPartyBillColl
    ;10    : Increment            : MyVoucher
    20    :    SET        : MyVoucher    : "ID:" + $$String:$MasterId
    22:Query Box:"Are you Sure to Delete\n the selected Voucher?":Yes:No
    ;25:List Delete:MyVoucher
    30:List Remove:MyVoucher:$MasterId
    ;30    :    Call:MyDelFunc
    100    : END WALK
[Button:MyDelKey]
    Title:$$LocaleString:"Expired List"
    Key:Alt+L
    Action:Display:MyDelReport
   
[Report:MyDelReport]
    Form:MyDelForm
    Full Screen:Yes
    List Variable:MyVoucher
    Variable    : VSortFilter ,VSortValue,ExplodeFlag
    Set            : VSortFilter    : ""
    Set            : VSortValue    : ""
    Set            : ExplodeFlag    : No
   
[Form:MyDelForm]
    Use:ETCO AMC Report
    Delete:Local        : Field        : Form SubTitle : Info    : $$LocaleString:"AMC Expiry Reminder"
    Add:Local        : Field        : Form SubTitle : Info    : $$LocaleString:"AMC Expired List"
   
[#Part        : ETCO AMC Details]
    Switch        : INC2 Case1     : MyETCO AMCActive Details    : Not ##ExplodeFlag
    Switch        : INC2 Case2    : MyETCO AMCInActve Details    : ##ExplodeFlag
[!Part        : MyETCO AMCActive Details]
    Use:ETCO AMCActive Details
    delete:Repeat        : ETCO AMC Info    : Etco PartyBillColl
    Add           : Repeat        : ETCO AMC Info    : MyListVariable
    Scroll          : Vertical
    Common Border : Yes
    Total          : ETCO BillBasicAmt,ETCO BillGrossAmt

   
[#Collection    : Etco PartyBillColl]
    Switch        : Case1     : MyEtco PartyBillCollAll    : ##VSortValue=""
    Switch        : Case2     : MyEtco PartyBillCollSel    : Not ##VSortValue=""
   
[!Collection: MyEtco PartyBillCollAll]
    Source Collection    : Etco SrcPartyBillColl
    Fetch        : VoucherTypeName,PartyLedgerName,ToAmcPeriod,FromAmcPeriod,Date,StockItemName
    Fetch        : ToExpireInDays,MasterId,Inactive,SalesReprentiveTDL,TotInvAmt,Amount
;;    By            : PartyLedgerName : $PartyLedgerName
    Add:Filter:FilterAll
[!Collection: MyEtco PartyBillCollSel]
    Source Collection    : Etco SrcPartyBillColl
    Fetch        : VoucherTypeName,PartyLedgerName,FromAmcPeriod,ToAmcPeriod,Date,StockItemName
    Fetch        : ToExpireInDays,MasterId,Inactive,SalesReprentiveTDL,TotInvAmt,Amount
    ;;By            : PartyLedgerName : $PartyLedgerName
    Filter        : IsSamevalue
    Add:Filter:FilterAll

[#Collection    : Etco InactiveBillColl]
    Switch        : ACT Case1 : MyEtco InactiveBillCollAll    : ##VSortValue=""
    Switch        : ACT Case2 : MyEtco InactiveBillCollSel    : Not ##VSortValue=""
   
[!Collection : MyEtco InactiveBillCollAll]
    Type        : Voucher
    Fetch        : VoucherTypeName,PartyLedgerName,ToAmcPeriod,FromAmcPeriod,Amount,TotInvAmt
    Fetch        : ToExpireInDays,MasterId,Inactive,Date,IsOptional,SalesReprentiveTDL,StockItemName
    Parm Var    : SVFromDate : Date    : @@PrevYearStart
    Parm Var    : SVToDate     : Date : ##SVToDate   
    Filter        : IsAMCVoucherType,IsBillExpirDays,IsInActive,IsEmptyAMCPeriod,NotIsOptionalVouchers ;;,IsPartyName
    Add:Filter:FilterInAll
[!Collection : MyEtco InactiveBillCollSel]
    Type        : Voucher
    Fetch        : VoucherTypeName,PartyLedgerName,ToAmcPeriod,FromAmcPeriod,Amount,TotInvAmt
    Fetch        : ToExpireInDays,MasterId,Inactive,Date,IsOptional,SalesReprentiveTDL
    Parm Var    : SVFromDate : Date    : @@PrevYearStart
    Parm Var    : SVToDate     : Date : ##SVToDate   
    Filter        : IsAMCVoucherType,IsBillExpirDays,IsInActive,IsEmptyAMCPeriod,NotIsOptionalVouchers,IsSamevalue ;;,IsPartyName
    Add:Filter:FilterInAll



[#Form        : ETCO AMC Report]
    Add:Button:After:BtnShowAll:Expire,MyDelKey

 

hey! Did you find any solution regarding this??