flavioavilela

boa tarde a todos... estou tendo umas dúvidas quanto a usar quickreport + qrpreview... para daro .preview do quickreport estou fazendo assim: FrmRel_Ficha_Cadastro_Rebanho:= TFrmRel_Ficha_Cadastro_Rebanho.Create(self); FrmRel_Ficha_Cadastro_Rebanho.QuickRep1.Preview; FrmRel_Ficha_Cadastro_Rebanho.Free; e lá dentro do quickreport, para chamar o qrpreview no evento OnPreview do quickreport, estou fazendo assim: Application.CreateForm(TFrmVisualiza_Relatorio, FrmVisualiza_Relatorio); FrmVisualiza_Relatorio.QRPreview1.QRPrinter:= QuickRep1.QRPrinter; FrmVisualiza_Relatorio.Show; o problema é que o quickrep fica ativo também saca, no fundo como se fosse um form aberto... claro, é porque eu criei ele pra fazer o quickrep.preview... mas eu queria que o usuário fosse lá no Menu Tal, Relatórios, opção Tal e desse pra visualizar somente o QRPreview.... alguém saca disso??? ah, outra coisa, os botões, proximo, anterior, e bla bla bla, é criado na mão mesmo, dentro do QRPreview???

o lance é que eu não estou querendo usar ele num dblookupcombobox... eu quero é transformar o Codigo_Alguma_Coisa em Alguma_Coisa saca... estou fazendo um select na query e chamo um codigo saca, que é uma chave estrangeira... ai eu quero chamar a descrição daquele código no dbgrid...

alguém já trabalhou com operações de fração em delphi?? adição, subtração e por ai vai...... tem alguma unit do delphi que nos auxilie...????

boa tarde galera... estou tentando criar um campo lookup em tempo de execução... if dm.qryficha_anotacao_geral.FindField('Situacao') = Nil then begin with TStringField.Create(dm.qryficha_anotacao_geral) do begin FieldKind:= fkLookup; FieldName:= 'Situacao'; DataSet:= dm.qryficha_anotacao_geral; Name:= DataSet.Name + FieldName; KeyFields:= 'Codigo_Situacao'; LookupDataSet:= dm.qrycadastro_situacao; LookupKeyFields:= 'Codigo_Situacao'; LookupResultField:= 'Situacao'; LookupCache:= true; dm.qryficha_anotacao_geral.FieldDefs.Add(Name, FTString, 30, True); end; end; até então está quase certo, só que, quando eu dou um .Open na query ele fala que o campo Codigo_Situacao não foi encontrado e minha query no meu dm está toda em branco, pois é uma query que uso pra fazer outras operações, então, ela está toda em branco, não tem nenhum campo nela, justamente pra fazer outras tarefas dentro do sistema.... ai, eu tendo dar o .Open antes de criar o campo lookup, porque dai ele iria achar o campo Codigo_Situacao, só que ai ele fala que não pode criar o campo em um dataset aberto... alguém tem uma dica???? desde já, agradeço a todos....

isso ai... dei uma adaptada apenas no código mas era isso mesmo... vlw

beleza amigo, precisando estamos ai...

cara, fui lá no código do componente, coloquei o comando pra fechar as conexoes e tal, não funcionou... to fudido... vou ter que desenterra uma cabeça de paca que ta enterrada aqui viu rsrsrs...

procure ai pelo componente QRCompositeReport... ele permite imprimir dois qreport na mesma página... esse componente tem um evento chamado OnAddReports que você adiciona os reports q você colocou..

eu deixei um tópico aqui a respeito de mensagens no sistema e que deu certo graças a deus... agora, é o seguinte: estou usando querys pra verificar datas importantes no sistema ao inicia-lo e faço um laço de repetição até chegar no final da tabela... são umas 10 querys, claro que uma para cada tabela... como que eu faço pra colocar uma progressbar passando sempre que ele executar uma tabela? no total, ele iria de 0 a 100% a quantidade de querys que eu tiver...

só uma questão... tipo, eu quero continuar usando esse mesmo componente, pois já criei o layout da janela e pra outros backups está perfeito... só queria uma luz... tipo, o que mais pode acontecer para que o bd possa estar aberto no momento do backup, sendo que eu estou fechando todas as tabelas e até o adoconnection???

isso mesmo meu lider, fiz dessa forma e resolveu meu problema... abração e obrigado...

tipo, não sei se estamos falando a mesma lingua rsrsrs... vou pegar o exemplo das contas a pagar... aqui tem contas vencendo hoje, amanha, daqui um mes e por ai vai... se eu pegar e colocar, por exemplo, a data de hoje e verificar com a data de hoje + dias de aviso, não vou estar verificando com a data do vencimento... que é o que eu quero... eu fiz esse mesmo esquema ai com a data do vencimento... verifiquei a data de vencimento + 3 com a data de hoje... mas, obviamente, sempre havera contas com datas maiores com a de hoje, ai não da certo... já fiz vários esquemas aqui, até usando um select com uma query, mas tb não deu certo...

acho que a questão não é nem varrer toda a tabela, pois, se ele achou uma ocorrencia se quser de uma data igual a de hoje, já emite a mensagem, por isso uso o locate... tipo, dessa forma que você disse ficaria meio assim: a conta vence dia 1... hoje é 28... eu mandei avisar com 3 dias de antecedencia... 28 + 3 = 31 ai amanha é 1 e já é o dia de pagar a conta... ou seja, ele avisou só um dia... eu queria tipo, hoje é 28, o sistema avisar que faltam 3 dias pra vencer a conta... amanha é 29, faltam 2, amanha é 30, faltam 1 e por ai vai, saca????

boa tarde a todos... no meu sistema eu fiz o ele mesmo avisar algumas datas lançadas, por exemplo, a data de pagamento de uma conta... se tiver uma conta vencendo hoje, ele avisa na tela com uma mensagem.... mas agora, eu queria fazer ele avisar 1, 2, 3 dias antes da conta vencer.... alguém da uma luz??? obs.: estou fazendo um locate na tabela de contas a pagar e verificando se tem alguma conta vencendo hoje...

bom, a mensagem do list index parou, eu coloquei assim: var cont: integer; begin for Cont := 0 to dm.ComponentCount - 1 do begin if dm.Components[Cont] is TADOQuery then TADOQuery(dm.Components[Cont]).Active:= false; end; mas, mesmo assim, continua dando o erro falando que o arquivo do bd está sendo utilizado por outro processo...

fiz o teste... fechei todas as tabelas com o seguinte código var cont: integer; begin for Cont := 0 to dm.ComponentCount - 1 do begin if Components[Cont] is TADOQuery then TADOQuery(Components[Cont]).close; end; e fechei também o adoconnection e deu a mensagem de erro: List index out of bounds (22)....

certo... eu estava querendo fazer igual um colega me disse... pra gravar numa tabela o código do animal, o código da mae e o código do pai... mas eu imagino que deva ter outro campo para que possa ligar esse animal aos descendentes ou a mae ou o pai a seus decendentes....

certo, li os artigos mas não tem nada parecido... imagina ai: eu to cadastrando um animal: Animal: Florentina... Pai: Siclano... Mãe: Beltrana... beleza, até ai td bem... só que depois, eu vou cadastrar outro animal que não seja um desses 3, então: Animal: Flávio... Pai: Ronaldo... Mãe: Girafa. beleza, até ai td bem... mas ai, eu vou cadastrar um filho do Fulano. Animal: Clovis... Pai: Flávio... Mãe: Florentina... ai a questão: como você pode ver, o Clovis é filho do flávio e da florentina e neto materno do siclano e da beltrana e neto paterno do ronaldo e da girafa... como vou montar a tabela pro sistema reconhecer isso???? sua idéia eu entendi, só não entendi isso ai q estou explicando... ahh, isso tudo é no cadastro do animal e não é em outras janelas do sistema

boa noite a todos... tenho um sistema que controla gado... ao cadastrar uma vaca, por exemplo, eu gostaria que fosse armazenado ou veinculado a essa vaca, num possível relatório, o seu pai, seu avô (avó), bisavô (bisavó) e por ai em diante... eu sei que deveria ter uma tabela pra armazenar isso mas também nem sei... a idéia ta fraca agora rsrs... alguém pode dar uma luz ai...???

ok, farei esse teste e retornarei com alguma resposta....

cara, no ado não tem nada parecido com isso... tentei todas as propriedades que me da o adoconnection... tem sim um DataSets.Close, só que ai ele pede um valor inteiro, como se fosse um número ai não entendi... tem .close, .connected:= false ou :=true...

fiz o procedimento e coloquei antes do backup e da o mesmo erro: Cannot open file "arquivo desejado". O arquivo já está sendo usado por outro processo...

como assim, você já tem um projeto pronto e quer criar um instalador pra ele??

eu imagino que esse caso é simples, é só você fazer um if query1.active = false then, query1.active:= true....

certo entendi... mas, só uma questão, por exemplo: no meu sistema, tenho várias janelas que são abertas e dentro dela um dbgrid com as informações já lançadas daquela determinada janela, para caso a pessoa queira consultar, alterar, excluir, faça por ali mesmo... essas querys estando abertas o tempo todo, pesa o sistema ou é irrelevante o peso que é gerado no sistema? na janela de vendas por exemplo, a query de clientes eu fecho e abro pra atualizar né, mas a do cliente la no cadastro de clientes eu deixo ela aberta e assim com todas do sistema.... gera muita lentidão??? o que acha???