smarapd Servidor Smarapd

[Renan Eustaquio]

Boa Tarde!

Segue em anexo arquivos para emissão de NFS-e servidores Smarapd  (Cariacica, Serra, Guarapari -> "Saiu do Pronim").
Favor verifique se esta tudo nos conformes e se possível mescle a versão. 

 

 

SMARADP.rar

[Italo Giurizzato Junior]

Boa noite Renan,

Muito obrigado pela colaboração, já enviei para o repositório.

[Renan Eustaquio]

Favor renomear o arquivo Smaradp -> Smarapd e na tabela cidades mudar as cidades abaixo pois esta com nome de provedor incorreto, o resto funcionou corretamente.

[3202405]
Nome=Guarapari
UF=ES
Provedor=Smarapd
NomeURL_H=servicos-pmg.guarapari.es.gov.br:9999
NomeURL_P=servicos-pmg.guarapari.es.gov.br:9999

[3205002]
Nome=Serra
UF=ES
Provedor=Smarapd
NomeURL_H=apps.serra.es.gov.br:8080
NomeURL_P=apps.serra.es.gov.br:8080

[3201308]
Nome=Cariacica
UF=ES
Provedor=Smarapd
NomeURL_H=servicos.cariacica.es.gov.br:8080
NomeURL_P=servicos.cariacica.es.gov.br:8080

Cidades.ini

Smarapd.ini

Editado 16 Junho, 2017 por Renan Eustaquio

[Italo Giurizzato Junior]

Boa noite Renan,

Já enviei a correção para o repositório.

[Renan Eustaquio]

Boa tarde!

Fiz duas atualizações no arquivo e gostaria que atualizassem para mim.

1ª data do Rps estava pegando a data da emissão da nota

2ª data de competência que não estava sendo preenchida.

 

pnfsNFSeW_SMARAPD.pas

[Italo Giurizzato Junior]

Boa noite Renan,

Muito obrigado pela colaboração, como tenho outras alterações a serem feitas no componente, assim que terminar vou enviar tudo para o repositório.

[Renan Eustaquio]

ok, obrigado.

[Italo Giurizzato Junior]

Boa tarde Renan,

Favor atualizar os fontes e fazer novos testes.

[pcbonetti]

Precisei alterar a leitura das NFSe da Smarapd pois da forma que estava só lia a primeira NFSe do arquivo, porém não sei como disponibilizar as correções:

 

Na na função PosNFSe dentro da unit ACBrNFSeNotasFiscais alterei a seguinte linha:

de: Result := Pos('</tbnfd>', AXMLString); 

para:   Result := Pos('</nfdok>', AXMLString);

 

e na função LerNFSe_Smarapd dentro da unit pnfsNFSeR alterei a linha:

de: IdentificacaoPrestador.Cnpj               := Trim(copy(vLinha,pos('CPF/CNPJ:',vLinha)+10,length(vLinha)-1));

para: IdentificacaoPrestador.Cnpj               := OnlyNumber(Trim(copy(vLinha,pos('CPF/CNPJ:',vLinha)+10,length(vLinha)-1)));

 

Editado 5 Julho, 2017 por pcbonetti

[Italo Giurizzato Junior]

Boa noite,

Favor anexar as units alteradas para que possamos analisar.

[André Medeiros - KRK]

Olá @Italo Jurisato Junior tudo bem ?

Você poderia adicionar esta cidade no Cidades.ini para o Provedor SmaraPD

[3522505]
Nome=Itapevi
UF=SP
Provedor=Smarapd
NomeURL_H=sistemas.itapevi.sp.gov.br:9090
NomeURL_P=sistemas.itapevi.sp.gov.br:9090

Abraços,

[Italo Giurizzato Junior]

Boa noite André,

Já inclui a cidade, ainda hoje vou enviar para o repositório.

Muito obrigado pela colaboração.

[André Medeiros - KRK]

Olá @Italo Jurisato Junior tudo bem ?

A natureza de operação é tratada como enum.

  TnfseNaturezaOperacao = ( no1, no2, no3, no4, no5, no6, no7, no9, no11, no12, no14, .......

No manual do Smarapd temos mais naturezas do que o previsto nos enums do componente. Por exemplo 512, 611, 612, 615, 715. Estes são apenas alguns mas são um total de 17 códigos.

Devemos prever todos estes códigos como enum no componente ?

Na classe que constrói o XML foi necessário fazer a seguinte alteração

Gerador.wCampoNFSe(tcStr,     '', 'codnaturezaoperacao',       01, 12, 1, NaturezaOperacaoToStr(FNFSe.NaturezaOperacao), '');

Qualquer dúvida fico a disposição,

Abraços,

pnfsNFSeW_SMARAPD.pas

[Italo Giurizzato Junior]

Boa tarde André,

Sim devemos fazer os ajustes primeiro no TnfseNaturezaOperacao.

 

[André Medeiros - KRK]

Olá Italo,

Obrigado, vou implementar conforme os manuais e envio os arquivos atualizados  

Abraços,

[André Medeiros - KRK]

Olá Italo, 

Segue os arquivos atualizados.

Fico a disposição,

pnfsConversao.pas

pnfsNFSeW_SMARAPD.pas

[Italo Giurizzato Junior]

Boa noite André,

Muito obrigado pela colaboração, já enviei para o repositório.

[André Medeiros - KRK]

Olá Italo, tudo bem ?

Estou enviando mais uma alteração, o provedor smarapd permite o envio das condições de pagamento e de outras informações

procedure TNFSeW_SMARAPD.GerarCondicaoPagamento;
var
  i: Integer;
begin
  Gerador.wGrupoNFSe('tbfatura');
  for i := 0 to FNFSe.CondicaoPagamento.Parcelas.Count - 1 do
    begin
      Gerador.wGrupoNFSe('fatura');
      Gerador.wCampoNFSe(tcStr,    '', 'numfatura',        01, 12, 1, FNFSe.CondicaoPagamento.Parcelas.Items[i].Parcela, '');
      Gerador.wCampoNFSe(tcDatVcto,'', 'vencimentofatura', 01, 12, 1, FNFSe.CondicaoPagamento.Parcelas.Items[i].DataVencimento, '');
      Gerador.wCampoNFSe(tcDe2,    '', 'valorfatura',      01, 12, 1, FNFSe.CondicaoPagamento.Parcelas.Items[i].Valor, '');
      Gerador.wGrupoNFSe('/fatura');
    end;
  Gerador.wGrupoNFSe('/tbfatura');
end;    

 

procedure TNFSeW_SMARAPD.GerarTomador;
begin
.
.
.
.
  Gerador.wCampoNFSe(tcStr, '', 'observacao',                01, 110, 1, FNFSe.OutrasInformacoes,'');
end;

Eu não consegui transmitir ainda no ambiente de produção, pois o cliente que eu estou integrando precisa de e-CPF, mas no ambiente de homologação fiz a transmissão e o processamento do RPS com sucesso enviando estas informações no XML

Segue o arquivo alterado em anexo,

Fico a disposição

Abraços

 

pnfsNFSeW_SMARAPD.pas

[Italo Giurizzato Junior]

Bom dia André,

Muito obrigado pela colaboração, já esta no repositório.

[André Medeiros - KRK]

Olá Italo, tudo bem ?

Obrigado. Só mais uma sugestão. 

Para gerar o link da NF segue as alterações no arquivo ini

[LinkNFSe]					  
Producao=http://%NomeURL_P%/tbw/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%CNPJ%&numero=%NumeroNFSe%&chave=%ChaveAcesso%
Homologacao=http://%NomeURL_P%/tbw/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%CNPJ%&numero=%NumeroNFSe%&chave=%ChaveAcesso%

Segue o arquivo ini em anexo

Abraços,

Smarapd.ini

[Italo Giurizzato Junior]

Boa noite André,

Muito obrigado pela colaboração, assim que o SVN voltar a funcionar vou enviar a atualização do arquivo INI.

[rodrigo4t]

Bom dia pessoal,

Estou ressuscitando o tópico porque estou apanhando com o bendito do SmaraPD. Vocês também tiveram problema com o envio da senha ?

Estou tentando transmitir pela propriedade Geral.SenhaWeb a senha de acesso do meu usuário criptografada com SHA1 conforme orientação do manual, mas recebo a mensagem "senha inválida"  no momento da transmissão.

O suporte da SmaraPD não tem sido de grande ajuda, eles só falam que eu devo ler o manual e mais nada.

Eu criei uma função para encriptação da senha utilizando o Turbopower LockBox 3:

function HashSenhaSHA1(sSenha: WideString): WideString;
var
  bytes : TBytes;
  i, P, Sz: integer;
  aByte: byte;
  s: string;
  SHA1 : THash;
  Lib : TCryptographicLibrary;
begin
  Lib := TCryptographicLibrary.Create(nil);
  SHA1 := THash.Create(nil);
  SHA1.CryptoLibrary := Lib;
  SHA1.HashId := 'native.hash.SHA-1';
  SHA1.Begin_Hash;
  SHA1.HashString(sSenha);

  if not assigned(SHA1.HashOutputValue) then
      result := 'nil'
  else
  begin
    SetLength(Bytes, 20);
    Sz := SHA1.HashOutputValue.Size;

    if Sz <> 20 then
      result := Format('wrong size: %d', [Sz])
    else
    begin
       P := 0;
       SHA1.HashOutputValue.Position := 0;

       while SHA1.HashOutputValue.Read(aByte, 1) = 1 do
       begin
         bytes[P] := aByte;
         Inc(P);
       end;

       result := TNetEncoding.Base64.EncodeBytesToString(bytes);
    end;
  end;

  SHA1.Destroy;
  Lib.Destroy;
end;

 

[rodrigo4t]

Pessoal, desculpe a mensagem anterior, só agora debugando os fontes eu percebo que o próprio ACBRNFSe aplica o Hash à senha. Eu consegui passar pelo erro de senha, mas tenho um retorno que o campo "codatividade" não foi preenchido.

Olhando os fontes do ACBr não consigo encontrar qual campo do componente deve ser preenchido para que a informação seja enviada no XML. Alguém pode me ajudar ?

 

 

 

 

 

[Verissimo]

Tente neste campo NFSe.Servico.ItemListaServico

[ALA]

Bom dia. Alguém tem os schemas ou contato desse provedor para disponibilizar. Estou tentando fazer a integração com Cubatão/SP, mas não esta prosperando...