Painel de líderes

Bom dia Pessoal, Segue em anexo os fontes do ACBrReinf. Eventos Implementados e testados: 1. R-1000 - Informações do Empregador/Contribuinte 2. R-1070 - Tabela de Processos Administrativos/Judiciais 3. R-2010 – Retenção Contribuição Previdenciária - Serviços Tomados 4. R-2020 – Retenção Contribuição Previdenciária - Serviços Prestados 7. R-2098 – Reabertura dos Eventos Periódicos 8. R-2099 – Fechamento dos Eventos Periódicos 9. R-9000 – Exclusão de Eventos Faltando os eventos: (Não fiz por que o negocio não tem demanda para esse tipo de evento. mais caso alguém precise da pra fazer.) 5. R-2030 – Recursos Recebidos por Associação Desportiva 6. R-2040 – Recursos Repassados para Associação Desportiva -> Units do core do ACBr modificadas: ACBrDFeUtil.pas - Incluido no SignatureElement as tags necessárias para assinatura SHA256. function SignatureElement(const URI: String; AddX509Data: Boolean; IdSignature: String = ''; Asha256: Boolean = False): String; ACBrDFeSSL.pas - Criação de uma propriedade "property SSLDgst: TSSLDgst read FSSLDgst write FSSLDgst;" na TDFeSSL para informar o tipo de "Method Algorithm" a ser usado. Por padrão será SHA1. - no metodo TDFeSSLXmlSignClass.AdicionarSignatureElement na chamada do SignatureElement e passado a propriedade "FpDFeSSL.FSSLDgst" do tipo a ser usado( ver Abaixo) Result := copy(ConteudoXML, 1, I - 1) + SignatureElement(URI, AddX509Data, IdSignature, FpDFeSSL.FSSLDgst = dgstSHA256) + TagEndDocElement; ACBrDFeXsXmlSec.pas - Incluido uma diretiva "REINF" para seleção do DTD para ser usado no REINF. O Projeto do REINF não segui o padrão do Id. (Isso pode mudar em versões futuras do REINF) . {$IFDEF REINF} cDTD = '<!DOCTYPE test [<!ATTLIST &infElement& id ID #IMPLIED>]>'; {$ELSE} cDTD = '<!DOCTYPE test [<!ATTLIST &infElement& Id ID #IMPLIED>]>'; {$ENDIF} Espero que ajude e traga mais força ao projeto. obs.: Tentei seguir ao máximo a implementação atual do ACBR (Delphi > 2009). porem não testei em FPC. obs.: Para listas usei Generics haja vista que estou seguindo Delphi 2010 ou superior. obs.: Antes que perguntem: Vou publicar os fontes do eSocial em outro tópico. No aguardo da avaliação @Juliomar Marchetti @EMBarbosa Abraços. ACBrReinf.zip

Bom dia Pessoal, Segue em anexo os fontes do projeto do ACBrESocial o qual testes os eventos abaixo: Os eventos em negrito foram testados, os que estão riscados ou não estão liberados ou não cheguei avaliar\testar. * O Exemplo não está muito explicativo, mais acredito que dar para ter uma ideia do preenchimento e utilização. * O componente precisa ainda de ajustes, principalmente na parte visual(métodos e eventos). * Estou disponivel para ajudar no que for preciso e espero que o que foi desenvolvido possa ajudar a todos. -> Units do core do ACBr modificadas: ACBrDFeUtil.pas - Incluido no SignatureElement as tags necessárias para assinatura SHA256. function SignatureElement(const URI: String; AddX509Data: Boolean; IdSignature: String = ''; Asha256: Boolean = False): String; ACBrDFeSSL.pas - Criação de uma propriedade "property SSLDgst: TSSLDgst read FSSLDgst write FSSLDgst;" na TDFeSSL para informar o tipo de "Method Algorithm" a ser usado. Por padrão será SHA1. - no metodo TDFeSSLXmlSignClass.AdicionarSignatureElement na chamada do SignatureElement e passado a propriedade "FpDFeSSL.FSSLDgst" do tipo a ser usado( ver Abaixo) Result := copy(ConteudoXML, 1, I - 1) + SignatureElement(URI, AddX509Data, IdSignature, FpDFeSSL.FSSLDgst = dgstSHA256) + TagEndDocElement; ACBrDFeXsXmlSec.pas - Incluido uma diretiva "REINF" para seleção do DTD para ser usado no REINF. O Projeto do REINF não segui o padrão do Id. (Isso pode mudar em versões futuras do REINF) . {$IFDEF REINF} cDTD = '<!DOCTYPE test [<!ATTLIST &infElement& id ID #IMPLIED>]>'; {$ELSE} cDTD = '<!DOCTYPE test [<!ATTLIST &infElement& Id ID #IMPLIED>]>'; {$ENDIF} Espero que ajude e traga mais força ao projeto. obs.: Tentei seguir ao máximo a implementação atual do ACBR (Delphi > 2009). porem não testei em FPC. obs.: Para listas usei Generics haja vista que estou seguindo Delphi 2010 ou superior. obs.: As modificações nas classes bases são as mesmas do REINF haja vista que a modificação para utilizar SHA256 é necessário para os dois projeto. No aguardo da avaliação @Juliomar Marchetti @EMBarbosa Abraços. ACBreSocial.zip

Boa noite, eu uso algumas features no danfe em EscPos, e há muito tempo possuia essas alterações inclusive no Trunk, porém ao migrar essas alterações foram deixadas, gostaria de saber se seria possível agregar novamente, caso os adms acharem interessantes. as adições foram as seguintes; Criação da Sangria e Suprimento Salvamento do cabeçalho, baseado na última NFC-e impressa e recuperação no ato da impressão da Sangria ou Suprimento. Não foi alterado nada que já existia, foram feitas somente estas adições, Obrigado! ACBrNFeDANFeESCPOS.pas

@w.suetake Tente cMP=03

Boa tarde @Bruno Giovani Caltran , já vai estar disponível na próxima versão semanal do ACBrMonitorPlus.

Está utilizando o ACBrMonitor? Se sim, o layout é padrão. Se está utilizando o componente os arquivos .fr3 para impressão em FastReport ficam em: ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi\Report.

Não podemos aceitar... sem a compatibilidade com o D7... isso quebraria a compilação do ACBr para muita gente, que atualmente usa o Projeto... Acho que o código pode ser ajustado para TObjectList, ou TCollection. assim como nos demais componentes do ACBr..

Cara, é fácil para você que é mestre !!!! ahahaha Nem sei como faria a partir de sua dica. Porém, resolvi, mas, para falar a verdade nem sei como !!!! Eu entrei no delphi na parte dos library path, removi tudo, mas, já havia removido. Fui nos componentes, mas, não tinha mais nada. Voltei no instalador, instalei um componente por vez. Dai funcionou e consegui instalar tudo. Mesmo assim, muito obrigado pela atenção.

Você chamou novamente duas vezes (tem dois Add), para uma forma de pagamento seria: with ACBrNFe1.NotasFiscais.Add.NFe do with pag.Add do begin tPag := fpDinheiro; vPag := 100; end; ou var Pagamento: TpagCollectionItem; ... Pagamento := NotaF.NFe.pag.Add; Pagamento.tPag := fpDinheiro; Pagamento.vPag := 100;

Isso é bom Bruno pois você terá maior controle do que está implementando em seu sistema.

Oi Juliomar obrigado pela resposta, Eu não usei WITH , if (( pag.Add.tPag = fpDinheiro) apenas achei que ao usar = ao invés de := estaria lendo como se faz como uma property Então para ler seria algo do tipo if pag.Items.tPag

Juliomar resolvi apagando e baixando tudo novamente. instalação do zero. Obrigado pela atenção.

Mas talvez o problema nesse caso, seja o fato de que o Driver da Bematech, que não cria a serial virtual, não é assinado...

Exatamente . matou a charada. usou with do código e não se ateve ao que ele estava fazendo

Pelo que percebi na sua codificação foi você mesmo que deu Add várias vezes, inclusive no seus IFs, assim criando várias formas de pagamento.

Boa Tarde, da uma olhada na Documentação do ACBrMonitor, já está atualizado com os campos novos para a versão 3.0, basicamente tem que mudar o campo "Mod=67" http://acbr.sourceforge.net/ACBrMonitor/CTECriarCTe.html

Acabei de resolver um problema de "communication error 5: acesso negado" Fiquei um dia inteiro tentando comunicar com o ECF e descobri que o problema era com um plugin de banco. Parei o serviço gbp service e consegui comunicar com o ECF normalmente. Quanto ao gbp service, cada um deve verificar a importância em sua máquina, pois, ele é usado para prover segurança em apps de banco e deve existir uma forma de conviver com ele. Rsrsrs!

Cara, usei encontrei o manual e deu tudo certo. Obrigado.

É uma lacuna do Projeto ACBr, a documentação dos componentes... Mas como o Juliomar disse... os "Demos" da pastas Exemplos são a melhor maneira de aprender sobre os componentes... Estude os fontes dos Demos com atenção, há muitos comentários nos mesmos...

Não sabia dessa ferramenta, utilizei e encontrei uma tag de icms vazia, obrigado novamente sergio!!

Existe um software fornecido pela Tanca (InteliSAT) que faz a validação do XML. http://www.tanca.com.br/drivers.php?cat=24&sub=43

Muito extenso o seu XML... em uma prévia eu notei o erro lá no final... <vCFeLei12741>0.00</vCFeLei12741> Lembre-se que nessa tag temos que informar o total (a soma) do <vItem12741> de todos os produtos.

Boa tarde Márcio. Sim acho que logo estaremos com algo em função desse tópico

Boa Tarde, o componente ACBrBoleto tem uma propriedade "MultaValorFixo" que define se será cobrado percentual ou valor fixo, mas no ACBrMonitor realmente não tem esta tag ainda, vamos colocar nas prioridades para adicionar este campo na próxima versão do ACBrMonitor.

Sempre Válido cara, me ajudou muito.. Estou desde manhã tentando arrumar isso. Tinha até me esquecido da schemas, deu certinho aqui valeu mesmo.

Boa noite Edevair, Primeiramente desculpe por não ler todo o tópico uma vez que o mesmo já contem 2 páginas. Vai ai um procedimento que acredito que vai resolver o seu problema. Configure o componente para salvar os XMLs dos documentos (Configuracoes.Arquivos.Salvar := True). 1. Alimentar o componente com os dados pertinentes a venda. 2. Executar os métodos: Assinar/Validar/Enviar ou somente o Enviar, pois este internamente executa os dois primeiros. 3. Se ocorrer erro e o protocolo não for retornado execute o método Consultar (não execute o Clear no componente, pois este vai apagar os dados da nota). 4. Ao realizar a consulta se for retornado a Rejeição: Nota não consta na base de dados, isso significa que o erro ocorreu no envio, neste caso devemos enviar novamente a nota. 5. Se o erro ocorreu no retorno, ao realizar a consulta com o componente ainda carregado com os dados da nota, o componente automaticamente ira anexar o protocolo ao XML que esta assinado e será salvo em disco. Espero ter ajudado.

bom dia a todos estou migrando meus aplicativos de delphi7 para delphi 2010, e esta tudo dando muito certinho. Mas estou com um detalhe que gostaria de pedir ajuda a alguem que já tenha passado por esse problema. Só para entender hoje uso desenvolvimento 3 camadas, sendo modulo de servidor/cliente. "eu não estou conseguindo usar o auto completar em meus projetos (ctrl+espaço), mas o detalhe é que no data module, ele funciona, mas nos form de minhas aplicações não funciona". alguem ja passou por esse detale??? obrigado paulinho

Ubuntu 14.04 LTS 64 bits com Lazarus 1.6.4 com ACBr via SVN na Revision 13717. Aplicativo emite NFCe versão 3.10 normalmente (Sefaz RS). Ao mudar para a versão 4.00 o StatusServiço funciona (abaixo) mas a emissão não. <nfeResultMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4"> <retConsStatServ versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>2</tpAmb> <verAplic>RS201707181025</verAplic> <cStat>107</cStat> <xMotivo>Servico em Operacao</xMotivo> <cUF>43</cUF> <dhRecbto>2017-08-10T15:12:13-03:00</dhRecbto> <tMed>1</tMed> </retConsStatServ> </nfeResultMsg> Ao tentar emitir o cupom versão 4.00 ocorre a exceção em TACBrNFe.Enviar() com "Erro interno: 0" e "Erro HTTP: 500". Pelo que vi no fórum poderia ser um problema de OpenSSL porém confirmei a versão: $ openssl version OpenSSL 1.0.1f 6 Jan 2014 Alguma pista de onde eu possa procurar este erro?