Ir para conteúdo
  • Cadastre-se

Dangelo2010

Membro Pro Verificado
  • Total de ítens

    673
  • Registro em

  • Última visita

Tudo que Dangelo2010 postou

  1. Bom dia! Onde fica localizado a empresa?
  2. Eu não tive essa rejeição, eu coloquei assim Servico.ResponsavelRetencao := rtTomador;
  3. Boa noite! Aqui para mim deu certo, usei essas configurações [5208707] Nome=Goiania UF=GO Provedor=ISSNet Versao=2.04 ProRecepcionar=https://nfse.issnetonline.com.br/abrasf204/goiania/nfse.asmx HomRecepcionar=https://www.issnetonline.com.br/homologaabrasf/webservicenfse204/nfse.asmx
  4. Boa tarde! Estou recebendo esse retorno
  5. @Juliomar Marchetti Bom dia! Responde para mim também kkk
  6. Boa tarde Aproveitando aqui, onde e feito a homologação do TEF Scope? onde encontrar um vídeo explicando?, teriam a documentação?
  7. Teria alguma sit ou manual para homologação do AutoTEF para uso?
  8. Boa noite! O AutoTEF já esta pronto para teste ou ainda não?
  9. Obrigado! Achei que o problema era aqui no meu computador Valeu
  10. Bom dia! tem varios links que não estou conseguindo acessar estou com mensagem de erro "Algo deu errado. Por favor, tente novamente."
  11. Não deu certo, pois ele faz o download novamente e alimenta wSL.LoadFromFile(wArq, TEncoding.UTF8);
  12. Você fala de excluir o arquivo ACBrNCM.json que esta na pasta?
  13. wSL.LoadFromFile(wArq, TEncoding.UTF8); fiz assim tambem e nao deu certo
  14. Tranquilo Até dessa forma eu fiz mais não resolveu // Tente ler com ISO-8859-1 (ou ajuste se precisar de outra codificação) wSL.Encoding := TEncoding.GetEncoding(28591); // ISO-8859-1 wSL.LoadFromFile(wArq); // Se você tiver certeza da codificação correta, pode ajustar isso FileText := wSL.Text; // Se a leitura estiver errada, você pode tentar uma codificação diferente if ContainsStr(FileText, 'Caracteres estranhos') then begin // Tente uma codificação alternativa se necessário wSL.Encoding := TEncoding.GetEncoding(1252); // Windows-1252 wSL.LoadFromFile(wArq); FileText := wSL.Text; end; // Converta para UTF-8 se necessário FileText := TEncoding.Convert(TEncoding.GetEncoding(28591), TEncoding.UTF8, TEncoding.GetEncoding(28591).GetBytes(FileText)); wJson := CriarEValidarJson(FileText);
  15. Eu vi aqui que dentro do arquivo json esta certinho, so quando vem para o grid que fica assim function TACBrNCMs.CarregarCache: String; var wArq: String; wSL: TStringList; wJson: TACBrJSONObject; wDataCache: TDateTime; xData: string; begin Clear; wJson := Nil; Result := EmptyStr; wArq := CacheArquivo; if (wArq = EmptyStr) or (not FileExists(wArq)) then Exit; try wSL := TStringList.Create; try wSL.LoadFromFile(wArq); // aqui ja vem com os caracteres wJson := CriarEValidarJson(wSL.Text); try xData := TratarCampoData(wJson.AsString['DataCache']); wDataCache := StringToDateTimeDef(xData, 0, 'dd/mm/yyyy'); if (CacheDiasValidade > 0) and (DaysBetween(Now, wDataCache) > CacheDiasValidade) then begin DeleteFile(wArq); Exit; end; Result := wSL.Text; finally wJson.Free; end; finally wSL.Free; end; except DeleteFile(wArq); end; end;
  16. Estou com o mesmo problema, meu Delphi e o 11
  17. Boa tarde! Teria alguma documentação sobre broadcast?
  18. Bom dia! Alguém já conseguiu rodar um sistema feito em delphi .exe no Mac OS?
  19. Obrigado @Juliana Tamizou Mais pode fechar que o @Daniel InfoCotidiano já mim passou o que preciso fazer
  20. Vou fazer isso la Obrigado
  21. @Daniel InfoCotidiano, não foi feito nada la, continua como sempre estava, o driver e o mesmo, maquina nao foi formatada e em outras portas ele ja tinha trocado e continua todas do mesmo jeito Tem algum testador de porta COM?
×
×
  • 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.