Waldir Paim

@hleorj As vantagens são inúmeras. A mais relevante é não depender mais da midas.dll Veja os problemas: E as outras são tão relevante quanto é utilizar a estrutura mais moderna do Firedac.

Fiz alguns ajustes na unit para utilizar TFDMemTable em vez de TClientDataset nas versões mais novas do Delphi. Para deixar a escolha mais parametrizável poderíamos criar uma diretiva para esse caso e assim não afetaria os projetos que ainda não adotaram o Firedac. Segue unit anexo. ACBrNFeDANFeRL.pas

@eabarbian Eu imagino que esse banco fez um acordo com o bradesco para enviar os boletos utilizando sua estrutura. Diante disso devemos ter muito pouca alteração na unit a ser feita e posso herdar essa unit da unit do bradesco e aplicar somente o que realmente for especifico desse banco. Você pode identificar as diferenças desse banco para a unit do bradesco? Você fazendo isso já temos a unit compatibilizada.

@Claudiomir Enviei a proposta mas não tive manifestação positiva ou negativa sobre o assunto. @eabarbian Não temos garantia de que vão aceitar a unit da forma que está mas isso não nos impede de ajusta-la conforme descrito no manual do banco. O @Juliomar Marchetti não disse que vai fazer e nem deu prazo, disse apenas que o pessoal responsável pela manutenção do ACBrBoleto ainda não o fez mas também não deu garantias que irá fazer. Havendo interesse de ambos podemos tornar viável e funcional a unit em questão e após isso solicitar de forma objetiva a inclusão dos fontes no repositório oficial. Estou a disposição.

@Juliomar Marchetti Não quero criar polemicas nem sou contra ou a favor. Um passo para a evolução já foi dado pelo próprio projeto quando definiu que não daria suporte oficial para compiladores que não sejam Unicode a partir de Agosto desse ano. Mas sei também da postura de não adotar o GIT, até já questionei sobre isso em outro post. Mas não podemos nivelar os usuários por baixo e dizer que não muda de versionador por dificuldades de alguns usuários pois se fosse assim ainda teria que manter suporte a IDEs antigas, alguns reclamaram mas a grande maioria gostou desse decisão e estão evoluindo juntos. GIT na minha opinião é quase uma unanimidade para a maioria dos projetos e mais cedo ou mais tarde o SVN perde força se já não perdeu. O pascal evoluiu muito nesses últimos anos até para não perder todo seu espaço para outras linguagens, que por outro lado evoluem diuturnamente. Uma sugestão sobre o versionador seria abrir uma pesquisa ou enquete e pedir a opinião de outros usuários, com isso a gente conseguiria ver o que a maioria acha disso. Nesse caso a atribuição de dos membros com poder de commit e não podemos te ajudar nesse ponto. Não leve como uma critica por favor, quero apenas demostrar que as coisas evoluem e nunca podemos dizer nunca para algo tão volátil como tendencias.

@Daniel Simoes Nesse ponto concordo contigo. Acredito que usar o Copy teremos que incluir o terceiro parâmetro dele e pra mim a leitura fica prejudicada alem de gerar novos avisos pois o retorno dele é um string conforme descrito aqui http://docwiki.embarcadero.com/Libraries/XE7/en/System.Copy: No meu ponto de vista a Embarcadero está decidida em separar o código Ansi do código Unicode. Eu poderia enviar uma proposta de código com uso das diretivas que mesmo tornando o código mais sujo ele mantem a estrutura atual do código e separa o código conforme indica caminhar os novos compiladores.

@Edson Antonio de Oliveira Mexi com uma balança dessa hoje na parte da manha, e posso tentar te ajudar a esclarecer algumas dessas questões. Vou separar sua pergunta em partes para ficar mais fácil de explicar O modelo Prix 3 Plus da balança Toledo não tem conector específico para ligação em rede local. O RJ45 disponível nela não é para ligação em rede local, então a solução é utilizar um adaptador DB9 para RJ45-LAN. Ao conectar a balança toledo Prix 3 Plus na rede com esse adaptardor ela poderá ser encontrada na rede por um IP? Questão 1: Estou com o manual dela aqui e na pagina 6 nas características principais ela não apresenta conexão com Ethernet e apresenta na seção de opcionais a possibilidade de conexão RS-232C, então ela não tem conexão com rede. Questão 2: Na balança que recebi aqui ela possui um cabo onde numa das pontas tem um conetor RJ45 e na outra um conector DB9, então ela possui essa cabo e deve acompanhar a balança e deve encontrar nas revendas autorizadas. Questão 3: Não, ela deve ser conectada na porta serial do computador. No inicio tive um pouco de duvidas mas depois de ler o manual a coisa funcionou 100%. Se ainda tiver alguma duvida fique a vontade para solicitar.

@Antonio Paulo Mangili Eu não uso e o Delphi 2010, mas na tentativa de te ajudar, fiz uma pesquisa no google e alguns links que acredito de te ajude: português: http://unitonedev.blogspot.com.br/2009_10_01_archive.html inglês http://embarcadero.newsgroups.archived.at/public.delphi.ide/201008/10081210283.html Me parece que o problema é dessa versão do Delphi mesmo e ela tem vários updates. O "programa" que te indiquei trata-se de um plugin para a IDE, observou que ele criou uma Menu na sua IDE? Nele você encontra varias rotinas de muita utilidade, uma delas que uso com muita frequência é a funcionalidade de Uses Cleaner, veja nesse link http://stackoverflow.com/questions/2200250/how-to-automatically-remove-unused-units-from-uses-clause, estou te passando essa dica pois o autor do tópico em inglês indica que a presença de algumas units são uma das possíveis causas do problema, e essa função remove as units não utilizadas no seu projetos. Use com muita cautela, faça sempre backup dos arquivos antes de aplicar qualquer modificação no seu código.

@atlantisnanet Tudo vai depender do que você usa ou pretender usar! De quais exigências está falando? Do ACBr ou do mercado? Se for do ACBr pode comprar sem medo. Se for do mercado te digo que ele está prometendo compilar para Linux ainda esse ano. Vou te contar um pouco da minha trajetória: Eu gastei uma grana comprando o XE2 Enterprise e não usei, atualizei para XE5 da mesma versão e também não usei, sempre me mantive com no Delphi 7, logo após o lançamento do Seatle eu decidi que já era tempo de avançar tecnologicamente e depois alguma reflexão atualizei para o Seatle Professional. Eles vão sempre tentar te vender o mais caro, então antes de procurar o pessoal da Embarcadero defina o que você realmente pretende usar e compre exatamente o que cabe no seu bolso e está na sua lista de requisitos. Eu já comentei isso em outro tópico, mas vou te passar a dica aqui também, aproveite e compre a manutenção anual e com isso você terá direito a todo novo lançamento que sair nesse período de 12 meses. Como te disse a versão Pro me atende muitíssimo bem e estou com planos bem ousados usando ela. Nesse link https://www.embarcadero.com/br/products/delphi/product-editions você encontra um comparativo entre as versões, escolha a que melhor te atenda e seja feliz.

@Antonio Paulo Mangili Sim ele é compatível até com Delphi 7, ele deve identificar a sua versão instalado e já marcar pra ti.

@Antonio Paulo Mangili Faz um Build All no seu projeto ele reconstrói todas as dcus. Se o problema persistir instala o http://www.cnpack.org/showdetail.php?id=797, ele faz milagres na IDE uso ele no Sealtle e me ajuda bastante.

@alexandre.abaco Da uma olhada nesse link http://cc.embarcadero.com/item/30359 Eu não uso suporte pago deles, mas até hoje ainda não encontrei um problema de Delphi sem solução, ele é bem parecido com bombril sempre tem 1001 maneiras de usar, quanto a maturidade sempre foi e vai ser uma continuidade 7, 8, 2007.2010, Xe..X10 e daqui uns dias 10.1.

@alexandre.abaco Eu uso Delphi Seatle Professional (antes eu tinha uma versão XE5 Enterprise) e comprei a atualização anual. Estou bem contente com o investimento e ainda com isso só precisaria investir novamente no inicio do ano que vem e até lá receberei as atualizações que a Embarcadero liberar tudo incluso no pacote. Eu te recomento já migrar para ele, pois sempre terá seu código atualizado e não terá mais esse dilema de ter que migrar novamente para uma versão mais nova do Delphi. Dá uma olhada aqui https://www.embarcadero.com/br/products/rad-studio/product-editions e compare se a versão Pro te atende.

@Daniel Simoes Vou te mandar uma proposta como dito no post anterior. Como você propôs trocar por copy geraria mais W0157 e W1058 pois precisaria de uma conversão em muitos casos para AnsiString. Segue anexo, compactei pois já lotou o espaço disponível para inclusão de arquivos. ACBrSerial.zip ACBrUtil.pas

@Daniel Simoes Vamos dar fim então nos avisos W1000. Pensando aqui acredito que em vez de encher o código fonte de $IFDEF poderemos agir da seguinte forma: Na função abaixo ela apresenta o aviso W1000, mas se incluirmos ela ou uma variação dela na ACBrUtil.pas já removeremos muitos dos alertas apresentados function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload; begin Result := Copy(AText, 1, ACount); end; Uma sugestão para ACBrUtil seria: function LeftStrExt(const AText: AnsiString; const ACount: Integer): AnsiString; begin Result := {$IFDEF DELPHIXE4_UP}AnsiStrings.{$ENDIF}LeftStr(AText, 1, ACount); end; Com isso evitamos ambiguidade de nomes e mantemos o código limpo de $IFDEF da vida. @hleorj Sei que sua nota 8 não passou de uma brincadeira, então não leve a mau meu texto abaixo. Já que você é da terra do samba, acostumado com nota 10, tenho aqui um exemplo que ocorreu ai na cidade maravilhosa e foi apresentado pela http://www.rio-carnival.net/carnaval/escola-de-samba/unidos-da-tijuca.php que conseguiu mostrar para o mundo que gente do mato "grosso", não da rocha nem sem cultura mas sim com muita coisa boa para mostrar, levou o nome da nossa cidade http://www.sorriso.mt.gov.br/ e região mostrando um pouco de nossa cultura e todo potencial existente aqui na nossa região. Sei também que nem sempre uma nota 10 mostra o quão bom é o sujeito então assim eu muitos saíram do sambódromo com o sentimento de dever cumprido e de alma lavada em mostrar que podemos fazer e ser um pouco melhor a cada dia. Um forte abraço e uma nota 10 para você.

@Daniel Simoes Dessa forma apenas um de meus projetos apresenta os avisos decorrente do ACBr. Como já tive a oportunidade em outros posts a grande maioria dos avisos são do tipo W1000 na pasta ACBrSerial. Posso incluir ele na minha lista que já possui os W0157 e W1058 ou prefere que continuemos a tarefa até a extinção total do mesmo? Digo dele pois não terei tempo para dar continuidade nos avisos da minha lista de mensagens ignoradas. Desde já agradeço a oportunidade e a confiança de poder contribuir um pouco com esse projeto tão valioso para muitos desenvolvedores. PS: Poderia por favor re-enviar a atualização do ultimo(s) commit(s), o SVN deve ter revertido alguma coisa lá.

Segue unit com alteração para manter o código original e remover os avisos. Utilizei o reintroduce para conseguir suprimir os avisos. Só foi preciso alteração em uma das duas units. ACBrNFeConfiguracoes.pas

@Daniel Simoes Vou tentar remover os avisos e manter o código original.

Daniel, As mensagens são essas. Eu não alterei a edentação evito até alterar a estrutura da unit para não gerar muitas diferenças. Segue abaixo um trecho do log apresentado. Me desculpe pela falta de atenção, Realmente não me detive a edentação das partes que escrevi na proposta, um dos motivos seria esse mesmo se tratar de um código a ser analisado e sem o devido acabamento esperado. No meu código final utilizo a endentação automática que aciono pela tecla Crtl+W do plugin http://www.cnpack.org/index.php?lang=en Mas me atentarei ao fato nas oportunidades.

Daniel, Segue novas units para avaliação. As alterações é apenas uma proposta mas procurei manter fielmente a funcionalidade anterior. Com as alterações nas unit ACBrDFeConfiguracoes e ACBrNFeConfiguracoes zerei os avisos de mais um projeto. ACBrDFeConfiguracoes.pas ACBrNFeConfiguracoes.pas Como já havia dito, só ficou avisos do tipo W0157 e W1058 e outros avisos das Units da pasta ACBrSerial. Nessa pasta ACBrSerial deve enviar algumas correções para remover os avisos do tipo W1000 e com isso encerro minha tarefa.

@GRUPOAZUR Vamos trabalhar juntos com certeza nessa tarefa. Estou terminado uma tarefa que já me comprometi, mas assim que concluir posso me dedicar a essa nova empreitada e conto contigo. Devo contribuir com aproximadamente uns 20 mil itens do ramo de supermercado, pretendo mesclar com os registros da sua base de dados sim.

Valeu Daniel, Estou bem contente o resultado dessas alterações, em alguns projetos já não tenho avisos (exceto os que desativei os W1057 e W1058) decorrentes do ACBr. Segue mais algumas units. Nas 03 units anexadas removi avisos do tipo W1000. ACBrDFeUtil.pas ACBrDFeOpenSSL.pas ACBrHTTPReqResp.pas Daniel, Observando aqui boa parte dos avisos da pasta ACBrSerial tambem são do tipo W1000 e com isso acredito que devo mexer neles essa semana ainda.

Minha pequena contribuição. Segue anexo. ACBrBALSaturno.pas

Segue mais algumas units para analise. Nas units ACBrETQEpl2 e ACBrETQPpla fiz o cast de PChar para PAnsiChar; Nas unit ACBrZLibExGZ uma conversão para AnsiString na saida da função. Na pcnAuxiliar da forma que a unit está escrita ela causa a mensagem do tipo W1010 é uma proposta e se aceita temos algumas outras units com o mesmo problema. ACBrETQEpl2.pas ACBrETQPpla.pas ACBrZLibExGZ.pas pcnAuxiliar.pas

Segue função proposta: function CRTTocRegTrib(const t: TpcnCRT): TpcnRegTrib; var Ok : Boolean; begin result := StrToEnumerado(ok, CRTToStr(t), ['','1', '2', '3'],[RTRegimeNormal,RTSimplesNacional,RTRegimeNormal, RTRegimeNormal]); end; Mas para manter o padrão precisei passar por dois loops, mas padrão é padrão e não se discute. A variável local é um parâmetro obrigatório e não tem como não utilizar. Ainda sou muito mais a função proposta usando array e uma conversão direta pelo compilador e nativa da linguagem. Proponho também alterar para: function CRTTocRegTrib(const t: TpcnCRT): TpcnRegTrib; begin case t of crtSimplesExcessoReceita, crtRegimeNormal: Result := RTRegimeNormal; else Result := RTSimplesNacional; end; end; Muito mais rápida e com uma leitura mais agradável. Tambem podemos usar essa outra: function CRTTocRegTrib(const t: TpcnCRT): TpcnRegTrib; begin Result := RTSimplesNacional; if t in ([crtSimplesExcessoReceita, crtRegimeNormal]) then Result := RTRegimeNormal; end; Um leitura mais simples e também resolve as mensagens da IDE. Da forma que a função está escrita hoje a IDE gera avisos.