CT-e de Substituição - Componente

[Italo Giurizzato Junior]

Olá pessoal,

Para quem utiliza o componente ACBrCTe e necessita emitir um CT-e de Substituição deve alimentar os seguintes campos:

Vamos a estrutura completa:

with infCTeNorm.infCteSub do
begin
  chCte         := chaveCTeOriginal;
  indAlteraToma := tiNao ou tiSim;  // Se atribuir tiSim significa que foi alterado o tomador
  
  // Para tomador contribuinte do ICMS
  tomaICMS.refNFe := chaveNFe; // NF-e de anulação emitenta pelo tomador

  // ou informações da Nota Fiscal comum de papel emitida pelo tomador
  tomaICMS.refNF.CNPJCPF  := sCNPJCPF;
  tomaICMS.refNF.modelo   := sModelo;
  tomaICMS.refNF.serie    := iSerie;
  tomaICMS.refNF.subserie := iSubSerie;
  tomaICMS.refNF.nro      := iNumero;
  tomaICMS.refNF.valor    := vValor;
  tomaICMS.refNF.dEmi     := DataEmissao;

  // ou a chave do CT-e emitido pelo tomador quanto este for uma transportadora
  tomaICMS.refCte := ChaveCTeTomador;

  // caso tenha sido emitido o CT-e de Anulação informar a chave do mesmo no campo abaixo
  refCteAnu := ChaveCTeAnulacao; 
end;

Exemplo 1: Caso tenha sido emitido um CT-e de Anulação

with infCTeNorm.infCteSub do
begin
  chCte         := chaveCTeOriginal;
  indAlteraToma := tiNao ou tiSim;  // Se atribuir tiSim significa que foi alterado o tomador
  
  // CT-e de Anulação informar a chave do mesmo no campo abaixo
  refCteAnu := ChaveCTeAnulacao; 
end;

Exemplo 2: Caso o tomador tenha emitido uma NF-e de Anulação

with infCTeNorm.infCteSub do
begin
  chCte         := chaveCTeOriginal;
  indAlteraToma := tiNao ou tiSim;  // Se atribuir tiSim significa que foi alterado o tomador
  
  // Para tomador contribuinte do ICMS
  tomaICMS.refNFe := chaveNFe; // NF-e de anulação emitenta pelo tomador
end;

Exemplo 3: Caso o tomador tenha emitido uma Nota Fiscal comum de papel

with infCTeNorm.infCteSub do
begin
  chCte         := chaveCTeOriginal;
  indAlteraToma := tiNao ou tiSim;  // Se atribuir tiSim significa que foi alterado o tomador
  
  // Informações da Nota Fiscal comum de papel emitida pelo tomador
  tomaICMS.refNF.CNPJCPF  := sCNPJCPF;
  tomaICMS.refNF.modelo   := sModelo;
  tomaICMS.refNF.serie    := iSerie;
  tomaICMS.refNF.subserie := iSubSerie;
  tomaICMS.refNF.nro      := iNumero;
  tomaICMS.refNF.valor    := vValor;
  tomaICMS.refNF.dEmi     := DataEmissao;
end;

Exemplo 4: Caso o tomador seja uma transportadora e tenha emitido um CT-e

with infCTeNorm.infCteSub do
begin
  chCte         := chaveCTeOriginal;
  indAlteraToma := tiNao ou tiSim;  // Se atribuir tiSim significa que foi alterado o tomador
  
  // chave do CT-e emitido pelo tomador quanto este for uma transportadora
  tomaICMS.refCte := ChaveCTeTomador;
end;