No Change Background

Happy Holi 2021 in advance all expert and members.

I want background change by query box but not changing plz chack where mistack me.

Code:

[#Menu:GateWayOfTally] 
    

    Add : Button : Change Background Btn
   
[Button: Change Background Btn ]

    Title: "Change Bgrnd "
    Key : Ctrl + B
    Action : Call: Change Background call


       
[Function: Change Background call]

    Variable    : SelectedIndex        : Number
    00    : Set            : SelectedIndex            : $$LastResult
    10 : QUERYBOX : "you want Change Background ?" : Yes:No
    20 : IF : Not $$LastResult
    30 :    Continue
   
    40 : ENDIF
   
    50 : Query Box Ex : Change Background  Box

    60 : Display : Change Background
   
   
   
[Query Box: Change Background  Box]

    Title            : "Change Background Query Box"
    Horizontal Align    : Center
    Vertical Align        : Top   

    Default            : 1     : 4   
    Gray Background        : No
   
    Query            : B    : "Accept Blue"     : "Change Blue Background"
    Query            : Y    : "Accept Yellow"     : "Change Yellow Background"
        Query            : R     : "Accept Red"             : "Change Red Background"
    Query            : N    : "Back"         : "Cancel Background"



[Report: Change Background ]
  
    Form    :    Change Background
    Variable : ChangeBackgroundNumber       : Number    : 0

[Form: Change Background ]
  
    Part   :    Change Background    
       

    VerticalAlign   : Center
    HorizontalAlign : Center

   
    Width   : 30% Page
Control Ex    : Change Background  Box :  ##ChangeBackgroundNumber    = 1    : SelectedIndex
Control Ex    : Change Background  Box :  ##ChangeBackgroundNumber    = 2    : SelectedIndex
Control Ex    : Change Background  Box :  ##ChangeBackgroundNumber    = 3    : SelectedIndex
Control Ex    : Change Background  Box :  ##ChangeBackgroundNumber    = 4    : SelectedIndex

   
   
[Part: Change Background ]


    Line    :    Change Background
   
   

[Line: Change Background ]
  
   
    Field: Change Background
   

[Field: Change Background ]

Use   : Name Field
Set as: "Happy Holi 2021"
Align : Center
;Color : White
Full Width: Yes
Style : Large Bold Italic

 

anyone expert help plz

 

plz any expert chack and solved my problem

 

Code:

Hear Change my code but still not woek plz chack and help me

[#Menu:GateWayOfTally] 
    

    Add : Button : Change Background Btn
   
[Button: Change Background Btn ]

    Title: "Change Bgrnd "
    Key : Ctrl + B
    Action : Call: Change Background call


       
[Function: Change Background call]

    Variable    : SelectedIndex        : Number
    00    : Set            : SelectedIndex            : $$LastResult
    10 : QUERYBOX : "you want Change Background ?" : Yes:No
    20 : IF : Not $$LastResult
    30 :    Continue
   
    40 : ENDIF
   
    50 : Query Box Ex : Change Background  Box

    60 : Display : Change Background
   
   
   
[Query Box: Change Background  Box]

    Title            : "Change Background Query Box"
    Horizontal Align    : Center
    Vertical Align        : Top   

    Default            : 1     : 4   
    Gray Background        : No
   
    Query            : B    : "Accept Blue"     : "Change Blue Background"
    Query            : Y    : "Accept Yellow"     : "Change Yellow Background"
        Query            : R     : "Accept Red"             : "Change Red Background"
    Query            : N    : "Back"         : "Cancel Background"



[Report: Change Background ]
  
    Form    :    Change Background
    Variable : ChangeBackgroundNumber       : Number    : 0

[Form: Change Background ]
  
    Part   :    Change Background    
       

    VerticalAlign   : Center
    HorizontalAlign : Center

   
    Width   : 30% Page
Control Ex    : Change Background  Box :      @@IsBlueBackground    : Set    : vUserWarningNumber : 1
Control Ex    : Change Background  Box :      @@IsyellowBackground    : Set    : vUserWarningNumber : 2
Control Ex    : Change Background  Box :      @@IsRedBackground    : Set    : vUserWarningNumber : 3

   
   
[Part: Change Background ]


    Line    :    Change Background
   
   

[Line: Change Background ]
  
   
    Field: Change Background
   

[Field: Change Background ]

Use   : Name Field
Set as: "Happy Holi 2021"
Align : Center
Full Width: Yes
Style : Large Bold Italic

Background  : ##vUserWarningNumber



[System: formula]

IsBlueBackground  : $$LocaleString:"Blue"
IsyellowBackground: $$LocaleString:"Yellow"
IsRedBackground   : $$LocaleString:"Red"

 

happy Holi all members and expert
help plz my problem

 

My Problem is hear "B" accept then field backgroun change Blue
if "Y" accept then yellow
if "R" accept then Red
if "N" accept then "Cancel Background"

 

Hi any expert help me plz

 

whate Isn't there any expert who can solve this type of problem

 

Help me above code plz

 

amit sir pls solev my problem