Ir para conteúdo
  • Cadastre-se

dev botao

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


Joffas
Ver Solução Respondido por Joffas,
  • Este tópico foi criado há 1143 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

  • Solution

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;

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1143 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...