Is it possible to use Advantage Database Server ADT files in Report Pro 2.x?
If so, how?
Dick
Advantage Database Server ADT files & Report Pro
Advantage Database Server ADT files & Report Pro
Last edited by Frank Maraite on Thu Nov 23, 2017 4:46 pm, edited 1 time in total.
-
- Posts: 28
- Joined: Tue Nov 17, 2015 4:12 pm
Advantage Database Server ADT files & Report Pro
Yes, We are using them from several years.
You can use the rdd, or you can swap the tables like:
CSCRIPT:=self:swapvariables(AllTrim(self:oTPTABREPORTES_REPORTES:oDCbrowListaRepo:server:SCRIPT))
ODB := AdsSQLServer{ CSCRIPT, true ,FALSE , "AXSQLADT" }
if ODB:Used
AAdd(aswap,{self:oTPTABREPORTES_REPORTES:oDCbrowListaRepo:server:TABLA,,,,,ODB})
endif
then,
include the array in the method:
oTv:Preeliminar(SELF:oTPTABREPORTES_REPORTES:oDCbrowListaRepo:server:FIELDGET(#reporte), SELF:oTPTABREPORTES_REPORTES:oDCbrowListaRepo:server:FIELDGET(#copias), FALSE,clseek,;
clwhile, self:lArchivoRTF, self:cTipoRTF, @cTempFile, aswap,self:oDCimpresora:VALUE)
You can use the rdd, or you can swap the tables like:
CSCRIPT:=self:swapvariables(AllTrim(self:oTPTABREPORTES_REPORTES:oDCbrowListaRepo:server:SCRIPT))
ODB := AdsSQLServer{ CSCRIPT, true ,FALSE , "AXSQLADT" }
if ODB:Used
AAdd(aswap,{self:oTPTABREPORTES_REPORTES:oDCbrowListaRepo:server:TABLA,,,,,ODB})
endif
then,
include the array in the method:
oTv:Preeliminar(SELF:oTPTABREPORTES_REPORTES:oDCbrowListaRepo:server:FIELDGET(#reporte), SELF:oTPTABREPORTES_REPORTES:oDCbrowListaRepo:server:FIELDGET(#copias), FALSE,clseek,;
clwhile, self:lArchivoRTF, self:cTipoRTF, @cTempFile, aswap,self:oDCimpresora:VALUE)
Advantage Database Server ADT files & Report Pro
Thank you Oscar, we a are going to try it.
Dick
Dick