ACBrNFSeX - Solicitação para implementação do novo provedor SysISS

[Everson Clei]

Boa tarde Pessoal,

Conforme feedback no canal #acbrnfsex foi comentado para que fosse aberto uma nova postagem para a implementação deste novo provedor.

Em anexo segue detalhes da resposta do provedor, documentação, schemas, endereços dos wsdl, manuais e exemplos fornecidos pela SysISS-Online para liberar para o município de Rondon/PR.

Também foram levantados outros municípios que são atendidos pelo provedor totalizando 5 novos municípios para ser atendidos no componente. 

Obrigado.

Documentacao-Provedor-SysISS.zip

[Italo Giurizzato Junior]

Boa tarde Everson,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-3901 

[Italo Giurizzato Junior]

Boa tarde Everson,

Já esta no SVN.

[Everson Clei]

Ítalo, estarei realizando os testes, após reporto os resultados, obrigado.

[Everson Clei]

Boa tarde Italo,

Estou encaminhando o feedback referente aos testes do novo provedor SysISS onde a principio foi possível autorizar várias notas no ambiente de homologação apoiado pela tabela de erros que veio junto com a documentação até ficar tudo ok.

Incialmente precisei adicionar na classe SysISS.GravarXml.pas aqui local a property FormatoItemListaServico = filsSemFormatacaoSemZeroEsquerda onde resolveu o seguinte erro: 

Código: E30
Mensagem: Item da lista de serviço inexistente.
Correção: Consulte a legislação vigente para saber o item da lista de serviço que deverá ser informado.

Entrando em contato com o suporte da SysISS eles retornaram que este campo não precisa de 0 a esquerda e também não aceita com formatação.

{ TNFSeW_SysISS202 }
procedure TNFSeW_SysISS202.Configuracao;
begin
  inherited Configuracao;
  FormatoItemListaServico := filsSemFormatacaoSemZeroEsquerda;  <<--- 
...

Outra situação é que este provedor não implementa no WS o método: tmConsultarSituacao onde é disparado um alerta do componentes, neste caso usei uma condicional provisória no método ChecarResposta() tratanto se (Geral.Provedor in [proSysISS]) não executa esta consulta, mas gostaria de confirmar contigo se seria possível configurar direto na classe SysISS.Provider.pas conforme abaixo pra ficar padrão:

{ TACBrNFSeProviderSysISS202 }
procedure TACBrNFSeProviderSysISS202.Configuracao;
begin
  inherited Configuracao;
  ConfigGeral.ConsultaPorFaixaPreencherNumNfseFinal := True;
  ConfigGeral.ConsultaSitLote := False;  <<--- 
...
          
Uma última situação simples é que o PDF do DANFSE não esta gerando a Hora da Emissão, peço desculpas pois ainda não consegui encontrar qual atributo que configura esta formatação no FastReport (DANFSEPadrao.fr3) onde encaminhei um print de exemplo.

Porem fim Italo, a SysISS forneceu mais 3 novos municípios que eles estão atendendo, com isso totalizando 8 municípios a mais para o ABCr e segue eles para ser adicionados no .INI.

Por hora seria estes detalhes, caso ocorra alguma situação nova aviso aqui.

Muito obrigado!

Provedor-SysISS-Novos-Municipios.pdf

[Italo Giurizzato Junior]

Boa tarde Everson,

Por favor anexe as units alteradas para que possamos analisar e caso esteja tudo OK enviaremos para o SVN.

Desde já muito obrigado pela colaboração e testes.

[Everson Clei]

Bom dia Italo,

Segue as units para serem avaliadas.

Muito obrigado.

SysISS.Provider.pas SysISS.GravarXml.pas

[Italo Giurizzato Junior]

Boa tarde Everson,

Muito obrigado pela contribuição, já inclui na minha lista de tarefas. TK-4069

[Italo Giurizzato Junior]

Everson,

Analisando as suas alterações não entendi o motivo da alteração na unit Provider do provedor.

Na unit ACBrNFSeXProviderBase o ConsultaSitLote já recebe o valor False e ele só é alterado para True na unit ACBrNFSeProviderABRASFv1, só que o provedor em questão se utiliza da unit ACBrNFSeProviderABRASFv2.

No programa exemplo na procedure ChecarResposta temos as seguintes condições para apresentar o resultado do ConsultarSituacao:

          if ACBrNFSeX1.Configuracoes.Geral.ConsultaLoteAposEnvio and
             ((Emite.Protocolo <> '') or (Emite.NumeroLote <> '')) then
          begin
            if ACBrNFSeX1.Provider.ConfigGeral.ConsultaSitLote then
            begin
              with ConsultaSituacao do
              begin
                (...)

Você não esta alterando o valor do ConsultaSitLote diretamente na sua aplicação?

[Everson Clei]

Boa tarde Mestre,

De fato, testei os detalhes que me passou na resposta anterior e a classe SysISS.Provider.pas não precisa da atribuição fixa do ConsultaSitLote = False pois a prop ConsultaSitLote faz isto.

Desculpe não ter visto esta redundância.

Obrigado.

[Italo Giurizzato Junior]

Bom dia Everson,

Já esta no SVN.

[Everson Clei]

Bom dia Italo,

Para o provedor SysISS o formato da Data de Emissão no DANFSE precisa conter a Hora e analisando o preenchimento do componente na unit ACBrNFSeXDANFSeFR.pas no método CarregaIdentificacao() adicionando o provedor na condicional funcionou perfeitamente.

procedure TACBrNFSeXDANFSeFR.CarregaIdentificacao(ANFSe: TNFSe);
var
  LCDS: TACBrFRDataSet;
begin
  ...
  if (Provedor in [ proGINFES, proBetha, proDSF, proSysISS ]) then   
    LCDS.FieldByName('DataEmissao').AsString := FormatDateTimeBr(ANFSe.DataEmissao)
  else
  ...
end;

Segue unit para ser avaliada o trecho alterado e se seria o melhor local para tal ajuste. 

Muito obrigado.

 

ACBrNFSeXDANFSeFR.pas

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-4370

[Italo Giurizzato Junior]

Boa tarde Everson,

Desculpa pela demora na analise da sua contribuição.

Fiz uma pequena alteração e enviei para o SVN.

Aproveitei e fiz a mesma alteração para o DANFSE feito em Fortes Report.

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

[Everson Clei]

Olá Italo, 

Muito obrigado pelo feedback deste novo update.