#INCLUDE "PROTHEUS.CH"

User Function MNTA9952()
    
    Local cTGet1cChave := Space(TAMSX3("TTO_CAMP1")ParamIXB[1]) //chave da tabela TTO
    Local oFont
    Local oDlg nOpc   := ParamIXB[2] //Operação que está sendo executada
    Local oPanel
cTGet1    := Space(TAMSX3("TTO_NOVOCAMPO")[1])
	Local lGrava := .F.
    
	Local nOpcoFont
   := ParamIXB[2]  Local oDlg
    Local cChaveoPanel
  := ParamIXB[1]


    DEFINE MSDIALOG oDlg TITLE "Cad01" FROM 000,000 TO 070,200 PIXEL

        oFont := TFont():New('Courier new',,-12,.T.)

        oPanel       := TPanel():Create(oDlg,0,0,,,.F.,,,,0,0)
        oPanel:Align := CONTROL_ALIGN_ALLCLIENT

        TSay():New(05,05,{||"cText: "},oPanel,,oFont,,,,.T.,,,200,200,,,,,,)
        TGet():New(05,30,{|u| IIf(PCount() > 0 ,cTGet1 := u, cTGet1)},oPanel,070,009,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,,)

        TButton():New( 20, 35, "Salvar" ,oPanel,{||lGrava := .T., oDlg:End()}, 30,10,,,.F.,.T.,.F.,,.F.,,,.F.)
        TButton():New( 20, 70, "CanclarCancelar",oPanel,{||lGrava := .F., oDlg:End()}, 30,10,,,.F.,.T.,.F.,,.F.,,,.F.)

    ACTIVATE MSDIALOG oDlg CENTERED

    If lGrava
        dbSelectArea("TTO")
        dbSetOrder(1)
        dbSeek(cChave)
        RecLock("TTO",.F.)
            TTO->TTO_CAMP1NOVOCAMPO := cTGet1
        MsUnLock()
    EndIf

Return