Do Case
Case This.Caption="EDIT"
	This.Caption = "Save"  
	Thisform.command30.Enabled = .T.
	Thisform.SetAll("Enabled",.T.,"textbox") 
	Thisform.SetAll("Enabled",.T.,"COMBObox") 
		Thisform.COMMAND18.Enabled=.t. 
		
Case This.Caption = 'Save'
	This.Caption = 'EDIT'
	cAlias = Thisform.DataEnvironment.InitialSelectedAlias
	Select (cAlias)
	If CursorGetProp("Buffering")> 1 
		=Tableupdate(1,.T.,cAlias)
IF thisform.text12.Value=("x")
REPLACE PRIOR WITH 1
ENDIF

IF thisform.text13.Value=("x")
REPLACE PRIOR WITH 2
ENDIF

IF thisform.text14.Value=("x")
REPLACE PRIOR WITH 3
ENDIF
	Thisform.SetAll("Enabled",.F.,"textbox") 
 
	Endif
	Thisform.command30.Enabled = .T.
	Thisform.SetAll("Enabled",.F.,"textbox") 
    ENDCASE