Consumir Nfe - Serviço de Distribuição de Notas Fiscais Eletrônicas - SC

[Joffas]

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...
 

[Juliomar Marchetti]

no caso o ACBrNFe faz isso. se estiver falando em download, bastando ajustar o endereço no ini.

mas notei que postou em NFC-e , pelo que lembro não é possível para esse tipo de documento manifestar e fazer download correto?

[Joffas]

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....

[Juliomar Marchetti]

Movi para o local correto

Sim existe desde que o webservice de manifestação de nf-e foi pro ar.

[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;