Edevair Viesa Junior

Ok. Muito obrigado pelas explicações.... Vou testar no cliente e retorno aqui o resultado.

Legal, então pode ser que numa balança toledo (que é a do cliente) pode funcionar corretamente ? A que estou fazendo testes é uma Elgin DP-1502...

@Daniel Simoes muito obrigado por responder... Eu fiz 3 testes nesta sequencia : 1 - Leitura Normal com peso de 0,056 KG - Retorno OK 2 - Leitura com Instabilidade na balança - Retorno -1 OK 3 - Leitura sem peso na balança - Retorno 0 OK 4 - Leitura com sobrepeso - Retorno -9 Errado, deveria retornar -10 Segue o log em anexo, fiz os testes com timeout de 3000... LogsBalanca 03-12-2021.txt

Opa @Renato Rubinho obrigado por responder.. Efetuei testes com timeout 1000, 3000, 5000, 10000 e 20000 Em todo os testes o resultado foi o mesmo, retornou -9 e o estranho é que somente o sobrepeso que está vindo errado: sem peso, instabilidade vem o erro correto. Será que tem alguma coisa a ver com a velocidade da serial ?

Boa tarde. Eu estou melhorando a questão da balança no PDV e informando ao usuário exatamente o que está ocorrendo e estou com um problema. Nos exmplos do ACBr o retorno para Sobrepeso da balança é -10 porém está retornando -9 que é o mesmo retorno quando a serial não está conectada. Como faço pra distinguir um erro e o outro ? Obs : segue em anexo o log da balança. Muito obrigado. LogsBalanca 02-12-2021.txt

Sim, foi o que imaginei, porém não tenho anti virus instalado na máquina e o firewall está desabilitado.... Mas ai neste caso não consigo fazer o exe ser utilizado, o exe abre e fica no tray icon e se o usuário precisar interagir ele tem a opção de abrir o painel, se fizer como serviço não tenho o handle da janela pra conseguir abrir....

Eu testei e seu código registra a tarefa no windows certinho, mas ao inicializar o PC não sobe o exe.... Creio que eu estou fazendo algo errado no exe.... O problema é que não sei o que pode ser... Arquivos com assintura digital no Windows tem privilégios de administrador correto ? Será que uma assintura digital não resolve ?

Opa @datilas, muito obrigado por responder... Eu tentei também com tarefa agendada também, mas ocorre o mesmo problema, o processo fica registrado no gerenciador do windows, mas o exe não sobe...

@Juliomar Marchetti obrigado por responder... Quando você diz elevar ele como administrador seria mudar nas propriedades do arquivo .exe e mercar a opção de executar como administrador ? Se for isso eu já havia feito e não surtiu resultado, simplesmente o exe não executa.... E isso só acontece com o Windows 10, no Windows 7 funciona normal...

Boa tarde. Eu preciso inicializar um .exe criado em delphi Rio no windows 10... Eu já criei a parte usando a TRegistry reg := TRegIniFile.Create(''); if Pos('Windows 10', F_Verifica_Versao_Windows) > 0 then begin reg.RootKey := HKEY_CURRENT_USER; end else begin reg.RootKey := HKEY_LOCAL_MACHINE; end; reg.WriteString('SOFTWARE\Microsoft\Windows\CurrentVersion\Run' + #0, l_titulo_programa, l_caminho_executavel); reg.Free; Também executei estes procedimentos : E não consegui fazer o exe inicializar com o Windows. Alguém sabe de alguma solução fora estas opções acima, que realmente funcione ?

@EMBarbosa muito obrigado !!! @Italo Jurisato Junior vamos lá, o que ocorreu foi o seguinte, o cliente gerou a NFe e deu erro de consumo indevido, após isso, foi efetuada novamente a mesma NFe, como deu erro de consumo indevido a numeração da NFe não deu sequencia, pois o resultado da entrega da NFe à sefaz foi negativa, como deu erro não sei se a NFe foi recebida pela sefaz, o sistema entende que a NFe não foi efetuada, porém ao gerar novamente a mesma NFe usando o mesmo número, eis que deu erro de Duplicidade de NFe, então paramos e fomos efetuar a consulta MANUALMENTE na sefaz pela chave gerada e no site consta como se a NFe não estivesse emitida, não foi possível encontrar a NFe entregue a SEFAZ, isso ocorreu em TODAS as NFes que emitimos que deram este erro de consumo indevido, vale lembrar que o sistema estava totalmente operacional e estes erros foram aleatórios em alguns clientes, atualizamos os mais críticos com as alterações sugeridas pelo @BigWings, mas em alguns clientes que não estava dando o erro com frequencia, parou sozinho, o que nos leva a crer ter sido um erro no próprio servidor da sefaz, o que fizemos foi pular a numeração pra próxima e refazer a mesma NFe, agora ficou a dúvida, se vc informa que a NFe foi entregue pq não consigo consultar ela ?? O que fizemos foi informar as contabilidades que tivemos problemas com o ws e que as numerações foram puladas no sistema, porém as mesmas serão verificados por eles e as medidas cabíveis serão tomadas, realmente não sei muito bem o que fazer e pelo jeito o que fizemos foi errado.

Conosco aconteceu também, mas pulamos anumeração e informamos a contabilidade de cada cliente o ocorrido. Não sei se este é o procedimento correto, mas foi o que fizemos...

Muito obrigado, aparentemente o problema parou... Ou foi coincidência e o sefaz voltou ao normal... Independente, agradeço a ajuda de todos...

@José M. S. Junior no componente ACBrNFe onde eu mudo estas configurações ? Pois nunca usei isso...

Tentamos contato com a sefaz sp e nos informaram que não há qualquer problemas com o ws ou os servidores. O mais engraçado é que não ocorre o problema com todos os clientes, só alguns... Tem cliente que não consegue emitir nenhuma NF e outros estão emitindo normalmente... O pessoal do sefaz é mais perdido que nós nestas questões...

Debugando vcl eu consegui encontrar o problema... Estava no uso de tecnologia obsoleto ao criar a transaction com o bd Estava assim : var v_transaction : TTransactionDesc; Result := False; if F_Banco_Dbx_Conectado(l_banco, l_sql, '') then begin Result := True; v_transaction.TransactionID := 1; v_transaction.IsolationLevel := xilREADCOMMITTED; l_banco.StartTransaction(v_transaction); try l_banco.ExecuteDirect(l_sql); l_banco.Commit(v_transaction); except on E:Exception do begin l_banco.Rollback(v_transaction); Result := False; P_Message_Error(E.Message, l_sql, l_msg); end; end; end; Agora troquei por : var v_transaction : TDBXTransaction; Result := False; if F_Banco_Dbx_Conectado(l_banco, l_sql, '') then begin Result := False; v_transaction := l_banco.BeginTransaction(TDBXIsolations.ReadCommitted); try l_banco.ExecuteDirect(l_sql); l_banco.CommitFreeAndNil(v_transaction); except on E:Exception do begin l_banco.RollbackFreeAndNil(v_transaction); Result := False; P_Message_Error(E.Message, l_sql, l_msg); end; end; end; Agora está tinindo, nenhum travamento.... Agradeço muito a ajuda...

Tentei sim e o problema permanece... Agora piorou um pouco mais, em um outro sistema,precisei de compilar o executável novamente e está travando toda vez que dá erro, estou achando que pode ser algo no Delphi !!!

Desculpe escrevi errado, mesmo com o WaitOnLock = False; E o mais engraçado é que tenho 13 clientes deste mesmo sistema e só em duas lojas acontece isso, nas outras funciona perfeitamente... E pendei que poderia ser alguma configuração do firebird, mas não é pq trago o banco para ambiente de desenvolvimento aqui na empresa e acontece a mesma coisa..

Boa tarde. Voltou a travar do nada novamente quando dá erro... No caso é um erro de cave primária e trava quando tenta dar um insert, mesmo com o WaitOnLocks = True Alguma outra idéia do que pode ser ?

@EMBarbosa perfeito, era exatamento isso nos parâmetros de configuração eu uso um ini e estava assim : Bastou mudar o WaitOnLocks para False que apresentou o erro... Muito obrigado !!! Abs

Show, vivendo e aprendendo, vou testar e retorno. Muito Obrigado !

Obrigado por responder @EMBarbosa Estou usando firebird, porém até pouco tempo isso não ocorria, como configuro este "no wait" ? E mais uma ainda, como configuro o time out da uma transaction ?

Estou com um problema muito estranho, eu envio um sql para o uma TSQLQuery, o insert está com erro, pois vai duplicar a chave primária da tabela, porém o erro não retorna, simplesmente trava a aplicação. Segue trecho do código : try v_query := TSQLQuery.Create(nil); v_query.SQLConnection := l_Banco; v_provider := TDataSetProvider.Create(nil); v_provider.DataSet := v_query; v_client := TClientDataSet.Create(nil); v_client.SetProvider(v_provider); FormatSettings.DecimalSeparator := '.'; FormatSettings.ThousandSeparator := ','; try v_desc.TransactionID := 1; v_desc.IsolationLevel := xilREADCOMMITTED; l_banco.StartTransaction(v_desc); try v_query.DisableControls; if v_query.Active then v_query.Close; if v_client.Active then v_client.Close; v_query.SQL.Clear; v_query.SQL.Add(l_sql); try v_query.ExecSQL; //// AQUI TRAVA A APLICAÇÃO QUANDO DÁ ERRO except on E:Exception do begin l_banco.Rollback(v_desc); Result := False; P_Message_Error(E.Message, l_sql, l_msg); l_msg_erro := E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro; if g_envia_email_f_grava_suporte = 'S' then begin F_Envia_Email_Suporte(E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro, 'Erro no F_Grava_Dbx'); end; end; end; if v_query.RowsAffected > 0 then Result := True else Result := False; l_banco.Commit(v_desc); except on E:Exception do begin l_banco.Rollback(v_desc); Result := False; P_Message_Error(E.Message, l_sql, l_msg); l_msg_erro := E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro; if g_envia_email_f_grava_suporte = 'S' then begin F_Envia_Email_Suporte(E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro, 'Erro no F_Grava_Dbx'); end; end; end; except on E:Exception do begin P_Message_Error(E.Message, l_sql, l_msg); l_msg_erro := E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro; if g_envia_email_f_grava_suporte = 'S' then begin F_Envia_Email_Suporte('Erro Genérico no F_Grava_Dbx !'+#13#10+#13#10+ E.Message+#13#10+#13#10+l_sql+#13#10+#13#10+'Origem : '+l_local_origem_erro, 'Erro no F_Grava_Dbx'); end; Result := False; end; end; if Result and (g_usa_web = 'S') and l_gera_script then begin F_Insere_Script_Web(l_sql); end; finally FormatSettings.DecimalSeparator := g_decimal_separator; FormatSettings.ThousandSeparator := g_thousand_separator; v_client.Free; v_provider.Free; v_query.Free; end; Alguém faz idéia do motivo ? Muito Obrigado !

Boa tarde. Estou gerando um relatório com um campo RLDBMemo numa band do tipo btDetail, é um contrato , onde ficaria gravado o Texto em um Campo Blob Textual , porém os Fortes se perde na hora de imprimir, alguém já fez algo parecido e que possa me ajudar ? Ele justamente se perde na hora de imprimir as folhas adicionais , tipo quando o Blob estoura mais que uma folha, ele só imprime a primeira, não criando uma segunda folha para impressão. Desde já agradeço !!

Pessoal resolvi em TODOS os clientes da seguinte forma : Primeiro verifique o IE instalado e se for menor que a versão 11 atualizar Abrir o Windows Update e Verificar se tem as atualizações KB2992611 e KB3140245 instaladas. Se não tiver, clicar no botão "Verificar se há atualizações" Após procurar as atualizações, clique no link atualizações importantes e desmarque todas as opções, deixando marcada somente a KB2992611, depois clique em ok. Clique em instalar atualizações. O windows vai pedir pra reiniciar, clique em reiniciar. Após a reinicialização, abrir o windows update novamente e clique no botão novamente "Verificar se há atualizações" Após procurar as atualizações, clique em atualizações opcionais e marque a atualização KB3140245, clique em ok, clique no link atualizações importantes e desmarque todas as opções e clique em ok Clique em instalar atualizações. O windows vai pedir pra reiniciar, clique em reiniciar. Após a reinicialização abra o navegador e faça o download da instalação .Net Framework 4.6.2, faça a instalação. reinicie o computador e faça o teste de conexão no sistema.