Pesquisar na Comunidade

Bom dia, Iniciei alguns testes com Delphi + Linux + ACBNFSeX. Verifiquei que ao carregar os dados do certificado digital .pfx no Linux causa erro ERangeError, quando Range checking está habilitado nas configurações do projeto (estranhamente que em ambiente windows mesmo com RangeChecking habilitado nao causa erro) Identifiquei onde o problema é causado e melhorei o método para evitar esse erro. Segue a unit modificada. Testado em Win32/Win64/Linux64 para carregamento de certificados A1. ACBrDFeOpenSSL.pas Método alterado: BioToStr function BioToStr(ABio : pBIO) : AnsiString ; Var Ret : Integer ; Lin : AnsiString ; begin Result := ''; Ret := BIO_ctrl(ABio, BIO_CTRL_PENDING, 0, nil); if Ret > 0 then begin SetLength(Lin, Ret); BioRead( ABio, Lin, Ret); Result := Lin; end; end ;

Bom dia a todos. Precisei utilizar a classe TDeclaracaoImportacao(e derivados) para importar uma DI. Tenho em mãos o XML da DI e o Impresso do Extrato da DI correspondente. Na impressão as informações relacionadas a carga estão conforme o print. Quanto importo atualmente os resultados ficam assim: cargaPesoBruto|Valor Lido (FloatToStr): 11705300 cargaPesoLiquido|Valor Lido (FloatToStr): 9876300 quantidadeVolumes|Valor Lido (FloattoStr): 36,58 cargaPesoBruto|Valor Lido FormatFloat(#,###,##0.00000): 11.705.300,00000 cargaPesoLiquido|Valor Lido FormatFloat(#,###,##0.00000): 9.876.300,00000 quantidadeVolumes|Valor Lido FormatFloat(###0): 37 Fiz algumas pequenas alterações para que eles fiquem assim depois de importar: cargaPesoBruto|Valor Lido (FloatToStr): 11705,3 cargaPesoLiquido|Valor Lido (FloatToStr): 9876,3 quantidadeVolumes|Valor Lido (FloattoStr): 3658 cargaPesoBruto|Valor Lido FormatFloat(#,###,##0.00000): 11.705,30000 cargaPesoLiquido|Valor Lido FormatFloat(#,###,##0.00000): 9.876,30000 quantidadeVolumes|Valor Lido FormatFloat(###0): 3658 pcnDIR.pas

Boa noite, Estou tentando uma instalação nova com as seguintes configurações: Máquina rodando win64, Instalei o pacote de 32 bits do Lazarus; Consegui instalar todos os pacotes anteriores, más quando vou para os componente do pacote ACBRDFe, na hora de reconstruir o Lazarus, trava e não compila. Já coloquei permissão para o Lazarus no Firewall e no antivirus, más não resolveu. Alguma ajuda? G

Por favor, estou recebendo a mensagem de erro abaixo, ao tentar validar. Element "{http://www.portalfiscal.inf.br/nfe}pag" cannot be empty according to the DTD/Schema Vi que existe outro post sobre esse assunto. Mas a resposta não sanou a minha dúvida. Se puderem responder, mesmo que com um pequeno exemplo hipotético, de qual forma e a classe/propriedade que eu devo eu devo utilizar e preencher, eu agradeço. Estou fazendo testes para a NFe 4.0. Eu fiz da seguinte forma, mas ainda não surtiu efeito: ACBrNFe1.NotasFiscais.Add.NFe.pag.vTroco := 0; // esta fixo para testar ACBrNFe1.NotasFiscais.Add.NFe.pag.Add.tPag := fpDinheiro; // esta fixo para testar ACBrNFe1.NotasFiscais.Add.NFe.pag.Add.vPag := 5.9; // esta fixo para testar

Boa tarde. Primeiramente peço desculpas por estar criando uma dúvida no ACBrNFe, sendo que esta se refere também ao ACBrMDFe e ACBrNFSe. Estou migrando o ACBr para o trunk2 e com isto perdi algumas coisas que havia implementado nas classes do ACBr, mas não enviado por conta de o ACBr já estar no trunk2. As minhas implementações se referiam ao nome do arquivo que sai para a impressão nas impressoras, nelas, eu alterava o nome do arquivo, para que ficasse igual a chave da NFe, MDFe ou NFSe. Eu apenas colocava a chave na propriedade do impressor de Danfe, Damdfe e danfse respectivo "frxReport.ReportOptions.Name" e a chave era encaminhada corretamente. Lembrando que esta implementação acontecia nas classes ACBrNFeDANFEFR, ACBrMDFeDAMDFeFR e ACBrNFeDANFEFR e não na minha aplicação. Fazemos isto porque a emissão das notas é feita a partir de um serviço que desenvolvemos usando o ACBr e os PDFs são salvos em uma pasta por meio de uma impressora PDF com o nome sendo a chave do DFe. Como já disse, eu perdi o que eu já havia implementado anteriormente e agora, com o trunk2, não gostaria de vir a mexer nos fontes do ACBr por receio de gerar problemas, ou de despadronizar algo, mas fazendo por fora, ou seja, usando a linha de código "TACBrMDFeDAMDFEFR(vAcbr.DAMDFE).frxReport.ReportOptions.Name" não está funcionando. Isto acontece porque quando eu chamo o método "vAcbr.Manifestos.Items[0].Imprimir;", por exemplo, dentro do ACBr, em cada classe respectiva do DFe, é executado o método "PrepareReport(MDFe)" e este, por sua vez, chama o método "LoadFromFile"/"LoadFromString", do fastreport, que acaba substituindo a propriedade que eu havia preenchido por uma propriedade presente no fr3 fastReport. Eu tentei achar no fastreport como preencher a propriedade, mas não encontrei como. Caso alguém saiba, é lá no menu (na tela de edição do layout da impressão do dfe) "Relatório > Opções", aba "Descrição", campo "Nome". Queria saber se algum dos moderadores pode me auxiliar a desenvolver, no acbr, alguma forma pra fazer eu poder personalizar o nome. Eu havia pensado, em nas classes de impressão do ACBR que usam o FastReport, criar uma propriedade boolean em que o usuário informa se deseja personalizar o nome e uma propriedade com o nome personalizado.

Olá Pessoal, Boa tarde! Primeiramente, peço desculpas se coloquei o tópico no local errado, se fiz errado me avisem que eu acerto. Estou com Delphi XE8 e Fast Reports 5. Antes que perguntem, já aviso que estou executando como Administrador. Estava tendo problemas para instalar o pacote ACBr pelo instalar, então decidi fazer a instalação manualmente, pacote por pacote. Obtive sucesso na instalação de todos os pacotes do ACBr, menos nos pacotes "filhos" do ACBrDFe. Todos os pacotes a seguir compilam/buildam sem erros, o erro é na hora de instalar: - ACBrCTe - ACBrGNRE - ACBrMDFe - ACBrNFe - ACBrNFSe Quando vou instalar ele me apresenta o seguinte erro (o mesmo erro em qualquer um dos pacotes (só mudando o nome do pacote, óbvio)): --------------------------- Error --------------------------- Can't load package C:\Users\Public\Documents\Embarcadero\Studio\16.0\Bpl\ACBr_NFe.bpl. Não foi possível encontrar o módulo especificado. --------------------------- OK --------------------------- Abaixo a mensagem do compilador do Delphi, com um warning: Checking project dependencies... Compiling ACBr_NFe.dproj (Debug, Win32) dcc command... [dcc32 Hint] H2161 Warning: Duplicate resource: Type 10 (RCDATA), ID PLATFORMTARGETS; File C:\Program Files (x86)\Embarcadero\Studio\16.0\Componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\ACBr_NFe.otares resource kept; file C:\Program Files (x86)\Embarcadero\Studio\16.0\Componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\ACBr_NFe.res resource discarded. Success Elapsed time: 00:00:00.8 Alguem imagina o que pode ser isto, ou pode me dar uma dica de por onde começar a tentar resolver? Obrigado, Rafael

Olá galera, sou novo aqui no ACBR, e também em programação, rs. Como meu primeiro projeto, estou desenvolvendo a NFS-e para a empresa que eu trabalho. Surgiu um erro que estou me matando para resolver. É o seguinte: Estou enviando um lote de apenas 1 RPS, por que o provedor para qual estou desenvolvendo só aceita o envio por lote. Até ai tudo ok, mas na hora de assinar ele apresenta a seguinte mensagem : Não encontrei final do elemento: </>. Identifiquei que é no campo docElement. Ele está fazendo o seguinte : ele passa uma vez pelo código nessa parte, até ai tudo ok, passa certinho, porém ele faz um retorno depois de várias funções, e quando retorna para essa parte do código, esse campo vem vazio. Estou enviando anexos para vocês darem uma olhada no que estou falando. Na primeira imagem, como ele passa a primeira vez, e na segunda como ele passa a segunda vez. Obrigado a todos.

Bom Tarde estou tendo este erro apos ter atualizado o ACBrInstall_Trunk2

Senhores bom dia Estou com um problemão nas minhas mãos. Faço a Rotina corretamente tenho tudo configura todos caminhos apontados envio o meu XML ele é autorizado, e quando entra na rotina de impressão acabou-se tudo ele simplesmente não faz nada Debugando verifiquei que: Na função procedure TACBrGNREGuiaFR.ImprimirGuia(GNRE: TGNRERetorno); ao entrar aqui if PrepareReport(GNRE) then function TACBrGNREGuiaFR.PrepareReport(GNRE: TGNRERetorno): boolean; if Trim(FastFile) <> '' then begin if FileExists(FastFile) then dmGuia.frxReport.LoadFromFile(FastFile) else raise EACBrGNREGuiaFR.CreateFmt('Caminho do arquivo de impressão da Guia "%s" inválido.', [FastFile]); end else raise EACBrGNREGuiaFR.Create('Caminho do arquivo de impressão do Guia não assinalado.'); // quando chego aqui o GNRE esta nil if Assigned(GNRE) then begin dmGuia.GNRE := GNRE; dmGuia.CarregaDados; Result := dmGuia.frxReport.PrepareReport; end else begin if Assigned(ACBrGNRE) then begin // Sendo assim entramos nesse ponto so que // TACBrGNRE(ACBrGNRE).GuiasRetorno.Count = 0 //então ele pula todos processos e finaliza a sessão. for i := 0 to TACBrGNRE(ACBrGNRE).GuiasRetorno.Count - 1 do begin dmGuia.GNRE := TACBrGNRE(ACBrGNRE).GuiasRetorno.Items.GNRE; dmGuia.CarregaDados; if (i > 0) then Result := dmGuia.frxReport.PrepareReport(False) else Result := dmGuia.frxReport.PrepareReport; end; end else raise EACBrGNREGuiaFR.Create('Propriedade ACBrGNRE não assinalada.'); end; Alguem pode me dar uma luz uma ajuda? so falta este detalhe para que eu possa terminar o projeto