Perguntas Ponto de Entrada FRTEntreg

Prezados este ponto de entrada não funciona como deveria. É informado n a documentação do TDN que são passadas diversas variáveis e arrays, no entanto nenhum deles é reconhecido no código fonte. Alguém tem um exemplo desse ponto de entrada que funcione? Preciso alterar a informação do campo L1_NSUTEF que geralmente é informado "" neste caso criei uma tela para que o usuário informe o valor desse campo que deveria ser gravado no array aDadosTef na posição [9][1] ... Grato. Segue esboço de fonte que estou criando:

#Include 'Protheus.ch'
//

---

/*/{Protheus.doc} FRTENTREG
Description

@param
@return Arrays e Variáveis alteradas
/*/
//

---

User Function FRTENTREG (cNCartao , cCodDEP , cNomeDEP , aPgtos ,;
nDinheiro, nCheques, nCartao , nFinanciado ,;
nConvenio, nVales , nValorDebi, nOutros ,;
aTefDados)

If (nCartao>0 .OR. nValorDebi>0).AND. aTefDados[9][1]=''
U_LerNSU()
Endif
Return
//

---

/*/{Protheus.doc} LerNSU
Description

@param xParam Parameter Description
@return xRet Return Description
/*/
//

---

User Function LerNSU()
Local oButton1
Local oGet1
Local oSay1
Private cGet1 := ''
Static oDlg

DEFINE MSDIALOG oDlg TITLE "Informar NSU" FROM 000, 000 TO 500, 500 COLORS 0, 16777215 PIXEL

@ 041, 018 SAY oSay1 PROMPT "Informe o NSU desta venda:" SIZE 077, 011 OF oDlg COLORS 0, 16777215 PIXEL
@ 038, 096 MSGET oGet1 VAR cGet1 SIZE 110, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 058, 129 BUTTON oButton1 PROMPT "Confirma" SIZE 076, 012 OF oDlg ACTION u_GravaNSU(cGet1) PIXEL

ACTIVATE MSDIALOG oDlg CENTERED ON INIT 1
Return

//

---

/*/{Protheus.doc} GravaNSU
Description

@param cNSU NSU para gravação
@return xRet Return Description
/*/
//

---

User Function GravaNSU(_cNSU)
aTefDados[9][1]:= _cNSU
/* RecLock( "SL1", .F. )
L1_NSUTEF := _cNSU
MsUnlock("SL1")
RecLock( "SL4", .F. )
L4_NSUTEF := _cNSU
MsUnlock("SL4")
aTefDados[9][1]:=_cNSU
*/
Return