Xailer & OZ Software

// Despues de crear el browse
FOR i:=1 to LEN(::oDBBrowseVentas:aCols)
::oDBBrowseVentas:aCols:OnDrawCell := { |oSender,
cTxt,cClrTxt,cClrPn,lH,hDc,aRect| Self:PintarCelda(@oSender,
@cTxt,@cClrTxt,@cClrPn,@lH,@hDc,@aRect) }
NEXT
//---
METHOD PintarCelda(oSender, cTxt,cClrTxt,cColorCelda,lH,hDc,aRect) CLASS
TReporteVentas
//---
IF ::oDBBrowseVentas:oDataSet:id_estado == 2
cColorCelda:=::clrPendiente
ELSEIF ::oDBBrowseVentas:oDataSet:id_estado == 4
cColorCelda:=::clrFaltante
ENDIF
RETURN NIL
Atte. Carlos Ortiz.
Assist Informática