Erro ao emitir o MDFe

[datasynch]

Boa Noite, alguem pode me ajudar com esse erro ao emitir o MDFe?

ERRO:Falha na Validação dos dados do Manifesto:46
TAG:<infModal="3.00"><infModalversaoModal="3.00"infmodalversaoModal="3.00">
ID:#140/autXM() - Numero maximo de ocorrencias maior que o maximo permitido - Maximo 10
1871 - Element'{http://www.portalfiscal.inf.br/mdfe}autXML': This element is not expected is one of(
{http://www.portalfiscal.inf.br/mdfe}infAdic
{http://www.portalfiscal.inf.br/mdfe}infRespTec
{http://www.portalfiscal.inf.br/mdfe}infSolicNFF)

[Renato Rubinho]

Bom dia,

7 horas atrás, datasynch disse:

autXM() - Numero maximo de ocorrencias maior que o maximo permitido - Maximo 10

É o que diz a exceção, foram adicionadas mais de 10 autXML, sendo que o máximo permitido são 10.

[datasynch]

Voce teria um exemplo de como resolver?

[datasynch]

Segue o Meu Codigo:

prodPred.tpCarga := TCarga(qryMDFE_MTIPO_CARGA.Value);
prodPred.xProd := qryMDFE_MPRODUTO_PREDOMINANTE.Value;
prodPred.cEAN := qryMDFE_MCOD_BARRA.Value;
prodPred.NCM := qryMDFE_MNCM.Value;

dados.qryconsulta.Close;
dados.qryconsulta.SQL.Clear;
dados.qryconsulta.SQL.Add('SELECT distinct(de.cnpj) FROM mdfe_detalhe md');
dados.qryconsulta.SQL.Add
('left join cte_destinatario de on de.codigo=md.fk_destinatario');
dados.qryconsulta.SQL.Add('where');
dados.qryconsulta.SQL.Add('md.fk_mdfe_master=:id');
dados.qryconsulta.Params[0].Value := qryMDFE_MCODIGO.Value;
dados.qryconsulta.Open;

dados.qryconsulta.First;
while not dados.qryconsulta.Eof do
begin
autXML.Add.CNPJCPF := dados.qryconsulta.Fields[0].AsString;
dados.qryconsulta.Next;
end;

if qryMDFE_MTIPO_MDFE.Value = 'CTE' then
tot.qCTe := qryMDFE_MQTD_CTE.Value;
if qryMDFE_MTIPO_MDFE.Value = 'NFE' then
tot.qNFe := qryMDFE_MQTD_CTE.Value;

tot.vCarga := qryMDFE_MVALOR_CARGA.AsFloat;
tot.cUnid := TUnidMed(qryMDFE_MUNIDADE_CARGA.AsInteger);

tot.qCarga := qryMDFE_MQTD_CARGA.AsFloat;

infAdic.infCpl := qryMDFE_MINFCPL.Value;
infAdic.infAdFisco := qryMDFE_MINFADFISCO.Value;
end;

end;

[Diego Foliene]

13 minutos atrás, datasynch disse:

Segue o Meu Codigo:

prodPred.tpCarga := TCarga(qryMDFE_MTIPO_CARGA.Value);
prodPred.xProd := qryMDFE_MPRODUTO_PREDOMINANTE.Value;
prodPred.cEAN := qryMDFE_MCOD_BARRA.Value;
prodPred.NCM := qryMDFE_MNCM.Value;

dados.qryconsulta.Close;
dados.qryconsulta.SQL.Clear;
dados.qryconsulta.SQL.Add('SELECT distinct(de.cnpj) FROM mdfe_detalhe md');
dados.qryconsulta.SQL.Add
('left join cte_destinatario de on de.codigo=md.fk_destinatario');
dados.qryconsulta.SQL.Add('where');
dados.qryconsulta.SQL.Add('md.fk_mdfe_master=:id');
dados.qryconsulta.Params[0].Value := qryMDFE_MCODIGO.Value;
dados.qryconsulta.Open;

dados.qryconsulta.First;
while not dados.qryconsulta.Eof do
begin
autXML.Add.CNPJCPF := dados.qryconsulta.Fields[0].AsString;
dados.qryconsulta.Next;
end;

if qryMDFE_MTIPO_MDFE.Value = 'CTE' then
tot.qCTe := qryMDFE_MQTD_CTE.Value;
if qryMDFE_MTIPO_MDFE.Value = 'NFE' then
tot.qNFe := qryMDFE_MQTD_CTE.Value;

tot.vCarga := qryMDFE_MVALOR_CARGA.AsFloat;
tot.cUnid := TUnidMed(qryMDFE_MUNIDADE_CARGA.AsInteger);

tot.qCarga := qryMDFE_MQTD_CARGA.AsFloat;

infAdic.infCpl := qryMDFE_MINFCPL.Value;
infAdic.infAdFisco := qryMDFE_MINFADFISCO.Value;
end;

end;

Conforme o @Renato Rubinhocitou, você tenteou enviar um MDFe com mais de 10 CNPJCPF no autXML.
No seu código você está fazendo.

while not dados.qryconsulta.Eof do
begin
  autXML.Add.CNPJCPF := dados.qryconsulta.Fields[0].AsString;
  dados.qryconsulta.Next;
end;

Precisa controlar essa iteração para que não ultrapasse o limite estabelecido.

[datasynch]

1 hora atrás, Diego Foliene disse:

Conforme o @Renato Rubinhocitou, você tenteou enviar um MDFe com mais de 10 CNPJCPF no autXML.
No seu código você está fazendo.

while not dados.qryconsulta.Eof do
begin
  autXML.Add.CNPJCPF := dados.qryconsulta.Fields[0].AsString;
  dados.qryconsulta.Next;
end;

Precisa controlar essa iteração para que não ultrapasse o limite estabelecido.

valeu, muito obrigado pela dica.

Deu certo aqui

[Diego Foliene]

Obrigado por reportar.

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