Problema ao enviar CC-e.

[Eisenheim]

Bom dia pessoal!

Realizando alguns testes, me deparei com a seguinte situação utilizando os recursos do componente:

Ambos em ambiente de homologação

Consulto o cadastro de um cliente com o método: ACBrNFe.WebServices.ConsultaCadastro.Executar

Em seguida vou fazer uma carta de correção, e ai o sistema fica travado no método: ACBrNFe.EnviarCartaCorrecao( Sequencia )

Alguém teve esse mesmo problema?

[ricardo_casc]

e se Não consultar o cadastro ?

[Eisenheim]

Quando não faço a consulta a carta de correção transmite normal.

Até+

[lecojales]

Pegando uma carona para não abrir um novo tópico.

Eu utilizo o acbnfemonitor, e gostaria de saber como fazer Carta de Correção nele, já pesquizei aqui, mas não encontrei respostas, pois pelo jeito o pessoal usa o componente direto do delphi.

Obrigado pela ajuda.

Leco de Jales

[Kiko Fernandes]

Eu utilizo o acbnfemonitor, e gostaria de saber como fazer Carta de Correção nele, já pesquizei aqui, mas não encontrei respostas, pois pelo jeito o pessoal usa o componente direto do delphi.

http://anfm.blogspot.com.br/2011/09/nova-versao-071a-do-acbrnfemonitor.html

Depois faça uma consulta no forum, que existem vários tópicos tratando do assunto.

[clebervn]

// carta de correção eletrônica

@ 14,04 say "Chave................:" get cChaveNfe pict "@!"

clear gets

@ 15,04 say "Correcao.............:" get vc_carta1 pict "@!"

@ 16,04 say "[:]separa correcao " get vc_carta2 pict "@!"

read

lCarta := f_CartaCor(cChaveNfe,vc_carta1,vc_carta2)

// funçao f_CartaCor

function f_CartaCor(cChaveNfe,vc_carta1,vc_carta2)

// CARREGAR VARIÁVEIS

// ( - Identificadores da NF-e

BcUf = * código do estado * (ex: SC = 42)

cChaveNfe = * chave eletrônica do arquivo *

cCnpj = * CNPJ da empresa * (não é do cliente)

cTextoCor := ""

cTextoCor := '"[CCE]'+chr(13)+chr(10)+;

'idLote=2'+chr(13)+chr(10)+;

'[EVENTO001]'+chr(13)+chr(10)+;

'chNFe='+cChaveNfe+chr(13)+chr(10)+;

'cOrgao='+BcUF+chr(13)+chr(10)+;

'CNPJ='+cCnpj+chr(13)+chr(10)+;

'dhEvento='+dtoc(date())+" "+time()+chr(13)+chr(10)+;

'nSeqEvento=1'+chr(13)+chr(10)+;

'xCorrecao='+alltrim(vc_carta1)+iif(!empty(vc_carta2),' '+alltrim(vc_carta2),'')+chr(13)+chr(10)+;

'xCondUso=A Carta de Correcao e disciplinada pelo paragrafo 1o-A do art. 7o do Convenio S/N, '+;

'de 15 de dezembro de 1970 e pode ser utilizada para regularizacao de erro ocorrido na emissao 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, diferenca de 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 ou de saida."'

arqENT := (caminho acbrnfe) + "entnfe.txt"

arqSAI := (caminho acbrnfe) + "sainfe.txt"

fErase( arqSAI)

setprc(0,0)

set device to print

set print to &arqENT

@ prow(),0 say 'NFE.CARTADECORRECAO('+cTextoCor+')'

@ prow()+1,0 say ''

set print to

set device to screen

status1 := Space(1)

status2 := Space(1)

vOk := ""

vOk := f_NfeSai(@vOk)

//vOk := "OK"

if vOk == "OK"

dbox("Carta de Correcao aceita com sucesso !",12,10,3)

return .t.

else

dbox("Problema na carta de correcao da NF-e !",12,10,3)

return .f.

endif