Help in Button to Show Additional Details.

I want to Make Button To Show Additional Details. Please Help Experts.

Code:

[#Form : LEDGER VOUCHERS]
    Keys:DSPShowAddDtls
[Key: DSPShowAddDtls]

    Key     : Ctrl+S
    Title   : if ##ShowAdditionalDtls then $$LocaleString:"Hide Add. Dtls" else $$LocaleString:"Show Add. Dtls"
    Action  : Set : ShowAdditionalDtls : NOT ##ShowAdditionalDtls
[System: Variable]
ShowAdditionalDtls
[Variable: ShowAdditionalDtls]

    Type        : Logical
    Volatile    : Yes
    Default     : No

[#Line: DBTitle1]
    Option          : DSPWithAddDtlsTitle  : @@DSPShowAddDtls
  
[!Line:DSPWithAddDtlsTitle]
Add : Right Fields : Before : DSP Vchnumbertitle : SuppInvNo,CarrierName,MotorVchno,OrderBy, Quantity, ActualQuantity
Add    : Right Field    : At Beginning    :    SiteAdd,    CollectedAmount

[System:Formula]
DSPShowAddDtls            : ##ShowAdditionalDtls

[#Line: DSP VchDetail]
    Option: DSPShowAddVchDetail :  @@DSPShowAddDtls
  
[!Line:DSPShowAddVchDetail]
Add : Right Fields : Before : DSP VchNumber : SuppInvRef,CarrierNameRef,MvNo,OrderByy,MyQtytotal,ActualQtyInfo
Add    : Right Field    : At Beginning    :    Site Addresss, CollectedAmountInfo

 

Sorry For posting. its working Now.