Ir para conteúdo
  • Cadastre-se

Jorge Eduardo

Membros
  • Total de ítens

    66
  • Registro em

  • Última visita

Tudo que Jorge Eduardo postou

  1. 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 ---------------------------
  2. Boa tarde Juliomar. Tudo certo. Muito obrigado pela ajuda.
  3. Boa tarde Italo. Tudo certo. Muito obrigado pela ajuda.
  4. 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.
  5. Bom dia. Tudo certo. Muito obrigado a todos que me ajudaram.
  6. 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;
  7. 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?
  8. Boa tarde. Vou atualizar e refazer os teste, mais tarde eu posto o resultado. Obrigado.
  9. 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
  10. 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.
  11. Boa tarde. Tudo bem, vou baixar o acbr novamente e conferir os arquivos .fr3. Obrigado.
  12. 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.
  13. 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 ---------------------------
  14. Boa tarde. Se vc tiver usando o Ginfes, não precisa assinar, tirar ACBrNFSe1.NotasFiscais.Assinar e faz um teste. abraço.
  15. Bom dia rblsystem. Você pode me explicar melhor? para adiantar vc está assinando a NFS-e? abraço.
  16. 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;
  17. Boa tarde Italo, Ok. vou verificar. muito obrigado por me ajudar.
  18. Qual a versão do Quick Report vc usa no delphi XE? Instalei a 5.05 e continuo o problema.
  19. 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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.