luciano_f

já fiz essa pesquisa e não consegui encontrar algo que faça o que eu preciso

isso mesmo copiar uma objeto de um TACBrNFe para outro porém usar "Assign" e pegar a referencia e isso está gerando os problemas

Pessoal a 4 horas batendo cabeça e não sei como adicionar itens de um objeto para outro procedure TForm3.Button2Click(Sender: TObject); Var I, vIndex: Integer; Var ACBrNFe1, ACBrNFe2: TACBrNFe; Var StringStreamIn: TStringStream; Var Produto: TDetCollectionItem; Var NotaF: NotaFiscal; begin ACBrNFe1 := TACBrNFe.Create(Self); ACBrNFe2 := TACBrNFe.Create(Self); Try StringStreamIn := TStringStream.Create; StringStreamIn.LoadFromFile('D:\A.xml'); ACBrNFe1.NotasFiscais.LoadFromStream(StringStreamIn); FreeAndNil(StringStreamIn); StringStreamIn := TStringStream.Create; StringStreamIn.LoadFromFile('D:\B.xml'); ACBrNFe2.NotasFiscais.LoadFromStream(StringStreamIn); FreeAndNil(StringStreamIn); with ACBrNFe2.NotasFiscais.Items[0].NFe do begin for I := 0 to Det.Count - 1 do begin // vIndex := ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Count; { NotaF := ACBrNFe1.NotasFiscais.Add; Produto := NotaF.NFe.Det.New; Produto.Assign(Det.Items[I]); Erro } // ACBrNFe1.NotasFiscais.Items[0].NFe.Det.New.Assign(Det.Items[I]); Erro // ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[vIndex].Prod.nItem := vIndex + 1; End; end; ACBrNFe1.NotasFiscais.Items[0].GerarXML; ACBrNFe1.NotasFiscais.Items[0].GravarXML('D:\XMLteste.XML'); Finally ACBrNFe1.Free; ACBrNFe2.Free; // Erro End; end;

Se uma IDE de 32 Bits consegue copilar app de 64 bits porque o inverso não é possivel ?

Pode ser que minhas units sejam grandes, porém minha luz no fundo do tunel é a embacadero entender que 64 Bits é um caminho a ser seguido assim como Lazarus e Visual Studio. Como eu trabalho com Unigui e já está no Rodmap Lazarus isso me faria migrar correndo.

Acredito que sim pois são varios problemas relatados ao copilar grande aplicativos Até porque porque em 2023 uma IDE 32 Bits acredito sem pobre pelo preço cobrado pelo mesmo Olhe para o Lazarus com IDE de 64 Bits para Windows e também uma IDE para MacOS e Linux

Tenho uma licença da versão 10.2 e tenho problemas com pouca memória ao compilar uma aplicação grande. Testei a versão 11.3 e o problema é o mesmo. Quando a Embarcadero terá vergonha e fará um IDE robusto de 64 bits ? Já estou pensando seriamente no Lázaros quando a Unigui o Suportar. Os amigos também poderiam votar. Para quem não tem a conta na Embarcadero essa conta é Free. https://quality.embarcadero.com/browse/RSP-33115 Os Admin do forum poderia deixar esse topico como Fixo

O ACBr não matou o Capicom, tanto que ele ainda funciona. Esse era o meu Medo de o ACBR não tem mais o Suporte que bom que ele não será tirado OpenSSL e resolverá seus problemas. Infelizmente em alguns clientes também não resolveu apenas o Capicom que funciona

Como já mencionei acima é inaceitável pedir para um Cliente formatar a maquina ou mesmo atualizar o Windows só para resolver o meu problema. todos os meus clientes que teve o problema essa semana Foram Windows 7 eu consegui resolver com Capicom 3 Desses Clientes tem vários outros sistema de Bancos e pedir para formatar é um pesadelo, problema de ransomware ou invasão não é desculpa pois como esses clientes acessam banco todos eles tem ótimos antivírus pagos como Kaspersky ou Bitdefender. 2 desses clientes tem sistemas legados que usam para consulta feito em Clipper e outro em Cobol e não tem como reinstalar novamente pois nem acesso ao desenvolvedor eles tem mais. Outro cliente é um deposito de construção e tem um sistema misturador de tinta antigo que também é sem chance de formatar ou atualizar. ou seja são muitas varias para dizer simplesmente formata que resolve ou atualiza o windows correndo grande de risco de BSO. Meu intuito principal com esse tópico é mostrar para os desenvolvedores do ACBR que não pode matar o Capicom eu já tinha visto esse topico

Já vi vários tópicos aqui no fórum onde é relatado para não usar Capicom então pergunto porque essa implicância em usar Capicom ? Sou do Paraná e ontem teve uma mudança na sefaz e vários clientes tiveram problemas de canal seguro a única forma que funcionou foi com cryCapicom. Não posso pedir para os clientes formatar o Windows e colocar o Windows 10 ou mesmo tentar atualizar o Windows 7 e correr o risco de ter um bso. E gostaria de pedir para os desenvolvedores não tirar o cryCapicom do Acbr pois ele me salvou e a alternativa seria formatar ou atualizar o Windows o que é completamente inviável.

hum acredito que entendi. vou fazer mais testes Grato.

Analisando melhor o arquivo "ACBrCargaBal.pas" existe um erro na linha em function ValorComVirgula(nValor:Currency):string; tive que trocar por sTemp := LFIll(FormatFloat('##0.00', nValor), 9, ' '); Result := TrocaPontoPorVirgula(sTemp); Em anexo o arquivo com correção ACBrCargaBal.pas

Pessoal estou com a ultima versão do ACBR atualizada e num cliente novo fiz exportação nos 3 formatos modUrano, modUranoS e modUranoURF32 Nenhum deles o aplicativo da Urano consegue fazer a leitura tem alguma outra configuração que deixei passar além de escolher certo o tipo da balança. ou o ACBR não suporta a carga para essa balança ? o Layout é esse em anexo. Configurações_txt - Topmax SS R1.0 geral.pdf Produtos_txt - Topmax SS R1.1 geral.pdf

Fico muito agradecido colega eu de fato tinha pegado uma versão errada do ACBR seguindo seus concelhos deu certo.

Pessoal eu não consigo Instalar o ACBR no Delphi 10.4.2, Eu baixei a ultima versão do ACBR hoje ao Executar o Aplicativo "ACBrInstall_Trunk2.exe" dentro da Pasta "NextGen" não detecta a versão 10.4.2 do Delphi Dessa forma tentei instalar os pacotes de forma manual porém está dando erro ao copilar "ACBr_DFeComum" Erro na Linha 181 do arquivo "ACBrDFeWinCrypt.Pas" [dcc32 Error] ACBrDFeWinCrypt.pas(181): E2010 Incompatible types: 'ACBr_WinCrypt.PCCERT_CONTEXT' and 'Winapi.Windows.PCCERT_CONTEXT'