Sugestão - Limpeza dos uses de algumas units

[bsoft]

Olá. Gostaríamos de sugerir a limpeza dos uses das units abaixo, para evitar de precisar definir o Unit Scope com "VCL" para compilar no Delphi 10.1 Berlin.
Segue abaixo a relação de cada unit e quais units podem ser removidas sem nenhum impacto:

ACBrCTeDACTEFR.pas = Graphics

ACBrMDFeDAMDFEFR.pas = Forms, Graphics, Dialogs

ACBrMDFeDAMDFEFRDM.pas = Dialogs

ACBrNFeDANFEFR.pas = Forms, Graphics, Dialogs

ACBrNFeDANFEFRDM.pas = Dialogs

ACBrSEF2_BlocoE.pas = Controls

Assim apenas o pacote ACBr_NFeDanfeFR precisa ter esta definição devido ao uses da unit Graphics no arquivo ACBrNFeDANFEFRDM.pas, necessário para o procedimento PintarQRCode.

[Juliomar Marchetti]

Anexe as sugestões aqui que avaliamos. lembrando que deve ser compatível desde delphi 2009 até o berlin!

[bsoft]

Segue em anexo conforme solicitado. Se achar mais fácil, incluímos um arquivo Patch, que deve ser colocado na raiz da pasta Fontes para que o SVN encontre os arquivos.

Não temos os Delphi's intermediários (2009, por exemplo), mas estas modificações compilaram no Delphi 7 e no Delphi 10.1 Berlin. Apenas para o arquivo do SEF2 é que foi incluída uma diretiva, por causa do TDate ser declarado no Controls no Delphi 7.

limpeza_uses.patch

ACBrCTeDACTEFR.pas

ACBrMDFeDAMDFEFR.pas

ACBrMDFeDAMDFEFRDM.pas

ACBrNFeDANFEFR.pas

ACBrNFeDANFEFRDM.pas

ACBrSEF2_BlocoE.pas

[Juliomar Marchetti]

boa tarde

está no svn as alterações

Obrigado

[Waldir Paim]

@Juliomar Marchetti

 

Segue para avaliação limpeza de algumas units.

da pasta ACBrSerial

ACBrBALAFTS.pas

ACBrBALDigitron.pas

ACBrBALLibratek.pas

ACBrBALMuller.pas

ACBrBALSaturno.pas

ACBrBALToledo2090.pas

ACBrBALToledo2180.pas

ACBrDISGertecTeclado.pas

ACBrDISKeytecTeclado.pas

ACBrDISSmakTeclado.pas

ACBrECFVirtualNaoFiscal.pas

ACBrECFVirtualPrinter.pas

ACBrCHQSchalter.pas

ACBrCHQUrano.pas

da pasta ACBrTCP

ACBrSocket.pas

ACBrMail.pas

ACBrDownloadClass.pas

ACBrFTPDownload.pas

ACBrHTTPDownload.pas

ACBrConsultaCNPJ.pas

ACBrWinHTTPReqResp.pas

ACBrWinINetReqResp.pas

da pasta ACBrTEFD

ACBrTEFDGpu.pas

ACBrTEFDAuttar.pas

ACBrTEFDClass.pas

ACBrTEFDCliSiTef.pas

ACBrTEFDConvCard.pas

ACBrTEFDCrediShop.pas

ACBrTEFDDial.pas

ACBrTEFDDisc.pas

ACBrTEFDFoxWin.pas

ACBrTEFDGoodCard.pas

ACBrTEFDHiper.pas

ACBrTEFDPetroCard.pas

ACBrTEFDVeSPague.pas

da pasta ACBrSpedFiscal

ACBrEFDBloco_C_Events.pas

da pasta PCNComum

pcnAuxiliar.pas

pcnGerador.pas

pcnLeitor.pas

na pasta PCNNFe

pcnAdmCSCNFCe.pas

pcnDownloadNFe.pas

pcnLayoutTXT.pas

pcnNFeR.pas

na pasta ACBrComum

ACBrBase.pas

na pasta ACBrBoleto/FC/Fortes

ACBrBoletoFCFortesFr.pas

[Waldir Paim]

da pasta ACBrDFe

ACBrDFeCapicom.pas

ACBrDFeHttpOpenSSL.pas

ACBrDFeHttpIndy.pas

ACBrDFeHttpWinApi.pas

ACBrDFeOpenSSL.pas

ACBrDFeUtil.pas

ACBrDFeWinCrypt.pas

da pasta ACBrDFe/ACBrNFe

ACBrNFeWebServices.pas

da pasta ACBrDFe/ACBrNFe/DANFe

ACBrNFeDANFEClass.pas

da pasta ACBrDFe/ACBrNFe/DANFe/NFCe/EscPos

ACBrNFeDANFeESCPOS.pas

da pasta ACBrDFe/ACBrNFe/DANFe/NFe/Fortes

ACBrNFeDAInutRL.pas

ACBrNFeDAInutRLRetrato.pas

ACBrNFeDANFeEventoRL.pas

ACBrNFeDANFeRL.pas

ACBrNFeDANFeRLClass.pas

@Juliomar Marchetti

Se por um acaso for no meio algumas units com remoção de hints e preferir não aplicar pode ficar a vontade.

Essas eu postarei no tópico especifico de remoção de hints e warnings.

[Daniel Simoes]

Uau... prometo que analiso hoje a noite...

[Daniel Simoes]

Qual a finalidade do código abaixo ?

ACBrDFeHttpOpenSSL.pas

FHTTP.KeepAlive := True;
FHTTP.KeepAliveTimeout := 100;

 

[Daniel Simoes]

OK.... parece que está tudo no SVN...

Muito obrigado pela revisão...

[Waldir Paim]

Citar

Qual a finalidade do código abaixo ?

ACBrDFeHttpOpenSSL.pas

FHTTP.KeepAlive := True;
FHTTP.KeepAliveTimeout := 100;

 

Eu uso para aproveitar o recurso de keep-alive dos servidor da receita.

Sobrou uma unit com uses desnecessário.

Segue anexo:

 

libxmlsec.pas

Se puder remova o Warning  dessa unit:

 

ACBrDFeXsMsXml.pas

[Daniel Simoes]

Enviei a correção para ACBrDFeXsMsXml.pas... em relação a libxmlsec.pas, preferi manter, pois a unit removida do uses, tem código de "initialization" ...

Vou ler mais sobre o KeepAlive, e verificar se não traria algum efeito colateral

[Waldir Paim]

@Daniel Simoes

A libxslt não é requerida para o funcionamento da validação nem para o envio do xml.

Ela é usada simplesmente para indentação do xml e nesse caso a receita recomenda que o mesmo seja enviado sem essa formatação.

Eu removi a unit libxslt.pas e suas dependências e vou fazer os testes para ter certeza absoluta que sem essa lib os xmls serão assinado, validados e transmitidos corretamente.

Se pude fazer os testes ai teríamos uma contra prova do teste.

Segue units:

libxmlsec.pas

ACBrDFeXsXmlSec.pas

[Waldir Paim]

@Daniel Simoes

Essas alterações já estão em produção e estão funcionando bem sem a dependência da unit libxslt.pas.

 

[Daniel Simoes]

Tem razão, acho que não fazemos usa da xslt... mesmo a xmlsec, pode ser compilada, sem a dependência dela...

Apliquei a modificação, e também removi a dependência dessa unit dos Packages

 

[avirissi]

Pessoal, depois da ultima atualizacao nao estou conseguindo compilar o SpedContabil.

erro no ACBRDFeXsMsXml, linha 152 "Constant object cannot be passed as var parameter"

Obrigado

[Juliomar Marchetti]

Estranho pois esse componente não faz uso dessa unit!

favor anexar o log do instalador, pois acredito que fez a recompilação após atualizar o svn

[avirissi]

Juliomar, resolvido, na verdade eu nao tinha rodado novamente o instalador, somente atualizado pelo SVN, com seu comentario rodei novamente o instalador e nao apresentou mais o erro.

Obrigado.