Se solucionó con eso. Gracias.
Ahora, en el proceso de pasar de LISTBOX a XBROWSE, me encuentro con otro problema:
En el listbox, la primera columna es el nombre del día "lunes", "martes",... y el resto de columnas pertenecen a una dbf.
No se como resolverlo con XBROWSE para añadirle una primera columna que permita incorporar el nombre del día con la búsqueda en un array con
nomdia[dow(DIARIO->FECHA)].
Copio el código:
LISTBOX:
- Code: Select all Expand view
REDEFINE LISTBOX oTbr FIELDS ;
nomdia[dow(DIARIO->FECHA)],;
dtoc(DIARIO->FECHA),;
transform(DIARIO->ENTRADA,'999,999.99'),;
transform(DIARIO->SALIDA,'999,999.99'),;
transform(DIARIO->STOCK,'999,999.99') ;
HEAD ' - ','Día','Entrada','Salida','Stock';
ID 301 COLOR clrLtrBrow,clrFonBrow OF oDlg;
ON RIGHT CLICK Dbfaexcel(oDlg)
XBROWSE:
- Code: Select all Expand view
REDEFINE XBROWSE oTbr ID 301 OF oDlg;
DATASOURCE "DIARIO" ;
COLUMNS "FECHA","ENTRADA","SALIDA","STOCK" ;
PICTURES nil, "@E 999,999.99", "@E 999,999.99", '@E 999,999.99' ;
HEAD 'Día','Entrada','Salida','Stock' ;
COLOR clrLtrBrow,clrFonBrow ;
FONT oFontDoble ;
ON RIGHT CLICK Dbfaexcel(oDlg) ;
UPDATE
WITH OBJECT oTbr
:nRowDividerStyle:= LINESTYLE_LIGHTGRAY
:nColDividerStyle:= LINESTYLE_LIGHTGRAY
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:aJustify:={.f.,.t.,.t.,.t.}
//:nfreeze:=
:nStretchCol:= STRETCHCOL_LAST
:nColSel:= 2
:nRowSel:= 1
// Pinta líneas de colores distintas si son pares o impares.
:bClrStd := {|| {CLR_BLACK, iif((oTbr:cAlias)->(ordkeyno())%2==0,ClrFlbxPar,ClrFlbxImp) } }
END