FORMULAS NO VB6 COM CRYSTAL 9
Boa Noite Amigos
Bem, aos poucos vou me familiarizando com os novos comandos que tenho que usar dentro do VB6.Meu problema agora esta nas formuas.
Com o CR7, eu fazia assim.
strFormula = [Ô][Ô]
strFormula = [Ô]{CERTIFICADO.CERTIF_ID}=[Ô] & [Ô]{REL_NAV_TRANSB.CERTIF_ID}[Ô]
strFormula = strFormula & [Ô] AND {CERTIFICADO.CERTIF_ID}=[Ô] & CDbl([Ô]0[Ô] & FrmRelCertify.LblCert_ID.Caption)
MDIPrincipal.CSTRELATORIO.ReplaceSelectionFormula strFormula
E para passar valores para as formulas no Crystal, assim.
MDIPrincipal.CSTRELATORIO.Formulas(0) = [Ô]Lit20Gross=[Ô] & Replace(V_DblDifLit20, [Ô],[Ô], [Ô].[Ô])
Como faço isso com o CR9?
Obrigado e um Abraço
Bem, aos poucos vou me familiarizando com os novos comandos que tenho que usar dentro do VB6.Meu problema agora esta nas formuas.
Com o CR7, eu fazia assim.
strFormula = [Ô][Ô]
strFormula = [Ô]{CERTIFICADO.CERTIF_ID}=[Ô] & [Ô]{REL_NAV_TRANSB.CERTIF_ID}[Ô]
strFormula = strFormula & [Ô] AND {CERTIFICADO.CERTIF_ID}=[Ô] & CDbl([Ô]0[Ô] & FrmRelCertify.LblCert_ID.Caption)
MDIPrincipal.CSTRELATORIO.ReplaceSelectionFormula strFormula
E para passar valores para as formulas no Crystal, assim.
MDIPrincipal.CSTRELATORIO.Formulas(0) = [Ô]Lit20Gross=[Ô] & Replace(V_DblDifLit20, [Ô],[Ô], [Ô].[Ô])
Como faço isso com o CR9?
Obrigado e um Abraço
Ao invés de
Use
strFormula = Use
RecordSelectionFormula =
Bom Dia
Muito obrigado por sua ajuda ADILSOO
Vi esse exemplo na Net : Report.RecordSelectionFormula = [Ô]{tabela.campo} = 116[Ô]
Como a minha formula e grande, eu costumo joga-la em uma String e depois jogar a String para o comando que ira executar a formula.
Report.RecordSelectionFormula = strFormula (Porem essa sequencia nao funcionou)
E para passar valores para as formulas e assim que devo proceder?
Report.FormulaFields.GetItemByName([Ô]JAN[Ô]).Text = [Ô][ô][Ô] & [Ô]2[Ô] & [Ô][ô][Ô]
Muito Obrigado
SiDSIL
Muito obrigado por sua ajuda ADILSOO
Vi esse exemplo na Net : Report.RecordSelectionFormula = [Ô]{tabela.campo} = 116[Ô]
Como a minha formula e grande, eu costumo joga-la em uma String e depois jogar a String para o comando que ira executar a formula.
Report.RecordSelectionFormula = strFormula (Porem essa sequencia nao funcionou)
E para passar valores para as formulas e assim que devo proceder?
Report.FormulaFields.GetItemByName([Ô]JAN[Ô]).Text = [Ô][ô][Ô] & [Ô]2[Ô] & [Ô][ô][Ô]
Muito Obrigado
SiDSIL
Voce não faz a formula no proprio Crystal? Não vejo problemas com o tamanho da formula, bom esse é o meu caso, que crio o arquivo .RPT e depois chamo ele, não tenho problema nenhum com Filtros e Formulas.
Muito obrigado pela aajuda de todos.
Eu nao sei o que fiz de errado na primeira vez mas insisti e agora funcionou.Usei o seu exemplo ADILSOO
Gosto de jogar a formula em uma variavel e depois executa-la.Porem deve haver algum problema de sintaxe,pois dessa forma ainda nao consegui executa-la.
strFormula = [Ô][Ô]
strFormula = [Ô]{CERTIFICADO.CERTIF_ID}=[Ô] & [Ô]{REL_NAV_TRANSB.CERTIF_ID} and [Ô] & _
strFormula = strFormula & [Ô] AND {CERTIFICADO.CERTIF_ID}=[Ô] & CDbl([Ô]0[Ô] & FrmRelCertify.LblCert_ID.Caption)
Report.RecordSelectionFormula = strFormula
Mas menos mal porque funcionou com o comando .
Report.RecordSelectionFormula = [Ô]{CERTIFICADO.CERTIF_ID}=[Ô] & [Ô]{REL_NAV_TRANSB.CERTIF_ID} and [Ô] & _
{CERTIFICADO.CERTIF_ID}=[Ô] & CDbl([Ô]0[Ô] & FrmRelCertify.LblCert_ID.Caption)
Agora preciso descobrir como colocar o botao para selecionar a impressora, nos casos onde eu irei apenas chamar o [Ô]Report[Ô] dentro do VB.
Muito Obrigado
SIDSIL
Eu nao sei o que fiz de errado na primeira vez mas insisti e agora funcionou.Usei o seu exemplo ADILSOO
Gosto de jogar a formula em uma variavel e depois executa-la.Porem deve haver algum problema de sintaxe,pois dessa forma ainda nao consegui executa-la.
strFormula = [Ô][Ô]
strFormula = [Ô]{CERTIFICADO.CERTIF_ID}=[Ô] & [Ô]{REL_NAV_TRANSB.CERTIF_ID} and [Ô] & _
strFormula = strFormula & [Ô] AND {CERTIFICADO.CERTIF_ID}=[Ô] & CDbl([Ô]0[Ô] & FrmRelCertify.LblCert_ID.Caption)
Report.RecordSelectionFormula = strFormula
Mas menos mal porque funcionou com o comando .
Report.RecordSelectionFormula = [Ô]{CERTIFICADO.CERTIF_ID}=[Ô] & [Ô]{REL_NAV_TRANSB.CERTIF_ID} and [Ô] & _
{CERTIFICADO.CERTIF_ID}=[Ô] & CDbl([Ô]0[Ô] & FrmRelCertify.LblCert_ID.Caption)
Agora preciso descobrir como colocar o botao para selecionar a impressora, nos casos onde eu irei apenas chamar o [Ô]Report[Ô] dentro do VB.
Muito Obrigado
SIDSIL
Na hora de imprimir o próprio Crystal tem a opcão das impressoras...
Boa Noite Amigos
Pode me dizer onde fica o botao para selecionar a impressora.Eu nao o detectei.
Inclusive outros colegas aqui do forum tambem me disseram que o CR9 nao tem esse botao.
A Alternativa e criar um botao proprio.
Um Abraço
SIDSIL
Pode me dizer onde fica o botao para selecionar a impressora.Eu nao o detectei.
Inclusive outros colegas aqui do forum tambem me disseram que o CR9 nao tem esse botao.
A Alternativa e criar um botao proprio.
Um Abraço
SIDSIL
SIDSIL bom dia
SIDSIL realmente o crystal não tem o botão para selecionar a impressora, pois ele usa a impressora padrão do sistema
SIDSIL realmente o crystal não tem o botão para selecionar a impressora, pois ele usa a impressora padrão do sistema
Puts..
, qual o problema de imprimir na padrão? oshe..
Agora se for de necessidade especifica use isso...
já deve funcionar, desse método ele abre o menu de selecao de impressora e de pagina, qualquer coisa posta aÃ.. falow
, qual o problema de imprimir na padrão? oshe.. Agora se for de necessidade especifica use isso... crystalreport.PrinterSelect
[ô]crystalreport= nome do objeto já deve funcionar, desse método ele abre o menu de selecao de impressora e de pagina, qualquer coisa posta aÃ.. falow
Bom Dia
Na verdade eu estou usando essa sequencia que voce colocou.
O botao de selecionar a impressora simplesmente nao aparece e nao é nem porque ele nao esteja visivel,simplesmente ele nao existe ao menos para mim e para aqueles que eu disse que tambem nao conseguiram localiza-lo.
Agora voce me deixou intrigado, pois disse que nao tem problemas quanto a isso.
Um Abraço
SIDSIL
Na verdade eu estou usando essa sequencia que voce colocou.
O botao de selecionar a impressora simplesmente nao aparece e nao é nem porque ele nao esteja visivel,simplesmente ele nao existe ao menos para mim e para aqueles que eu disse que tambem nao conseguiram localiza-lo.
Agora voce me deixou intrigado, pois disse que nao tem problemas quanto a isso.
Um Abraço
SIDSIL
Amigo, oque eu quis dizer foi apenas que, qual seria o problema se imprimir na impressora padrão do sistema? Eu particularmente nem uso o código pra selecionar impressora, só corri no Google e achei esse exemplo, ou sua duvida seria que ele não imprime? Ou não aparece a impressora só que o relatório imprime normal? Explica melhor aà oque voce ta querendo fazer, por que agora to confuso, ahusahshua, abraco.
Tópico encerrado , respostas não são mais permitidas