Dangelo2010

Teria alguma sit ou manual para homologação do AutoTEF para uso?

Boa noite! O AutoTEF já esta pronto para teste ou ainda não?

Obrigado! Achei que o problema era aqui no meu computador Valeu

Bom dia! tem varios links que não estou conseguindo acessar estou com mensagem de erro "Algo deu errado. Por favor, tente novamente."

Não deu certo, pois ele faz o download novamente e alimenta wSL.LoadFromFile(wArq, TEncoding.UTF8);

Você fala de excluir o arquivo ACBrNCM.json que esta na pasta?

wSL.LoadFromFile(wArq, TEncoding.UTF8); fiz assim tambem e nao deu certo

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);

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;

Estou com o mesmo problema, meu Delphi e o 11

Entendi, valeu

Boa tarde! Teria alguma documentação sobre broadcast?

Entendi! Obrigado

Bom dia! Alguém já conseguiu rodar um sistema feito em delphi .exe no Mac OS?

Obrigado @Juliana Tamizou Mais pode fechar que o @Daniel InfoCotidiano já mim passou o que preciso fazer

Ok, Valeu. Vou testar la

Vou fazer isso la Obrigado

@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?

Então @Daniel InfoCotidiano, lá ele usa um cabo conversor. Eu falei para o cliente iniciar a maquina e esperar um pouco antes de abrir o sistema, mais ele disse que antigamente não ocorria isso. A maquina dele não foi feito nenhuma formatação nem nada, somente do nada ele disse que acontece isso

Boa tarde! Tem uma maquina que quando vai pesar na balança o sistema nao consegue dando mensagem de erro pois nao conseque comunicar com a balança e tem que reiniciar a maquina. O cliente liga a maquina, abre o sistema, e no primeiro peso ja da a mensagem de erro e tem que reiniciar a maquina, e passa o dia todo tranquilo. Porem isso tem que ser feito todos os dias. O que posso fazer para mudar isso?

Boa noite! Só para comunicar aqui para vocês que deu certo, retirei tudo que tinha como application.onexception e applicationevents e hoje sistema hoje não fechou sozinho mais Muito obrigado @Renato Rubinho, @Juliomar Marchetti

Vou retirar então Se der certo posto aqui Obrigado!

Eu tenho mais não nessa tela Primeiro teste que faço o sistema já cai procedure TFPDV_Z.EBarrasKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin Case Key Of VK_RETURN : Begin SQLConsultaProduto.Cancel; SQLConsultaProduto.Close; CDSConsultaProduto.Close; CDSConsultaProduto.Fields.Clear; CDSConsultaProduto.FieldDefs.Clear; CDSConsultaProduto.Filtered := False; CDSConsultaProduto.IndexFieldNames := EmptyStr; CDSConsultaProduto.IndexName := EmptyStr; CDSConsultaProduto.CommandText := 'SELECT ' + ' DESCRICAO, ' + ' COD_PRODUTO, ' + ' EAN_TRIBUTADO ' + 'FROM PRODUTO ' + 'WHERE COD_EMPRESA = :sCOD_EMPRESA ' + 'AND EAN_TRIBUTADO = :sEAN_TRIBUTADO '; CDSConsultaProduto.ParamByName('sCOD_EMPRESA').AsInteger := Modulo.EmpCodEmpresa; CDSConsultaProduto.ParamByName('sEAN_TRIBUTADO').AsString := EBarras.Text; CDSConsultaProduto.Open; Try If CDSConsultaProduto.RecordCount > 0 Then Begin sCodProduto := CDSConsultaProduto.FieldByName('COD_PRODUTO').AsInteger; ENomeProduto.Caption := CDSConsultaProduto.FieldByName('DESCRICAO').AsString; End Else Begin EBarras.SetFocus; Raise Exception.Create('Produto não localizado.'); End; Except EBarras.SetFocus; Raise Exception.Create('Produto não localizado.'); End; End; End;

@Renato Rubinho, explica por favor A função do Abort não vai só parar ou ela pode fazer algo mais? Entendi, agora caiu a ficha. Vou mudar isso

Boa tarde! Tenho um problema que não consigo resolver e gostaria de uma ajuda. Estou usando Delphi 11, Windows 10, conexão FIREBIRD 4.0 com conexão TSQLConnection Estou fazendo uma consulta simples para trazer um determinado produto ao bipar no leitor de barras, porem, quando o produto não tem cadastro ele mim informa "Produto não localizado". Até ai tudo bem, porem muitas vezes quando recebo essa mensagem o sistema fecha sozinho do nada, sem mensagem de erro ou "Produto não localizado", isso usando Leitor de Barras, e pode ser qualquer modelo que da o mesmo problema e produtos diferentes ate mesmo com maquinas diferentes. Não são todas as vezes mais acontece. Se digitar o código de barras no campo ele da a mensagem sem nenhum problema, somente quando bipa no leitor que as vezes ocorre do sistema fechar. Estou fazendo assim procedure TFPDV_Z.EBarrasKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin Case Key Of VK_RETURN : Begin SQLConsultaProduto.Cancel; SQLConsultaProduto.Close; CDSConsultaProduto.Close; CDSConsultaProduto.Fields.Clear; CDSConsultaProduto.FieldDefs.Clear; CDSConsultaProduto.Filtered := False; CDSConsultaProduto.IndexFieldNames := EmptyStr; CDSConsultaProduto.IndexName := EmptyStr; CDSConsultaProduto.CommandText := 'SELECT ' + ' DESCRICAO, ' + ' COD_PRODUTO, ' + ' EAN_TRIBUTADO ' + 'FROM PRODUTO ' + 'WHERE COD_EMPRESA = :sCOD_EMPRESA ' + 'AND EAN_TRIBUTADO = :sEAN_TRIBUTADO '; CDSConsultaProduto.ParamByName('sCOD_EMPRESA').AsInteger := Modulo.EmpCodEmpresa; CDSConsultaProduto.ParamByName('sEAN_TRIBUTADO').AsString := EBarras.Text; CDSConsultaProduto.Open; If CDSConsultaProduto.RecordCount = 0 Then Begin Application.MessageBox('Produto não localizado.', 'A T E N Ç Ã O', MB_OK + MB_ICONWARNING); EBarras.SetFocus; Abort; End; End; End;