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

Vamos alterar para manter o padrão dos outros bancos, e gerar arquivo conforme layout.

Bom dia Graça, Se hora o CT-e é autorizado e hora não, e o CT-e que antes foi rejeitado, depois é autorizado sem nenhuma alteração, chego a conclusão que o problema é na SEFAZ, mesmo.

Muito obrigado @Giuu alterei meu aplicativo de acordo com seu exemplo, ficou muito simples o encerramento.

Nesse caso, eu faria uma tabela pra armazenar os contratantes e faria uma seleção da tabela de contratantes para esse manifesto e //Dados da seguradora DM.IBContratante.close; DM.IBContratante.SelectSQL.Clear; DM.IBContratante.SelectSQL.add('SELECT * FROM Contratante'); DM.IBContratante.SelectSQL.ADD('WHERE CODIGO = ' + QuotedStr(Dm.IBManifestoCODCONTRATANTE.AsString) + ''); DM.IBContratante.Prepare; DM.IBContratante.Open; with seg.Add do begin with rodo.infANTT.infContratante.Add do begin CNPJCPF := DM.IBManifestoCNPJCONTRATANTE.AsString; end; DM.IBContratante. end;

Sobre a impressão do endereço, foi enviado uma correção ao SVN.

Não existe TAG, é uma legenda para o campo (VLTR R$)*. Para informar o valor do campo (VLTR R$)* por item use ACBrSAT1.CFe.Det[X].Imposto.vItem12741

Basta informar a forma de pagamento corretamente, no SAT é permitido q o pagamento seja maior que o total da venda e o aparelho calcula o valor do troco.

O troco é uma função do SAT e os componentes de extrato do ACBr já suportam a impressão, desde que o vTroco seja maior que 0 no XML retornado pelo aparelho. Você não deve estar passando um valor de pagamento superior ao valor do cupom, por isso não está havendo um troco para o CFe.

@aocampioni você pode anexar esse XML para simularmos aqui?

Do ECF a cada registro tem um, do paf-ecf ele é um para cada re-homologação.

sim no site do sefaz de SC no S@t . no mesmo local onde tu libera seus clientes para usarem seu paf-ecf e associa a ECF do cliente ao seu paf

Olá Amigos, Passei pelo mesmo problema e realmente a instalação padrão do ACBR / Fortes no Windows 10 ira apresentar os problemas acima mencionados. Estes procedimentos resolveram o problemas nos pacotes que usam OpenSSL: - Ao instalar o o ACBR marque a opção Copiar DLL pasta bin do DELPHI. - Copie todas as DLLS da pasta DLL do Acbr para a pasta SYSTEM32 e SYSWOW64 - Registre a DLL capicom manualmente e certifique-se que o comando obteve êxito. Estes procedimentos resolveram o problemas nos pacotes que usam FORTES: - No IDE do Delphi remova o pacote do FORTES caso já tenha instalado. - Não instale o fortes pelo instalador, abra o Pacote no Delphi Compile e instale, - Agora basta Reinstalar o ACBR que os pacotes irão carregar normalmente no delphi. Renato Campos.