Qual seria a chamada correta no método TXT2XML?
Method Txt2Xml(Txt, gerachavenfe,codigoseguranca) Class TVoNfeUtil2G
Local cRetTxt,oXmlDoc,hFile,nLen
Local nRet:=0,Mensagem:=""
Local QtdErros:=0
Local ErrosTxt
Local txtnumerado:=""
DEFAULT gerachavenfe := 1
DEFAULT codigoseguranca:="000000000"
If !File(Txt)
#IFDEF __DOS__
Alert("Arquivo nao encontrado ou TXT nao informado!"+CRLF+ProcName() )
#ELSE
MsgStop("Arquivo não encontrado ou TXT não informado!"+CRLF+ProcName(), CAPTION_MSG )
#ENDIF
Return( Nil)
Endif
hFile := FOpen(Txt)
nLen = FSeek( hFile, 0, FS_END )
FSeek( hFile, 0, FS_SET )
cRetTxt := Space(nLen)
ErrosTxt := Space(nLen)
FRead( hFile, @cRetTxt, nLen)
fClose(hFile)
//::cXml := ::oNFEUtil:Txt2Xml310(cRetTxt, gerachavenfe, codigoseguranca, txtnumerado, @nRet,@ErrosTxt,@QtdErros,@Mensagem)
::cXml := ::oNFEUtil:Txt2Xml2015003(cRetTxt, gerachavenfe, codigoseguranca, txtnumerado, @nRet,@ErrosTxt,@QtdErros,@Mensagem)
::cMensagem:=ErrosTxt
If nRet != 6901 .and.::lMensagem
::GeraLog(ErrosTXT)
#IFDEF __DOS__
Alert( Mensagem+" - "+CRLF+ProcName()+"-"+ErrosTXT )
#ELSE
NfeAlert(Mensagem+" - "+CRLF+ProcName()+CRLF+ErrosTXT,,,CAPTION_MSG,,IDI_HAND)
#ENDIF
Else
::cChaveNfe:=::PegaChaveAcesso(::cXml,1)
Endif
Return( ( nRet==6901) )