>IF invoice.status = "FINI" > thisform.pageframe1.page1.basecont1.grdbase1.Enabled = .F. >ELSE > thisform.pageframe1.page1.basecont1.grdbase1.Enabled = .T. >ENDIF >>
>IF invoice.status = "FINI" > thisform.pageframe1.page1.basecont1.grdbase1.ReadOnly = .T. >ELSE > thisform.pageframe1.page1.basecont1.grdbase1.ReadOnly = .F. >ENDIF >a little improvement
thisform.pageframe1.page1.basecont1.grdbase1.Enabled = Not (invoice.status = "FINI")
DO WHILE .T. ME.Work() ENDDO