infAdProd não imprimir nem grava no xml

[Leao]

Preciso informar em cada produto infAdProd situação referente fcb, mas não imprimir(fortesreport), nem grava no xml, existe algum detalhe especifico?

Parte do fonte assim:

//Adicionando Produtos
DNF_ITENS.First;
while not DNF_ITENS.Eof do
begin

   with Det.Add do
   begin
       vconte:=vconte + 1;
         Prod.nItem    := vconte; //1; // Número sequencial, para cada item deve ser incrementado
         Prod.cProd    := DNF_ITENS.COD_PRODUTO.ValorString; //'123456';
         Prod.cEAN     := DNF_ITENS.COD_BARRA.ValorString; //'1234567890123';
         Prod.xProd    := DNF_ITENS.NOME_PRODUTO.Conteudo+' '+
                          DNF_ITENS.NOME2.Conteudo; //'Descrição do Produto';tamanho ate 120

         if DNF_ITENS.PICMSINTERPART.Conteudo > 0 then
         begin
         infAdProd := 'Conv.ICMS.93/2015: (FCP)UF Destino ' + FormatFloat('0.00', DNF_ITENS.VFCPUFDEST.Conteudo)+ '  '+
                      'Int.p/UF Destino '+ FormatFloat('0.00', DNF_ITENS.VLCMSUFDEST.Conteudo)+ '  '+
                      'Int.p/UF do Remetente '+ FormatFloat('0.00', DNF_ITENS.VLCMSUFREMET.Conteudo);

         ShowMessage('Informações Produtos...: '+infAdProd);  //para testar aqui ele mostra corretamente preenchido.
         end;

         Prod.NCM      := Trim(DNF_ITENS.NCM.Conteudo);   //'12345678'; // Tabela NCM disponível em
  ...

 

Essa informação deveria gravar no xml e não grava nem imprimir no danfe, uso fortes report, trunk2, atualizado...

Obrigado,

Leão

 

 

[Régys Silveira]

Aqui está tudo normal, gravando e imprimindo normalmente, chegou a debugar e verificar seu código e checar se realmente está entrando neste if que você colocou?

Observação: geralmente os dizeres da DIFAL e Fundo de Pobreza são colocados nas observações da nota, somados e não por produto, mas isso não influencia no preenchimento da tag.

[Leao]

Olá Régys, se o showmessage, visualiza a infAdProd, preenchida, sim estar entrando no if sim, vi em outro post programador informando assim, fica 

bem melhor para o usuário final, mas no final também informarei. Compila normal. 

Interessante se informo Prod. não traz infAdProd, mas informo simplesmente infAdProd e não ocorre nenhum erro. Somente não grava no .xml 

Se mais alguém quiser comentar, agradeço

Obrigado,

Leão

[Régys Silveira]

O "infAdProd" não faz parte do "Prod" e sim do "Det", seria algo mais ou menos assim:

with Det.Add do
begin
   Prod.nItem := 
   Prod.cProd := 
   ...

   infAdProd := 
   ...
end;

Como lhe disse está tudo normal, tanto no XML quanto na impressão, se realmente houvesse um problema no componente ou impressão com certeza já teríamos uma enxurrada de tópicos aqui no fórum questionando isso.

Verifique se código, faça um debug e acompanhe o preenchimento e geração para entender melhor o problema. Verifique se em algum momento você não está limpando, se o valor está indo correto, enfim, é debugar e acompanhar pra entender, mas com certeza no componente não é o problema.

[Leao]

Olá Régys, rapaz não tinha percebido logo abaixo estava limpando infAdProd:='', tirei deu certo, desculpa o erro...

Obrigado,

Leão

[Régys Silveira]