Ajustes para o provedor Saatri

[João Antônio]

Bom dia, fiz ajustes no provedor Saatri v2.03 para adequar o layout de acordo com os novos campos adicionados.

* O campo ItemListaServico deve ser informado com o desdobro. xx.xx.xx

* Inserção do campo CodigoNbs

* Alterações nos retornos de emissão.

Saatri.Provider.pasSaatri.GravarXml.pas

nfse.xsd

Editado 14 Janeiro por João Antônio

[LS Adriano]

@João Antônio boa tarde,

 

Estou com problema pra enviar NFSe para Dias d'Avila BA, já atualizei o ACBr, com suas alterações mas ainda retorna com erro "Erro de validação : 1824 ItemListaServico':170201' is not a valid value of the atomic type", já tentei envio de itemListaServico usando a máscara (.).
Tem alguma sugestão?

[João Antônio]

5 horas atrás, LS Adriano disse:

@João Antônio boa tarde,

 

Estou com problema pra enviar NFSe para Dias d'Avila BA, já atualizei o ACBr, com suas alterações mas ainda retorna com erro "Erro de validação : 1824 ItemListaServico':170201' is not a valid value of the atomic type", já tentei envio de itemListaServico usando a máscara (.).
Tem alguma sugestão?

Faço o envio do tipo de serviço desse jeito:

Está funcionando corretamente para a cidade de Irece-BA. 

[daniel-unymos]

@Alexandre de Paula Bom dia, poderia criar uma atividade para que seja incluído as alterações desse provedor no fonte de ACBR

[Italo Giurizzato Junior]

Boa tarde @João Antônio,

Não entendi o motivo de criar um override da procedure TratarRetornoEmitir.

Notei que nesse override foi incluído as linhas:

      AuxNode := ANode.Childrens.FindAnyNs('EnviarLoteRpsResposta');
      if AuxNode <> nil then
        ANode := AuxNode;

Existem situações onde o retorno não contem a tag: EnviarLoteRpsResposta ?

Lhe pergunto isso porque na mesma unit temos:

function TACBrNFSeXWebserviceSaatri201.Recepcionar(const ACabecalho,
  AMSG: String): string;
var
  Request: string;
begin
  FPMsgOrig := AMSG;

  Request := '<nfse:RecepcionarLoteRpsRequest>';
  Request := Request + '<nfseCabecMsg>' + XmlToStr(ACabecalho) + '</nfseCabecMsg>';
  Request := Request + '<nfseDadosMsg>' + XmlToStr(AMSG) + '</nfseDadosMsg>';
  Request := Request + '</nfse:RecepcionarLoteRpsRequest>';

  Result := Executar('http://nfse.abrasf.org.br/Infse/RecepcionarLoteRps', Request,
                     DadosUsuario,
                     ['outputXML', 'EnviarLoteRpsResposta'],
                     ['xmlns:nfse="http://nfse.abrasf.org.br"']);
end;

Note que temos a lista: ['outputXML', 'EnviarLoteRpsResposta'] de tags que contem no XML de retorno no caso do envio em lote no modo assíncrono.

A procedure TratarRetornoEmitir é utilizada por três serviços: cuja lista de tags no XML de retorno varia, veja:

Envio em lote no modo assíncrono: ['outputXML', 'EnviarLoteRpsResposta']

Envio em lote no modo síncrono: ['outputXML', 'EnviarLoteRpsSincronoResposta']

Envio unitário: ['outputXML', 'GerarNfseResposta']

Realmente não entendi a necessidade da alteração que você fez na unit Saatri.Provider.

 

Na unit Saatri.GravarXml ao meu ver bastaria ter feito o seguinte:

{ TNFSeW_Saatri203 }

procedure TNFSeW_Saatri203.Configuracao;
begin
  inherited Configuracao;

  NrOcorrDiscriminacao_1 := -1;
  NrOcorrCodigoMunic_1 := -1;

  NrOcorrDiscriminacao_2 := 1;
  NrOcorrCodigoMunic_2 := 1;
end;

Vou enviar a atualização dos Schemas e da unit Saatri.GravarXml com a minha alteração para o SVN.

Por favor faça uma cópia das units que você alterou, atualize o ACBr, reinstale e faça novos testes.

Fico no aguardo do seu retorno.

[João Antônio]

Boa noite @Italo Giurizzato Junior, 

atualizei os fontes e fiz os testes. Só precisei fazer uma alteração para pegar corretamente o retorno do metodo de emitir

Alterei o responseTag EnviarLoteRpsSincronoResposta para EnviarLoteRpsResposta.

O retorno está vindo nesse formato:

[Italo Giurizzato Junior]

Bom dia @João Antônio,

Tanto o envio em lote no modo assíncrono e síncrono a tag de retorno é a mesma?

Não deveria, erro na geração do retorno por parte do provedor.

[LS Adriano]

Bom dia, só que mesmo com essa alteração esta retornando o erro 'Lista de NFSe não encontrada! (ListaNfse)';

[Guilherme Martin Ewz]

Pessoal, vou fazer minha colaboração, eu implementei para o municipio de Bom Jesus - BH no modo assíncrono e tudo ok, retorno do protocolo, e na consulta por lote retorno da nota sem problemas também com as últimas atualizações dos fontes.