a la hoja excel que exporto desde xbrowse quiero personalizarla , la primera exporta, pero luego lo hace pero con este error:
Este es mi codigo:
Code: Select all | Expand
REDEFINE XBROWSE oBrwDet ;
DATASOURCE oRs2 ;
COLUMNS "id","numero", "bruto","neto","brupi","fsali" ;
,"parte","pneto" ;
FIELDSIZES 50,60,100,100,100,70,60,100 ;
HEADERS "id" ;
,"CAJA" ;
,"BRUTO FAB." ;
,"NETO FAB." ;
,"BRUTO PYSA" ;
,"F.SALIDA " ;
,"PARTE" ;
,"NETO" ;
PICTURES ,,'9,999.999','9,999.999', '9,999.999',,,'9,999.999' ;
ID 4025 OF oDlgDet ;
AUTOSORT LINES CELL NOBORDER UPDATE
oBrwDet:nStretchCol := STRETCHCOL_WIDEST
oBrwDet:nMarqueeStyle = MARQSTYLE_HIGHLROW
oBrwDet:bClrSel := {|| { CLR_WHITE, GetSysColor(13 ) } } //ESTO HACE QUE NO SALGA LINEA NEGRA
oBrwDet:lSeekWild := .t.
{CLR_BLACK, CLR_WHITE} ) }
oBrwDet:aCols[ 5 ]:bClrStd := {|| iif (oRs2:recordcount()>0, { iif( oRs2:Fields("brupi"):value>oRs2:Fields("bruto"):value, CLR_HRED, CLR_BLACK), CLR_WHITE },{CLR_BLACK, CLR_WHITE} ) }
if oRs2:recordcount()>0
WITH OBJECT oBrwDet:aCols[ 6 ]
:bStrData := {|| iif( empty(oRs2:Fields("fsali"):Value), ' ',oRs2:Fields("fsali"):Value) }
END WITH
endif
oBrwDet:lHScroll := .t.
oBrwDet:lVScroll := .t.
oBrwDet:aCols[1]:lHide:=.t. //para ocultar columnas
REDEFINE BTNBMP oBtn ID 4014 OF oDlgDet UPDATE PIXEL 2007 NOBORDER CENTER ;
ACTION ( oExcel:=oBrwDet:ToExcel() , oExcel:Columns(2):autofit() )
oBtn:cTooltip := "Exportar Lote"
Code: Select all | Expand
...
REDEFINE BTNBMP oBtn ID 4014 OF oDlgDet UPDATE PIXEL 2007 NOBORDER CENTER ;
ACTION ( oExcel:=oBrwDet:ToExcel() )
oBtn:cTooltip := "Exportar Lote"
he notado que si antes de exportar cierro la hoja excel que estuviese abierta no hay error.
Gracias
