Perguntas MT100TOK

Pessoal, boa tarde.
Editei o ponto de entrada MT100TOK e ao executálo retorna o seguinte erro: TOTVS Build 7.00.121227P-20131011
THREAD ERROR ([14816], olair, OLAIR-CPD) 27/01/2014 16:27:12
Failed to load function U_MT100TOK at program MT100TOK.PRW in file .\localenv.cpp at line 519
on EXISTBLOCK(APLIB190.PRW) 18/03/2013 17:32:40 line : 418


Alguém saberia a cauda do problema ?

Obrigado à todos.

Olair

Ola, Boa tarde !

Posta ai pra gente o seu Código !

att

Bom dia.

Segue o codigo:




#INCLUDE "PROTHEUS.CH"

User Function MT100TOK()

Local cChvNFe := ""
Local nI := 0

nArea:=GetArea()

xEspecie1:= aNFEDanfe[4]
xEspecie2:= aNFEDanfe[6]
xEspecie3:= aNFEDanfe[8]
xEspecie4:= aNFEDanfe[10]
cChvNFe := aNFEDanfe[13]


If (AllTrim(xEspecie1) $ "SPED/CTE") .OR. (AllTrim(xEspecie2) $ "SPED/CTE") .OR. (AllTrim(xEspecie3) $ "SPED/CTE") .OR. (AllTrim(xEspecie4) $ "SPED/CTE")

If Empty(cChvNFe)
MsgAlert("É obrigatório o preenchimento do campo " + AllTrim(GetSX3Cache("F1_CHVNFE","X3_TITULO")) + ". Verifique a aba Informações DANFE.",FunName())
Return (.F.)
Else
If Len(cChvNFe) < TamSx3("F1_CHVNFE")[1]
MsgAlert("Conteúdo do campo " + AllTrim(GetSX3Cache("F1_CHVNFE","X3_TITULO")) + " inválido. Verifique a aba Informações DANFE.",FunName())
Return (.F.)
Else
For nI := 1 to Len(cChvNFe)
If !(SubStr(cChvNFe,nI,1) $ "0123456789")
MsgAlert("Conteúdo do campo " + AllTrim(GetSX3Cache("F1_CHVNFE","X3_TITULO")) + " inválido. Verifique a aba Informações DANFE.",FunName())
Return (.F.)
EndIf
Next nI
EndIf
EndIf
EndIf


DBSELECTAREA("SE2")
IF RTRIM(M->d1_cod) = "26060000008"

IF RecLock("SE2",.f.)

REPLACE e2_zz_com WITH "S"

MsUnlock("SE2")
ENDIF
ENDIF

DBSELECTAREA(nArea)

Return(.T.)

Como corrigiu o problema?