Ir para conteúdo
  • Cadastre-se

dev botao

Erro envio NFSe Publica


Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 973 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

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

  • Consultores
Postado

Bom dia,

Envie os SOAP por favor

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Consultores
Postado
5 horas atrás, Adriano Wolff disse:

Segue ...

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

 

image.thumb.png.908de50e392f61132da04b708c1fbe63.png

 

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

 

 

na 418

6,7 :

passa o teste ?

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Membros Pro
Postado

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:
image.png.9e46eb1acdf527c9b1c7c113cbdfdb1b.png

  • Consultores
Postado

Vamos abrir uma TK2547 para analisar isso com mais calma

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Postado

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

  • Curtir 1
  • Consultores
Postado
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:
image.png.9e46eb1acdf527c9b1c7c113cbdfdb1b.png

ACBrUtil.DateTime.pas

Teste por favor com esta unit

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Membros Pro
Postado

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'

image.thumb.png.2ee8dc0b65394e983755423531f60cf8.png

  • Consultores
Postado

TK-2555

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Administradores
Postado

Obrigado por reportar.

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • Este tópico foi criado há 973 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...