Minha rotina funcionando, mas apenas 1 xml

[Elviro]

Segue minha rotina que estou gerando o arquivo MDFe, mas infelizmente não consigo inserir mais de uma chave da NFe

 

 

favor anexar o arquivo

[Gr@c@]

Acho que o "infNFe.Add" tem que ficar dentro do loop  "While not dm.IBChaveNFEManifesto.eof do"

Isso se as chaves de acesso das notas estiverem dentro do dm.IBChaveNFEManifesto

Eu tenho uma tabela geral de manifesto contendo os dados unicos e uma tabela filha de itens contendo os documentos de origem

Editado 31 Maio, 2016 por Gr@c@

[Elviro]

mas se observar o código, está

 

       dm.IBChaveNFEManifesto.close;
       dm.IBChaveNFEManifesto.SelectSQL.Clear;
       dm.IBChaveNFEManifesto.SelectSQL.Add('SELECT * FROM ChaveNFEManifesto');
       dm.IBChaveNFEManifesto.SelectSQL.Add('WHERE CODMANIFESTO = ' + QuotedStr(dm.IBManifestoCODIGO.text) + '');
       dm.IBChaveNFEManifesto.SelectSQL.Add('ORDER BY CODIGO');
       dm.IBChaveNFEManifesto.open;
       dm.IBChaveNFEManifesto.first;
       While not dm.IBChaveNFEManifesto.eof do
       begin
       chNFe := dm.IBChaveNFEManifestoCHAVENFE.Text;
       dm.IBChaveNFEManifesto.Next;
       end;
 

[Gr@c@]

Tente assim....

      dm.IBChaveNFEManifesto.close;
       dm.IBChaveNFEManifesto.SelectSQL.Clear;
       dm.IBChaveNFEManifesto.SelectSQL.Add('SELECT * FROM ChaveNFEManifesto');
       dm.IBChaveNFEManifesto.SelectSQL.Add('WHERE CODMANIFESTO = ' + QuotedStr(dm.IBManifestoCODIGO.text) + '');
       dm.IBChaveNFEManifesto.SelectSQL.Add('ORDER BY CODIGO');
       dm.IBChaveNFEManifesto.open;
       dm.IBChaveNFEManifesto.first;
       While not dm.IBChaveNFEManifesto.eof do
       begin

      With infNFe.Add do

      begin
         chNFe := dm.IBChaveNFEManifestoCHAVENFE.Text;
         dm.IBChaveNFEManifesto.Next;

     end;

       end;

[Elviro]

Infelizmente, quando coloco esse código alterando o meu, ocorre um erro na linha de baixo

 

      // Informações das Unidades de Transporte (Carreta/Reboque/Vagão)
      with infUnidTransp.Add do