|
Olá Amigos,
Atualmente utilizamos o crystal 8.0 em nossa
aplicações centura, mas precisamos homologar a versão 9.0, pois já temos
clientes utilizando esta versão. Ocorre que esta ocasionando um erro OLE
quando chama o relatório.
Alguém aqui da lista já esta trabalhando com o
crystal 9.0, abaixo vai o código que estou utilizando:
On
SAM_CustControlCmd
Call ax1.PropSetReportFileName(
tblRelatorios.colNOARQ )
!
! Sergio - Verificando qual tipo
de conexão será utilizado, não estamos utilizando mais o
LP240A02.EXE
If tblRelatorios.colTP_CONEXAO =
TRUE
!
! Acesso Nativo
Set
sParamConnect = "DSN=" || sDBNATIVA || ";UID=" || SqlUser || ";PWD=" ||
SqlPassword
Else
!
! Acesso via
ODBC
Set sParamConnect = "DSN=" || sDBODBC || ";UID=" ||
SqlUser || ";PWD=" || SqlPassword
!
If nDestino = 1 !
Impressora
Call ax1.PropSetPrinterDriver( sDriver
)
Call ax1.PropSetPrinterName( sImpressora
)
Call ax1.PropSetPrinterPort( sPorta
)
!
Call ax1.PropSetConnect( sParamConnect )
Call
ax1.PropSetDestination( nDestino )
Call ax1.PropSetAction( 1
)
Alessandro
Perillo
Desenvolvimento
ASM
Informática
Tel.:
(11) 3335-3840
Fax:
(11) 3335-3866
|
