|
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
|
