Perguntas Alterar parametro

Olha não testei, mas já adianto isso é meio perigoso rsrs

User Function MUDADTFIN()
Local oDlg
Local oBut1
Local oBut2
Local oDt
Local dDataFin := GetMV("MV_DATAFIN")
Local _lRet := .F.

DEFINE MSDIALOG oDlg FROM 050,100 TO 160,430 TITLE OemToAnsi("Alteração de Data Financeiro Fechamento") PIXEL

@ 005,002 TO 035,165 LABEL "Data Fechamento" OF oDlg PIXEL
@ 015,005 MSGET oDt VAR dDataFin Picture "99/99/9999" Valid NAOVAZIO() SIZE 060,010 Of oDlg PIXEL

@ 038,070 BUTTON oBut1 PROMPT ("&Ok") SIZE 044,012 Of oDlg PIXEl Action (_lRet := .t. , oDlg:End() )
@ 038,120 BUTTON oBut2 PROMPT ("&Cancela") SIZE 044,012 Of oDlg PIXEl Action (_lRet := .F. , oDlg:End() )

ACTIVATE MSDIALOG oDlg

If _lRet
PutMV("MV_DATAFIN",dDataFin)
Endif

Return .t.