USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  filtro e impressão
mcgyver
CRUZEIRO
SP - BRASIL
ENUNCIADA !
Postada em 18/07/2005 08:45 hs            
Olá pessoal...
Eu tenho um Banco de Dados chamado Estoque, e ele possui a tabela chamada Controle. Dentro dessa tabela possuo o campo Medicamento, Laboratório e Data. Gostaria de uma rotina de impressão que toda vez que eu mandar imprimir, um input box me pedisse o Medicamento (irá filtrar o campo Medicamento em busca do nome que eu digitei), e o intervalo de duas datas (irá filtrar, já com o medicamento encontrado, o intervalo de duas datas que eu quero encontar o medicamento que já pedi no input box anterior), ou seja, a rotina vai me dar todos os medicamentos que eu pedir (o nome do mediamento se encontra repetido várias vezes) e ainda vai me pedir duas datas, para que encontre esse medicamento e que seje nesse intervalo...
Feito isso, gostaria de que essas informações fossem enviadas para o cristal, para serem impressas lá...
Obrigado pela colaboração pessoal...
Fui...
   
ChicoVieira
CRUZEIRO
SP - BRASIL
ENUNCIADA !
Postada em 18/07/2005 12:14 hs            
Pô, McGyver... Fala sério...
Essa é fácil. Dê um chego em casa, que lhe mostro um aplicativo que manipula registros filtrados entre duas datas, após definido um nome qualquer (que pode ser o medicamento que vc cadastrou na sua base de dados)....
Fui.
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 18/07/2005 12:43 hs         
use os selectionformula do crystal para filtar regitros ... no exemplo abaixo eu faço um filtro pelo código do cliente e período (vencimento)
 
 
.SelectionFormula = "(({R~Relcrecp.Codigo do cliente} = " & Str$(Vcliente) & ") AND ({R~Relcrecp.Vencimento} >= Date(" & Year(CDate(Vdata1)) & " , " & Month(CDate(Vdata1)) & " , " & Day(CDate(Vdata1)) & ")) AND ({R~Relcrecp.Vencimento} <= Date(" & Year(CDate(Vdata2)) & " , " & Month(CDate(Vdata2)) & " , " & Day(CDate(Vdata2)) & ")))"
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página