Jump to content

douglas_k

Membros
  • Content Count

    158
  • Joined

  • Last visited

  • Days Won

    1

douglas_k last won the day on December 7 2016

douglas_k had the most liked content!

Community Reputation

30 Excellent

About douglas_k

  • Rank
    Membro

Contact Methods

  • Website URL
    http://www.g3sistemas.com

Profile Information

  • Sexo
    Masculino
  • Localização
    palmitos sc

Recent Profile Visitors

1,565 profile views
  1. Show, contornei usando o update direto com sql, se encontrar alguma solução para o caso publico aqui. Muito obrigado EMBarbosa. Até mais.
  2. Só para exemplificar, nessa sequencia de testes todos executam e tem o resultado esperado, menos o ultimo que seria o .clear. Ele chega executar só não altera a base de dados. dmSupervisor.cldsTeste.Active := False; dmSupervisor.cldsTeste.CommandText := 'SELECT * ' + 'FROM sis_usuarios ' + 'WHERE login_siusua=:P1'; dmSupervisor.cldsTeste.Params[0].DataType := ftString; dmSupervisor.cldsTeste.Params[0].AsString := '0'; dmSupervisor.cldsTeste.Active := True; while not dmSupervisor.cldsTeste.Eof do begin dmSupervisor.cldsTeste.Edit; dmSupervisor.cldsTeste.FieldByName('nome_siusua').AsString := 'Teste'; dmSupervisor.cldsTeste.post; dmSupervisor.cldsTeste.ApplyUpDates(-1); dmSupervisor.cldsTeste.Next; end; dmSupervisor.cldsTeste.Active := False; dmSupervisor.cldsTeste.CommandText := 'UPDATE sis_usuarios ' + 'SET nome_siusua=null ' + 'WHERE login_siusua=:P1'; dmSupervisor.cldsTeste.Params[0].DataType := ftString; dmSupervisor.cldsTeste.Params[0].AsString := '0'; dmSupervisor.cldsTeste.Execute; dmSupervisor.cldsTeste.Active := False; dmSupervisor.cldsTeste.CommandText := 'SELECT * ' + 'FROM sis_usuarios ' + 'WHERE login_siusua=:P1'; dmSupervisor.cldsTeste.Params[0].DataType := ftString; dmSupervisor.cldsTeste.Params[0].AsString := '0'; dmSupervisor.cldsTeste.Active := True; while not dmSupervisor.cldsTeste.Eof do begin dmSupervisor.cldsTeste.Edit; dmSupervisor.cldsTeste.FieldByName('nome_siusua').AsString := 'Outro Teste'; dmSupervisor.cldsTeste.post; dmSupervisor.cldsTeste.ApplyUpDates(-1); dmSupervisor.cldsTeste.Next; end; dmSupervisor.cldsTeste.Active := False; dmSupervisor.cldsTeste.CommandText := 'SELECT * ' + 'FROM sis_usuarios ' + 'WHERE login_siusua=:P1'; dmSupervisor.cldsTeste.Params[0].DataType := ftString; dmSupervisor.cldsTeste.Params[0].AsString := '0'; dmSupervisor.cldsTeste.Active := True; while not dmSupervisor.cldsTeste.Eof do begin dmSupervisor.cldsTeste.Edit; dmSupervisor.cldsTeste.FieldByName('nome_siusua').Clear; dmSupervisor.cldsTeste.post; dmSupervisor.cldsTeste.ApplyUpDates(-1); dmSupervisor.cldsTeste.Next; end;
  3. Na verdade se salvo outros valores ele faz corretamente, se por exemplo mover o valor 'Teste' ele salva corretamente, agora o .Clear, simplesmente não altera o valor, fica o mesmo que ja estava.
  4. Boa tarde, Obrigado pela sugestão. Testei de algumas formas assim, usando o Clear, mais devo estar fazendo algo incorreto, pois mesmo o código executando e não retornando nenhum erro, na base de dados o valor não salva, ele sempre fica com o valor já salvo no campo string. Testei com duas tabelas diferentes, com clientdatasets diferentes e não tive sucesso. Obrigado.
  5. Ainda não encontrei a solução, acredito que vou trocar nesse caso para firedac essas leituras, mais se alguém tiver alguma solução para o DBExpress me avise. Obrigado.
  6. Boa tarde Pessoal, Estou com a seguinte dificuldade. - Tenho um campo chamado usuario do tipo character varying em uma tabela com base de dados Postgres. - Utilizo o DBExpress com a conexão ODBC - Preciso Salvar esse campo em uma determinada situação como null, mais ele sempre esta salvando como ''. Faço da seguinte forma: ClientDataset.Edit; ClientDataset.FieldByName('usuario=').AsString := ''; ClientDataset.post; ClientDataset.ApplyUpDates(-1); Pesquisei e tentei fazer assim, mas ai ele me retorna erro: 'No error Information; Error while executing the query': ClientDataset.Edit; ClientDataset.FieldByName('usuario').Value := Null; ClientDataset.post; ClientDataset.ApplyUpDates(-1); Se faço o mesmo teste usando Firedac ele salva corretamente como null, tanto usando conexão ODBC como direto pelo driver do Postgres. Resumindo, tem alguem que utilize DBExpress com ODBC e conexão postgres, que consiga ou saiba salvar null um campo String?
  7. Na verdade não Felipe, vou fazer isso da próxima vez. Tentei executar o seguinte comando para ver se retornava algum erro: 'gfix -v -full C:\Sistema\banco.fdb -user SYSDBA -pass masterke' mais não retornou nada. Mesmo assim rodei um comando para reparar a base de dados, mais a principio também não resolveu. Agora tentamos reiniciar mais uma vez a maquina e o erro parou de ocorrer. Não sei dizer oque solucionou o problema, mais de qualquer forma agora esta OK. Agradeço a ajuda.
  8. Boa tarde Pessoal. Em um cliente nosso começou a dar alguns erros na base de dados. Não estava fazendo update de alguns registros entre outras coisas. Tentei acessar a base de dados pelo ibexpert e veja o erro que ocorre 'Invalid Token. Dynamic SQL Error. Sql error code = -104. Token unknown -line 1, column 8. DISTINCT' Toda tabela que tento abrir retorna esse erro no DISTINCT. Em anexo imagem com o erro. Alguém já teve algum erro semelhante. Desde já agradeço
  9. Bom dia Daniel, Voltamos a verificar essa situação agora, vocês já utilizaram avisos sonoros no scanner com conexão USB para identificar produto invalido ou por alguma outra situação? Utilizando o componente ACBrLCB, o fabricante do scanner teria que disponibilizar um driver para gerar uma porta com virtual. Tem alguma outra forma ou componente, para emitir beep em scanners USB.
  10. Meu email é [email protected], vamos nos falando, quem sabe encontramos alguma solução.
  11. Boa tarde DSilva, Tenho a mesma situação que você relatou. Utilizando o certificado instalado, praticamente nunca ocorria esses erros de envio. Agora com OpenSSL tenho com frequência erro de Timeout. Faço o tratamento pulando a numeração e emitindo offline sem problema, mais realmente parece estranho ter esse aumento no numero de ocorrência de erros. Alguma medida que você adotou melhorou essa questão do envio. Trabalho com emissão de NFC-e no Rio Grande do Sul.
  12. uhum, esta em anexo. Obrigado. ACBrECFEscECF.pas
  13. Bom dia Pessoal, Fui cadastrar uma nova alíquota de valor 5,60 na ECF Epson TM-T900F. Após executar o comando, sempre era cadastrada a alíquota de 5,59. Debugando encontrei a seguinte linha na unit ACBrECFEscECF procedure TACBrECFEscECF.ProgramaAliquota, EscECFComando.AddParamString( IntToStrZero( Trunc(Aliquota*100), 4 ) ); Após executar essa linha a alíquota que vinha com o valor 5,60 se transformava em 0559. Se eu alterar a function Trunc pela TrunFix do AcbrUtil, faz corretamente. Não sei qual a melhor solução para essa questão, ou se estou fazendo algo errado, a principio fiz essa alteração... Até mais.
  14. Isso, vamos verificando se mais gente vai ter essa situação. Obrigado.
  15. Pse, ele comentou que se não foi emitido nenhum documento que atualizou o estoque dentro do período que foi gerado o arquivo, não poderia gerar o registro E3. De qualquer forma também achei estranho, mais acabou passando assim.
×
×
  • Create New...