Bom dia grupo;
Atualizei a versão Acbr-Monitor CAPICOM-0.8.12.0 e a Versão xml para 3.10
Aparentemente tudo em Ordem ja mas a Carta de Correção começou a dar erro
Será que algum teve algum problema parecido ?
STATIC Function EnviaDadosCCE()
LOCAL cOrigem := 'C:\ACBrNFeMonitor\entnfe.txt'
LOCAL cAux := ''
LOCAL cCorr := FormEmissorCCE.eTextoCorrecao.Value
LOCAL nHandle, cQuery
LOCAL i := FormEmissorCCE.cSeq.Value
* // Apaga Logs anteriores
ERASE "C:\ACBrNFeMonitor\sainfe.txt"
cAux :="[CCE]" +CRLF
cAux +="idLote="+AllTrim(Str(Val(FormEmissorCCE.tNotaFiscal.Value))) +CRLF
cAux+="[EVENTO001]" +CRLF
cAux+="chNFe="+AllTrim(FormEmissorCCE.tChave.Value) +CRLF
cAux+="cOrgao=35" +CRLF
cAux+="CNPJ="+Limpa_campo(mCNPJ) +CRLF
cAux+="dhEvento="+DTOC(DATE())+' '+TIME() +CRLF
cAux+="tpEvento=110110" +CRLF
cAux+="nSeqEvento="+StrZero(i,2) +CRLF
cAux+="versaoEvento='1.00'" +CRLF
cAux+="descEvento='Carta de Correcao'" +CRLF
cAux+="xCorrecao="+AllTrim(cCorr) +CRLF
cAux+="xCondUso=A Carta de Correcao e disciplinada pelo paragrafo 1o-A doart. 7o do Convenio S/N, de 15 de dezembro de 1970 e pode ser utilizada para regularizacao de erro ocorrido naemissao de documento fiscal, desde que o erro nao esteja relacionado com: I - as variaveis que determinam o valor do imposto tais como: base de calculo, aliquota, diferencade preco, quantidade, valor da operacao ou da prestacao; II - a correcao de dados cadastrais que implique mudanca do remetente ou do destinatario; III - a data de emissao oude saida."+CRLF
IF (nHandle := FCREATE(cOrigem, FC_NORMAL)) == -1
MsgInfo("File cannot be created:","ENTNFE.TXT")
Return
ENDIF
FWRITE(nHandle,"NFE.CartaDeCorrecao ("+cAux+")")
FCLOSE(nHandle)
RESULTADO:
NFE.CartaDeCorrecao ([CCE]
idLote=11105
[EVENTO001]
chNFe=35150343127570000150550010000111051000819459
cOrgao=35
CNPJ=43127570000150
dhEvento=04/03/2015 10:08:46
tpEvento=110110
nSeqEvento=01
versaoEvento='1.00'
descEvento='Carta de Correcao'
xCorrecao=Teste de Homologação
)