Base de Conhecimento

Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL - TCheckBox como validar se o mesmo foi marcado ou não

Dúvida
TCheckBox como validar se o mesmo foi marcado ou não?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL – Todas versões

Solução
A propriedade LMODIFIED traz a informação se foi modificado.

Exemplo:

#include "TOTVS.CH"
User Function Box()

  Local oDlg, oPanel,oCheck1,oCheck2, oCheck3

  lCHECK_1 := .F.
  cCHECK_1 := "Check numero 1"

  lCHECK_2 := .F.
  cCHECK_2 := "Check numero 2"

lCHECK_3 := .F.
  cCHECK_3 := "Check numero 3"

  DEFINE MSDIALOG oDlg TITLE "Teste check" FROM 200,1 TO 620,600 PIXEL //Montagem da tela
  oPanel:= TPanel():New(0, 0, "", oDlg,, .F., .F.,,, 0, 0) //Criação do painel 

  oCheck1:= TCheckBox():New(10,10,cCHECK_1,bSETGET(lCHECK_1),oPanel,215,10,,,,,,,,.T.)

  //Bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto.
  oCheck1:bLClicked := {|| u_tstChk(oCheck1,lCHECK_1)}

  oCheck2:=TCheckBox():New(19,10,cCHECK_2,bSETGET(lCHECK_2),oPanel,215,10,,,,,,,,.T.)
  oCheck2:bLClicked := {||u_tstChk(oCheck2, lCHECK_2)}

  oCheck3:=TCheckBox():New(28,10,cCHECK_3,bSETGET(lCHECK_3),oPanel,215,10,,,,,,,,.T.)
  oCheck3:bLClicked := {|| u_tstChk(oCheck3,lCHECK_3)}

  oPanel:Align:= CONTROL_ALIGN_ALLCLIENT

  ACTIVATE DIALOG oDlg CENTERED
Return

//Função que irá verificar se houve modificação o clique do check 
User Function tstChk(oCheck, lCHECK)

  If valType(oCheck) <> "U"
    If oCheck:lModified //Verifica se foi alterado
      msgInfo("Ação de check no: " + oCheck:cTitle + " Estado: "+cValToChar(lCHECK))
    EndIf
  Endif

Return .T.


Saiba mais
ADV0070 Tcheckbox

Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _