Progr'amador

Calminha ae amigo, desculpa se te ofendi, esse Campo PR_SALDO2 é tipo NUMBER? tenta fazer a conversão, StrToFloat(edPorcentagem.Text), já que o EdPorcentagem é tipo STRING. Abs. Progr'amador.

tipo assim: qryResult.sql.Add(' AND ReceberPagar.RP_DMAEMISSAO >= '+#39+ App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime(edDataDe.text))+ app.DeliData+#39); e tem outra coisa ae, na linha a baixo coloque assim: qryResult.SQL.Add(' WHERE PEDIDO.PD_TIPOES=''E'''); eu não entendi a lógica disso: App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime(edDataDe.text))+ app.DeliData Abs. Progr'amador.

Olá num será porque ta protegido (como comentario - // ) Abs Progr'amador.

Olá, Ta faltando aqueles -->> #39. E da mesma forma que um UPDATE precisa do ExecSQL uma SELECT precisa do OPEN (qryResult.Open) no final. Abs. Progr'amador.

Deu alguma msg de erro?

Olá nightmare, Use o Locate assim: Query1.Locate('CAMPO_DA_TALEBA',Edit1.Text,[LoCaseInsensitive]); ou Query1.Locate('CAMPO_DA_TALEBA',Edit1.Text,[LoCaseInsensitive,LoPartialKey]); E no DBGrid é só escolher na opção DataSource, o TDataSource que está ligado à TQuery. Abs. Progr'amador.

Olá, Não sei se entendi bem, mas vê se isso resolve: SELECT * FROM TABELA WHERE NOME LIKE 'Eduar%Gilm%' Abs. Progr'amador

Olá, você ta usando o ADOTable? Posta ae o Erro, falou! Abs. Progr'amador.

Olá Guilherme, vamos lá: 1º - Use o #39 aqui tambem: qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1 * '+#39+strresultado+#39); 2º - Tem algo errado no uso do =0'+edGrupo.Text e =0'+edPorcentagem.Text na query, isso ta sem lógica. 3º - pra executar um update deve usar esse comando no final: qryResult.ExecSql; Abs. Progr'amador.

Olá Nosdaj, tenta esse: procedure TForm1.Button1Click(Sender: TObject); var ArqTxt : TextFile; linha : string; i, nx, virg, part : integer; begin AssignFile(ArqTxt,'c:\teste.txt'); Reset(ArqTxt); while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); nx := 0; virg := 0; part := 0; for i:=1 to Length(Linha) do begin if i < Length(Linha) then begin nx := nx + 1; if Copy(Linha,i,1) = ';' then begin virg := virg + 1; if virg = 1 then begin Edit1.Text := Copy(Linha,1,nx-1); part := i + 1; nx := 0; end; if virg = 2 then begin Edit2.Text := Copy(Linha,part,nx-1); part := i + 1; nx := 0; end; if virg = 3 then begin Edit3.Text := Copy(Linha,part,nx-1); part := i + 1; end; end; end else Edit4.Text := Copy(Linha,part,Length(Linha)); end; end; Linha := ''; Closefile(ArqTxt); end; Abs. Progr'amador.

tem que da um Close e um Open no componente que que esta abrindo a tabela, tipo: Query1.Close; Query1.Open; ou Table1.Active := False; Table1.Active := True; Abs. Progr'amador.

Olá Tbaiano, No OnKeyDown do form: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of 33: Table1.Prior; //Page Up 34: Table1.Next; //Page Down end; end; e na propriedade KeyPreview do form, coloque TRUE. Abs. Progr'amador.

Olá Carlos, Eu não sei se entendi, mas você poderia usar o QuickReport, agora pra calcular os campos certinho, ae é da um pouco de trabalho, já fiz isso, usando a regua do QuickReport, e o "Olhometro" mesmo, e pra fazer justamente Nota Fiscal. Abs. Progr'amador.

O bom Programador é aquele que sempre arruma um jeito pra tudo, de uma forma ou de outra resolve o problema, o importante é o resultado. Fechando.... Abs Progr'amador.

Olá Tbaiano, você já resolveu, Posta ae a solução. Abs. Progr'amador.

Ae vai exemplo: function IntPrime(Value: Integer): Boolean; var i : integer; begin Result := False; Value := Abs(Value); if Value mod 2 <> 0 then begin i := 1; repeat i := i + 2; Result:= Value mod i = 0 until Result or ( i > Trunc(sqrt(Value)) ); Result:= not Result; end; end; procedure TForm1.Button2Click(Sender: TObject); var i : integer; begin for i := 1 to 1000 do if IntPrime(i) then if i = 1 then Edit2.Text := IntToStr(i) else Edit2.Text := Edit2.text+', '+IntToStr(i); end; Esse código traz todos os nº primos de 1 a 1000 em um edit, acho que é do jeito que você ta querendo... Abs. Progr'amador.

Olá Paulo, tenta esse: function IntPrime(Value: Integer): Boolean; var i : integer; begin Result := False; Value := Abs(Value); if Value mod 2 <> 0 then begin i := 1; repeat i := i + 2; Result:= Value mod i = 0 until Result or ( i > Trunc(sqrt(Value)) ); Result:= not Result; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if IntPrime(StrToInt(Edit1.text)) then ShowMessage('É PRIMO!!!') else ShowMessage('NÃO É PRIMO!!!'); end; Abs. Progr'amador.

Olá nightmare, na verdade é um pacote de componentes, quem vem o TrayIcon, e tem ate exemplos (demos). http://geocities.yahoo.com.br/pgdelphi/compwosd7.zip Abs. Progr'amador.

Valeu Paulo, brigradão, feliz Natal e excelente 2005 pra você tambem, Inclusive, pra TODOS você DO FORUM!!! -------------------------- sobre o seu problema, só serve se for esse RXTrayIcon? Tenho um aqui que funciona legal. Qual delphi você usar? Abs. Progr'amador.

Olá você poderia usar uma Query tipo assim: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT * FROM TABELA WHERE CAMPO = '+#39+ComboBox1.text+#39); Query1.Open; e usar DBEdit's para os campos da tabela. Abs. Progr'amador.

Olá tito, poderia dizer qual a finalizade disso, talvez tenha outra solução pro seu problema, se for o que estou pensendo...hehe!!! Abs. Pogr'amador.

hehehe!!! eu já estava justamente procurando esse tópico pra responder aki. Abs. Progr'amador.

Olá Michelle, Dê uma olhada na opinião de alguns colegas, nesse tópico: http://scriptbrasil.com.br/forum/index.php...topic=23099&hl= Abs. Progr'amador.

Olá nightmare, se quizer tambem tem a propriedade ReadOnly é só mudar pra TRUE. Inclusive qualquer componente que tiver essa opção, tipo: Edit, DBEdit, Memo, etc... Abs. Progr'amador.

Olá, A licença é só uma mesmo, quando você compra o programa já vem com a licença. Com relação ao preço do 5 e 6 eu num sei não, mas se você quizer o Delphi 2005 você SÓ vai pagar R$ 4.500,00 Abs. Progr'amador.