Envio de nota para Blumenau usando o WebService de Migração

[Italo Giurizzato Junior]

Bom dia a todos,

Favor utilizar esse tópico para tratar de assuntos relacionado ao WebService de Migração da cidade de Blumenau.

Para enviar notas usando esse WebService basta alterar o arquivo Cidades.ini deixando a configuração para a cidade de Blumenau conforme abaixo:

[4202404]
Nome=Blumenau
UF=SC
Provedor=NotaBlu
;Provedor=SimplISSv2
;NomeURL_H=homologacaoabrasf
;NomeURL_P=blumenau

Note que as 3 últimas linhas estão comentadas.

Observação: Até onde sei o envio de notas através desse WebService usando o componente ACBrNFSe esta funcionando e somente o método Gerar foi implementado, as notas são enviadas diretamente para o ambiente de produção.

[Dercide Alvarez]

@Italo Jurisato Junior

Uma dúvida, seria o Enviar ou o Gerar, ? Pois eu somente consegui enviar na semana retrasada com o Método Gerar.

Dercide Alvarez

[Italo Giurizzato Junior]

Bom dia Dercide,

Muito obrigado, já fiz a correção na minha postagem.

[João Paulo Müller]

Olá Pessoal,

Estive analisando esse ambiente de migração e notei que atualmente o componente está enviando a Alíquota na seguinte formatação:

if NFSe.Servico.Valores.Aliquota > 0 then
  begin
    aliquota := FormatFloat('0.00##', NFSe.Servico.Valores.Aliquota / 100);
    aliquota := StringReplace(aliquota, ',', '.', [rfReplaceAll]);
  end

 Analisando a nota autorizada no portal pude verificar que é exibido o valor incorreto da alíquota.

Exemplo: setado no componente a alíquota do serviço de 2%, o  componente está enviado é 0,02 e na impressão do portal é impresso também 0,02, ou seja, é interpretado como se a aliquota fosse 0,02% em vez de 2%.

Em conversa com Pedro (SimplISS) o mesmo informou que deve ser enviado a alíquota sem a divisão, no caso do exemplo, seria 2

Exemplo de uma nota com alíquota de 2,69 a TAG da alíquota ficaria:

<AliquotaServicos>2.69</AliquotaServicos>

Para solucionar essa situação podemos alterar a unit pnfsNFSeW_SP da seguinte forma:

if NFSe.Servico.Valores.Aliquota > 0 then
  begin
    if (FProvedor = proSP) then //incluso essa condição
      aliquota := FormatFloat('0.00##', NFSe.Servico.Valores.Aliquota / 100)
    else
      aliquota := FormatFloat('0.00##', NFSe.Servico.Valores.Aliquota);

    aliquota := StringReplace(aliquota, ',', '.', [rfReplaceAll]);
  end
  else
    aliquota := '0';

 

Fiz alguns testes assim e a principio ficou tudo certo no portal.

 

pnfsNFSeW_SP.pas

Editado 21 Outubro, 2019 por João Paulo Müller

[Italo Giurizzato Junior]

Boa tarde João,

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