Jump to content

Joffas

Membros
  • Posts

    117
  • Joined

  • Last visited

Community Answers

  1. Joffas's post in TLS 1.2 com Certificado A3, "Certificado não permite Exportar Chave Privada." was marked as the answer   
    Fechou @Daniel Simoes
     
    Criei como TDFeHttpWinHttp e foi obrigado...

  2. Joffas's post in InternalErro 12002 was marked as the answer   
    Obrigado pelas dicas @Juliomar Marchetti,
    Descobri o problema é que antes o componente pegava o proxy da configuração do Windows.
    Agora tenho que configurar no componente, e por coincidência a máquina que configurei o novo ACBR tinha um variável de Ambiente forçando o HTTP_PROXY.
     
    vlw...
     
     
  3. Joffas's post in Consumir Nfe - Serviço de Distribuição de Notas Fiscais Eletrônicas - SC was marked as the answer   
    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;
  4. Joffas's post in Consulta de Eventos Reinf was marked as the answer   
    Esta tudo funcionando normalmente é só atualizar o componente
  5. Joffas's post in 174 - O evento somente será aceito após a data de início da obrigatoriedade do empregador ao eSocial." was marked as the answer   
    Avisando os navegantes que a data "2017-01" voltou ao normal, realmente foi o estagiário 
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.