[Erro ao Imprimir MDF-e FastReport]

16 horas atrás, Jorge Eduardo disse:

Bom dia.

DAMDFe_Retrato.fr3.

 

[Erro ao Imprimir MDF-e FastReport]

Boa tarde.

Erro ao imprmir MDF-e usando o FastReport. Estou com o DelphiXE7 e o FastReport 5.0, com o acbr na versão 11052;

Erro baixo:

---------------------------
Erro
---------------------------
Ocorreram os seguintes erros:

Memo158: Campo não encontrado: Parametros."Versao"

---------------------------
OK   
---------------------------

[CTe FastReports]

Boa tarde Juliomar.

Tudo certo.

Muito obrigado pela ajuda.

 

[Envio de NFS-e e retorno]

Boa tarde Italo.

Tudo certo.

Muito obrigado pela ajuda.

 

 

[Envio de NFS-e e retorno]

Bom dia.

Quando eu envio a NFS-e, no componente eu habilito a opção ConsultaLoteAposEnvio, ele envia e retorna o nota sem problemas, mas no "ACBrNFSe1.NotasFiscais.Items[0]" as posições do array fica com o índice 0 (as informações correta estão no índice 0) e também com o índice 1 vazio.

Com isto:

- Quando manda imprimir, ele imprimir duas vezes.

-Quando imprimir o pdf da erro, pq o índice 1 está vazio.

[Envio de NFSe e não consigo obter no retorno a situação]

Bom dia.

Tudo certo.

Muito obrigado a todos que me ajudaram.

[Envio de NFSe e não consigo obter no retorno a situação]

Boa tarde.

Tudo certo.

Existe alguma forma de configuração do componente para quando eu enviar a NFS-e ele já fazer a consultar por situação automática?

Obrigado;

[NFS-e erro ao imprimir no FastReport]

Bom dia.

Tudo certo, Obrigado.

 

[Envio de NFSe e não consigo obter no retorno a situação]

23 horas atrás, Jorge Eduardo disse:

Bom dia.

Para o GInfes.

Cidade de Ubá MG

[Envio de NFSe e não consigo obter no retorno a situação]

Bom dia.

Para o GInfes.

[Envio de NFSe e não consigo obter no retorno a situação]

Boa tarde.

Ao enviar uma NFS-e, no retorno a situação está voltando vazio;

Estou com o Delphi XE7, e o acbr com a revisão número 11017.

Na consultar por rps(ACBrNFSe1.ConsultarNFSeporRps) tbm não retorna a situação.

Alguém pode me dar uma ajuda?

[Impressão DanfSe Fostes Report Ginfes não imprimir o CNPJ, município e UF do prestador do serviço]

Bom dia;

Era isto mesmo;

Obrigado pela ajuda.

[NFS-e erro ao imprimir no FastReport]

Boa tarde.

Vou atualizar e refazer os teste, mais tarde eu posto o resultado.

Obrigado.

 

[Impressão DanfSe Fostes Report Ginfes não imprimir o CNPJ, município e UF do prestador do serviço]

Bom dia.

O DanfSe não está imprimindo os campos:

- CNPJ

- Município

- UF

Solução:

no unit pnfsNFSeR foi alterada como descrito abaixo:

{TODO -oJorge -cNFS-e : Add por Jorge}
    NFSe.PrestadorServico.Endereco.CodigoMunicipio := Leitor.rCampo(tcStr, 'Cidade');
    if NFSe.PrestadorServico.Endereco.CodigoMunicipio = '' then
      NFSe.PrestadorServico.Endereco.CodigoMunicipio := Leitor.rCampo(tcStr, 'CodigoMunicipio');

    {TODO -oJorge -cNFS-e : Add por Jorge}
    NFSe.PrestadorServico.Endereco.UF := Leitor.rCampo(tcStr, 'Estado');
    if NFSe.PrestadorServico.Endereco.UF = '' then
      NFSe.PrestadorServico.Endereco.UF := Leitor.rCampo(tcStr, 'Uf');

{TODO -oJorge -NFS-e : Alterado por Jorge}
      if VersaoNFSe = ve100
       then begin
        //if Leitor.rExtrai(5, 'CpfCnpj') <> ''
         //then
         begin
          NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj := Leitor.rCampo(tcStr, 'Cpf');
           if NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj = ''
            then NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj := Leitor.rCampo(tcStr, 'Cnpj');
         end;
       end
       else begin
        NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj := Leitor.rCampo(tcStr, 'Cnpj');
       end;
      end;

pnfsNFSeR.pas

[NFS-e erro ao imprimir no FastReport]

Bom dia.

Tenho um projeto usando o Delphi XE7, FastReport 5.0, que usava na impressão do NFS-e o QuickReport, estou migrando esse projeto para o trunk2 e vou usar o FastReport como gerador de relatórios. 

Estou com o ACBr e arquivos fr3 atualizados.

Quando eu imprimo usando o Fortes Report imprimi normal, quando eu uso o FastReport da o seguinte erro como na imagem em anexo. O Erro parece ser por causa que estou usando os arquivos fr3 desatualizados, mas eu estou com eles atualizados.

 

 

[CTe FastReports]

Boa tarde.

Tudo bem, vou baixar o acbr novamente e conferir os arquivos .fr3.

Obrigado.

[CTe FastReports]

Boa tarde.

 

Estou usando o Delphi XE7, o FastReport 5 e o acbr atualizado, e ocorre esse erro:  Memo11: Erro na expressão 'DADOS_ENDERECO': Identificador não declarado: 'DADOS_ENDERECO'

 

abraço.

[CTe FastReports]

Boa tarde.

 

Estou com esse problema quando vou imprimir o dacte com o FastReport.[

---------------------------
Erro
---------------------------
Ocorreram os seguintes erros:
Memo11: Erro na expressão 'DADOS_ENDERECO': Identificador não declarado: 'DADOS_ENDERECO'

---------------------------
OK   
---------------------------
 

[Enviar Nfs-E Ginfes Está Dando Erro.]

Boa tarde.

Se vc tiver usando o Ginfes, não precisa assinar, tirar ACBrNFSe1.NotasFiscais.Assinar e faz um teste. 

abraço.

[Enviar Nfs-E Ginfes Está Dando Erro.]

Bom dia rblsystem.

Você pode me explicar melhor?

para adiantar vc está assinando a NFS-e?

 

abraço.

[Problemas Ao Imprimir O Dacte Com O Recibo Configurado Como Cabeçalho]

Solução no local citado abaixo:

[Dacte Saindo Em 2 Folhas]

Bom dia Italo.

Esse código é o que esta no formulário TfrmDACTeQRRetrato.pas.

procedure TfrmDACTeQRRetrato.qrb_01_ReciboBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  inherited;
  PrintBand := (QRCTe.PageNumber = 1) and (FCTe.Ide.modal <> mdAereo) and (FPosRecibo = prCabecalho);
  //Rodrigo DSP 22/01/2014 11:22:47: impressao do canhoto - Cabecalho.
  if (FResumoCanhoto) then
    qrlResumoCanhotoCTe.Caption := getTextoResumoCanhoto
  else
    qrlResumoCanhotoCTe.Caption := '';

  qrlSerie2.Caption  := IntToStr(FCTe.Ide.serie); // FormatFloat( '000', FCTe.Ide.serie);
  qrlNumCte2.Caption := FormatFloat('000,000,000', FCTe.Ide.nCT);

  qrb_01_Recibo.Enabled := (FCTe.Ide.tpCTe = tcNormal) or (FCTe.Ide.tpCTe = tcComplemento);
end;

 

Eu alterei o codigo abaixo zerando a qrb_18_Recibo(qrb_18_Recibo.Height  := 0), assim meu relatório passou a imprimir correto com o recibo do cabeçalho.

procedure TfrmDACTeQRRetrato.qrb_01_ReciboBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  inherited;
  PrintBand := (QRCTe.PageNumber = 1) and (FCTe.Ide.modal <> mdAereo) and (FPosRecibo = prCabecalho);
  //Rodrigo DSP 22/01/2014 11:22:47: impressao do canhoto - Cabecalho.
  if (FResumoCanhoto) then
    qrlResumoCanhotoCTe.Caption := getTextoResumoCanhoto
  else
    qrlResumoCanhotoCTe.Caption := '';

  qrlSerie2.Caption  := IntToStr(FCTe.Ide.serie); // FormatFloat( '000', FCTe.Ide.serie);
  qrlNumCte2.Caption := FormatFloat('000,000,000', FCTe.Ide.nCT);

  qrb_01_Recibo.Enabled := (FCTe.Ide.tpCTe = tcNormal) or (FCTe.Ide.tpCTe = tcComplemento);

// Adicionei essa linha.  

qrb_18_Recibo.Height  := 0;
end;

[Dacte Saindo Em 2 Folhas]

Boa tarde Italo,

 

Ok. vou verificar. muito obrigado por me ajudar.

[Dacte Saindo Em 2 Folhas]

Boa tarde Jorge,

 

Acredito que o problema seja a versão do Quick Report para o Delphi XE.

 

Veja o DACTE usando o seu XML gerado através da minha aplicação compilada com o Delphi 7 - Quick Report 5.02

 

31150608384759000127570000001280541001280545-cte.pdf

Qual a versão do Quick Report vc usa no delphi XE? Instalei a 5.05 e continuo o problema.

[Dacte Saindo Em 2 Folhas]

Bom dia Italo,

 

Delphi XE, versão do QuickReport 5.02.

 

em anexo XML do CT-e e o pdf do dacte.

31150608384759000127570000001280541001280545-CTe.xml

Dacte.PDF