Dúvida Damdfe

[wagner_fix]

Olá pessoal boa tarde tudo bem?

Sexta 14/12 meu cliente me questionou sobre o damdfe que não está saindo o número do CIOT e os dados do vale pedágio, mas eu tenho passado os dados para alimentar o componente.

Percebi que o campo do CIOT nem sai no layout do Damdfe, o vale pedágio chega a sair, mas não mostra os dados. (imagem em anexo).

E o meu cliente está dizendo que os postos fiscais estão começando a exigir esses dados, atualizei o componente e continua da mesma forma, será que tenho feito algo de errado?

Como estou alimentando o componente.

   {======== Dados do CIOT ===========================================}
   with DM.SqlAux5 do begin
     LimpaSQL(DM.SqlAux5);
     SQL.Add('SELECT * FROM CTE68 WHERE (CODC = :xCODC) ORDER BY ID');
     Parameters.ParamByName('xCODC').Value := sNrMDFe;
     Open;
     First;
   end;
   while not DM.SqlAux5.eof do begin
     with rodo.infANTT.infCIOT.Add do begin
       CIOT     := Trim(DM.SqlAux5.FieldByName('CIOT').AsString);
       CNPJCPF  := RetiraCarac(Trim(DM.SqlAux5.FieldByName('DOC').AsString));
     end;
     DM.SqlAux5.Next;
   end;

   {======== Dados dos Vale Pedagios =========================================}
   with DM.SqlAux5 do begin
     LimpaSQL(DM.SqlAux5);
     SQL.Add('SELECT * FROM CTE69 WHERE (CODC = :xCODC) ORDER BY ID');
     Parameters.ParamByName('xCODC').Value := StrToInt(sNrMDFe);
     Open;
     First;
   end;
   while not DM.SqlAux5.eof do begin
     with rodo.valePed.disp.Add do begin
       CNPJForn  := RetiraCarac(Trim(DM.SqlAux5.FieldByName('CNPJF').AsString));
       nCompra   := Trim(DM.SqlAux5.FieldByName('NUMC').AsString);
       vValePed  := DM.SqlAux5.FieldByName('VALOR').AsFloat;
       if (DM.SqlAux5.FieldByName('TIPO').AsInteger = 0) then
         CNPJPg    := RetiraCarac(Trim(DM.SqlAux5.FieldByName('CNPJR').AsString));
       if (DM.SqlAux5.FieldByName('TIPO').AsInteger = 1) then
         CNPJPg    := RetiraCarac(Trim(DM.SqlAux5.FieldByName('CNPJR').AsString));
     end;
     DM.SqlAux5.Next
   end;

Delphi XE8
Relatório Fortes Report.

Agradeço dese já,

Wagner

 

[Juliomar Marchetti]

o bom é anexar o xml do mdf-e!

mas acredito que esteja faltando implementação do damdfe em Fortes

[wagner_fix]

Boa tarde @Juliomar Marchetti obrigado pela resposta...

Segue em anexo o XML.

Grato,

Wagner

35181208220962000168580010000002131568585336-mdfe.pdf

[Juliomar Marchetti]

17 horas atrás, wagner_fix disse:

Boa tarde @Juliomar Marchetti obrigado pela resposta...

Segue em anexo o XML.

Grato,

Wagner

35181208220962000168580010000002131568585336-mdfe.pdf

exatamente o código está ali basta mudar o damdfe e trazer para avaliarmos