In the following source code, how can I define a super header?
- Code: Select all Expand view
REDEFINE XBROWSE oBrw ID 200 OF oDlg;
DATASOURCE oRsHdr ;
COLUMNS "HDR_FOL","Date2Text(HDR_FDV)","HDR_TOU","HDR_TOV","HDR_TOU","HDR_TOV","HDR_CAN";
HEADERS "Folio","Fecha","Cantidad","Importe","Cantidad","Importe","Can";
COLSIZES 65,80,110,110,110,110;
PICTURES "@Z 9999999",NIL,"@Z 9,999,999.999","@Z 999,999,999.99","@Z 9,999,999.999","@Z 999,999,999.99",NIL;
JUSTIFY {AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_CENTER};
FOOTERS AUTOSORT BACKGROUND "Lineas"
WITH OBJECT oBrw
:l2007 := (.F.)
:lHScroll := (.F.)
:lVScroll := (.F.)
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:nHeaderHeight := 25
:nRowHeight := 22
:nFooterHeight := 25
:bClrHeader := { || {CLR_WHITE,CLR_BLACK} }
:bClrFooter := { || {CLR_WHITE,CLR_BLACK} }
:bClrSel := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
:bClrSelFocus := { || {oApp:nFClrFocus,oApp:nBClrFocus} }
:bClrStd := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
:nRecSelColor := oApp:nRowParClr
:lDisplayZeros := (.F.) // zero values are not displayed. Added by GNRao. No need to use @Z
:blDblClick := { | nRow, nCol, nKey | (Editar(oBrw,(.F.)),oBrw:SetFocus())}
:bKeyDown := { | nKey, nFlags | IIF(nKey == VK_RETURN,(Editar(oBrw,(.F.)),oBrw:SetFocus()),)}
WITH OBJECT :aCols[01]
:cOrder := "A"
END
WITH OBJECT :aCols[05]
:SetCheck( { "SI16","NO16" } )
END
END
Regards
