dúvida xbrowse

[Somzeira]

Olá pessoal,

Tenho um xbrowse que contem vários campos dentre eles um chamado ARQBOL->NUMERO, gostaria de exibir no final do conteúdo desse campo um bitmap se por acaso existir em outro arquivo o registro de mesmo conteúdo do campo. O outro arquivo é o ANOTABOL->BOLETO.

Obrigado. 

[oliveiros]

Olá, 

É simples. 

  oCol                         := oBrowse:AddCol()
  oCol:nWidth            := 30
  oCol:cHeader          := "Situação"
  oCol:oHeaderFont   := oFonte5 
  oCol:nHeadStrAlign := AL_CENTER
  oCol:AddResource( "FALTA" )                           // Imagem do rc - 1
  oCol:AddResource( "FALTA_JUSTIFICADA" )  // Imagem do rc - 2
  oCol:AddResource( "AULA" )                            // Imagem do rc - 3
  oCol:bBmpData      := { || IIf( financeiro->situacao_cobranca = "01", 1, ;
                                            IIf( financeiro->situacao_cobranca = "02", 2, 3 ) ) }

 

Att.,

Oliveiros Junior

[Somzeira]

24 minutos atrás, oliveiros disse:

Olá, 

É simples. 

  oCol                         := oBrowse:AddCol()
  oCol:nWidth            := 30
  oCol:cHeader          := "Situação"
  oCol:oHeaderFont   := oFonte5 
  oCol:nHeadStrAlign := AL_CENTER
  oCol:AddResource( "FALTA" )                           // Imagem do rc - 1
  oCol:AddResource( "FALTA_JUSTIFICADA" )  // Imagem do rc - 2
  oCol:AddResource( "AULA" )                            // Imagem do rc - 3
  oCol:bBmpData      := { || IIf( financeiro->situacao_cobranca = "01", 1, ;
                                            IIf( financeiro->situacao_cobranca = "02", 2, 3 ) ) }

 

Att.,

Oliveiros Junior

Então do jeito que vc mostrou seria para o campo no mesmo arquivo mas veja só o browser é de um arquivo e preciso exibir o bitmap de acordo se exisitir em outro arquivo.

Obrigado.

[Jmsilva]

WITH OBJECT oBrw:oCol(1)  //1=COLUNA QUE VC DEFINE
      :AddBmpHandle(LoadBitmap(GetResources(),"BITMAP")) //OU :AddResource( "BITMAP" )   
      :nDataBmpAlign := AL_RIGHT
      :bBmpData := {|| IIF(ANOTABOL->(DBSEEK(ARQBOL->NUMERO)),1,0)}
   END

[Somzeira]

4 horas atrás, Jmsilva disse:

WITH OBJECT oBrw:oCol(1)  //1=COLUNA QUE VC DEFINE
      :AddBmpHandle(LoadBitmap(GetResources(),"BITMAP")) //OU :AddResource( "BITMAP" )   
      :nDataBmpAlign := AL_RIGHT
      :bBmpData := {|| IIF(ANOTABOL->(DBSEEK(ARQBOL->NUMERO)),1,0)}
   END

Funcionou perfeitamente! Muito obrigado!