MagoDanger

Eu cheguei a fazer dessa forma: dm.q_pag_inq.close; dm.q_pag_inq.SQL.clear; dm.q_pag_inq.SQL.add('delete from tbl_pag_inq where id_inq like '''+ Edt_inq.Text + '%'''); dm.q_pag_inq.ExecSql; MAS, acontece o seguinte problema.. na hroa que eu mando deletar todos os lançamentos que estão no cliente com o código 1 apaga além dos clietne 1, os 10, 11, 12, 13... ou seja, todos os que tem 1 no código... como arrumar isso?? Obrigado pessoal!

Pessoal, tenho no meu BD (access) vários registros (lançamentos em uma tabela de valores e vencimentos) porém quando eu vou deletar um cliente, preciso ta,bém deletar todos esses lançamentos que estavam lançados para ele.. por exemplo, na tbl_pagamentos tenho: id_ligacao //essa é a id do cadastro do cliente valor vencimento então ao deletar o cliente 275 quero que todos os lançamentos que estão cadastrados para o cliente 275 (na id_ligacao) seja automaticamente excluídos... como posso fazer isso? obrigado...

opaaa, valeu!!! Pode colocar o tópico como resolvido... Agora funcionou certinho da forma como eu precisava... o código ficou assim: begin somac:=0; somad:=0; dm.q_pag_inq.First; Present:= EndOfTheMonth(Date); DecodeDate(Present, Ano, Mes, Dia); dataini := StartOfTheMonth(Date); datafim := EndOfTheMonth(Date); DateEdit1.Date := dataini; DateEdit2.Date := datafim; begin with dm.q_pag_inq do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_inq where vencimento Between :dataini and :datafim'); SQL.Add('AND id_inq = ' + QuotedStr(f_cad_inquilinos.Edt_inq.Text)); SQL.Add('AND baixados = ' + QuotedStr(f_cad_inquilinos.edt_baixa.Text)); Parameters.ParamByName('dataini').Value := DateEdit1.date; Parameters.ParamByName('datafim').Value := DateEdit2.date; Open; while not dm.q_pag_inq.Eof do begin if dm.q_pag_inq.fieldbyname('tipo').AsString = 'C' then somac := somac + dm.q_pag_inq.Fieldbyname('valor').AsFloat else somad := somad + dm.q_pag_inq.Fieldbyname('valor').AsFloat; dm.q_pag_inq.Next; label3.Caption := FloatToStrF(somac,ffCurrency , 15,2); label4.Caption := FloatToStrF(somad,ffCurrency , 15,2); end; end; end; end;

amigo, não consegui de jeito nenhum aqui! =// como vai ficar essa programação para eu somar o "C" e o "D" ? (lembrando que essa soma só pode acontecer depois que os dados foram filtrados pelo código do cliente e depois pelo mês de vencimento) obrigado!

pessoal, alguém pdoe me dar uma força nisso! não consigo de jeito nenhum... obrigado!

tentei acrescentar essa linha: if (dm.q_pag_inq.fieldbyname('valor').asString = 'c') then begin ficando assim: while not dm.q_pag_inq.Eof do begin if (dm.q_pag_inq.fieldbyname('tipo').asString = 'c') then begin somac := somac + dm.q_pag_inq.Fieldbyname('valor').AsFloat; dm.q_pag_inq.Next; end; label3.Caption := FloatToStrF(somac,ffCurrency , 15,2); mas não deu... a hroa que clica no botão não aparece nenhum erro, mas também não soma... simplesmente trava! ai tem que resetar no delphi. 0o''

pessoal, consegui fazer o filtro e somar apenas os filtrados.. porém ele somou tudo, independente de ser CREDITO ou DEBITO... ficou assim: var Present: TDateTime; dataini, datafim : Tdate; Ano, Mes, Dia : Word; somac : Double; somad : Double; begin somac:=0; somad:=0; dm.q_pag_inq.First; Present:= EndOfTheMonth(Date); DecodeDate(Present, Ano, Mes, Dia); dataini := StartOfTheMonth(Date); datafim := EndOfTheMonth(Date); DateEdit1.Date := dataini; DateEdit2.Date := datafim; begin with dm.q_pag_inq do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_inq where vencimento Between :dataini and :datafim'); SQL.Add('AND id_inq = ' + QuotedStr(f_cad_inquilinos.Edt_inq.Text)); SQL.Add('AND baixados = ' + QuotedStr(f_cad_inquilinos.edt_baixa.Text)); Parameters.ParamByName('dataini').Value := DateEdit1.date; Parameters.ParamByName('datafim').Value := DateEdit2.date; Open; while not dm.q_pag_inq.Eof do begin somac := somac + dm.q_pag_inq.Fieldbyname('valor').Value; dm.q_pag_inq.Next; end; label3.Caption := FloatToStrF(somac,ffCurrency , 15,2); end; end; end; PS. somac //é para armazenar o valor da soma de credito somad //é para armazenar o valor da soma de debito FALTA: somar o C e o D separados e subtraílos. alguém pode me ajudar nesse filtro? obrigado mais uma vez!

Pessoal, bom dia! Estou com mais um probleminha aqui no momento de gerar recibos. No meu Bd tenho vários lançamentos cadastrados, preciso fazer um filtro pelo código do inquilino e depois pelos valores que tem q sair no recibo do mês. até ai está tudo ok. Só que nessa tabela alguns são valores CREDITOS e outros são DÉBITOS. No caso, teria que deopis de filtrado ele somar todo crédito, somar todo débito e subtrair DÉBITO - CRÉDITO = RESULTADO. como posso fazer isso, essas somas desses valores filtrados e depois subtraí-los? PS: Os campos da tabela de pagamentos (tbl_pag_inq) são: codigo //codigo do inquilino [tipo numérico] valor //valor da parcela [tipo monetário] vencimento //data do vencimento [tipo data/hora] tipo //C quando CRÉDITO e D quando DÉBITO [tipo texto] *** meu BD é Access obrigado!

opa, agora fiz o filtro, ficou assim: var Present: TDateTime; dataini, datafim : Tdate; Ano, Mes, Dia : Word; begin Present:= EndOfTheMonth(Date); DecodeDate(Present, Ano, Mes, Dia); dataini := StartOfTheMonth(Date); datafim := EndOfTheMonth(Date); DateEdit1.Date := dataini; DateEdit2.Date := datafim; begin with dm.q_pag_inq do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_inq where vencimento Between :dataini and :datafim'); SQL.Add('AND id_inq = ' + QuotedStr(Edt_inq.Text)); SQL.Add('AND baixados = ' + QuotedStr(edt_baixa.Text)); Parameters.ParamByName('dataini').Value := DateEdit1.date; Parameters.ParamByName('datafim').Value := DateEdit2.date; Open; end; end; end; Era exatamente o que eu precisava! valeu pela ajuda!!!!!

opa... deu certinho!!! poxa... brigadão mesmo pela força!!! abraçoooo

olá amigo! obrigado pela ajuda! para mostrar do dia 01 até o último dia do mês, fiz uma pequena alteração ficando assim: var Present: TDateTime; dataini, datafim : Tdate; Ano, Mes, Dia : Word; begin Present:= EndOfTheMonth(Date); DecodeDate(Present, Ano, Mes, Dia); dataini := strtodate('01'+'/'+inttostr(Mes)+'/'+inttostr(Ano)); datafim := EndOfTheMonth(Date); showmessage('Período selecionado: ' + datetostr(dataini) + ' a ' + datetostr(datafim)); end; Agora como eu faço por exemplo para o resultado dataini e do datafim aparecerem em um DateEdit ? Obrigado

Então amigo, mas nesse caso o cliente teria que selecionar a data inicial e a data final... eu queria que ao clicar em "Mês atual", automaticamente o filtro fosse feito dentro do mes... tem como faz isso!? mais uma vez obrigado!

pessoal, alguém sabe como faz isso pra me da uma forcinha?? :unsure: obrigado!

pessoal, boa tarde! estou com um probleminha aqui que eu não sei como faz! tenho varios valores lançados para pagamentos e estou fazendo um filtro. Gostaria de quando clicar no [] Mês Atual, fosse exibido todos os lançamentos para o mês atual, ou seja, ele filtrar automaticamente de 01/03/2011 até 31/03/2011. Como posso fazer isso? Meu BD é ACCESS e esse campo esta como DATA no BD. ** Para filtrar todos os lançamentos desse cliente, usei: dm.q_pag_inq.close; dm.q_pag_inq.SQL.clear; dm.q_pag_inq.SQL.add('select * from tbl_pag_inq where id_inq like '''+ Edt_inq.Text + '%'' order by vencimento asc'); //esse Edt_inq filtra os dados da tabela só para os que são referente a ID desse cliente. dm.q_pag_inq.Prepared; dm.q_pag_inq.open; Obrigado!

depois de testar todos os programas descobri que esse erro estava dando quando instalava o pacote completo do Adobe CS3.... resolvi instalando 1 programa por vez do pacote CS3... agora está tudo certinho aqui!!! (confesso que ainda não acredito no motivo do erro... mas o importante é que agora está funcionando!! rrssss...) valeu galera!!! abração

olá pessoal... depois de ler vários sites e tentar fazer de tudo aqui, não teve jeito mesmo... tive que formatar a máquina... e agora instalei O WINDOWS XP SP3, em seguida os drivers e o delphi.. testei e estava tudo ok!! PORÉM... quando terminei de instalar todos os outros programas que uso, voltou a dar esse mesmo erro! agora formatei novamente... windows, drivers e delphi... agora o que vou fazer é a cada programa instalado testar o delphi... assim vou achar qual que está causando esse erro. assim que eu descobrir volto postar aqui! abraços

pessoal, +1 observação que acabei de ver aqui... quando abro um projeto que não tem formulários QuickReport, ele abrem e rodam normal... quando tem, dá esse erro. tentei abrir um projeto novo e colocar o componente QuickRep, mas quando vou inserí-lo no projeto aparece o erro: "Range check error." outra teste: tentei deletar toda a pasta Borland desse pc e copiar de um outro que os projetos estão abrindo normal... mas nada adiantou!! o que será isso... nunca vi esse erro antes! 0o''

ah, outra coisa muito estranha! coloquei esse pc que não roda os programas meu no delhpi como servidor e um outro como terminal... tentei abrir no terminal o programa puxando as informações dos bds no servidor, e novamente tudo normal! será que é algum erro aqui no meu computador? tipo... algum pau com meu processador ou com o windows? valeu

olá pessoal! estou com um problema aqui! comprei um pc novo, formatei tudo certinho e instalei todos os programas como sempre fiz em qualquer computador meu! o problema é que nesse meu pc aqui os meus projetos do Delhpi não rodam (só os que são pequenos ou se eu começar um novo e apertar F9 roda normal...) ** Detalhe que o projeto abre normal no Delphi sem nenhum erro, mas dá erro ao rodar... erros: sei que não é erro no projeto, porque se eu abrir esses mesmo projetos que nesse PC aqui está dando erro no meu note ou em outro computador, abre e roda normal! também se tento executar o exe dele, dá erro. tentei reinstalar o Delphi, mas não adiantou! o windows é o XP SP2 igual no note e nos outros pcs aqui! alguém sabe o porque desses erros e como arrumar isso? obrigado!!