Payment Status Update With the help of button

Dear Experts I am making an option Of payment Status IN outstanding Report , in which i am given a button set remark, on pressing of button a form open which i am given a status of payment, & then i am given an field in outstanding report (Bill Wise) i just want to update the payment status from this button ...


Pls help mee on this



[#Field: DSP Contacts]

Add : Field : After : DSP TelephoneNo : DSP follow
Local : Field : DSP DispName : Width :IF ##IsGrpBillReport AND (##DSPContactDetails OR ##ContactDetails) THEN 30 ELSE 0
[Field: DSP follow]

Set as : $Narration
Full Width:Yes;Width : If $$InPrintMode Then 18 Else 20
Indent : 1
Invisible :##ShowInterest OR (IF $$InPrintMode THEN NOT ##ContactDetails ELSE (If NOT $$InDisplayMode THEN NOT ##ContactDetails ELSE NOT ##DSPContactDetails))
Background:lily white

; [System: Formula]
;
;
; DSPLedContactNo1 : $$Sprintf:$Narration:$LedgerPhone:$LedgerMobile

[#Line: DSP ContactDetailsTitle]
Add:Field:AfterSP TelephoneNoTitle:follow1
;Add:Right Field:At End:follow1
[Field:follow1]

Width : If $$InPrintMode Then 18 Else 20
Set as : $$LocaleString:"Outstanding Remark"
Style : Small Bold
;Border : Thin Left
Align : Centre
Invisible : ##ShowInterest OR (IF $$InPrintMode THEN (NOT ##ContactDetails) ELSE (IF NOT $$InDisplayMode THEN NOT ##ContactDetails ELSE NOT ##DSPContactDetails))
Border:thick left right
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[#Form: Group Outstandings]
Add:Button:remark , status

[Button:remark]
Action:Trigger Key:F12,ENTER,ENTER,Y,ENTER,ENTER,ENTER,ENTER,ENTER,ENTER
Title:"Show Remark"
Key:Alt+z

[Button:status]

Title:"Set Remark"
Key:Alt+s
Action:Alter:status

[Report:status]
Form:status

[Form:status]
Part:status

Space Left:2 MMS
Space Right: 2 MMS
[Part:status]

Left Part:status1
[Part:status1]
Line:status , status1
[Line:status]
Field:NAME FIELD
Local:Field:NAME FIELD:Info:$$LocaleString:" Set Remark"

[Line:status1]
Field:status1
[Field:status1]
Use:Name field
Set as:$$Value
Full Width:Yes
Variable : MYTESTRPT32
Modifies : MYTESTRPT32 ;:yes
Set asMYSMLT12
MYSMLT12 : IF ##MYTESTRPT32 ="" OR $$Value:##MYTESTRPT32 THEN $$Value ELSE ##MYTESTRPT32
[Variable:MYTESTRPT32]
Type:String
[System:Variables]
MYTESTRPT32:""

[Collection:abc]
Data Source:Report:selected lines
Fetch:BILLRef




[#Line: DSP ContactDetails]
Fields : Medium Prompt, Logical Field
Local : Field : Medium Prompt : Info : $$LocaleString:"Show Contact & Follow up Details ?"
Local : Field : Logical Field : Modifies : DSPContactDetails
Invisible : ##ShowInterest

;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;[#Line: BILLWithDates]
; Add:Right Field:After:BILLOverdue:bill2

[Field:bill2]
Set as : ##MYTESTRPT32;$Narration:ledger:$ledgername
Full Width:Yes;Width : If $$InPrintMode Then 18 Else 20
Indent : 1
;Space Left:20
Background:lily white

[#Line: BILL Detail]
Add:Field:bill2