Perguntas MT110TEL

Algém tem um exemplo de como usar o ponto de entrada MT110TEL?

Att,

Consegui resolver o problema segue o fonte caso alguém precise.


#INCLUDE 'Protheus.ch'
#INCLUDE "rwmake.ch"

User Function MT110TEL()

Local oNewDialog := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local nOpcx := PARAMIXB[4]
Local nReg := PARAMIXB[4]
Local oGet1
Local oGet2

Public cEmail := Space(40)
Public cEmail2 := Space(40)

nOpcx == 3

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

@ 31,023 Say 'E-mail' Pixel Size 40,9 Of oNewDialog
@ 32,060 MSGET oGet1 Var cEmail Size 092, 011 Picture '@A' Of oNewDialog Colors 0, 16777215 Pixel

@ 32,0270 Say 'E-mail altern.' Pixel Size 40,9 Of oNewDialog
@ 31,0305 MSGET oGet2 Var cEmail2 Size 092, 011 Picture '@A' Of oNewDialog Colors 0, 16777215 Pixel

User Function MT110GET()

Local aRet:= PARAMIXB[1]

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

Return(aRet)

Static Function gravaemail()

DbSelectArea('SC1')
DbSetOrder(1)

If Inclui()

RecLock('SC1',.T.)

SC1->C1_XEMAIL := cEmail


SC1->(MsUnlock())

EndIf

Return