VDLR

Maikel. Valeu, através da sua dica consegui acertar.......... Troquei o AND pelo OR Abraço Valdecir :blush:

Maikel, obrigado pela atenção. Desta forma ele filtra somente quando todos estão com " N " , e na realidade eu preciso é que mesmo que cinco das condições estejam com " S " e somente uma esteja com " N " ela apareça no Grid. Abraço Valdecir :blink:

Pessoal estou usando este código para filtrar uma tabela: DMdados.TBCadOrServ.Filtered := False; DMdados.TBCadOrServ.Filter:='vcert='+QuotedStr('N'); DMdados.TBCadOrServ.Filter:='vrtt='+QuotedStr('N'); DMdados.TBCadOrServ.Filter:='vrim='+QuotedStr('N'); DMdados.TBCadOrServ.Filter:='veos='+QuotedStr('N'); DMdados.TBCadOrServ.Filter:='vfat='+QuotedStr('N'); DMdados.TBCadOrServ.Filter:='vgraf='+QuotedStr('N'); DMdados.TBCadOrServ.Filtered:=True; Enquanto todos estão com “ N “ filtra beleza, porém quando estão com “ S “ e somente um está com “ N “ este registro não é filtrado. Alguém poderia me ajudar? Será que tem algum erro no código? Abraço Valdecir

Beleza, Jhonas e ZueRa, vou dar uma olhada em tudo isso e qualquer coisa eu posto. Abraço Valdecir :blink:

Pessoal tenho duas dúvidas, será que alguém pode me ajudar? 1º - Tenho um sistema desenvolvido com ClientDataSet, a minha dúvida é a seguinte: Tem como na hora que o sistema for aberto, se não for encontrado o HostName, abrir uma tela onde se mostra o HostName atual e um campo para que fosse digitado o HostName correto, e após clicar no botão OK ele se conectar ao banco e abrir o sistema. 2º Tem como criar um código de autenticação tipo estes dos bancos (exemplo abaixo), pois como a empresa emiti certificado dos serviços prestado, gostaria de por algo semelhante, para evitar algum tipo de sacanagem, pois este seria um código de atenticidade do certificado. AUTENTICAÇÃO E#3fitNy TIE8MKhY tBhK3pfM vp?RIicD M64b8MhH niS?66bl b6n59vdM jmOk2#IP w?P*2vBg t7HiPkQy #AdfKo6z LFrZCdTL tst?mgbA DC*xLQUX 2#ZI*wPQ 769MNUJd 4tFb@Cog *ZYa4#l* vl8#*Ebz IdCmGGE5 WFTxYXoU z7SFOG5S ASCO4049 09T1R000 abraço Valdecir :blink:

Pessoal beleza, Estou tendo problema ao imprimir relatório em impressora matricial, o relatório aparece certo no preview, só que quando imprime não sai todo o relatório só sai alguns itens. Alguém já passou por isso, tem como resolver ?????????? Abraço Valdecir

Alguém poderia me ajudar com isto, quando mando imprimir o campo QRRichtext a linha fica em duplicidade. o comando de impressão é este QRRichText1.Lines.Add(Query1.FieldByName('descricao').AsString); Se alguém souber qual o problema. é urgente Valdecir :wacko:

Pessoal estou usando o Quick Report 5, alguém sabe como fazer para quando se chama a impressão, a tela do preview já vir Maximizado :wacko: :wacko: :wacko: Valdecir

Pessoal tudo bem ? Estou com o seguinte problema, tenho um sistema em Delphi que funcionava perfeitamente em um terminal com Windows XP e MySql. Só que a empresa optou por centralizar tudo em um servidor Linux, e estou tendo alguns problemas, em algumas telas salva normal em outras diz que a mesma tabela não existe. Tem alguma diferença em programar com banco em uma base Linux ???? Alguém já teve este tipo de problema ?????? Estou usando SQLConnection, ClientDataSet Estou precisando de ajuda..... Abraço Valdecir

Pessoal obrigado pela atenção. Consegui resolver colocando um componente Tdate. O código ficou assim Abraço Valdecir

Jhonas, obrigado pela atenção. Cara, não achei nada que ajudasse a resolver. Tem alguma outra alternativa........ Abraços Valdecir :blush:

Jhonas, valeu pela atenção Realmente estranho, se eu crio um novo projeto aparece normal, mas se eu pego um projeto desenvolvido no Delphi 7 não aparece, sei lá, acho que é pela versão ser demo. Abraço Valdecir

Alguém sabe como resolver ? procedure TFRCadrecmate.SpeedButton6Click(Sender: TObject); begin DMdados.TBCadRecMat.Filtered:=False; DMdados.TBCadRecMat.Filter := 'DataRec='+QuotedStr(FormatDateTime('YYYY/mm/dd', StrToDate(Edit2.Text))); DMdados.TBCadRecMat.Filtered:=True; Edit2.Clear; end; Quando clico no botão para filtrar a data, recebo esta mensagem de erro. exception class EconvertError with message ' Could not parse SQL TimeStamp string' Estou usando MySql Abraço Valdecir

Pessoal boa tarde, Baixei a versão teste do delphi 2007, só que quando executo algum programa não aparece o botão do sistema na barra de tarefa, alguém sabe se tem que configurar alguma coisa, onde configura...... Abraço Valdecir

Pessoal tudo bem? Uso este código para filtrar a tabela. procedure TForm10.BTpesquisaClick(Sender: TObject); var Consulta: String; begin Consulta:= EDpesquisa.Text; DMdados.TBCadCliente.Filtered:=False; DMdados.TBCadCliente.Filter:= 'nome LIKE'+QuotedStr('%' + Consulta + '%'); DMdados.TBCadCliente.Filtered:=True; EDpesquisa.clear; Só se eu escrever Valdecir com a primeira maiúscula ele localiza na tabele, porém se eu escrever valdecir tudo minúsculo não localiza nada, o grid fica vazio. Eu gostaria de escrever tanto maiúscula ou minúsculo e localizar na tabela. Tem como fazer isto? Abraço Valdecir :unsure:

Pessoal tudo bem, Estou com a seguinte problema: Como faço para pegar o caminho deste código e gravar no banco de dados. Image1.Picture.SaveToFile('C:\Meus documentos\Fotos\'+EDrim.Text+ ano2+'.jpg'); e posteriormente ao abrir o form conseguir mostrar esta imagem gravada em disco no Timage. Abraço Valdecir

Micheus, beleza Vou trabalhar em cima, qualquer coisa eu posto Abraços

Micheus, tudo bem Não consegui executar, estou recebendo todos estes erros. if (VlTempo mod VlTempo1) and (Pontos < VlFinal) then [Error] Unit1.pas(72): Operator not applicable to this operand type if (VlTempo mod VlTempo2) and (Pontos > VlFinalDescida) then [Error] Unit1.pas(74): Operator not applicable to this operand type until <condição>; [Error] Unit1.pas(78): Expression expected but '<' found [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' que condição eu coloco aqui ? until <condição>; Não teria que ter um valor inicial também ? Abraços :rolleyes:

Micheus, tudo bem. Os valores não estão trocados. Os valores de subida e descida obedeceriam a uma taxa especificada e a um tempo determinado e seria gerado de acordo com os valores digitados nos edits. Na realidade eu preciso de algo como exposto no post inicial, onde a pessoa digitaria uma valor inicial, um valor final, uma valor de subida para se chegar ao valor final, um valor que indicaria quanto tempo ele levará para chegar no valor final, um valor que demonstraria quanto tempo ele permaneceria no valor final, um valor de descida para se chegar ao valor inicial e um valor que indicaria quanto tempo ele levará para chegar no valor inicial. Valor inicial : 300 pontos Valor final : 1000 pontos Valor de subida : 200 pontos Valor tempo1 : 1 min (a cada 1 min sobe 200 pontos até chegar a 1000 pontos) Valor permanência : 5 min (ficaria durante 5 min em 1000 pontos) Valor descida : 150 pontos Valor tempo2 : 3 min (a cada 3 min desce 150 pontos até chegar a 50 pontos) Valor final descida : 50 pontos Espero ter conseguido explicar. Abraços Valdecir :wacko: :blink:

Jhonas beleza. Caçamba, pensei que desse para fazer isto de forma mais simples, com um Tchart e alguns edits, tipo um valor inicial, um valor final, um valor da taxa de subida, um para descida e outro de tempo. Será que não tem como? Já quebrei a cabeça e não achei. Abraço Valdecir :wacko:

Jhonas beleza. Seria só o resultado final. Abraço Valdecir

Pessoal tudo bem. Estou precisando montar um gráfico de linha com os seguintes parâmetros. Tenho um valor inicial e um final, só que para chegar no valor final a algumas condições. Exemplo: Valor inicial 300 pontos Valor final 1000 pontos Só que para chegar a 1000 pontos, o gráfico teria que subir 200 pontos por minuto e se manter a 1000 pontos por 10 minutos e depois cair a 300 pontos da mesma forma que subiu. Tem como fazer isto. Espero que tenha dado para entender. Abraço Valdecir :blink:

Denis, tudo bem. Dei este comando UPDATE phoenix.oserv SET data = STR_TO_DATE(CONCAT("2008", SUBSTRING(DATE_FORMAT(data, "%y-%m-%d"), 5, 6)), "%y-%m-%d"); e recebi este erro Incorrect datetime value: '20086-03' for function str_to_time erro 1411 Esta correto o comando ? Este comando irá alterar só os lançamentos que estão com 0008, pois tenho mais lançamentos na tabela. Abraço Valdecir

Micheus, tudo bem. Este UPDATE seria feito lançamento por lançamento já existente, ou tem como fazer um geral, o pessoal já fez mais de 2000 lançamento. Abraço Valdecir :unsure:

Pessoal beleza. O caso é o seguinte: Herdei um sistema em Delphi com Banco Mysql 4, porém devido a problemas no micro tive que formatar a máquina e ao invés de instalar o mysql 4 eu instalei a versão 5, aparentemente estava funcionando normal até o dia que me falaram que não estava funcionando a pesquisa por data, quando fui olhar o banco tudo que foi dado de entrada, as data ficam desta forma: 0008-01-17 O comando que estava sendo usado para inserir os dados era este, m_SQL3:='VALUES(DATE_FORMAT("'+data_os+'","%e,%c,%y"),DATE_FORMAT("'+data_entrega+'","%e,%c,%y"), Alterei o formato e ficou assim "%d,%m,%y" e passou a gravar como 2008. O problema agora é o seguinte, tem como eu alterar todas as datas erradas 0008-01-17 para 2008-01-17 Já quebrei a cabeça e não achei como. Se alguém tiver alguma idéia deste já agradeço. Abraço VDL :blink: