Eder

Ola...tou com mais um problema agora com meu gerador de mensalidades.. tenho um programinha para uma ONG escola perto de minha casa...tou dando uma força pra galera lá..e neste programinha tem um gerador de mensalidade aonde a pessoa coloca o mês e ano e vencimento da mensalidade de depois clicka no botão e ai gera as mensalidade de todo o mês para uns 300 alunos. funciona perfeito...porem quando o aluno paga a mensalidade adiantada......ai a mensalidade como ainda não está gerada ...porque é gerado mês a mês......então acaba sendo lançado em uma tela manualmente a mensalidade.....até aqui beleza...o problema que quando ai vem outro mês e é gerado a mensalidade torna a gerar novamente para aquele aluno que já pagou deixando duplicidade de mensalidades.. então eu gostaria de ao gerar a mensalidade ele verificasse se o aluno já tem a mensalidade na tabela...e ai não geraria de novo...para não haver duplicidade. o codigo que eu gero a mensalidade é este abaixo: procedure TFormGeraMensalidade.XiButton1Click(Sender: TObject); var dia : TDatetime;//Verifica se dia digitado na baixa é menor que a data atual vaux: string;//verifica o codigo da turma...para pegar o valor da mensalidade de cada turma begin // If Combobox1.text = '' then Begin Showmessage('Selecione o mês'); Combobox1.setfocus; Exit; End; // If Combobox2.text = '' then Begin Showmessage('Selecione o Ano'); Combobox2.setfocus; Exit; End; // If EditVencimento.text = ' / / ' then Begin Showmessage('Digite o Vencimento da Mensalidade!'); EditVencimento.setfocus; Exit; End; //abaixo verifica de a data do vencimento é menor que a atual... dia:=strtodate(EditVencimento.text); if dia < date then begin showmessage('Esta Data de Vencimento é menor que a Data Atual, Favor Verificar.'); exit end; //INICIO //Abaixo verifica se já foi gerado a mensalidao do mês/ano para não dar duplicidade TABLE2.OPEN;//ABRO A TABELA MENSALIDADE TABLE2.FIRST;//VOU PARA O PRIMEIRO REGISTRO //ABAIXO VERIFIQUE SE AS MENSALIDADES já FORAM GERADAS. while Table2.eof = false do begin if ((Table2MES.asSTRING = (COMBOBOX1.TEXT)) and (Table2ANO.asSTRING = (COMBOBOX2.TEXT))) THEN BEGIN SHOWMESSAGE('Já esta gerado as Mensalidades para este mês/Ano'+' = '+combobox1.text+'/'+combobox2.text+' - Favor Verificar..'); EXIT; END; table2.next; End; //FIM.... //Aqui começa a gerar as mensalidades automaticas... TABLE1.open; //abro a tabela alunos TABLE1.first; //vou para o primeiro registro while TABLE1.eof = false do begin // enquanto fim da tabela for igual a FALSE if (table1DATADEM.AsDateTime < 1) then begin table2.Insert; // ou seja da um insert para cada aluno table2codAluno.asinteger := table1codigo.asinteger; //alimento o campo cod_aluno com o registro da tabela alunos atual vAux:= Table1Turma.AsString;// aqui recebe o cod da turma para pegar o valor mensalidade de cada turma table2Data.asDateTime := (date); table2Mes.asInteger := strtoint(combobox1.TEXT); table2Ano.asInteger := strtoint(combobox2.TEXT); table2Vencimento.asDateTime := StrToDate(EditVencimento.TEXT); //abaixo filtra na query para filtrar o codigo da tuma e valor da mensalidade {não esquecendo de configurar a query com uma instrução la dentro dela} with Query1 do begin Close; with SQL do begin Clear; Add('Select Valormensalidade From Turma'); Add('Where Codigo = ' + QuotedStr(vAux)); end; Open; end; Table2CodTurma.AsInteger:=StrToInt(Vaux); Table2Valor.ascurrency := Query1ValorMensalidade.AsCurrency; //aqui coloca o valor filtrada da mensalidade Table2Total.ascurrency := Query1ValorMensalidade.AsCurrency; //aqui coloca o valor filtrada da mensalidade //table2Valor.ascurrency := STRTOFLOAT(EditValor.TEXT); // valor da mensalidade (irá a mesama para todos alunos, pois não esta sendo feito na matricula) //table2Total.ascurrency := STRTOFLOAT(EditValor.TEXT); // valor da mensalidade (irá a mesama para todos alunos, pois não esta sendo feito na matricula) Table2Descontos.ascurrency := 0; Table2Acrescimo.ascurrency := 0; Table2Total.ascurrency := Query1ValorMensalidade.AsCurrency; Table2Baixa.asString := 'não'; Table2.Post; //Salvo a mensalidade deste aluno END; TABLE1.next; //avanço para o proximo aluno parar gerar a mesalidade do proximo END; SHOWMESSAGE('OK...Gerado as Mensalidades para este mês/Ano'+' = '+combobox1.text+'/'+combobox2.text); END; A duvida é...Como eu faria este processo dentro do que eu já tenho acima...?? eu poderia gerar pro ano inteiro...para ai tem alunos que entrão e saem da escola...ai iria dar mais problemas..por isso eu gero mês a mês... Grato

Consegui....eu criei duas variaveis globais do tipo real e coloquei em cada Onprint de cada qrexpr tipo assim: QrExprReceber: teste1 := strtofloat(value); QrExpPagar: teste2 := strtofloat(value); ai coloquei um qrlabel e no Onprint dele coloquei: value := floattostr(teste1 - teste2); ai funcionou legal.... muito Grato Amigão..t+

haaa...amigão..mais uma coisinha....o meu resultado geral não está dando oque era pra dar.....por exemplo o resultado deveria dar 30 e está dando 50 é um Qrexp e expressão é esta: sum((query1.ValorR) - (Query2.ValorP)) ou seja query1 é a tabela receber query2 é a tabela pagar :( e o Qrexp esta no quickrep1 na banda sumary.... Antes quando eu tinha uma query da funcionando agora com duas query´s não funciona correto. tens alguma idéia?? :unsure: retificando: e o Qrexp1 esta no quickrep2 na banda sumary....

Beleza..Carinha entendi.....vou ficar com a primeira idéia que você havia...passado ...fiz como você disse coloquei duas query´s e setei em cada quickrep e deu certo ....não repetiu mais.......quanto ao UNION achei meio complicadinho.....] Haaa.. quanto ao filtro do relatorio....depois na hora de colocar em pratica mesmo ai eu faço os filtros necessários...agora é para só pegar a idéia do funcionamento..... Depois na hora....se eu tiver algum probleminha acredito que não....ai vou pedir mais uma ajudinha da sua PESSOA...hehehe......se você puder é claro.... ;) Haaa...o que eu não sabia...é quando eu coloco duas tabelas num from eu tenho que ter uma clausula where.....agora eu entendi é poque tem certos relatorio que fazia deste jeito e não funciona.....é que não funciona perfeito mesmo.... Mas...beleza....foi muito legal a sua explicação...mais uma vez muito obrigado..... Abraço......

Michels......era isto mesmo que precisava ficou jóia...porem o relatorio ficou com dados duplos ou seja dobrou os registros do receber e a pagar veja a imagem no linck abaixo: Eu coloquei assim na query1: SELECT * FROM RECEBER, PAGAR O que pode estar errado?? :unsure: muito Grato Carinha...

Por favor vê se alguém pode me ajudar.... Eu precisaria de algum modelinho de Relatório no QuickReport tipo assim: Que trabalhe com dois resultados... Um o undefined com o lançamentos de todas as despesas....que são alimentados por uma unica tabela...cpagar.db e com o contas a receber que são também alimentados por uma uma unica tabela...creceber.db exemplo do layont de que precisava aprender: Terias algum modelinho de relatório no quickreport tipo assim: Que trabalhe com dois resultados... Um o contas a pagar com o lançamentos de todas as despesas....que são alimentados por uma unica tabela...cpagar.db e com o contas a receber que são também alimentados por uma uma unica tabela...creceber.db exemplo do layont de que precisava aprender: ----------------------------------------------------------------------------------------- Relatório de contas a pagar e receber do periodo 00/00/0000 a 99/99/9999 Contas à receber: Cliente: valor -------------------- Jose 10,00 mario 15,00 maria 20,00 =============== total................45,00 Contas à Pagar: Fornecedor: valor ---------------------- Oficina do zé 10,00 vale transporte 10,00 Gas 20,00 =============== tgotal................40,00 Resultado Geral(Contas a receber - Contas a Pagar): R$ 5,00 alguém já fez este tipo de relatorio para me dar algumas dicas....?? muito Grato.. :)

amigo..deu certo. retirei a referencia do arquivo de clientes da select (não precisava dele)....ai funcionou... muito grato...t+ :D

Ola..pessoal.. Montei um relatorio aparentemente simples porem o relatorio duplica informação ou seja dados Por favor veja o código: Para entender melhor coloquei a imagem do relatorio aqui logo abaixo: IMAGEM DO RELATORIO DUPLICADO

beleza Churc................muito grato...t+ :D

Pessoal como uso esta função abaixo??? ou melhor como montar este aplicativo para fazer o que a funçaõ pede?? MSN e Delphi - Pegando todos os logs de conversas dos usuários da empresa Fonte: ramos da informatica //Esta função retorna os caminhos dos logs, linha por linha de todos usuários do MSN //Testando no Windows Live Messenger 8.0.0787.00 muito Grato..t+ :D

amigo...por acaso não é windowsXP OU 2000??? se for...eu tive o mesmo problema e resolvi assim: SOLUÇÃO PARA RODAR NOS SISTEMAS OPERACIONAIS WIN2000 E WIN-XP - ERRO: EXCEÇÃO EFCREATEERROR NO MÓDULO TABELA.EXE EM 000138EB Isto ocorre devido ao programa não achar a pasta de gravações dos arquivos temporios do quickreport: O que fazer: WIN2000/NT Crie uma pasta chamado TEMP na raiz c: Agora vá nas propriedades do MEU COMPUTADOR -(ultima opção). Avançado Environement Variables Agora mude os dois caminhos temp e tmp para C:\TEMP Ok...é só confirmar e Reiniciar o Micro WINXP alem de criar a pasta chamada TEMP na raiz c: Agora vá nas propriedades do MEU COMPUTADOR avançado variaveis de ambiente ai mudei o caminho das variaveis TEMP E TMP para o caminho de minha preferencia no caso C:\TEMP Espero que tenha ajudado...t+ ;)

Olá...pessoal Eu gostaria de saber se existe algum codigo eficiente que exporta quickreport para excel em extensão XLS eu até achei este codigo abaixo........ele só exporta em format *.CSV mas o usuario não está aceitando porque este formato não coloca como na extensão xls.....com os campos em colunas .....direitinho. no formato *.csv fica assim(tudo bagunçado): Tem algum codigo que exporta pro xls ou uma maneira que explique pro usuario como trabalhar com este CSV que eu também não sei (hehehe). Uso Delphi 4 + quickreport 3 Grato......t+

beleza..amigo entendi....mas de momento a solução da funçaõ em consegui assim: //aqui formata a incrição estadual conforme o estado //analisando o edit UF(estado). esta função esta la em cima junto com a função da validação da IE. beleza.....t+ :D

Olá;;; Eu peguei esta funçaõ para formatar a inscrição estadual.....mas não to conseguindo formatar...acredito que é por causa que tem que avaliar a UF e depois formatar o edit2 então tem que avaliar dois campos...é ai que eu não to conseguindo e depois formatar conforme mascara da função abaixo. Vamos supor que eu tenho o edit1 para a UF e o edit2 é digitado a inscrição. função abaixo: :D muito Grato.. t+

adsl 256k BrasilTelecom :D

Ola....pessoal eu notei um popup do banco itau onde ele aparece e em alguns segundas ela se fecha sozinha.... isto seria um javascript??? alguém poderia me dizer como fazer isto?? Grato :D

beleza..carinha..t+..muito grato. :D

Ok...amigão isto mesmo.....muito Grato... :D Mas nosso amigo OsJunior...mencionou algo do tipo: Isto me interessou bastante.... amigo OsJunior....O que você quer dizer com APENAS POR UM TEMPO?? e a frase VOCE QUER QUE ELE HABILITE SOZINHO NA PAGINA??? Valeu...Amigos...muito grato...mesmo t+ :D

ok..resolvido....colocar na t+

Olá..pessoal... Gostaria de saber se tem alguma maneira de eu colocar um codigo em javascript ou html e deixa-lo desabilitado por um tempo..na pagina. Em programação delphi eu pego e coloco chaves {codigo exemplo} para desabilita-lo ou uso em cada linha as barras // Em paginas html....tem alguma maneira??? Grato :D

beleza...vou dar uma pesquisada...muito grato amigo..t+ :D

Pessoal..tou instalando um componente ....mas está dando erro: [Error] DBIALIAS.PAS(203): Undeclared identifier: 'Check' Meu delphi é 4 No componente ele não menciona para qual delphi é compativel. alguém poderia ajudar?? Grato :D

Ola..pessoal tem algum maneira de controlar as opções do internet explorer via codigo pelo delphi??? Tipo eu queria mexer com os controles de segurança, ativar, desativar etc.... seria possível?? Grato...t+ :)

resolvi..... primeiro: a imagem que eu tava lidando era um *.gif ai converti para *.Jpeg e coloquei no uses de cada form do quickreport: JPEG; e na propriedade do QrIMage coloquei o STRETCH=TRUE Bom pelo menos resolveu... t+ :D

também não resolveu...... :rolleyes: