Property AlignWithMargins

[Gr@c@]

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 18 Outubro, 2016 por Gr@c@
complementando

[BigWings]

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.

[Gr@c@]

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 18 Outubro, 2016 por Gr@c@

[BigWings]

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.

[Gr@c@]

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. 

[Gr@c@]

Precisei atualizar o meu ACBr do zero e voltei a ter esse erro. Porém, não consigo mais fazer o mesmo procedimento acima, abrindo o ACBrNFeDANFERL para mandar ignorar a propriedade AlignWithMargins. Como proceder?

[BigWings]

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?

[Gr@c@]

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;

 

[Juliomar Marchetti]

Pergunta você está usando delphi 7?

[Gr@c@]

1 minuto atrás, Juliomar Marchetti disse:

Pergunta você está usando delphi 7?

Sim, mas mesmo com o Delphi 7 vinha a pergunta de ignorar a propriedade ou eu conseguia alterar manualmente. 

[BigWings]

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.

[Gr@c@]

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.

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

[BigWings]

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.

[Gr@c@]

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.  

[Gr@c@]

Refiz todo o processo e deu certo, mostrou a propriedade AlignWithMargins. Obrigada pela ajuda.