Ir para conteúdo
  • Cadastre-se

dev botao

Property AlignWithMargins


Gr@c@
Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 2852 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores

Desculpem o tópico repetido (sei que vou levar um rala dos moderadores), mas o tópico que encontrei a respeito dessa dúvida foi travado sem apontarem a solução, porque o arquivo log não detalha a alteração. Já atualizei os meus componentes ACBr via SVN e também o Fortes Reports CE via SVN. Deu build em tudo. Substitui o componente no form. Recompilei o projeto. Mas o erro continua. O que precisa ser feito? (ao dar o erro não me pede para ignorar a propriedade)

 

Editado por Gr@c@
complementando
Link para o comentário
Compartilhar em outros sites

  • Moderadores
14 minutos atrás, BigWings disse:

Bom dia,

Pela busca que fiz, o arquivo que tem o AlignWithMargins é o  ACBrNFeDANFeRLPaisagem.dfm.

Você precisa abrir esse arquivo e retirar a linha, depois recompilar o ACBr.

Isso pode interferir no layout do DANFe.

Essa seria uma propriedade não suportada pelo Delphi 7 ? Porque não pergunta se deseja ignorar.

Editado por Gr@c@
Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution
1 minuto atrás, Gr@c@ disse:

Essa seria uma propriedade não suportada pelo Delphi 7 ? Porque não pergunta se deseja ignorar.

Sim, Delphi 2006 em diante.

Só vai perguntar se você abrir o ACBrNFeDANFeRLPaisagem.pas diretamente, só adicionar o componente não faz a verificação.

Eu sempre tinha esse problema usando Fast Report 4 quando o ACBr ainda usava .dfm's pra instanciar os componentes do DANFeFR.

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Obrigada pela resposta detalhada. Funcionou abrindo o ACBrNFeDANFeRL.pas. Verificou que a propriedade AlignWithMargins não existia e se desejava ignorar. Aparentemente não fez diferença na impressão do Danfe. No Delphi XE3 está compilando normalmente. 

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...
  • Moderadores

Bom dia,

Tente abrir o .dfm diretamente em um editor de textos qualquer e remover a linha AlignWithMargins.

Também pode haver outro .dfm no search path do Delphi que esteja tendo prioridade no linker.

Você executou a opção de remover os arquivos antigos do ACBr na instalação?

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Executei a opção de remover os arquivos antigos, mas mesmo assim não consigo fazer a alteração. Abri pelo editor de texto, mas não existe essa propriedade AlignWithMargins em nenhum dfm ou pas ref ao danfe do fortes. De onde está vindo essa propriedade? Consigo compilar meu projeto sem nenhum erro, mas ao executar a visualização ou impressão do Danfe fortes em paisagem dá o erro. O erro ocorre exatamente nessa procedure:

procedure TACBrNFeDANFeRL.ImprimirDANFEPDF(NFE : TNFe = nil);
var sFile: String;
var
  i : Integer;
begin
  try
  case TipoDANFE of
    tiRetrato      : frlDANFeRL := TfrlDANFeRLRetrato.Create(Self);
    tiPaisagem     : frlDANFeRL := TfrlDANFeRLPaisagem.Create(Self);  --------> nesta linha ocorre o erro
    tiSimplificado : frlDANFeRL := TfrlDANFeRLSimplificado.Create(Self);
  else
    frlDANFeRL := TfrlDANFeRLRetrato.Create(Self);
  end;

  if NFE = nil then
    begin
      for i:= 0 to TACBrNFe(ACBrNFe).NotasFiscais.Count-1 do
        begin
//          sFile := TACBrNFe(ACBrNFe).DANFE.PathPDF +
//                   Copy(TACBrNFe(ACBrNFe).NotasFiscais.Items[i].NFe.infNFe.ID,
//                   4, 44) + '-nfe.pdf';
          sFile := TACBrNFe(ACBrNFe).DANFE.PathPDF +
                   StringReplace(TACBrNFe(ACBrNFe).NotasFiscais.Items[i].NFe.infNFe.ID,'NFe', '', [rfIgnoreCase])
                   + '-nfe.pdf';

          frlDANFeRL.SavePDF(Self, TACBrNFe(ACBrNFe).NotasFiscais.Items[i].NFe,
          FLogo, FMarcaDagua, FLarguraCodProd, FEmail, FExibeResumoCanhoto, FFax,
          FNumCopias, FSistema, FSite, FUsuario, sFile, FPosCanhoto, FFormularioContinuo,
          FExpandirLogoMarca, FMostrarStatus, FFonte.FNome, FFonte.FNegrito, FMargemSuperior,
          FMargemInferior, FMargemEsquerda, FMargemDireita, FCasasDecimais._qCom,
          FCasasDecimais._vUnCom, FProdutosPorPagina, FImpressora,
          FFonte.FTamanhoFonte_RazaoSocial, FExibirEAN, FProtocoloNFe,
          FExibeResumoCanhoto_Texto, FNFeCancelada,
          FImprimirDetalhamentoEspecifico, FImprimeDescPorc,FImprimeNomeFantasia,fImprimirTotalLiquido,
          FDetVeiculos, FDetMedicamentos, FDetArmamentos, FDetCombustiveis,
          fQuebraLinhaEmDetalhamentoEspecifico,
          Integer ( fCasasDecimais.Formato ),
          fCasasDecimais._Mask_qCom,
          fCasasDecimais._Mask_vUnCom,
          fExibeCampoFatura,
          fMostraDadosISSQN,
          fAltLinhaComun,
          fEspacoEntreProdutos,
          fAlternaCoresProdutos,
          fCorDestaqueProdutos );
        end;
    end
  else
    begin
//      sFile := Self.PathPDF + Copy(NFe.infNFe.ID, 4, 44) + '-nfe.pdf';
      sFile := Self.PathPDF +
               StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]) +
               '-nfe.pdf';

      frlDANFeRL.SavePDF(Self, NFe,
      FLogo, FMarcaDagua, FLarguraCodProd, FEmail, FExibeResumoCanhoto, FFax,
      FNumCopias, FSistema, FSite, FUsuario, sFile, FPosCanhoto, FFormularioContinuo,
      FExpandirLogoMarca, FMostrarStatus, FFonte.FNome, FFonte.FNegrito, FMargemSuperior,
      FMargemInferior, FMargemEsquerda, FMargemDireita, FCasasDecimais._qCom,
      FCasasDecimais._vUnCom, FProdutosPorPagina, FImpressora,
      FFonte.FTamanhoFonte_RazaoSocial, FExibirEAN, FProtocoloNFe,
      FExibeResumoCanhoto_Texto, FNFeCancelada,
      FImprimirDetalhamentoEspecifico, FImprimeDescPorc,FImprimeNomeFantasia,fImprimirTotalLiquido,
      FDetVeiculos, FDetMedicamentos, FDetArmamentos, FDetCombustiveis,
      fQuebraLinhaEmDetalhamentoEspecifico,
      Integer ( fCasasDecimais.Formato ),
      fCasasDecimais._Mask_qCom,
      fCasasDecimais._Mask_vUnCom,
      fExibeCampoFatura,
      fMostraDadosISSQN,
      fAltLinhaComun,
      fEspacoEntreProdutos,
      fAlternaCoresProdutos,
      fCorDestaqueProdutos );
    end;
 finally
   FreeAndNil(frlDANFeRL);
 end;
end;

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

O único .dfm que tem no pacote DANFeRL com a propriedade é o ACBrNFeDANFeRLPaisagem.dfm, veja imagem anexo.

Mas como disse pode haver outro arquivo com esse mesmo nome no search path do seu Delphi. Faça uma varredura em todos os discos por esse arquivo, e veja se algum deles tem o AlignWithMargins.

align.png

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
1 minuto atrás, BigWings disse:

O único .dfm que tem no pacote DANFeRL com a propriedade é o ACBrNFeDANFeRLPaisagem.dfm, veja imagem anexo.

Mas como disse pode haver outro arquivo com esse mesmo nome no search path do seu Delphi. Faça uma varredura em todos os discos por esse arquivo, e veja se algum deles tem o AlignWithMargins.

align.png

Não existe outro arquivo com esse nome. O unico arquivo está em C:\ComponentesDelphi7\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes.

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Pergunta, você baixou novamente os fontes do ACBr para uma nova pasta, ou apenas atualizou a que você já tinha?

Se foi realmente do zero como disse, a linha AlignWithMargins vai estar lá, no arquivo ACBrNFeDANFeRLPaisagem.dfm, linha 4214, é só remover e recompilar o ACBr.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Sim, exclui a pasta anterior, criei uma nova pasta, atualizei via svn update e depois executei o ACBrInstal para instalar (e cliquei novamente no botão Atualizar para atualizar tudo através do proprio ACBrInstall). Vou refazer todo o processo, porque já esgotei as tentativas.  

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2852 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.

The popup will be closed in 10 segundos...