Perguntas MSDIALOG Duvidas

Prezados, Bom dia!

Sou novo no fórum e estou precisando de uma ajuda de vocês.

Estou criando uma rotina de reprovação com MSDIALOG, o visual está pronto porem estou quebrando a cabeça em como fazer um MSGET receber informações de digitação do usuario.

Voces poderiam me ajudar?

Abaixo segue o programa, onde preciso que pegue o que o usuario escrever esta em negrito.

User Function reprova()
Local DLgConUsr := "000001"
Private cGetMot := ""


DEFINE MSDIALOG oDlg TITLE "Reprova Solicitação de Compras" FROM 000, 000 TO 200, 500 PIXEL

@ 002, 004 GROUP oGrp TO 40, 250 PROMPT "Dados da Solicitação de Compras" OF oDlg PIXEL

@ 012, 009 SAY oForn PROMPT "Cod. SC:" SIZE 029, 007 OF oDlg PIXEL
@ 012, 030 SAY DLgConUsr SIZE 018, 030 COLOR CLR_BLUE PIXEL OF oDlg

@ 012, 087 SAY oData PROMPT "Data:" SIZE 018, 007 OF oDlg PIXEL

@ 012, 100 Say DLgConUsr Size 018, 030 COLOR CLR_BLUE PIXEL OF oDlg

@ 042, 004 GROUP oGrp TO 75, 250 PROMPT "Motivo" OF oDlg PIXEL

@ 050, 009 MSGET oGetForn VAR cGetmot WHEN .T. SIZE 240, 15 OF oDlg PIXEL

@ 80, 168 BUTTON oBtnGravar PROMPT "Gravar" SIZE 037, 012 OF oDlg ACTION GravaDados() PIXEL
@ 80, 210 BUTTON oBtnLimpar PROMPT "Limpar" SIZE 037, 012 OF oDlg ACTION Limpa() PIXEL

ACTIVATE MSDIALOG oDlg CENTERED

Return

Seja bem vindo Samuel,

O que acho que faltou ai declarar a variável com o tamanho da get.

Para usar o valor você pode colocar alguma função no VALID ou depois do ACTIVE.

Segue um exemplo....

Local cChave := Space(44)

@ C(023),C(040) MsGet oChave Var cChave Size C(110),C(008) COLOR CLR_BLACK VALID (if(Empty(cChave),.F.,MsgRun("Buscando XML, aguarde...","Busca XML",{||BUSCANFE(cChave) }))) Picture "@!" PIXEL OF oDlg

Abraços,

Cara, Muito Obrigado.

Tah uma correria aqui que esque ci de declara o tamanho do campo.

Valew mesmo!

Abraços