Rejeição MDFe - Dados incompletos da seguradora.

[Michel Simões]

Boa tarde.

Pessoal, estou com dificuldades para terminar uma implementação para manifestar cte em um MDFe. A sefaz me retorna sempre a rejeição de: Dados incompletos da seguradora..Já alimentei a apólice, averbação e nada. Segue anexo xml que gerei, que foi rejeitado. Quem puder me ajudar ficarei muito grato. Se possível um exemplo da implementação do código onde estou deixando a desejar...

Att,

Michel

Analista de Sistemas

[email protected]

22190711091753000176580010000002021000000015-mdfe.xml

Editado 18 Julho, 2019 por Michel Simões

[Italo Giurizzato Junior]

Bom dia Michel,

Anexe um arquivo TXT com o fragmento da sua rotina que alimenta o componente os dados do seguro, acredito que ela esteja errada.

[george.lopes]

Seu xml tem 3 grupos <seg> com informações diferentes, pode ser que isso seja a causa do problema.

Editado 19 Julho, 2019 por george.lopes

[Ricardo Rohde]

13 minutos atrás, george.lopes disse:

Seu xml tem 3 grupos <seg> com informações diferentes, pode ser que isso seja a causa do problema.

não é isso... pois vc pode ter n seguros 

 

o problema é que, é necessário informar dentro da <seg>

<nApol></nApol>

<nAver></nAver>

 

nas 3, ele só informa 1 delas...

[Michel Simões]

Em 19/07/2019 at 12:05, Italo Jurisato Junior disse:

Bom dia Michel,

Anexe um arquivo TXT com o fragmento da sua rotina que alimenta o componente os dados do seguro, acredito que ela esteja errada.

 

Em 19/07/2019 at 16:02, george.lopes disse:

Seu xml tem 3 grupos <seg> com informações diferentes, pode ser que isso seja a causa do problema.

Estou anexando a rotina teste...

Seguro - MDFe.txt

[Italo Giurizzato Junior]

Bom dia Michel,

Mude a sua rotina para:

with seg.Add do
begin
  xSeg := IBDataSet1NOME_SEGURADORA.Value;
  CNPJ := IBDataSet1CNPJ_CPF_SEGURADORA.Value;
  CNPJCPF := dm.IBTableFilialCNPJ_FILIAL.Value;
  nApol := IBDataSet1NUMERO_APOLICE.Value;
  respSeg := rsEmitente;

  with aver.Add do
  begin
    nAver := InputBox('Averbação','Digite Averbação 1','');
  end;
  with aver.Add do
  begin
    nAver := InputBox('Averbação','Digite Averbação 2','');
  end;
end;

 

[Michel Simões]

Em 29/07/2019 at 10:58, Italo Jurisato Junior disse:

Bom dia Michel,

Mude a sua rotina para:

with seg.Add do
begin
  xSeg := IBDataSet1NOME_SEGURADORA.Value;
  CNPJ := IBDataSet1CNPJ_CPF_SEGURADORA.Value;
  CNPJCPF := dm.IBTableFilialCNPJ_FILIAL.Value;
  nApol := IBDataSet1NUMERO_APOLICE.Value;
  respSeg := rsEmitente;

  with aver.Add do
  begin
    nAver := InputBox('Averbação','Digite Averbação 1','');
  end;
  with aver.Add do
  begin
    nAver := InputBox('Averbação','Digite Averbação 2','');
  end;
end;

 

Deu certo, obrigado pela ajuda!

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.