Antonio.
Con la 9.05, en el What's New sale un ej para incorporar nuevos botones a la barra del preview y asignarle mis propias funciones
Pues bien.. tengo este codigo...
Tengo el Bitmap EXCEl anexado al Prev32.dll y a mi RC
Pero no se muestra, el preview aparece sin este nuevo boton, alguna idea, me falta algo, hay algun otro prerequisito que cumplir ?
... y una consulta.... puedo definir el RprevUserBtns() al inicio de mi aplicacion para que afecte a todos los reportes de mi sistema.
Saludos...
contento con la 905.. jiji ya me estoy poniendo al dia...
Desde Chile
Adolfo
Con la 9.05, en el What's New sale un ej para incorporar nuevos botones a la barra del preview y asignarle mis propias funciones
Pues bien.. tengo este codigo...
RPrevUserBtns( { | oPrev, oBar | BotonesPreview( oPrev, oBar ) } )
REPORT oRpt TITLE "Procesos","Sistema Control de Inventario","" ;
HEADER "Fecha: "+ dtoc(date()),"Hora: " + time() ;
FOOTER OemtoAnsi("Pagina: ")+str(oRpt:nPage,3) ;
PREVIEW
COLUMN TITLE "Codigo" ;
DATA Prc->CODIGO
COLUMN TITLE "Proceso" ;
DATA Prc->Proceso
END REPORT
ACTIVATE REPORT oRpt
.................................
Function BotonesPreview( oPrev, oBar )
DEFINE BUTTON OF oBar RESOURCE "EXCEL" ACTION Rpt2Excel(oPrev:oDevice)
Return nilTengo el Bitmap EXCEl anexado al Prev32.dll y a mi RC
Pero no se muestra, el preview aparece sin este nuevo boton, alguna idea, me falta algo, hay algun otro prerequisito que cumplir ?
... y una consulta.... puedo definir el RprevUserBtns() al inicio de mi aplicacion para que afecte a todos los reportes de mi sistema.
Saludos...
contento con la 905.. jiji ya me estoy poniendo al dia...
Desde Chile
Adolfo
;-) Ji,ji,ji... buena la cosa... "all you need is code"
http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650