Pessoal, acho que ningu�m teve ainda a experi�ncia que tive com o controle
ActiveX do Report Builder, em se tratando do problema que descrevi abaixo.
N�o sabendo a causa dele, mas tendo uma solu��o paliativa que era de colocar
no PATH o diret�rio da minha aplica��o, tive de improvisar. Importei, da
kernel32.dll, a fun��o SetEnvironmentVariableA e a usei para acrescentar no
PATH o caminho da minha aplica��o. Isso fez com que o erro parasse de
acontecer, mas n�o consegui descobrir o que estava causando esse tipo de
problema.
Ricardo.
----- Original Message -----
From: "Ricardo Gomes" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, February 18, 2004 4:07 PM
Subject: [sqlwin] controle ActiveX Report Builder Document
> Boa tarde a todos!
>
> Estou tendo um problema no uso do controle ActiveX Report Builder
Document.
> Quando executo a fun��o oRB.Create(
> "{1576D84A-6244-11D1-9F19-00A02488FBFD}" ), sendo oRB objeto do tipo
> ReportBuilder_IReportBuilder, o Centura retorna erro "03701 - No
> configuration file". Fazendo testes, descobri que o erro p�ra de acontecer
> quando coloco o diret�rio da minha aplica��o no PATH. Os arquivos do
deploy
> e o pr�prio sql.ini se encontram no mesmo diret�rio da minha aplica��o, o
> que permite que eu n�o necessite colocar o caminho da minha aplica��o no
> PATH, mas, somente quando tento usar o controle Activex do Report Builder,
> acontece esse problema. Algu�m sabe do que se trata e como resolver?
Abaixo
> estou mandando a fun��o e indicando a linha onde o erro � retornado,
quanto
> estou depurando.
>
> ----
> Function: fVerificaInputItem
> Description:
> Returns
> Boolean:
> Parameters
> String: sNomeQrp
> String: sNomeInputItem
> Static Variables
> Local variables
> Class: ReportBuilder_IReportBuilder: oRB
> Class: ReportBuilder_IReportInput: oRBInput
> Boolean: bResult
> Boolean: bAbriQrp
> Actions
> Set bResult = FALSE
> Set bAbriQrp = FALSE
> If oRB.Create( "{1576D84A-6244-11D1-9F19-00A02488FBFD}" ) <<<<
> LINHA ONDE OCORRE O ERRO.
> Call SalActiveXAutoErrorMode( FALSE )
> !
> If oRB.ImportReportTemplate( sDiretorio_Aplicacao_G || '\\' ||
sNomeQrp,
> bAbriQrp )
> If oRB.GetInputFromName( sNomeInputItem, oRBInput )
> Set bResult = TRUE
> Call oRB.Detach()
> Return bResult
> ---
>
> Obrigado.
>
> Ricardo.
>
>
> ==============================================
> Lista de Centura SQLWindows
> Administrador : [EMAIL PROTECTED]
> [ http://www.centuraexplorer.com ]
> Para sair desta lista mande mensagem para:
> [EMAIL PROTECTED] sem nada no Subject e
> com o comando a seguir no corpo da msg:
> "unsubscribe sqlwin" (sem as aspas)
> ==============================================
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
