CRYSTAL X VB ERRO: INVALID FILE NAME
Pessoal olha só:
Criei um relatório que envio parâmetros para ele através do VB.
Legal eu escolho o cliente em uma combo e ele me traz o relatório do mesmo.
Mas não está funcionando quando mando abrir o relatório da erro: INVALID FILE NAME.
Quando eu mando rodar o programa passo a passo a linha q me da o erro é esta:
CRControlS.Action = 1
Está desta forma o click do botão:
Dim cliente As String
'Screen.MousePointer = vbHourglass
If cboFornecedor.Text = "" Then Exit Sub
cliente = Get_ItemData(cboFornecedor)
CRControlS.Reset
CRControlS.Formulas(0) = "cliente='" & Val(cliente) & " '"
CRControlS.ReportFileName = REPORTPATH & "FinancContasReceberCliente.rpt"
CRControlS.Destination = 0
CRControlS.WindowState = crptMaximized
CRControlS.Action = 1
Criei um relatório que envio parâmetros para ele através do VB.
Legal eu escolho o cliente em uma combo e ele me traz o relatório do mesmo.
Mas não está funcionando quando mando abrir o relatório da erro: INVALID FILE NAME.
Quando eu mando rodar o programa passo a passo a linha q me da o erro é esta:
CRControlS.Action = 1
Está desta forma o click do botão:
Dim cliente As String
'Screen.MousePointer = vbHourglass
If cboFornecedor.Text = "" Then Exit Sub
cliente = Get_ItemData(cboFornecedor)
CRControlS.Reset
CRControlS.Formulas(0) = "cliente='" & Val(cliente) & " '"
CRControlS.ReportFileName = REPORTPATH & "FinancContasReceberCliente.rpt"
CRControlS.Destination = 0
CRControlS.WindowState = crptMaximized
CRControlS.Action = 1
O que vc tem na Variável :
REPORTPATH
REPORTPATH
REPORTPATH me traz o caminho onde está armazenado os meus relatórios
Tati, acrescenta uma barra entre o REPORTPATH e o nome do Relatório assim?:
CRControlS.ReportFileName = REPORTPATH & "/" & "FinancContasReceberCliente.rpt"
Creio que resolverá seu problema
Boa sorte
CRControlS.ReportFileName = REPORTPATH & "/" & "FinancContasReceberCliente.rpt"
assim não resolve pois o REPORTPATH já me traz o caminho completo só preciso colocar o nome do arquivo.
Valew
assim não resolve pois o REPORTPATH já me traz o caminho completo só preciso colocar o nome do arquivo.
Valew
Tati..coloque a sintaxe que alimenta o ReportPath por favor
Sintaxe é esta aki:
Aponta para a pasta
c:\sistema\softwareeport\
Aponta para a pasta
c:\sistema\softwareeport\
esse nome FinancContasReceberCliente.rpt realmente esta correto ?
Olha...por desencargo de consciência..inverta as barras..
e tente diminuir o nome do rpt..sei lá
acenda uma vela sobre o monitor com 2 dentes de alho e uma pena de pomba..huahauhauhuahua
só falta isso..
Boa sorte
Citação:TATISOUTO escreveu:
Sintaxe é esta aki:
Aponta para a pasta
c:\sistema\softwareeport
Eviter colocar os nomes completos como acima, se o sistema está em
"c:\sistema\software"
utilize :
REPORTPATH = app.path & "eport\"
CRControlS.ReportFileName = REPORTPATH & "FinancContasReceberCliente.rpt"
Pode ocorrer de estar havendo um problema com o nome do relatório que ficou muito grande.
Se isto não resolver, sei que existe uma API que traz o nome do arquivo no formato DOS (shortpathnama ou shortfilename não lembro agora...) que pode resolver o problema...
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=5125&TxtSearch=nomes&CmbSort=ftitulo&varPagina=1
galera eu diminui o nome do arquivo, quem sabe neh..rss!
Se der certo eu posto.
Se der certo eu posto.
Tópico encerrado , respostas não são mais permitidas