Erro envio NFSe Publica

[Adriano Wolff]

Estou obtendo o seguinte erro após o processamento da NFSe, porém não consegui encontrar uma solução.
 

Código  : X999
Mensagem: Erro de Conexão: '2022/04' is not a valid date and time

Consegui identificar aonde o erro ocorre, unit <ACBrUtil.DateTime>  na function EncodeDataHora.
Algo referente a tag <Competencia>2022-04</Competencia>

Segue anexo RPS e NFSe para analise. 

Agradeço a ajuda. 

NFSE.xml RPS.xml

[Victor H. Gonzales - Panda]

Bom dia,

Envie os SOAP por favor

[Adriano Wolff]

Segue ...

NDs0NzE3MTsxNzQ1OzE0MjY7NDs0NzE3MTsxNzQ1OzE0MjY7ND-lista-nfse-con-lot-soap.xml

 

 

Veja o Length de xData não é 6 nem 8, por isso o erro. 

 

 

Editado 6 Abril, 2022 por Adriano Wolff

[Victor H. Gonzales - Panda]

5 horas atrás, Adriano Wolff disse:

Segue ...

NDs0NzE3MTsxNzQ1OzE0MjY7NDs0NzE3MTsxNzQ1OzE0MjY7ND-lista-nfse-con-lot-soap.xml 6 kB · 1 download

 

 

Veja o Length de xData não é 6 nem 8, por isso o erro. 

 

 

na 418

6,7 :

passa o teste ?

[Adriano Wolff]

Se colocar o case para verificar o tamanho 7 também não passa por causa do FormatMaskText('!0000\/00;0;_', ... )

Assim funcionou mas não acho que seja a melhor solução:

[Victor H. Gonzales - Panda]

Vamos abrir uma TK2547 para analisar isso com mais calma

[Renato Rubinho]

@Victor H. Gonzales - Panda

Considere esse outro tópico também, a data possui 7 dígitos mas tem um "Z" no final.

Ia sugerir o cuidado no tratamento da data tanto com o formato MM-AAAA quanto AAAA-MM.

 

[suporte.corpsystem]

Pessoal como tenho muita urgência eu substitui a tag na XML pra não ter de sair Procurando em todo o ACBR....

NA UNIT ACBrNFSeXProviderABRASFv1 NA FUNCAO PreencherNotaResposta

  Result := False; 
  
  if Node <> nil then
  begin
    Node := Node.Childrens.FindAnyNs('InfNfse');
    Node := Node.Childrens.FindAnyNs('IdentificacaoRps');
    NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);

    ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps);

//AQUI
    strValorAntigo := copy(parentNode.OuterXml, pos('<DataEmissao>', parentNode.OuterXml)+13, 20);
    strNovoXML := parentNode.OuterXml;
    if (Copy(strValorAntigo, 5, 1) = '-') and (Copy(strValorAntigo, 11, 1) = 'T')  and (Copy(strValorAntigo, 20, 1) = 'Z')  then
    begin
      strNovoValor := Copy(strValorAntigo, 1, 10) + ' ' + Copy(strValorAntigo, 12, Length(strValorAntigo) - 12);
      strNovoXML := StringReplace(parentNode.OuterXml, '<DataEmissao>'+strValorAntigo+'</DataEmissao>', '<DataEmissao>'+strNovoValor+'</DataEmissao>',[]);
    end;
    strValorAntigo := copy(strNovoXML, pos('<Competencia>', strNovoXML)+13, 7);
    if (COPY(strValorAntigo,7,1) = 'Z') then
    begin
      strNovoValor := (COPY(strValorAntigo,0,6));
      strNovoXML := StringReplace(strNovoXML, '<Competencia>'+strValorAntigo+'</Competencia>', '<Competencia>'+strNovoValor+'</Competencia>',[]);
    end;
    if Assigned(ANota) then
      ANota.XmlNfse := strNovoXML
    else
    begin
      TACBrNFSeX(FAOwner).NotasFiscais.LoadFromString(strNovoXML, False);
      ANota := TACBrNFSeX(FAOwner).NotasFiscais.Items[TACBrNFSeX(FAOwner).NotasFiscais.Count-1];
    end;

//ATÉ AQUI

    SalvarXmlNfse(ANota);
    Result := True; // Processado com sucesso pois retornou a nota
  end;

Aguardando a solução mais definitiva... Obrigado

[Victor H. Gonzales - Panda]

Em 06/04/2022 at 14:48, Adriano Wolff disse:

Se colocar o case para verificar o tamanho 7 também não passa por causa do FormatMaskText('!0000\/00;0;_', ... )

Assim funcionou mas não acho que seja a melhor solução:

ACBrUtil.DateTime.pas

Teste por favor com esta unit

[Adriano Wolff]

Não funciona, teria que mudar para "xData" onde está destacado na imagem. Porque ele vem a data no formato '2022-04-08T11:40:07' dai faz o replace de "-" por "/", mas depois pega a variável original novamente, voltado a ficar '2022-04-08T11:40:07'

[Adriano Wolff]

Assim, já testei e funcionou no provedor da Publica.ACBrUtil.DateTime.pas

[Victor H. Gonzales - Panda]

TK-2555

[Italo Giurizzato Junior]

Boa tarde,

Favor atualizar os fontes e faça novos testes, foi enviado para o SVN uma possível correção.

[Adriano Wolff]

Boa tarde, 

Fonte atualizado e testado, funcionando corretamente!

Obrigado.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.