Tatiane.InterArt

Para otimização de código, consegui encontrar na Net uma forma de somar dias a uma data fixa e pesquisar por ele, porém o que preciso agora é comparar duas datas: sendo Data1 < Data2, já manipulei os MaskEdits para não deixar inserir data inicial maior que a final, sei que há uma forma de se fazer isso, só não estou sabendo como! Bem, nas pesquisas por períodos fixos, tipo 15,20,25 e 30 dias à partir do dia informado estou usando: Data=DateToStr(IncDay(StrToDate(MaskEdit1.Text), StrToInt(Edit1.Text))); IBQuery1.Close; IBQuery1.SQL.Clear; IBQuery1.SQL.Add('Select * from Ligacao where Data='''+Data+''''); IBQuery1.Open; Na verdade acredito que o período deva ser um pouco diferente, consegui encontrar na net uma função que me retorne a quantidade de dias entre o período: Var Dia:Integer; Begin Dia:=DaysBetween(StrToDate(MaskEdit1.Text),StrToDate(MaskEdit2.Text)); O que preciso agora é saber como faço para montar o código SQL para esta pesquisa, relembrando que minha variável Data é string e já trabalho com esse software a algum tempo e não há uma maneira de mudar agora! Uso Delphi6 e InterBase A tabela em questão: LIGACAO Codigo Data Hora Solicitado Telefone Falou nesta tabela existirá toda a relação de ligações feitas, e a pesquisa é para facilitar a visualização das ligações dentro do período da conta telefônica para comparação. Se alguém puder me ajudar nesta questão agradeço!

Sensacional Micheus... bem mais simples e prático, valeu a ajuda! ;) :) ^_^

Pessoal, depois de tanto quebrar a cabeça usei um método que dá um pouco de trabalho, mas que funciona: printer.canvas.textout() Fora que criei uma tabela temporária auxiliar para facilitar no momento de carregar os dados... Valeu todas as dicas pessoal e fica aí essa minha dica também!

Bem, pensando mais clássico agora... Uso InterBase como Banco de Dados e Delphi6 No relatório que estou fazendo tenho uma tela onde informo a data em um MaskEdit e um botão onde no Onclik faço meu select ou seja, minha pesquisa e carrego os dados para o relatório dessa forma! FrmRelCx.IBQuery1.Close; FrmRelCx.IBQuery1.SQL.Clear; FrmRelCx.IBQuery1.SQL.Add('Select * from EntCaixa where DataRecto='''+MaskEdit1.Text+''''); FrmRelCx.IBQuery1.Open; FrmRelCx.IBQuery2.Close; FrmRelCx.IBQuery2.SQL.Clear; FrmRelCx.IBQuery2.SQL.Add('Select * from SaiCaixa where DataPagto='''+MaskEdit1.Text+''''); FrmRelCx.IBQuery2.Open; FrmRelCx.QuickRep1.Preview; Em primeiro lugar faço a pesquisa em IBQuerys diferentes pois a data que preciso filtrar são diferentes, OK poderia até criar uma tabela temporária para isso, mas ainda não resolveria meu problema que não é este! Tenho outra tela que gera meu relatório onde tenho um QuickRep, dois IBQuerys, acresci bands SubDetail(Não sei se isso é correto!) Uma ligada ao IBQuery1 e outra ligada ao IBQuery2, ao final das Entradas de Caixa e Saidas de tenho um Subtotal dos valores de entrada e subtotal de saída em uma outras bands SubDetail uma terceira Band SubDetail ao final fazendo o cálculo Total de Caixa que funcionan perfeitamente porém em uma única coluna! Pois bem aqui encontra-se meu problema, preciso que saia Tudo de Entrada de Caixa e em uma coluna e ao lado na outra coluna Tudo de Saída de Caixa. Bem agora tentei explicar mais detalhadamente, espero que possam me ajudar, já estou enlouquecendo com esse relatório :wacko:

Como o Relatório é Hoje: 1ª Coluna Entrada de Caixa e 2ª Coluna Saída de Caixa Caixa - Entradas........................... ------------------------------------------------------------------------------------- DataRecto:22/02/08...................... Descrição: Union Pedido nº10 - 1/1 Tipo: Boleto.................................. Valor: R$ 35,00............................. -------------------------------------------------------------------------------------------- DataRecto:22/02/08...................... Descrição: DFazio Pedido nº8 - 5/8 Tipo: Cheque............................... Valor: R$ 90,00............................ -------------------------------------------------------------------------------------------- DataRecto:22/02/08....................... Descrição: Fass Pedido nº21 - 1/10 Tipo: Boleto.................................. Valor: R$ 180,00........................... --------------------------------------------------------------------------------------------- SUBTOTAL Entrada: R$ 305,00 ----------------------------------------------------------------------------------- Caixa - Saídas ------------------------------------------------------------------------------------ DataPagto:22/02/08...................... Descrição: Soluction Pedido 1 ..1/1 Tipo: Dinheiro............................... Valor: R$ 48,90............................. ------------------------------------------------------------------------------------------- DataPagto:22/02/08............................... Descrição: MPel NF nº4545 - 2/5 Tipo: Dinheiro........................................ Valor: R$100,00..................................... -------------------------------------------------------------------------------------------- DataPagto:22/02/08................................. Descrição: ZWanni NF nº2038 - 8/10 Tipo: Boleto...................................... Valor: R$38,00..................................... ----------------------------------------------------------------------------------- SUBTOTAL Saídas: R$ 186,90 ---------------------------------------------------------------------------------- Total Caixa: R$ 118,10 ___________________________________________________________ COMO preciso que fique 1ª Coluna Entrada de Caixa e 2ª Coluna Saída de Caixa Caixa - Entradas...........................| Caixa - Saídas....................................... ------------------------------------------------------------------------------------------- DataRecto:22/02/08......................| DataPagto:22/02/08............................... Descrição: Union Pedido nº10 - 1/1 | Descrição: MPel NF nº4545 - 2/5 Tipo: Boleto..................................| Tipo: Dinheiro........................................ Valor: R$ 35,00.............................| Valor: R$100,00..................................... -------------------------------------------------------------------------------------------- DataRecto:22/02/08......................| DataPagto:22/02/08................................. Descrição: DFazio Pedido nº8 - 5/8 | Descrição: ZWanni NF nº2038 - 8/10 Tipo: Cheque................................| Tipo: Boleto...................................... Valor: R$ 90,00.............................| Valor: R$38,00..................................... -------------------------------------------------------------------------------------------- DataRecto:22/02/08.......................| DataPagto:22/02/08................................ Descrição: Fass Pedido nº21 - 1/10 | Descrição: Solução Informática NF nº2901 - 2/3 Tipo: Boleto..................................| Tipo: Dinheiro...................................... Valor: R$ 180,00.............................| Valor: R$55,00..................................... --------------------------------------------------------------------------------------------- DataPagto:22/02/08......................| DataRecto:22/02/08................................. Descrição: Soluction Pedido 1 ..1/1 | Descrição: A Granell NF nº2038 - 3/3 Tipo: Dinheiro...............................| Tipo: Depósito...................................... Valor: R$ 48,90.............................| Valor: R$35,60..................................... Não consigo é fazer isso ser separado, tentei o exemplo citado acima mas não funcionou, quando defino duas colunas no QuickRep ainda imprime Tudo do Entrada e na sequencia abaixo na mesma coluna Tudo do Saída entende? Quero que fique Tudo do Entrada em uma coluna e Tudo do Saída em outra coluna e ainda não consegui fazer isso!

Bem, na verdade isso já faço... em uma única coluna entende, porém, preciso que fique com aparência daqueles cadernos de lançamento de Caixa sabe os que tem coluna de entrada e saída... É exatamente a questão separar em colunas é que está me dando a maior dor de cabeça, tipo o normalzinho com subtotal de Entrada, Subtotal de Saída e Total em Caixa já está fofo e funcionando, porém o Gerente precisa e quer um relatório em duas colunas, vai entender néh! Será que alguém pode me orientar neste caso?

Mas nem sei como deixar o QuickRep em colunas huahuahuahuahua! pow gostei muito dessa sua explicação, é bem válida, mas e como fazer para o quickrep ficar em duas colunas e como ligar esses dados a elas?

Tenho duas tabelas: EntCaixa Codigo (Varchar) Descricao (Varchar) Valor (Varchar) DataVecto (Varchar) DataRecto (Varchar) Tipo (Varchar) Cx (Varchar) SaiCaixa Codigo (Varchar) Descricao (Varchar) Valor (Varchar) DataVecto (Varchar) DataPagto (Varchar) Tipo (Varchar) Cx (Varchar) Preciso gerar um relatório com duas colunas, sendo em uma delas o EntCaixa e na outra o SaiCaixa tentei várias formas mas não consegui, alguém poderia me ajudar? Lembrando que esse relatório é diário e não necessita ser ordenado por nenhum tipo de informação, apenas exibir Entrada e Saída de caixa em colunas diferentes como em um livro de caixa! Agradeço antecipadamente!

Pessoal consegui... e aí vai a dica para quem precisar! como no micro servidor tem firewall precisava liberar a porta do IB... Símples e fácil rsrsrsrsrs

Estou com um probleminha com a configuração de rede no InterBase Client/Server, já havia feito tudo certinho, instalado o IB Server na máquina do servidor, configurado e feito o banco de dados, assim como nas máquinas Client já havia instalado o IB Client e configurado o host com o nº do IP e havia funcionado redondinho, mas depois que fiz algumas modificações no Software não está mais funcionando. Estou usando Delphi 6 e InterBase6 e quando tento configurar nas máquinas Client o Remote Server, inserindo o nº de IP no server name ele dá um erro: Unabled to complete network request to host "(numero do IP do Server)". Unknown Win32 error 10060 Alguém sabe me dizer o que seria isso?

Problemas resolvidos, no meu caso q é um caso isolado por ter tido problemas na instalação do Delphi ou InterBase, precisei usar métodos de seleção diferenciados e referenciais a minha pesquisa da primeira Form, infelizmente com a Procedure não foi possível, mas funcionou redondinho e em observação, achei um exemplo de subtotal e total diferente na internet que funcionou melhor que o QRExpr... aí vai a dica! Declarar duas variáveis públicas: VlSub,VlTot:Double {Usei tipo Double por se tratar de valor em moeda, dinheiro} no evento BeforePrint do QRGroup1 - referente ao Subtotal VlSub:=0; no evento BeforePrint do QRGroup2 - referente ao Total VlTot:=0; no evento BeforePrint do QRGroupFooter3 - referente ao valor das parcelas VlSub:=VlSub+StrToFloat(IBQuery1.FieldByName('Valor').AsString); VlTot:=VlTot+StrToFloat(IBQuery1.FieldByName('Valor').AsString); no QRGroupFooter1 - referente ao Subtotal adicionar duas QRLabel na propriedade Caption da QRLabel1 - Subtotal - colocar negrito na fonte no evento BeforePrint do QRGroupFooter1 - referente ao Subtotal QRLabel2.Caption:=FormatFloat('R$ ###,##0.00', VlSub); no QRGroupFooter2 - referente ao Total adicionar duas QRLabel na propriedade Caption da QRLabel1 - Total - colocar negrito na fonte no evento BeforePrint do QRGroupFooter1 - referente ao Subtotal QRLabel2.Caption:=FormatFloat('R$ ###,##0.00', VlTot); Alinhe os campos da forma desejada e pronto! funciona melhor que o QRExpr

Bem, algumas coisas funcionaram e outras não, fiz algumas adaptações na minha tela de pesquisa para que pudesse passar a Qtde de dias através de uma variável do tipo string que valida ao clicar no RadioGroup, até aí ficou perfeito, porém, quando executo dá um erro em relação ao Param DataInicio criado no Form FrmImpRelContPag - IBQuery1:Parameter 'DtInicio' not found Na seqüência, para cada dataset que fizemos uso da parametrização, acesse a propriedade Params, selecione cada parâmetro na lista e ajuste as propriedades: DataType e ParamType de acordo com o que representam. Por ex., para IBQuery2 no parâmetro CodPg você define DataType = ftInteger e ParamType = ptInput. Não carrega os parâmetros na IBQuery2... Seguindo uma impressão relativa à pesquisa, usando é claro a mesma linha de raciocínio e sem usar a procedure ShowPreview, separa sim por Fornecedor, mas os Itens carregam repetidos e o Subtotal aparece assim: View Profille IBQuery1.Valor; ResetAfterPrint: True, ou seja não calcula. Fica a separação por data, porém quebrando inicialmente por Fornecedor e depois por data, assim, primeiro mostra tudo de um Fornecedor depois tudo de outro! --------------------------------------------------------------------- Credor: MPEL Origem --------------------------------------------------------------------- Item: Sulfite........................Qtde:10 ------------------------------------------------------------------- ..........................................Vencimento:01/01/08.......Valor:35,00 ------------------------------------------------------------------------------ Subtotal: View Profille IBQuery1.Valor; ResetAfterPrint: ------------------------------------------------------------------------------ Credor: MPEL Origem --------------------------------------------------------------------- Item: Sulfite........................Qtde:10 ------------------------------------------------------------------- ..........................................Vencimento:10/01/08.......Valor:25,00 ------------------------------------------------------------------------------ Subtotal: View Profille IBQuery1.Valor; ResetAfterPrint: ------------------------------------------------------------------------------ Credor: RMComercial Origem --------------------------------------------------------------------- Item: Vinil Oracal..................Qtde:2 ------------------------------------------------------------------- ..........................................Vencimento:01/01/08.......Valor:15,00 ------------------------------------------------------------------------------ Subtotal: View Profille IBQuery1.Valor; ResetAfterPrint: ------------------------------------------------------------------------------ O que pode ser?

Bem, a estrutura é perfeita, com um pequeno detalhe que me esqueci de comentar nos posts anteriores, acredito que por algum problema na instalação do Delphi ou InterBase não consigo criar tabelas com outro tipo de variável a não ser Varchar(String), tenho um erro de incompatibilidade no momento de add dados, mesmo fazendo conversões, um probleminha que tive que contornar em todo o relatório. ou seja, minha pesquisa ficou toda papagaiada, tive que converter de sata para string e string para data um milhão de vezes rsrsrsrsrsrs - claro exagero meu. para montagem da tela de pesquisa utilizei um RadioGroup com os períodos pré-definidos e para a data informada um MaskEdit, bem, dentro da papagaiada q disse rsrsrsrsrs tive que validar variáveis contando dias e retransformar em string no momento da pesquisa, portanto, minha pesquisa está assim mais ou menos, supondo que o período é de Dez dias. Select Data from FormaPagto where Data='''+Um+''' or Data='''+Dois+''' or Data='''+Tres+''' or Data='''+Quatro+''' or Data='''+Cinco+''' or Data='''+Seis+''' or Data='''+Sete+''' or Data='''+Oito+''' or Data='''+Nove+''' or Data='''+Dez+''' Bem, sei que é muito inviável, mas por conta do problemão q tive com as declarações de variável, que nem integer ele aceita, para ter idéia até meus códigos são Varchar(String), nessas horas, quem não tem cão, caça até com rato rsrsrsrsrs improvisei da melhor maneira possível. Considerando tudo, me ajuda bastante, porém no quesito pesquisa não dará certo com certeza, vou tentar fazer adaptações e improvisar como for possível, qualquer coisa volto a postar...

10,15,20,25 dias à partir de qualquer data informada! e sim é o único filtro que tenho na consulta principal.

isto mesmo... está sim, porém o nome referente migra da tabela de cliente referente ao código do ContasPagar, mas o restante está perfeitamente correto.

Ahnnn, na verdade acho q não consegui ser bem clara do que preciso no post, então vamos lá, sobre relatório mestre-detalhe consigo fazer bacaninha, tenho vários funcionando, porém este o que necessito mesmo é... ter os dados do fornecedor, ter a data do vencimento de pagamento respectivo, o valor a ser pago e os itens que foram comprados pela empresa. Um relatório básico de contas a pagar que está me dando a maior dor de cabeça rsrsrsrs. tenho minhas tabelas no InterBase ContasPagar CodPg CodCli NumNota DtEmissao ValotTot FormaPagto CodPg NumParc DataVencmto Valor Tipo ItemContPg CodPg NumItem Descricao Qtde ValorUni ValorTot preciso imprimir neste relatório o que tenho a vencer por dia com subtotal, porém o relatório poderá ser filtrado por períodos de 10,15,20 e 25 dias certo. digamos que tenho referente a uma única nota fiscal de compra duas parcelas a vencer no mesmo período uma dia 01 e outra dia 10, e tenho outras diferentemente para datas distintas dentro deste período, as informações que preciso poderão sim se repetir - para ser mais clara o exemplo impresso seria: Credor: MPEL Origem Item: Papel Sulfite Qtde:10 Vencimento:01/01/08 Valor:35,00 Credor: RMComercial Origem Item: Vinil Oracal Azul Qtde:02 Item: Vinil Oracal Vermelho Qtde:03 Vencimento:01/01/08 Valor:20,00 Subtotal:55,00 Credor: MPEL Origem Item: Papel Sulfite Qtde:10 Vencimento:10/01/08 Valor:35,00 Credor:SPMedia Origem Item: SP Solvente Flora Qtde:03 Vencimento:10/01/08 Valor:10,00 Subtotal:45,00 Bem, na verdade o que não estou conseguindo é deixar meu relatório exatamente assim, entende, separado por dia, com subtotais, consigo imprimir todas as informações usando mestre-detalhe, mas não consigo fazê-lo ficar desta maneira, como havia dito acima, me indicaram o componente QRGroup, mas não sei usar, estou realmente perdida. Estava acostumada com programação simples, isso tudo parece um bixo de 7 cabeças para mim! Bem não sei se agora fui mais clara, se alguém puder me ajudar, agradeço!

Em um relatório semanal de Contas a Pagar, tendo três tabelas, a mãe q é a ContasPagar e duas filhas q são FormaPagto e ItemContPag, preciso gerar um relatório semanal de contas a pagar. O filtro de pesquisa está perfeito, neste relatório preciso imprimir as tabelas FormaPagto e ItemConPag. na FormaPagto tenho CodForn, CodContaPg, DataVenc, Valor e Tipo na ItemContPag tenho CodContaPg, Itens, Qtde. no meu QuickRep tenho três IBQuerys IB1 FormaPagto IB2 ItemContPag IB3 Fornecedor estou usando bands separadas pois meu gerente quer que apareça uma linha separando e por conta dos itens também. então, meu QuickRep está ligado ao IB1, tenho um DataSource ligado a ele também, e o IB2 ligado ao DataSource. Quando imprimo estou usando as seguintes linhas: FrmImpRelContPag:=TFrmImpRelContPag.Create(Self); FrmImpRelContPag.IBQuery1.Close; FrmImpRelContPag.IBQuery1.SQL.Clear; FrmImpRelContPag.IBQuery1.SQL.Add('Select * from PagtoContaPg '+Pes+'order by Data'); FrmImpRelContPag.IBQuery1.Open; FrmImpRelContPag.IBQuery2.Close; FrmImpRelContPag.IBQuery2.SQL.Clear; FrmImpRelContPag.IBQuery2.SQL.Add('Select * from ItemContPag where CodContPag='''+FrmImpRelContPag.IBQuery1CodOrc.Value+''''); FrmImpRelContPag.IBQuery2.Open; FrmImpRelContPag.IBQuery3.Close; FrmImpRelContPag.IBQuery3.SQL.Clear; FrmImpRelContPag.IBQuery3.SQL.Add('Select * from Fornec where CNPJ='''+FrmImpRelContPag.IBQuery1CodForn.Value+''''); FrmImpRelContPag.IBQuery3.Open; FrmImpRelContPag.QuickRep1.Preview; então, não aparece o nome do fornecedor e os itens saem repetidos, alguém poderia me dar uma dica de como posso fazer isso funcionar? ahnnn esqueci de colocar acima que não estou usando a tabela mãe para este relatório, pois neste caso ela não vai me servir de nada! antes usava a tabela mãe, o que acontecia é que por cada fornecedor, se tivesse por exemplo vencimento dia 01/01/08 e 10/01/08 e filtrasse período de 10 dias, ficaria por exemplo assim: Fornecedor: DELMONT Itens: Verniz Oracal Verniz Perfurado Verniz Transparente Data Valor 01/01/08 30,00 10/01/08 25,00 Fornecedor: MPEL Itens: Sulfite Data Valor 01/01/08 12,00 e não pode ficar assim, preciso que fique por data, mesmo que repita novamente o fornecedor e itens teria q ficar assim: Fornecedor: DELMONT Itens: Verniz Oracal Verniz Perfurado Verniz Transparente Data Valor 01/01/08 30,00 Fornecedor: MPEL Itens: Sulfite Data Valor 01/01/08 12,00 Fornecedor: DELMONT Itens: Verniz Oracal Verniz Perfurado Verniz Transparente Data Valor 10/01/08 25,00 tem que ser tudo o q há de um dia, depois tudo o que há do outro e assim por diante! Se alguém puder me ajudar neste caso, agradeço!