**On the form load**
PUBLIC M.EDIT_ON
m.EDIT_ON=.F.
=CURSORSETPROP("BUFFERING", 3, "COMPANY")
**CODE FROM THE COMMAND BUTTON FOR EDIT**

m.EDIT_ON = IIF(.COMMANDGROUP1.COMMAND3.CAPTION= "Edit", .T., .F.)

WITH THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1
	.COMMAND3.CAPTION= IIF(m.EDIT_ON, "Save", "Edit")
	.COMMAND1.VISIBLE= !m.EDIT_ON
	.COMMAND2.VISIBLE= !m.EDIT_ON
ENDWITH

THISFORM.PAGEFRAME1.PAGE1.SETALL("Readonly", IIF(m.EDIT_ON, .F. , .T.), "Textbox")

IF !EMPTY(THISFORM.PAGEFRAME1.PAGE4.TEXT7.VALUE)
	SELECT COMPANY
	REPLACE COMPANY.BILL_LADINGS WITH THISFORM.PAGEFRAME1.PAGE4.TEXT7.VALUE
ENDIF
*IF !EMPTY(THISFORM.PAGEFRAME1.PAGE2.TEXT11.VALUE)
* REPLACE COMPANY.CLINICS WITH THISFORM.PAGEFRAME1.PAGE2.TEXT11.VALUE
*ENDIF
=TABLEUPDATE()
ENDIF
THISFORM.REFRESH