Código: Seleccionar todo
//------------------------------------------------------------------------------
METHOD FormInitialize( oSender ) CLASS TFormExistencias
::oFontNegrita:= TFont():Create( "Droid Sans", 10, 0, 700 )
RETURN Nil
//------------------------------------------------------------------------------
METHOD DetalleSucursales() CLASS TFormExistencias
::oMemDSItems:GoTop()
WITH OBJECT ::oBrwExistencias
:nMarqueeStyle := bmHIGHLCELL
:nColDividerStyle:= blLIGHTGRAY
nLenTalla:= Len( :aCols )
FOR nItem:= 1 TO nLenTalla
IF nItem > 2
:aCols[nItem]:cPicture:= "@Z 99,999,999"
:aCols[nItem]:nWidth := 55
:aCols[nItem]:nAlignment:= taRIGHTHEADERCENTER
:aCols[nItem]:OnDrawCell:= "PintaCelda"
ENDIF
NEXT
END WITH
RETURN NIL
//------------------------------------------------------------------------------
METHOD PintaCelda( oSender, cText, nClrText, nClrPane, lHighLite, hDC, aRect ) CLASS TFormExistencias
IF ::oMemDSItems:EMPRESA == " T O T A L"
SelectObject( hDC, ::oFontNegrita:Handle )
IF !lHighLite
nClrPane := clYellow
ENDIF
ENDIF
RETURN NIL
