Joffas

Bom dia, consegui consumir o servidor de SC, desta forma, modificando o exemplo: "ACBrNFe_Exemplo", Da pra usar direto o metodo enviar do componente ACBrNFe1 se preferir.... Mais usei as classes básicas, pois acredito que o pessoal vai adicionar isso ao componente futuramente... procedure TfrmACBrNFe.Button1Click(Sender: TObject); var sAcao, sURL, sSoapAction, sMimeType, sAuthorizationHeader: String; Web: TDFeHttpOpenSSL; pai:TDFeSSL; begin sAcao := '<?xml version="1.0" encoding="utf-8"?>'+ '<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">'+ ' <soap:Body>'+ ' <NfeDownloadContab xmlns="http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1">'+ ' <pXml>'+ ' <distNFeSC versao="1.0" xmlns="http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1">'+ ' <tpAmb>2</tpAmb>'+ ' <verAplic>appcliente 2.5</verAplic>'+ ' <cUF>42</cUF>'+ ' <CNPJ>DOCUMENTO_CNPJ</CNPJ>'+ ' <solRel>'+ ' <indXML>1</indXML>'+ ' <indAtor>3</indAtor>'+ ' <ultNuNSU>'+ediultNuNSU.Text+'</ultNuNSU>'+ ' </solRel>'+ ' </distNFeSC>'+ ' </pXml>'+ ' </NfeDownloadContab>'+ ' </soap:Body>'+ '</soap:Envelope>'; sURL := 'https://hom.satnfe.sef.sc.gov.br/ws/distribuicao/nfedownload.asmx'; sSoapAction :='http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1/NfeDownloadContab'; sMimeType := 'text/xml'; sAuthorizationHeader := ''; try pai := TDFeSSL.Create; pai.ArquivoPFX := edtCaminho.Text; pai.Senha := edtSenha.Text; { Web.SSLType := LT_TLSv1_2; Web.SSLCryptClass := Web.SSLXmlSignLib := xsLibXml2; Web.SSLHttpLib := httpOpenSSL; } pai.SSLType := LT_TLSv1_2; pai.SSLCryptLib := TSSLCryptLib(cbCryptLib.ItemIndex); pai.SSLHttpLib := TSSLHttpLib(cbHttpLib.ItemIndex); pai.SSLXmlSignLib := TSSLXmlSignLib(cbXmlSignLib.ItemIndex); pai.UseCertificateHTTP := true; pai.CarregarCertificado; pai.ProxyHost := '192.168.0.1'; pai.ProxyPort := '3128'; Web := TDFeHttpOpenSSL.Create(pai); MemoResp.Lines.Text := Web.Enviar(sAcao, sURL, sSoapAction, sMimeType, sAuthorizationHeader); finally FreeAndNil(web); FreeAndNil(pai); end; {assim tambem funciona, mais preferi usar os objetos mais basico... MemoResp.Lines.Text := ACBrNFe1.SSL.Enviar(sAcao, sURL, sSoapAction, sMimeType, sAuthorizationHeader); } pgRespostas.ActivePageIndex := 0; end;

Bom dia Juliomar, Então eu tinha postado no lugar errado, Na verdade preciso é das NFe mesmo, tenho somente fazer o download das notas por CNPJ, tanto das notas de saída quanto das de entrada. Se o componente já faz isso vou atualizar o ACBR pra da um analisada obrigado....

Bom dia Pessoal, Existe algum componente do ACBr que consome lote de NFe ? SC disponibilizou um WebService onde é possível baixar lote com 50 notas fiscal passando sempre a última numeração baixada. O Protocolo de comunicação é TLS versão 1.2 (exclusivamente) e autenticação mútua. Se puderem me dar uma luz agradeço...

Ops, foi mals Juliomar, quero pra NFe mesmo, e sim programo em Delphi.

Boa tarde Italo, Então na verdade, estou com muitas alterações pendentes para atualizar o ACBR. Meu problema é consumir o WebService para o retorno de NFe de SC, este usado TLS 1.2 para autenticação. Sendo assim queria uma dica, qual unit posso me basear para consumir?

Bom tarde pessoal, Alguém conseguiu um exemplo funcional consumindo o webservice com TLS 1.2 ?

Continuando no mesmo problema rss... Alguém tem algum exemplo de como usar TLS 1.2 com certifica A3 e A1 ?

Recebi a resposta do suporte, Boa Tarde Jonathan, Notamos que o xml incluiu a assinatura, isso não é necessário nesse serviço. Nesse serviço a autenticação do certificado será via "autenticação mutua" ou "autenticação do cliente" por TLS 1.2 "* Protocolo de comunicação Internet TLS versão 1.2 (exclusivamente) e autenticação mútua;" como exemplo, se você utilizar o postman para testes, o certificado é adicionado em file -> settings -> certificates e o xml é encaminhado sem as tags de assinatura e certificado. Seguimos a disposição em caso de dúvidas.

Bom dia, Alguém, já conseguiu consumir o novo servidor de homologação de SC para o recebimento de notas fiscais eletrônica? Estou tentando porem sem sucesso: XML gerado... <?xml version="1.0" encoding="utf-8"?> <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> <soap:Body> <NfeDownloadContab xmlns="http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1"> <pXml> <distNFeSC xmlns="http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1" versao="1.0"> <tpAmb>2</tpAmb> <verAplic>appcliente 2.5</verAplic> <cUF>42</cUF> <CNPJ>00903331000131</CNPJ> <solRel> <indXML>1</indXML> <indAtor>9</indAtor> <ultNuNSU>0</ultNuNSU> </solRel> <Signature xmlns="http://www.w3.org/2000/09/xmldsig#"> <SignedInfo> <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"></CanonicalizationMethod> <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"></SignatureMethod> <Reference URI=""> <Transforms> <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"></Transform> <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"></Transform> </Transforms> <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"></DigestMethod> <DigestValue>D+9x/y4ZIiPjinQB6Hqu1zvF/2s=</DigestValue> </Reference> </SignedInfo> <SignatureValue>SsXpBuowQgop6YNoQEnEoOHYV4avsvEkmAKxPAAIqn5gJVRVrNIQqNBdS4+1atLrg3is6th1W/XjnZXzOMEXm37R6JJTwxP7K5G/XHz/BPX/vRqTU44/V1YdeZ2vUYpH7JkytYl3FnrVnWQ0bAhtIpjetMjxqYXUKu90EtoutGkH1lVTc5QFS+HXOzmBBFmCbQgNwPESfI+zoecJEnMqDN6HaZ/RETLL3dRmNlBbjlrmBrQFxY81u08bBqsIH5QvMV41S8J8PTqv9lexH9ntf8JOVH114hAUp4hNeF7OVTh58s58lSmiLoQ69r2rYbvypIkXanBxeFt1zLO4pjdG/A==</SignatureValue> <KeyInfo> <X509Data> <X509Certificate>MIIHIjCCBQqgAwIBAgIIKXQgCShfkcQwDQYJKoZIhvcNAQELBQAwWTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxFTATBgNVBAsTDEFDIFNPTFVUSSB2NTEeMBwGA1UEAxMVQUMgU09MVVRJIE11bHRpcGxhIHY1MB4XDTIwMDkyODE4NTAwMFoXDTIxMDkyODE4NTAwMFowgdUxCzAJBgNVBAYTAkJSMRMwEQYDVQQKEwpJQ1AtQnJhc2lsMQswCQYDVQQIEwJTQzEbMBkGA1UEBxMSQmFsbmVhcmlvIENhbWJvcml1MR4wHAYDVQQLExVBQyBTT0xVVEkgTXVsdGlwbGEgdjUxFzAVBgNVBAsTDjIwMTgxNzM1MDAwMTc2MRowGAYDVQQLExFDZXJ0aWZpY2FkbyBQSiBBMTEyMDAGA1UEAxMpU0VDVUxPUyBDT05UQUJJTElEQURFIExUREE6MDQ0ODM3MjgwMDAxNzIwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQC5Xf/H9VP4hCbGdxlIhSXRedcMuqm4O5X46KrbL6qkKuCnqVo/kohePigXVZKQP/W/Y9NNHzQ9/sLLsA60oiIEGix0evOcZ5omAmok0DRwnHp3wyKc33Sd4ByQDsBf+OZr1iKFFb2wqjbInzqXo0LLlFyzsOZ2lneGDt6+qkmahpIPMTaKkF5/L9IJGR8lI17pdNzKB3Im74KIj1Ub9uweZhG3DRI9+vjr3zY01pA+zoB5UJSpmEoV0HgSFxsog2LPXGNHts1LDdt7zQC0jpCblsbmVcA7ttikKpxqP1juR98tDzI4e6MiCJRnSHDTceVNVPZrMJjHS0EAJEungKaTAgMBAAGjggJvMIICazAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFMVS7SWACd+cgsifR8bdtF8x3bmxMFQGCCsGAQUFBwEBBEgwRjBEBggrBgEFBQcwAoY4aHR0cDovL2NjZC5hY3NvbHV0aS5jb20uYnIvbGNyL2FjLXNvbHV0aS1tdWx0aXBsYS12NS5wN2IwgaoGA1UdEQSBojCBn4EWZmlzY2FsM0BzZWN1bG9zLmNudC5icqAXBgVgTAEDAqAOEwxHTEFZVE9OIEJBSFKgGQYFYEwBAwOgEBMOMDQ0ODM3MjgwMDAxNzKgOAYFYEwBAwSgLxMtMDYwMjE5Njc2NzA1NjI1MzkyMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwoBcGBWBMAQMHoA4TDDAwMDAwMDAwMDAwMDBdBgNVHSAEVjBUMFIGBmBMAQIBJjBIMEYGCCsGAQUFBwIBFjpodHRwOi8vY2NkLmFjc29sdXRpLmNvbS5ici9kb2NzL2RwYy1hYy1zb2x1dGktbXVsdGlwbGEucGRmMB0GA1UdJQQWMBQGCCsGAQUFBwMCBggrBgEFBQcDBDCBjAYDVR0fBIGEMIGBMD6gPKA6hjhodHRwOi8vY2NkLmFjc29sdXRpLmNvbS5ici9sY3IvYWMtc29sdXRpLW11bHRpcGxhLXY1LmNybDA/oD2gO4Y5aHR0cDovL2NjZDIuYWNzb2x1dGkuY29tLmJyL2xjci9hYy1zb2x1dGktbXVsdGlwbGEtdjUuY3JsMB0GA1UdDgQWBBQXiDFsDjbfl5VHdxkvdbKoGu0l1DAOBgNVHQ8BAf8EBAMCBeAwDQYJKoZIhvcNAQELBQADggIBAFU7CrDjlfFoyqYszpJ24RmQ4ED7/RXd670c5ElaKYUVGvNO+l2Dv/7bqcyKvvUuWnL1HBA0yOS+9CNAzgn2MljpYlTqeI1QIMlAvjcX1CmWs6prAnQSGQqlAE4mjEu5JKKhqjIwIlkdDTJZvLguk1ov9G7HFoTkEEhm+m1pYPL4EQhvDS89mw0l5TxiImZ6vtfC4lvBGhB2sl2qbk9JhHpPbdu7CFhqMoUrx5m2J9WqVjqXsNZxMWUCavIFKyVx23Y3syoIC4aXEFjLSKz1944WwAfHrBcYBsWImgvTd1HlpuKBNQxz+9Iq+1SgSzE56aPYl1AHghE+/w0iRAj15vxsfCyJJ6JR9jI6useBot/+McI3BNDjFNq5JrgD29J9csR8lyPqsuvWzm1b97lxvNp2tZTHgmqKEqFpAmhnj5TRQ+5kZjNKP0c9mrR0Zm9yWyh+HTHZHEXDDuRzVYNLfMUVHtL/JPGBK6eXlciPIbxJAubZeCdAWPNg70dzoX45WrpI98N6q9w/IcSgfpXXHd9WXliLHc8M/mMif69+Gu88u0BMoe+C99sqO/Ly6OKqOLNoqBQxyAd7LD1Bn5VDGgEfXzvDDeRVN1oPlZ2/9rHINS2DUqYLpopMUpiC2SklkO8TvB1clhxuIC66O2EEWeKN1vTgQdVN4XUHvja40Qn3</X509Certificate> </X509Data> </KeyInfo> </Signature> </distNFeSC> </pXml> </NfeDownloadContab> </soap:Body> </soap:Envelope> ----------------------------------------------------- Resposta do Servidor <?xml version="1.0" encoding="utf-8"?> <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <soap:Body> <NfeDownloadContabResponse xmlns="http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1"> <NfeDownloadContabResult> <retDistNFeSC xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.satnfe.sef.sc.gov.br/ws/distribuicao-v1"> <cStat>280</cStat> <xMotivo>Rejeição: Certificado Transmissor inválido.</xMotivo> <dhResp>2021-01-25T10:57:34-03:00</dhResp> </retDistNFeSC> </NfeDownloadContabResult> </NfeDownloadContabResponse> </soap:Body> </soap:Envelope> No manual em anexo, não ficou claro como devo enviar a assinatura estou me baseando no fontes do acbr... Se puderem me dar uma luz agradeço... NT 2021-001 - Serviço de Distribuição de Notas Fiscais Eletrônicas (2).pdf

Ao compilar meu projeto o sistema esta dando erro de compilação na unit "pcesS2241", alguém sabe se é usada? pq o componentes instalou normalmente.

Bom dia, Algum progresso? encontrei os esquemas e manual v5 http://www.caixa.gov.br/Downloads/fgts-manuais-operacionais/Manual_do_Empregador_Desenvolvedor_CAIXA_V5.pdf Arquivos_XSD_servicos_FGTS.zip

Bom dia, Esta desenvolvendo no ACBR ? Algum progresso?

Esta tudo funcionando normalmente é só atualizar o componente

Parou de funcionar estou testando aqui para ver o que mudou

Então acabei de verificar e produção esta funcionando normalmente, somente homologação, já enviei uma mensagem para produção restrita.

Bom dia, Alessandro Então meu conhecimento no componente também não é dos melhores porém, fiz os métodos de consulta do componente EFD-Reinf que é parecido depois o Italo deu uma melhorada. Da uma olhadinha neste tópico pode ser que te ajude

Vi que foi colocada um nova versão do esquema, mas acredito não ser este o problema

Bom dia Desde ontem as 16:00 o ambiente de homologação só esta recebendo e não processa nada, mais alguém esta passando pelo mesmo problema ? <eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/retornoProcessamento/v1_3_0" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><retornoProcessamentoLoteEventos><ideEmpregador><tpInsc>1</tpInsc><nrInsc>10390725</nrInsc></ideEmpregador><ideTransmissor><tpInsc>2</tpInsc><nrInsc>49700910997</nrInsc></ideTransmissor><status><cdResposta>101</cdResposta><descResposta>Lote aguardando processamento.</descResposta></status><dadosRecepcaoLote><dhRecepcao>2019-01-11T08:18:33.87</dhRecepcao><versaoAplicativoRecepcao>0.1.0-A0350</versaoAplicativoRecepcao><protocoloEnvio>1.2.201901.0000000000056411845</protocoloEnvio></dadosRecepcaoLote></retornoProcessamentoLoteEventos></eSocial>

Fechou Italo perfeito, obrigado, esta funcionando 100%!!

O Evento R-1000 só deve ser enviado pela Matriz

Italo, Ficou muito melhor so fiz uma correção no envio da inscrição do estabelecimento que tem que ir completa e estava indo com 8 digitos Segue as duas units com as alterações ACBrReinf.rar

Bom dia Italo, Então acredito que o codigo ficou um pouco programado via "POG" pois sou novato no componente rsss.... Mas acredito que não tem problema em mudar pois fiz assim porque faço uma concatenação no parâmetros de envio para o WebService que pedem somente números exemplo: Consultar um evento R-1000, ConsultaReciboEvento1000 R-2010, ConsultaReciboEvento2010 e assim por diante. Ai só teria que fazer uma função para converter de R1000 => '1000'.

Ultima versão consultando os eventos R1000, R2010, R2020, R2060, R2098 e R2099 (Que são os que eu utilizo). ACBrReinf.rar

Bom dia saiu o novo manual do Desenvolvedor Versão 1.04.00 Dezembro de 2018, especificando como recuperar o numero do recibo sem o número do protocolo, Até o momento eu implementei no componente a consulta do recibo do Evento R-2060, acredito não estar muito nos padrões mais já quebra um galho para quem tem mais conhecimento no componente e queira melhorar... segue os fontes que alterei.. Metodo criado... function TACBrReinf.ConsultaReciboEvento(const APerApur, ATipoEvento: String): Boolean; begin Result := WebServices.ConsultaReciboEvento(APerApur, ATipoEvento); end; ACBrReinf.rar