Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 4607 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • 1 mês depois ...
Postado

Senhores estou tentando enviar uma Carta de Correção, utilizando o código abaixo

lcin_SeqEvento := 0;

ACBrNFe.CartaCorrecao.CCe.Evento.Clear;

ACBrNFe.CartaCorrecao.CCe.idLote := CCe.FieldByName( 'CAC_PK_CARTACORRECAO' ).AsInteger;

ItemCCe.First;

//while not ItemCCe.Eof do

//begin

Inc( lcin_SeqEvento );

with ACBrNFe.CartaCorrecao.CCe.Evento.Add do

begin

// AMBIENTE PRODUTO/HOMOLOGACAO //

if utst_IDAmbiente = utco_Ambiente_Producao then

infEvento.tpAmb := taProducao

else if utst_IDAmbiente = utco_Ambiente_Homologacao then

infEvento.tpAmb := taHomologacao;

// CHAVE //

infEvento.chNFe := CCe.FieldByName( 'NFS_NUMERO_DANFE' ).AsString;

infEvento.cOrgao := Empresa.FieldByName( 'CII_CODIGO_UF' ).AsInteger;//StrToInt(codOrgao); 90 para hambiente nacional

infEvento.CNPJ := Trim( Retorna_Numeros( Empresa.FieldByName('EMP_CNPJ' ).AsString ));

infEvento.dhEvento := CCe.FieldByName( 'CAC_DT_INCLUSAO' ).AsDateTime;

infEvento.tpEvento := 110110; // DETERMINADO PELO MANUAL DA SEFAZ 1.01 MAIO 2011

infEvento.nSeqEvento := lcin_SeqEvento; //

infEvento.versaoEvento := '1.00';

infEvento.detEvento.descEvento := 'Carta de Correcao'; // DETERMINADO PELO MANUAL DA SEFAZ 1.01 MAIO 2011

infEvento.detEvento.xCorrecao := ItemCCe.FieldByName( 'ICC_DESCR_ITEM_RETIFICADO' ).AsString;

infEvento.detEvento.xCondUso := lcco_UsoCCe; //Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/ex ... iloeZ6vBw=

end;

//ItemCCe.Next;

//end;

ACBrNFe.CartaCorrecao.CCe.GerarXML;

ACBrNFe.EnviarCartaCorrecao(CCe.FieldByName( 'CAC_PK_CARTACORRECAO' ).AsInteger);

lcin_Status := ACBrNFe.WebServices.CartaCorrecao.cStat;

lcst_ArqEnvio := ACBrNFe.WebServices.CartaCorrecao.PathArqEnv;

lcst_ArqEnvio := ACBrNFe.WebServices.CartaCorrecao.PathArqResp;

utme_RetornoWS := UTF8Encode(ACBrNFe.WebServices.CartaCorrecao.RetWS);

Mas estou recebendo a msg:

** Outra duvida:

1º Como inclui varios correções para mesma nota ?

2º Como imprimir a CCe ?

***

  • Este tópico foi criado há 4607 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...