Cancelamento de nota fiscal utilizando o método de cancelamento por chave nfe

[[Bruno]]

Boa tarde, estou utilizando método cancelamento de nota fiscal pela chave passando seguinte comando:

ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.Evento.New.infEvento.chNFe            := pCODVERIFICACAO;
ACBrNFe1.EventoNFe.Evento.New.infEvento.CNPJ             := pCNPJCERT;
ACBrNFe1.EventoNFe.Evento.New.infEvento.dhEvento         := pDTCANCELAMENTO;
ACBrNFe1.EventoNFe.Evento.New.infEvento.tpEvento         := teCancelamento;
ACBrNFe1.EventoNFe.Evento.New.infEvento.detEvento.xJust  := pMOTIVOCANCELAMENTO;
ACBrNFe1.EventoNFe.Evento.New.infEvento.detEvento.nProt  := pPROTOCOLONF;
ACBrNFe1.EnviarEvento(1);

o conteúdo paramento "pCODVERIFICACAO" é o conteudo da tag <chNFe> 5320100226582300017455001000230305100017568301

porém estou tendo o seguinte erro:

Falha na validação da Mensagem do Evento: 'ID-999995320100226582300017455001000230305100017568301' violates pattern constraint of 'ID[0-9]{52}'.
The attribute 'Id' with value 'ID-999995320100226582300017455001000230305100017568301' failed to parse.

notei que na mensagem de erro é acrescentado alguns dígitos "9" na frente

para teste mandei o numero da mensagem tive o mesmo retorno porem com mais dígitos "9" no inicio

Falha na validação da Mensagem do Evento: 'ID-99999999995320100226582300017455001000230305100017568301' violates pattern constraint of 'ID[0-9]{52}'.
The attribute 'Id' with value 'ID-99999999995320100226582300017455001000230305100017568301' failed to parse.

 

[Juliomar Marchetti]

Testa com o exemplo do svn

[BigWings]

Está chamando várias vezes o método New. Isso cria um evento no lote pra cada chamada.

Use:

with ACBrNFe1.EventoNFe.Evento.New do
begin
 [...]

Ou:

var
  eventoNFe: TInfEventoCollectionItem;
begin
  eventoNFe := ACBrNFe1.EventoNFe.Evento.New;
  eventoNFe.infEvento.chNFe := ...

 

[[Bruno]]

Agora, BigWings disse:

Está chamando várias vezes o método New. Isso cria um evento no lote pra cada chamada.

Use:

with ACBrNFe1.EventoNFe.Evento.New do
begin
 [...]

Ou:

var
  eventoNFe: TInfEventoCollectionItem;
begin
  eventoNFe := ACBrNFe1.EventoNFe.Evento.New;
  eventoNFe.infEvento.chNFe := ...

 

Bom dia, obrigado era exatamente isso!