>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 > >>