LVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11t_formretrieve..\libs\t_base.vcxformfrmStatusChangeHeight = 100 Width = 375 DoCreate = .T. Caption = "Status Change" WindowType = 1 cnewstatus = coldstatus = Name = "frmStatusChange" PROCEDURE Release DO CASE && Status has changed so return new status CASE thisform.cNewStatus = "Active" thisform.uReturnValue = "A" CASE thisform.cNewStatus = "Inactive" thisform.uReturnValue = "I" CASE thisform.cNewStatus = "Delete" thisform.uReturnValue = "D" OTHERWISE && Status has not changed so return old status DO CASE CASE thisform.cOldStatus = "Active" thisform.uReturnValue = "A" CASE thisform.cOldStatus = "Inactive" thisform.uReturnValue = "I" CASE thisform.cOldStatus = "Delete" thisform.uReturnValue = "D" ENDCASE ENDCASE ENDPROC PROCEDURE Init PARAMETERS lcStatus lcStatus = ALLTRIM(lcStatus) DO CASE CASE lcStatus = "A" thisform.cOldStatus = "Active" ThisForm.cmdActivate.enabled = .F. CASE lcStatus = "I" thisform.cOldStatus = "Inactive" ThisForm.cmdInactivate.enabled = .F. CASE lcStatus = "D" thisform.cOldStatus = "Delete" ThisForm.cmdDelete.enabled = .F. OTHERWISE MESSAGEBOX("Unknown status - Status will be changed to Inactive",48,"Status Change") thisform.cOldStatus = "Inactive" ThisForm.cmdInactivate.enabled = .F. ENDCASE ENDPROC  %Pe_U UTHISFORMRELEASEClick,11!) %rU#TDelete UTHISFORM CNEWSTATUSRELEASEClick,1a2C) %tU%TInactive UTHISFORM CNEWSTATUSRELEASEClick,12E) %rU#TActive UTHISFORM CNEWSTATUSRELEASEClick,1a2C)!Arial, 0, 9, 5, 15, 12, 13, 3, 0 ,PROCEDURE Click thisform.release ENDPROC frmStatusChangecnewstatus coldstatus t_label..\libs\t_base.vcxlabellblCurrantStatusfrmStatusChangeeCaption = "Current Status" Height = 16 Left = 89 Top = 16 Width = 84 Name = "lblCurrantStatus"  t_textbox..\libs\t_base.vcxtextboxtxtCurrentStatusfrmStatusChangehControlSource = "thisform.cOldStatus" Left = 185 ReadOnly = .T. Top = 12 Name = "txtCurrentStatus" t_commandbutton..\libs\t_base.vcx commandbutton cmdActivatefrmStatusChangePTop = 60 Left = 7 Caption = "\