Número Da Apolice Nao Esta Sendo Impressa

[Leandro Miler Santana]

  Olá pessoal boa tarde.

 

  Estou tendo um problema com o ACBrCTE.

 

  Tudo está funcionando corretamente, somente o número da Apolice e o Nome da seguradora não estão sendo impressos no dacte.

 

  Abri os arquivos XMLs gerados e os números estão lá !!!

 

  Estou usando a impressão pelo QuickReport.

 

  Alguem poderia me ajudar ?

 

  Desde já agradeço

 

  Leandro Santana

35130565825721000186570010008100101416323790-cte.xml

cte810010.pdf

[DenisRodrigues]

galera, estou com o mesmo problema, percebi que quando vc lança os parametros para os campos Seguro, ele cria vários grupos da tag "seg" .. um com o numero de apólice, outro com a seguradora, porém na impressão do dacte ele só pega os valores do primeiro, que só tem o campo "Responsável pelo frete" preenchido, creio que devo estar informando os dados de um jeito errado para o xml, alguem sabe ao certo como se lança esses valores la?

[DenisRodrigues]

Leandro, eu modifiquei a procedure GerarIngSeg localizado na unit pcteCTeW e funcionou, vou colocar a procedure minha de como ficou abaixo pra vc dar uma olhada, compara com a sua ae e se quiser mudar vai funcionar, só preciso ver pq que o campo de responsável de seguro é informado várias vezes ao invés de uma vez apenas, e pelo que vi a primeira vez ele informa com o valor que agente passa, dps ele pega um outro valor aleatório.

 

procedure TCTeW.GerarInfSeg;

var

  i: integer;

begin

  Gerador.wGrupo('seg', '#306');

 

  for i := 0 to CTe.InfSeg.Count - 1 do

  begin

    Gerador.wCampo(tcStr, '#307', 'respSeg ', 01, 01, 1, TpRspSeguroToStr(CTe.InfSeg.respSeg), DSC_RESPSEG);

    Gerador.wCampo(tcStr, '#308', 'xSeg    ', 01, 30, 0, CTe.InfSeg.xSeg, DSC_XSEG);

    // Alterado por Italo em 04/10/2012 conforme sugestão de Geferson

    Gerador.wCampo(tcStr, '#309', 'nApol   ', 01, 20, 0, CTe.InfSeg.nApol, DSC_NAPOL);

    Gerador.wCampo(tcStr, '#310', 'nAver   ', 01, 20, 0, CTe.InfSeg.nAver, DSC_NAVER);

//    Gerador.wCampo(tcStr, '#309', 'nApol   ', 01, 20, 0, SomenteNumeros(CTe.InfSeg.nApol), DSC_NAPOL);

//    Gerador.wCampo(tcStr, '#310', 'nAver   ', 20, 20, 0, SomenteNumeros(CTe.InfSeg.nAver), DSC_NAVER);

{$IFDEF PL_103}

    Gerador.wCampo(tcDe3, '#311', 'vMerc   ', 01, 15, 0, CTe.InfSeg.vMerc, DSC_VMERC);

{$ENDIF}

{$IFDEF PL_104}

    Gerador.wCampo(tcDe2, '#311', 'vCarga  ', 01, 15, 0, CTe.InfSeg.vCarga, DSC_VMERC);

{$ENDIF}

 

  end;

  Gerador.wGrupo('/seg');

 

  if CTe.InfSeg.Count > 990 then

    Gerador.wAlerta('#306', 'seg', DSC_INFSEG, ERR_MSG_MAIOR_MAXIMO + '990');

end;

[DenisRodrigues]

reiterando minha resposta, essa alteração resolve o problema da impressão mais o envio do xml para a receita da erro.

[Mark Apollo]

Galera, será que vocês não estão com os fontes desatualizados? estou gerando estas tags e imprimindo já a algum tempo sem nenhum problema.

[Leandro Miler Santana]

        Acabei de atualizar os componentes data 17/06/2013 e ainda os campos da Seguradora e Numero da Apolice dos quais eu preenchi e constam no XML, continuam não aparecendo no DACTE impresso.

 

        Será que estou fazendo alguma coisa de errado ?

[Leandro Miler Santana]

   Olá pessoal, estava pesquisando no forum e achei uma resposta sobre isso!!!

 

   Quem deu a solução foi o "Neguta" vejam abaixo como resolvi

 

[RESOLVIDO]

Estava colocando infseg.add."tag1" := valor, para cada uma das tags

Usando conforme abaixo, resolve o problema.

with infseg.add do

begin

   "tag1" := valor1

   "tag2" := valor2

   //assim por diante

end;

[Leandro Miler Santana]

Obrigado, pessoal, está cada vez melhor este forum.

 

Parabens a todos os programadores que fazem deste projeto um sucesso !!!

[Italo Giurizzato Junior]

Boa tade a todos,

 

Obrigado Leandro pelos elogios.

 

Pessoal, dentro da pasta ...\Exemplos\ACBrCTe existe varios arquivos textos com fragmentos de código da minha aplicação, entre eles temos o AlimentarComponentes.txt, nesse arquivo vocês vão encontrar as respostas, basta estuda-lo.