Inserir nº de telefone do emitente no dacte em QuickReport

[vinizioWOW]

Boa tarde aos amigos do fórum.

Hoje um cliente meu veio com uma dúvida simples mas que eu não tinha notado.

Não sai o número do telefone do emitente no DACTE.

É possível inserir essa informação?

[Doni Delphi]

do emitente basta informa na tag

emit.enderEmit.fone :=

[Cleber Ferreira]

Mesmo preenchendo a respectiva tag, a impressão do telefone não é realizada no DACTe

[Italo Giurizzato Junior]

Boa noite Cleber,

Qual versão do DACTe você esta utilizando?

Quick Report ou Fast Report?

[Cleber Ferreira]

Bom dia Ítalo,

estou usando a versão do Quick Report

[Italo Giurizzato Junior]

Bom dia Cleber,

Verifiquei o fonte pcteCTeR responsável por ler os dados de um XML e passar para o componente, bem como o fonte ACBrCTeDACTeQRRetrato, responsável por gerar a imagem do DACTe para ser apresentada na tela ou impressa no papel.

Ambos estão OK.

Favor verificar se o XML gerado contem o telefone do emitente na tag: fone

[Cleber Ferreira]

Sim, a tag está preenchida com o telefone do emitente...

[Italo Giurizzato Junior]

Cleber,

O telefone do Emitente é impresso no quadro que tem o logo e os demais dados do emitente.

Verifique se os seus fontes estão atualizados e se o logo não esta preenchendo todo o quadro.

[Cleber Ferreira]

Bom dia ítalo!

seguindo as suas recomendações, atualizei os fontes do meu componente CT-e. Mas na hora de compilar, surgiram vários erros e algumas tags q não estão sendo encontradas mais. Segue as informações:

[Error] Emissaoctrc.PAS(3923): Undeclared identifier: 'cMunEmi'

[Error] Emissaoctrc.PAS(3924): Undeclared identifier: 'xMunEmi'

[Error] Emissaoctrc.PAS(3925): Undeclared identifier: 'UFEmi'

[Error] Emissaoctrc.PAS(4074): Undeclared identifier: 'cPais'

[Error] Emissaoctrc.PAS(4075): Undeclared identifier: 'xPais'

[Error] Emissaoctrc.PAS(4423): Undeclared identifier: 'vMerc'

[Error] Emissaoctrc.PAS(4486): Undeclared identifier: 'vMerc'

[Error] Emissaoctrc.PAS(4506): Undeclared identifier: 'vTValePed'

[Error] Emissaoctrc.PAS(4508): Undeclared identifier: 'respPg'

[Error] Emissaoctrc.PAS(4531): Undeclared identifier: 'disp'

[Error] Emissaoctrc.PAS(4534): Undeclared identifier: 'tpDisp'

[Error] Emissaoctrc.PAS(4538): Undeclared identifier: 'xEmp'

[Error] Emissaoctrc.PAS(4539): Undeclared identifier: 'dVig'

[Error] Emissaoctrc.PAS(4541): Undeclared identifier: 'nDisp'

[Error] Emissaoctrc.PAS(4542): Undeclared identifier: 'nCompC'

E agora, como procedo?

[Italo Giurizzato Junior]

Bom dia Cleber,

Se você esta realizando um teste na sua aplicação utilizando a versão 1.04 do CTe vamos corrigir esses problemas:

Primeiro, no seu form Emissaoctrc inclua ACBr.inc conforme exemplo abaixo:

{$I ACBr.inc}


unit Emissaoctrc;

Segundo, nas linhas que contem os campos especificos de cada versão faça conforme exemplo abaixo:

  {$IFDEF PL_103}

   Ide.cMunEmi     := CodigoMunicipio;

   Ide.xMunEmi     := DM_CTA.EmpresaCidade.AsString;

   Ide.UFEmi       := DM_CTA.EmpresaEstado.AsString;

  {$ENDIF}

  {$IFDEF PL_104}

   Ide.cMunEnv     := CodigoMunicipio;

   Ide.xMunEnv     := DM_CTA.EmpresaCidade.AsString;

   Ide.UFEnv       := DM_CTA.EmpresaEstado.AsString;

  {$ENDIF}


(...)


   Emit.EnderEmit.UF      := DM_CTA.EmpresaEstado.AsString;

  {$IFDEF PL_103}

   Emit.EnderEmit.cPais   := DM_CTA.EmpresaCodigoPais.AsInteger;

   Emit.EnderEmit.xPais   := DM_CTA.EmpresaPais.AsString;

  {$ENDIF}

   Emit.EnderEmit.fone    := DM_CTA.EmpresaTelefone.AsString;

Lembre-se que na versão 1.04 alguns campos foram renomeados como é o caso do Ide.cMunEmi que passo a se chamar: Ide.cMunEnv, outros não existem mais como é o caso do Emit.EnderEmit.cPais e tem os novos como é o caso do Modelo campo incluido ao informar uma NF comum (papel) como documento Originário, veja exemplo abaixo:

              // Nota Fiscal

              with Rem.InfNF.Add do

               begin

                nRoma := DM_CNT.NotasRomaneioNF.AsString;

                nPed  := DM_CNT.NotasPedidoNF.AsString;

               {$IFDEF PL_104}

                Modelo := moNF011AAvulsa;

               {$ENDIF}

                serie := DM_CNT.NotasSerieNF.AsString;

                nDoc  := DM_CNT.NotasNumeroNF.AsString;

                dEmi  := DM_CNT.NotasEmissaoNF.AsDateTime;

                vBC   := RoundTo(DM_CNT.NotasValorBCICMS.AsFloat, -2);

                vICMS := RoundTo(DM_CNT.NotasValorICMS.AsFloat, -2);

                vBCST := RoundTo(DM_CNT.NotasValorBCICMSST.AsFloat, -2);

                vST   := RoundTo(DM_CNT.NotasValorICMSST.AsFloat, -2);

                vProd := RoundTo(DM_CNT.NotasValorProdutos.AsFloat, -2);

                vNF   := RoundTo(DM_CNT.NotasValorNF.AsFloat, -2);

                nCFOP := DM_CNT.NotasCFOPNF.AsInteger;

                nPeso := RoundTo(DM_CNT.NotasPesoKg.AsFloat, -2);

                PIN   := DM_CNT.NotasPinSuframa.AsString;

(...)

Espero ter ajudado

[Cleber Ferreira]

Já deu certo aqui Ítalo, a compilação funcionou. Mas o telefone ainda não sai na impressão do DACT-e.

Lembrando que a tag do emitente está sendo preenchida. Uso a impressão direta em PDF do QuickReport.

[Italo Giurizzato Junior]

Cleber,

Se possível poste o XML para que possamos checar.

E a impressão normal ou seja executando o comando Imprimir, visualização na tela e impressão no papel ?

[Cleber Ferreira]

Usando somente o método Imprimir também não saiu o telefone do emitente.

segue o xml e o DACT-e para análise

31110902421499000136570010000000190000000194-cte.xml

31110902421499000136570010000000190000000194.pdf

[Doni Delphi]

Tente fazer um CT-e sem aquela A do Complemento do endereço do emitente

[Cleber Ferreira]

Deu certo Doni. Foi impresso o telefone, mas não posso ficar sem o complemento.

Pelo que eu vi, há uma linha exclusiva para o complemento. Talvez resolveria se no mesmo bloco (linha do endereço) fosse colocado o complemento...

[Italo Giurizzato Junior]

Boa tarde Cleber

Fiz uma alteração no DACTe, favor baixar a atualização pelo SVN e testar novamente a impressão informando o complemento do endereço do emitente.