PC Toledo

Código: Selecionar todos

nColuna:=oBrowse:ColPos

Código: Selecionar todos

   oLbxP1:bTextColor    := {|nRow,nCol| iif(ESTOQUE->INATIVO="X",nRGB(232,232,232),iif(nCol=2.and.nRow>0,MostraSCores(),iif(nCol=iif(OrdNumber()=3,5,6).and.nRow>0,MostraACores(),))) }
   oLbxP1:bbkColor      := {|nRow,nCol| ;
                                     if(nCol=2,PintaStatus(nRow,nCol,8),;
                                     if(nCol=9,PintaCelula(nRow,nCol,9),;
                                     if(nCol=iif(OrdNumber()=3,5,6).and.nRow>0,nRGB(255,255,255),)))}

static function MostraACores()
      if ESTOQUE->INATIVO="X"                 // Inativo
         return nCLRAzul
      else
         if ESTOQUE->MALAOK="X"               // Selecionado
            return nCLRVerde
         else
            return CLR_BLACK  // CLR_GRAY
         endif
      endif
   return nil

function PintaStatus( _nRow_, _nCol_, _qCol_ )
   Local nCor := nRGB(049,049,049) // nRGB(255,255,255)
   //"LANCAMENTO", "NOVISSIMO", "NOVO", "NORMAL", "ANTIGO", "DESCONTINUADO"
   do case
      case alltrim(ESTOQUE->SITUACAO) = "LANCAMENTO"      // ROXO
           nCor := nRGB(128,000,255)
      case alltrim(ESTOQUE->SITUACAO) = "NOVISSIMO"         // VERMELHO
           nCor := nRGB(255,000,000)
      case alltrim(ESTOQUE->SITUACAO) = "NOVO"                  // ROSINHA
           nCor := nRGB(255,000,128)
      case alltrim(ESTOQUE->SITUACAO) = "ANTIGO"               // LARANJA LIMA
           nCor := nRGB(255,255,128)
      case alltrim(ESTOQUE->SITUACAO) = "DESCONTINUADO" // AMARELO
           nCor := nRGB(255,255,000)
      otherwise
           nCor := nRGB(133,196,041)
   endcase
   return nCor

function PintaCelula( _nRow_, _nCol_, _qCol_ )
   Local nCor := nRGB(049,049,049) // nRGB(234,255,228)
   if _nRow_ > 0
      nCor := nRGB(000,255,128) // nRGB(000,255,000)
      if ESTOQUE->QUANTIDADE <= ESTOQUE->MINIMO
         if _nCol_ = _qCol_ .and. _nRow_ > 1
            nCor := nRGB(255,238,238) //
            nCor := nRGB(255,065,084) // nRGB(255,000,000)
         endif
      else
         if ESTOQUE->QUANTIDADE <= ESTOQUE->PP .AND. ;
            ESTOQUE->QUANTIDADE > ESTOQUE->MINIMO
            if _nCol_ = _qCol_ .and. _nRow_ > 1
               nCor := nRGB(236,253,255) //
               nCor := nRGB(255,255,128) // nRGB(255,255,000)
            endif
         endif
      endif
   endif
   return nCor