joaoelson

Acabei de fazer o teste com a dll ACBrFramework32.dll, compilada com o trunk2. Usando o Exempo de java, o ecf funcionou perfeitamente. Segue em anexo a DLL já compilada e o resultado do teste com o java. ACBrFramework32.rar ecf.txt

O demo no trunk2 fica na pasta: ACBr\Exemplos\ACBrDFe\ACBrNFe

Olá amigos. Fiz algumas alterações para que o ACBrFramework compilasse no trunk2, devido Algumas propriedades que foram retiradas do Trunk2. As units alteradas foram: ACBrECFDll, ACBrPAFDll, ACBrSMSDll, ACBrValidadorDll. Lembro também, que não fiz uso da dll ainda, não tive tempo para fazer outro projeto e usa-la. Como meu projeto em Delphi, Já foi migrado para o trunk2 e não necessitei fazer nenhum ajuste em relação a ECF, acredito que funcionará corretamente. Os maiores ajuste que fiz, em meu projeto, foi em relação ao ACBrNFe. Como o ACBrFramework, no momento, funciona mais com Serial e TXT. Acredito que não haja tantas alterações a serem feitas. Fiz a compilação em Win32. Foi gerado o arquivo sem erro. Segue Anexo arquivos compactados. Lembrando que estou enviando somente os arquivos fontes, que estão dentro da pasta ACBrFramework. As subpastas juntamente com seus aquivos, não irão. Por sua atenção, muito obrigado. ACBrFramework.rar

Então essa é a incompatibilidade com as lib synapse

Então @Juliomar Marchetti, Mesmo escluindo o arquivo synautil.ppu e recompilando o pacote synapse laz_synapse, Continua dando o erro. Então surgiu a dúvida sobre o trunk2. ACBrUtil.pas(52,43) Fatal: Cannot find synautil used by ACBrUtil, incompatible ppu=C:\ACBr\Lib\Lazarus\synalist\i386-win32\synautil.ppu, package laz_synapse

Ola amigos. Iniciei os estudos dos fontes do ACBrFrameWork. Futuramente quero utilizá-lo em outro projeto. Criei um ambiente de trabalho. Uma VM Win32, Instalei o Lazarus, Todos os pacotes ACBr e etc. Obs: Instalei o Trunk2. Estou estudando, porém, na hora de compilar, está dando erro em um parâmetro de uma unit chamada synautil. Com isso surgiu algumas dúvidas: Para compilar e gerar a DLL, será preciso instalar outras bibliotecas(componentes) ou configurar alguma coisa? O ACBrFrameWork já está utilizando o Trunk2? Desde já, agradeço a ajuda.

pra quem estiver com esse erro. já que o post não foi fechado, segue uma forma de resolver.

Exatamente isso @Italo Jurisato Junior. Ao Carregar os xml's sem informar False no segunda parâmetro, gerava o xml novamente, com isso, estava ocorrendo erro na assinatura. Esse código eu não mudei, veio do trunk1. Agora está tudo OK, obrigado.

Amigos, seguinte. Como hoje é sábado e amanhã é domingo, só conseguirei fazer os testes nessa empresa que está dando esse erro, na segunda-feira. Fiz aqui na empresa todos os testes, mas não ocorreu esse erro. Estou achando que isso é problema com aquele certificado A1 da Valid, porém, só terei certeza na segunda. Se alguém já passou por isso e quiser dar sua opinião, fique à vontade. Toda ajuda é bem vinda, Servirá para outros também.

olá amigos. Preciso tirar uma dúvida de um erro que começou a ocorrer de uns dias pra cá. Nas notas emitidas em contingencia, faço assim: O pdv gera o xml, grava nem uma pasta, uma máquina pega esse xml e transmite a cada "x" minutos. Normal, assim como todos fazem. De uns dias pra cá, começou a aparecer o erro: Rejeicao: Assinatura difere do calculado. Quando gero a NFe ACBrNFe.NotasFiscais.GerarNFe; ACBrNFe.NotasFiscais.Assinar; ACBrNFe.NotasFiscais.Validar; Guardo as notas. Para enviar a nota, minutos depois: Carrego os xml's ACBrNFe.WebServices.Envia(Lote, False) se eu gerar e enviar imediatamente, no pdv, não ocorre erro. A dúvida é: mudou alguma coisa no trunk2 para notas emitidas em contingencia? Analisando o xml de uma nota emitida em contingencia, para uma nota emitida normal, realmente muda a assinatura. Estou fazendo algo errado?

hleorj Só pra tirar uma dúvida. Baixa diretamente do repositório, os arquivos de relatório "FR3". Em seguida tenta edita-los. Verifica se aparecem os dados no teu Fast Report. Também pode ser conflito de versões. Qual versão você usa?

Talvez os seus arquivos de trabalho estão corretos, mas os do repositório do trunk2 estão com esse problema. Sim estou usando o Trunk2, esses são os arquivos:

Os dados não estavam vinculados aos aquivos. Segue imagem quando tentava abrir ACBrNFe1.NotasFiscais.Imprimir, ocorria os seguintes erros. Classe Não Encontrada Datasets. Classe Não Encontrada Formats. Classe Não Encontrada Variables. Devido os dados não estarem vinculados aos arquivos. Estou usando o Fast 4.12.6 para Delphi XE

Olá amigos. A tempos não atualizava os arquivos "Fr3" do Danfe. Ao atualizar, estava ocorrendo os seguintes erros: Classe Não Encontrada Datasets. Classe Não Encontrada Formats. Classe Não Encontrada Variables. Ao editar os arquivos, percebi que estava faltando os Dados nesses relatórios. Adicionei e ficou tudo ok. Os Aquivos: DANFE.fr3, DANFeSimplificado.fr3, EVENTOS.fr3. Estavam corretos, os outros estavam dando esse problema. Como houve muitas mudanças ultimamente no Danfe, me corrijam se estiver errado ao fazer isso. De toda forma, seguem os arquivos alterados, a quem interessar. Obrigado. João Elson Arquivos FR3 Danfe.rar

Informa o erro que está ocorrendo. Tenta fazer isso com o demo do acbr e verifica se ocorre o mesmo. Faço a importação do xml também, mas nunca fiz a validação. A única coisa que verifico é se o xml importado, é destinado a empresa que está importando, ou seja, os dados do destinatário, cnpj e razão social e etc.

Olá amigos. fiz uma pequena mudança na sugestão do amigo rafikrafael. Se o tpIntegra for tiNaoInformado, não tem porque informar ocampo CNPJ. Então ficou assim if(NFe.pag.tPag in [fpCartaoDebito,fpCartaoCredito]) and (NFe.pag.tpIntegra <> tiNaoInformado) then Enviei uma NFCe em homologação, sem informar a tag Card. Foi aceita com sucesso. pcnNFeW.pas

Olá amigos. Também estou com o mesmo problema, o trunk2 está gerando a tag <card /> , referente a informações de cartão de crédito. Na NT2015.002 só será exigida para produção a partir de 01/12/2015. se tpag for 2 ou 3 está gerando a tag card. <tPag>03</tPag> <vPag>50.00</vPag> <card /> Está dando erro: Falha no schema xml do lote da NFe.

Ola amigos. Estava com alguns problemas para abrir o arquivo salvo pelo ACBrNCM. O problema estava no fato do arquivo ser salvo, separado por ponto e virgula(;). Existem algumas descrições que possuem essa mesma acentuação, com isso, caracteriza-se coluna e não descrição. exemplo: 01061200 - BALEIAS,GOLF.,BOTOS;PEIXES-BOIS,DUDONG;OTÁRIAS,FOCAS,ET 02109200 - CARNES E MIUD.;FARINH.E PÓS COMEST.D/BALEIAS,GOLF.BOTOS Para Resolver o problema, fiz uma pequena alteração no fonte. Onde troco ponto e virgula, por apenas virgula. procedure TACBrNCMsList.SaveToFile(AFileName: String); Var SL : TStringList; I: Integer; begin SL := TStringList.Create; try for I := 0 to Count - 1 do SL.Add( Objects[i].CodigoNcm + ';' + StringReplace(Objects[i].DescricaoNcm, ';', ',', [rfReplaceAll])); SL.SaveToFile(AFileName); finally SL.Free; end; end;

olá Juliomar Ja tinha pensando em fazer isso, mas como vi que no demo estava assim, resolvi fazer o mesmo. Demo {$IFDEF ACBrNFeOpenSSL} Label2.Top := 56; edtSenha.Top := 72; gbCertificado.Height := 144; edtCaminho.Text := Ini.ReadString( 'Certificado','Caminho' ,'') ; edtSenha.Text := Ini.ReadString( 'Certificado','Senha' ,'') ; ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := edtCaminho.Text; ACBrNFe1.Configuracoes.Certificados.Senha := edtSenha.Text; edtNumSerie.Visible := False; Label25.Visible := False; sbtnGetCert.Visible := False; {$ELSE} edtNumSerie.Text := Ini.ReadString( 'Certificado','NumSerie','') ; edtSenha.Text := Ini.ReadString( 'Certificado','Senha' ,'') ; ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; edtNumSerie.Text := ACBrNFe1.Configuracoes.Certificados.NumeroSerie; Label1.Caption := 'Informe o número de série do certificado'#13+ 'Disponível no Internet Explorer no menu'#13+ 'Ferramentas - Opções da Internet - Conteúdo '#13+ 'Certificados - Exibir - Detalhes - '#13+ 'Número do certificado'; Label2.Top := 136; edtSenha.Top := 152; gbCertificado.Height := 184; Label2.Visible := True; edtSenha.Visible := True; edtCaminho.Visible := False; sbtnCaminhoCert.Visible := False; {$ENDIF}

Olá Daniel, como disse no começo, ja vi essa sua postagem. Deixa eu explicar melhor o que estou tentando fazer. Não é um erro que está ocorrendo, está tudo configurado perfeitamente, as DLL's copiadas para as pastas específicas e etc. O que eu não estou conseguindo fazer, é verificar qual Lib estou usando, em run-time. Seja Openssl ou Capicom. Se eu mudar para OpenSSL (ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;). O código abaixo não identifica se estou usando openssl, passa direto para o {$ELSE}, ou seja, capicom. {$IFDEF ACBrNFeOpenSSL} //configura o openssl {$ELSE} //configura o capicom {$ENDIF} No Demo acontece a mesma coisa, por isso perguntei se é preciso programar ou configurar outra coisa.

Estou usando o trunk2

Olá amigos. Procurei aqui no forum sobre isso mas não encontrei. Vi o Tópico do Daniel, mas não tirou a dúvida.: http://www.projetoacbr.com.br/forum/topic/25032-opensslxmlsec-ou-capicom-dependencia-de-bibliotecas-externas/#comment-162480 Seguinte... Na minha aplicação, não consigo usar o OpenSSL. Na hora da configuração, passa direto para o capicom. {$IFDEF ACBrNFeOpenSSL} //configura o openssl {$ELSE} //configura o capicom {$ENDIF} Não alterei nada no ACBr.inc, porque vi que já vem configurado para usar os dois. No cabeçalho do demo tem o código. {$I ACBr.inc} {.$DEFINE ACBrNFeOpenSSL} Mesmo assim não configura o openssl, passa direto para o {$ELSE} Alguém sabe porque isso acontece, tenho que fazer alguma configuração?

01=Dinheiro 02=Cheque 03=Cartão de Crédito 04=Cartão de Débito 05=Crédito Loja 10=Vale Alimentação 11=Vale Refeição 12=Vale Presente 13=Vale Combustível 99=Outros Você não vai colocar venda a prazo. Por exemplo: se for cartão, tanto faz se for parcelado ou não, será cartão. Cheque, do mesmo jeito. Se for crediário próprio, acredito que seja, crédito loja e etc. Caso não seja nenhuma das opções de 1 a 13, você usa 99.

Te recomendo utilizar o AcbrMonitor, ele faz tudo. Centenas de programadores de outras linguagens utilizam.

Não uso o Firebird, mas isso chama-se charset. Dê uma olhada nesse artigo. você saberá porque está dando erro com caracteres acentuados (português) . http://www.firebase.com.br/artigo.php?id=1 Faça um pequeno cadastro lá, caso você não tenha, para exibir o artigo. Se você não quiser fazer alterações em seu banco de dados, crie esse campo calculado diretamente no Delphi. No ClientDataset ou Query. Faça seu código CASE ou IF na propriedade OnGetText do campo criado. Espero ter ajudado. João Elson