Página 1 de 1

ERRO: ERRO: Nenhuma CC-e adicionada ao Lote

Enviado: 29 Jan 2013 11:14
por kleber.krb
Creio que assim como eu muitos aqui utilizam o ACBRNFEMonitor2.
Estou fazendo a CCE e ao enviar o arquivo me retorna o seguinte erro

ERRO: ERRO: Nenhuma CC-e adicionada ao Lote

mandei o arquivo dessa forma

NFE.CARTADECORRECAO([CCE]
idLote= 39
EVENTO[001]
chNFe=35121214148032000143550010000000391000000392
cOrgao=35
CNPJ=14148032000143
dhEvento=29/01/2013 11:13:12
nSeqEvento=1
xCorrecao=o texto correto da natureza da operacao é remessa garantia)

Tentei colocando aspas no inicio e no final e nem assim funcionou
Alguem pode me dar uma luz?
Obrigado

ERRO: ERRO: Nenhuma CC-e adicionada ao Lote

Enviado: 30 Jan 2013 16:46
por rochinha
Amiguinho,

Quem sabe meu trecho de codigo lhe dê uma luz:

Código: Selecionar todos

   dbSelectArea( "CCE" )
   OrdSetFocus( 1 )
   QuickScope( STR(M->IDPEDIDO,6,0) )
   dbGotop()
   nEvento    := 1
   descEvento := "Carta de Correcao"
   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."
   cCmd       := "[CCE]"+CRLF+;
                 "idLote="+alltrim(str(nIDNFE))+CRLF
   cCmd       := cCmd + ;
                 "[EVENTO"+strzero(nEvento,3)+"]"+CRLF+;
                 "chNFe="+cChaveNFe+CRLF+;
                 "tpAmb="+tpAmb+CRLF+;
                 "cOrgao="+cOrgao+CRLF+;
                 "CNPJ="+ClCNPJ+CRLF+;
                 "dhEvento="+DtoC(date()-1)+" "+time()+"-03:00"+CRLF+;
                 "tpEvento=10201"+cOrgao+CRLF+;
                 "nSeqEvento="+strzero(nEvento,2)+CRLF+;
                 "versaoEvento='1.00'"+CRLF+;
                 "descEvento='Carta de Correção'"+CRLF+;
                 "xCondUso=" + xCondUso + CRLF
   cCmd       := cCmd + "xCorrecao="
   xCorrecao  := ""
   do while .not. eof()
      xCorrecao  := xCorrecao + "Foi informado indevidamente "+alltrim(CCE->EVENTO)+", favor considerar "+alltrim(CCE->CORRECAO) + ";"
      skip
   enddo
   cCmd       := cCmd + xCorrecao