Varias Nfe Num Cte

[Jaguar programa]

Bom dia Amigos ,

 

estou com uma duvida cte 2.00

 

para um CTE com uma NFE

 

-<infDoc>

-<infNFe>

<chave>43140661064838000486550010000611791772488966</chave>

</infNFe>

</infDoc>

 

e se for umas 5 NFE no mesmo Cte ?

 

-<infDoc>

-<infNFe>

<chave>43140661064838000486550010000611791772488966</chave>

<chave>43140661064838000486550010000611791772488966</chave>

<chave>43140661064838000486550010000611791772488966</chave>

<chave>43140661064838000486550010000611791772488966</chave>

<chave>43140661064838000486550010000611791772488966</chave>

</infNFe>

</infDoc>

 

não estou podendo fazer testes alguem pode dar uma mão ?

 

 

Paulo Tidra

 

Tramandai-RS

Editado 7 Junho, 2014 por tidra

[wagner_fix]

Segue o exemplo...

 

       with DM.SqlAux5 do begin

         LimpaSQL(DM.SqlAux5);

         SQL.Add('SELECT * FROM CTE05 WHERE CODC=:xCODC');

         Parameters.ParambyName('xCODC').Value := StrToInt(txtCod.Text);

         Open;

         First;

       end;

       j := 0;

       j := DM.SqlAux5.RecordCount;

       if j > 0 then begin

         for i := 1 to j do begin

           with infCTeNorm.infDoc.infNFe.Add do begin

             chave := Trim(DM.SqlAux5.FieldByName('CHAVE').AsString);

             PIN   := Trim(DM.SqlAux5.FieldByName('PIN').AsString);

             dPrev := StrToDate(txtGeraDtPrevista.Text);

           end;

           DM.SqlAux5.Next;

         end;

       end;

 

Faço assim e dá certo...

 

Abraço,

Wagner

[Jaguar programa]

Obrigado  Wagner !!

 

 

 

 

Paulo Tidra

Tramandai-RS