Andre,
Pelo que estou vendo esse trecho do teu programa está montando uma query...
correto?
Ou seja, não está passando o valor para dentro de um campo Parameter Field do
Reports... seria isso?
Valeu...
Andre Santos <[EMAIL PROTECTED]> escreveu:
Fábio
Eu uso uma versão antiga, 4.6, do Crystal (a que acompanha o VB 6).
Não sei se é o mesmo procedimento da versão que você utiliza.
Segue trechos do código no qual configuro um parâmetro para seleção:
________________________
(...)
If Trim(txtPais.Text) <> "" Then
'Parâmetro de seleção não obrigatório
If sFiltro <> "" Then
sFiltro = sFiltro & " and "
End If
sFiltro = sFiltro & _
"{EMPRESA.COD_PAIS} = '" & txtPais.Text & "'"
End If
(...)
With crptRelat
(...)
.SelectionFormula = sFiltro
(...)
.PrinterDriver = Printer.DriverName
.PrinterName = Printer.DeviceName
.PrinterPort = Printer.Port
.PrintReport
End With
________________________
O maior problema (pelo menos nesta versão do Crystal Reports) é que, se tiver
algum erro de sintaxe ou lógica, ele NÃO acusa erro algum (!!!), simplesmente
não funciona (não faz coisa alguma ao mandar apresentar o relatório).
[ ]
André
-----Mensagem original-----
De: oracle_br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Fabio Quirino
Enviada em: quarta-feira, 17 de agosto de 2005 11:55
Para: oracle_br@yahoogrupos.com.br
Assunto: [oracle_br] Off Topic - Crystal Reports 6 - PARAMETER FIELD
Galera,
O código abaixo funciona perfeitamente, entretanto, gostaria de acrescentar um
negócio a ele.
Tenho um campo (parameter field) no Crystal Reports 6 chamado p_filial e
gostaria de saber como faço pra passar por exemplo o valor "0001" para o
parameter field através do VB 6.
PS: Outra solução não adianta, teria que ser passar parâmetro para o Field
Parameter do Crystal...
CRPT é o componente Crystal Reports, uso o BD Oracle.
crpt.Connect = "ODBD;DSN=" & cmb_banco.Text & ";UID=" & txt_usuario.Text &
";PWD=" & txt_senha.Text & ";SERVER " & cmb_banco.Text & ""
crpt.DiscardSavedData = True
crpt.ReportFileName = "D:\Projeto Novo\relatorio\reloil0001.rpt"
crpt.MarginLeft = 500
crpt.Destination = crptToWindow
crpt.WindowShowSearchBtn = True
crpt.SQLQuery = vSql
crpt.WindowTitle = vRelatorio
crpt.WindowState = crptNormal
crpt.Action = 1
Desde já grato pela atenção...
Fabio Quirino
Fabio Quirino
MSN: [EMAIL PROTECTED]
ICQ: 147482462
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
______________________________________________________________________
Histórico: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/
Falar com os Moderadores:([EMAIL PROTECTED])
Dorian Anderson Soutto - Fernanda Damous - Alisson Aguiar
______________________________________________________________________
Links do Yahoo! Grupos
______________________________________________________________________
Histórico: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/
Falar com os Moderadores:([EMAIL PROTECTED])
Dorian Anderson Soutto - Fernanda Damous - Alisson Aguiar
______________________________________________________________________
Links do Yahoo! Grupos
Fabio Quirino
MSN: [EMAIL PROTECTED]
ICQ: 147482462
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
______________________________________________________________________
Histórico: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/
Falar com os Moderadores:([EMAIL PROTECTED])
Dorian Anderson Soutto - Fernanda Damous - Alisson Aguiar
______________________________________________________________________
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/oracle_br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
