eUpdate - canal eletrônico de informação e atualização sobre o mundo DataFlex

DICA TÉCNICA:
Colocando colunas da grid em Shadow
ao clicar no checkbox

Há diversas formas de colocarmos colunas da grid em Shadow. Nessa matéria, mostraremos como colocar duas colunas específicas da grid em Shadow, simultaneamente, ao marcar um objeto CheckBox.

Para demonstrarmos como isso pode ser feito, criamos uma view contendo uma dbGrid para exibir os dados referentes à tabela de Despesas.

A coluna “Pago” foi definida como CheckBox e possui valor padrão “N” (não).

Para que o procedimento funcione corretamente é necessário definir duas procedures: Entry_Display e Select_Toggling.

A procedure Entry_Display é responsável por carregar os valores na grid ao executar a view. Em nosso exemplo, ao ser executada, a procedure Entry_Display verificará cada item para saber se seu valor deve estar em Shadow ou não.

Já a procedure Select_Toggling é usada quando desejamos que os atributos definidos para uma coluna sejam alterados simultaneamente ao clicar na coluna definida como CheckBox. Ou seja, os valores são gravados no momento em que o usuário marca / desmarca o checkbox.

Para implementarmos estas configurações em nosso exemplo, utilizamos o código abaixo, definido dentro do objeto dbGrid. A propriedade Item_Shadow_State foi usada para configurar os itens como Shadow:

Procedure Entry_Display Integer iArq Integer iMode
    Forward Send Entry_Display iArq iMode
    Integer iBase

    Get Base_Item to iBase
    // Base_Item: número da primeira célula da linha atual

    If (Despesas.Pago = "S") Begin
    // Caso o checkbox esteja marcado, Forma_Pagto e Data_Pagto
    // ficam em shadow
        Set Item_Shadow_State Item (iBase + 3) to True
        Set Item_Shadow_State Item (iBase + 4) to True
        End
        Else Begin
            Set Item_Shadow_State Item (iBase + 3) to False
            Set Item_Shadow_State Item (iBase + 4) to False
        End
End_Procedure // Entry_Display


Procedure Select_Toggling Integer Item_Number Integer Select_State
    Forward Send Select_Toggling Item_Number Select_State
    String sValor
    Integer iBase

    Get Base_Item to iBase
    //Base_Item: número da primeira célula da linha atual

    Get Field_Current_Value of Despesas_DD Field Despesas.Pago ;
        to sValor
    // Verifica o valor atual da coluna Pago

        If (sValor = "S") Begin
        // Caso o checkbox tenha sido marcado, Forma_Pagto e
        // Data_Pagto ficam em shadow automaticamente
        Set Item_Shadow_State Item (iBase + 3) to True
        Set Item_Shadow_State Item (iBase + 4) to True
        End
        Else Begin
            Set Item_Shadow_State Item (iBase + 3) to False
            Set Item_Shadow_State Item (iBase + 4) to False
        End
        Send Save_Row
End_Procedure

Abaixo, o resultado esperado:

Fontes de Referência:

• Knowledge Base Brasil – código 376:
  Colocando células de objeto [db]Grid em Shadow
  http://www.4developers.com.br/kbase_zoom.asp?Codigo=376

• Knowledge Base Brasil – código 596:
  Colocando células de objeto dbGrid em Shadow conforme valor digitado em uma célula anterior
  http://www.4developers.com.br/kbase_zoom.asp?Codigo=596

• Knowledge Base Brasil – código 776:
  Como interceptar a alteração de um objeto [db]CheckBox
  http://www.4developers.com.br/kbase_zoom.asp?Codigo=776

• Knowledge Base Brasil – código 382:
  Gravar o registro automaticamente ao mudar uma coluna checkbox da dbGrid
  http://www.4developers.com.br/kbase_zoom.asp?Codigo=382

• voltar ao menu