Várias UFs de Percurso no MDFe

[Josafar Nascimento da Silv]

Como deve ser o código para mais de uma UF de percurso no MDFe? Abaixo, o código que utilizo para uma única UF de percurso.

if mskUFPer.Text <> '' then
begin
   with Ide.infPercurso.Add do
   begin
     UFPer:= mskUFPer.Text;
   end;
end;

 

[Amarildo de Matos]

Bom dia..

voce teria de pedir essas informacoes, e adicionando cada percurso .

 

[Italo Giurizzato Junior]

Bom dia Josafar,

Caso você tenha 5 UF (percurso) entre a UF Origem e UF Destino é simples, basta executar 5 vezes o trecho abaixo (uma para cada UF).

  with Ide.infPercurso.Add do
   begin
     UFPer:= mskUFPer.Text;
   end;

O Add vai acionar a UF cada vez que é executado, portanto o valor de mskUFPer.Text tem que mudar pra cada vez que ele é executado.

Exemplo da minha aplicação:

   j := DM_MDF.Percursos.RecordCount -1; // Checa a quantidade de UF de Percurso na tabela Percursos
   if j >= 0 then
   begin
     DM_MDF.Percursos.First;  // Posiciona na primeira UF
     for i := 0 to j do
     begin
       with Ide.infPercurso.Add do
       begin
         UFPer := DM_MDF.PercursosUFPerc.AsString; // Lê da tabela Percursos o valor do campo UFPerc
       end;
       DM_MDF.Percursos.Next; // Avança para a próxima UF
     end;
   end;
 

[Josafar Nascimento da Silv]

Obrigado a vocês, Amarildo e Italo. Resolvido meu problema.

[Amarildo de Matos]

Obrigado por reportar.

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