Perguntas Gravação de campo

Bom dia estou tentando gravar um campo via ponto de entrada porém não grava. Segue o fonte

//////////////////////////////////////////////////////////////////////////////////////////////
//+

---

+//
//| PROGRAMA |Campos no cabeçalho | AUTOR | GUSTAVO.RODRIGUES | DATA | 11/11/2014 |//
//+

---

+//
//| DESCRICAO | Funcao - MT110TEL - Ponto de entrada do cabeçalho da S.C |//
//| | Fonte ultilizado na rotina de compras. |//
//| | Fonte mostra os e-mail envolvidos na solicitação de compras e incluio campo|//
//| | de observação para uma melhor visualização |//
//+

---

+//
//| MANUTENCAO DESDE SUA CRIACAO |//
//+

---

+//
//| DATA | AUTOR | DESCRICAO |//
//+

---

+//
//| | | |//
//+

---

+//
//////////////////////////////////////////////////////////////////////////////////////////////

#Include 'Protheus.ch'

User Function MT110TEL()

Local oGet01
Local oGet02
Local oGet03
Local oGet04
Local oGet05

Local oNewDialog := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local nOpcX := PARAMIXB[3]
Local nReg := PARAMIXB[4]

Public cEmail01 := USRRETMAIL(RETCODUSR()) // Retorna o e-mail do solicitante.
Public cEmail02 := SC1->C1_XEMAIL // Retorna o e-mail do comprador.
Public cEmail03 := SC1->C1_XEMAIL2 // Retorna o e-mail 1º e-mail alternativo.
Public cEmail04 := SC1->C1_XEMAIL3 // Retorna o e-mail 2º e-mail alternativo.
Public cObserv := SC1->C1_XOBS // Campo observação.

nOpcx == 3 // Inclusão

aadd(aPosGet[1],0)
aadd(aPosGet[1],0)

//Monta os campos.

@ 32,023 Say 'E-mail solicitante' Pixel Size 40,9 Of oNewDialog
@ 32,078 MSGET oGet01 Var cEmail01 Size 092, 011 Picture '@A' Of oNewDialog When .F. Pixel

@ 32,0250 Say 'E-mail comprador' Pixel Size 50,11 Of oNewDialog
@ 31,0305 MSGET oGet02 Var cEmail02 Size 092, 011 Picture '@A' Of oNewDialog When .F. Pixel

@ 32,0490 Say 'E-mail altern 1' Pixel Size 40,9 Of oNewDialog
@ 31,0575 MSGET oGet03 Var cEmail03 Size 092, 011 Picture '@A' Of oNewDialog When .F. Pixel

@ 47,023 Say 'Email altern 2' Pixel Size 40,9 Of oNewDialog
@ 48,078 MSGET oGet04 Var cEmail04 Size 092, 011 Picture '@A' Of oNewDialog When .F. Pixel

@ 47,265 Say 'Observação' Pixel Size 40,11 Of oNewDialog
@ 48,305 MSGET oGet05 Var cObserv Size 0250,011 Picture '@A' Of oNewDialog Pixel

//Fim do programa

Return

//////////////////////////////////////////////////////////////////////////////////////////////
//+

---

+//
//| DATA | AUTOR | DESCRICAO |//
//+

---

+//
//| 11/11/2014 | GUSTAVO.RODRIGUES | Grava o campo de observações. |//
//+

---

+//
//////////////////////////////////////////////////////////////////////////////////////////////

User Function MT110GRV(cObserv)

RecLock('SC1',.F.)

SC1->C1_XOBS := cObserv

SC1->(MsUnlock())

Return

//////////////////////////////////////////////////////////////////////////////////////////////
//+

---

+//
//| DATA | AUTOR | DESCRICAO |//
//+

---

+//
//| 11/11/2014 | GUSTAVO.RODRIGUES | Fonte manipula as dimensões do cabeçalho da S.C |//
//+

---

+//
//////////////////////////////////////////////////////////////////////////////////////////////

User Function MT110GET()

Local aRet:= PARAMIXB[1]

aRet[2,1] := 70
aRet[1,3] := 100

Return(aRet)