Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

Márcio M Gomes

Membros
  • Content Count

    16
  • Joined

  • Last visited

Community Reputation

1 Neutral

1 Follower

About Márcio M Gomes

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Location
    Brasil

Recent Profile Visitors

512 profile views
  1. Para pegar o Recibo e Consultar, fiz assim: ACBrReinf.WebServices.EnvioLote.RetEnvioLote.Leitor.Grupo := ACBrReinf.WebServices.EnvioLote.RetEnvioLote.Leitor.rExtrai( 1, 'infoTotal') ; ; Recibo := ACBrReinf.WebServices.EnvioLote.RetEnvioLote.Leitor.rCampo( tcStr, 'nrRecArqBase' ) ; ACBrReinf.Consultar(Recibo) ; Não fiz um teste completo ainda devido a equipe que está desenvolvendo o XML (em outro sistema) não ter finalizado ainda. Espero que ajude. Att,
  2. Segue anexo. Abraços. ACBreSocialWebServices.pas
  3. Boa tarde. Aqui nós utilizamos o campo IdEmpregador.nrInsc com 8 posições ( Raiz do CNPJ para trabalhar com Matriz e Filiais), ficando a propriedade ACBreSocial.Configuracoes.Geral.IdEmpregador também com 8 posições. Na ACBreSocialWebServices.pas, método TEnvioLote.DefinirDadosMsg é atribuído o TpInsc de acordo com o tamanho do IdEmpregador. Como utilizamos com 8 posições, sempre está atribuindo TpInsc := tiCPF. Segue a imagem do método atual e abaixo o ajuste que realizei. Espero que ajude.
  4. Rubinho, você me deu uma luz. rsrsrsr. Na minha pasta "customizada" de schemas, estava faltando o "xmldsig-core-schema.xsd". Coloquei ele lá e funcionou. Grato a todos.
  5. O caminho do schema: C:\ACBR_Atualizado\Exemplos\ACBrDFe\ACBrReinf\Delphi\Schemas). A variável ArqSchema está OK. Tanto que não dá erro ao atribuir à parser_ctxt. Com xsMsXML dá a mensagem: "Necessário DigestMethod Algorithm = sha256 -> SSLLib = libOpenSSL." Não posso utilizar a OpenSSL devido a utilização de Certificado A3.
  6. Bom dia. A aplicação exemplo do Reinf está me retornando o seguinte erro: Debugando, cheguei ao seguinte método: OBS: Observe as variáveis, a schema está vazia. Já atualizei os fontes, reinstalei tudo, baixei schemas atualizados (versão 1.03.00) e nada. Peço a ajuda da comunidade. Grato. Márcio M. Gomes
  7. Boa tarde @Leivio Fontenele Tem alguma novidade sobre a utilização de Certificado A3? Grato,
  8. @Natanael R. Rodrigues eu estou fazendo o seguinte: Pego o XML gerado de outra aplicação (completo, com os eventos), extraio apenas o evento (neste caso a aplicação externa está gerando apenas um evento por XML), assino e valido, adiciono apenas a assinatura do evento ao XML completo, valido e envio diretamente usando ACBreSocial.WebServices.Envia("XML"). Não estou gerando os eventos pelo ACBreSocial, e meu "Id" já vem preenchido pela aplicação externa. Na realidade é apenas uma interface entre a aplicação externa e o eSocial. Att, Márcio
  9. @Juliomar Marchetti, Observei que em ACBrDFeSSL.pas no método TDFeSSLXmlSignClass.AdicionarSignatureElement, está atribuindo a variável URI := ExtraiURI(ConteudoXML, IdSignature), porém, para o eSocial essa variável deve ficar vazia. Estou fazendo o envio do XML diretamente pelo método Envia (ACBreSocial.WebServices.Envia), pois meu XML é gerado por outra aplicação, eu apenas assino e envio. Estou fazendo o envio e consulta com sucesso, apenas tive que ajustar isso. No fonte inicial feito pelo @Leivio Fontenele, estava assim dentro do TDFeSSLXmlSignClass.AdicionarSignatureElemen
  10. @Paulo Souza Essa função fica em System.DateUtils. Estou usando XE 10 Seattle. Márcio
  11. Grato @Leivio Fontenele e @Daniel Simoes. Fico no aguardo do A3. Se conseguir alguma coisa eu posto aqui também. Att, Márcio
  12. Boa tarde a todos. Estou testando os fontes do @Leivio Fontenele e está tudo OK (parabéns), apenas não estou conseguindo gerar a chave SHA256 com certificados A3. Estou fazendo em Delphi XE 10 Seattle. Configuração 1: SSLCryptLib := cryWinCrypt; SSLHttpLib := httpIndy; SSLXmlSignLib := xsXmlSec; Erro: "Certificado não pode ter sua chave privada exportada" Configuração 2: SSLCryptLib := cryWinCrypt; SSLHttpLib := httpIndy; SSLXmlSignLib := xsMsXml; Erro: "The DigestMethod algorithm 'http://www.w3.org/2001/04/xmlenc#sha256' is not supported" Alguém tem
  13. Obrigado André. Vou tentar fazer isso. Grato.
  14. Olá Sérgio. O problema é que não executa a aplicação na situação e configurações descritas acima. Apenas pisca a tela e fecha. Estranho é que algumas estações executam uma vez e depois não executa mais. Já tivemos esse problema com uma outra aplicação, porém, gostaria de saber se alguém já passou por isso e conseguiu uma solução diferente da desinstalação ou formatação. Grato.
  15. Bom dia. Alguém está com problemas para executar o exemplo do ACBrSAT em estações (Win 7) com o Gbp Service da GAS Tecnologia instalado. (Esse Gbp Service é utilizado para acesso bancário e causa problemas em vários outros programas). Desinstalá-lo é um problema e dá um trabalhão. Alguém já passou por isso ? Sabe alguma forma de resolver esse problema (sem precisar desinstala-lar o Gbp Service) ? OBS: Não adianta executar com administrador, dar permissão total, etc. Grato, Márcio Gomes
×
×
  • Create New...