Resposta da procura (TSeekButton) para TCheckButton e TRadioGrou

Resposta da procura (TSeekButton) para TCheckButton e TRadioGrou Boa tarde pessoal! Gostaria de saber se existe alguma forma de após realizar a pesquisa utilizando um TSeekButton, enviar a resposta ($object) de forma que os TCheckButton e TRadioGroup sejam alterados. Com os TEntry funciona mas com estes objetos não está funcionando para mim. Obrigado!...

Fechado

Mailson da Silva 04/11/2013 (há 10 anos)

Boa tarde pessoal! Gostaria de saber se existe alguma forma de após realizar a pesquisa utilizando um TSeekButton, enviar a resposta ($object) de forma que os TCheckButton e TRadioGroup sejam alterados. Com os TEntry funciona mas com estes objetos não está funcionando para mim.
Obrigado!

Pacotão Dominando o Adianti Framework 7

O material mais completo de treinamento do Framework.
Curso em vídeo aulas + Livro completo + Códigos fontes do projeto ERPHouse.
Conteúdo Atualizado! Versão 7.4

Dominando o Adianti 7 Quero me inscrever agora!

Comentários (9)

Alexandre Evangelista de Souza 05/11/2013 (há 10 anos)

posta o codigo

Mailson da Silva - AUTOR DO POST 05/11/2013 (há 10 anos)

Na verdade o problema é que ele não está gravando valores de TCheckButton. Acredito que esta função não está implementada no framework, seria isso mesmo? Abaixo segue o código gerado automaticamente pelo Adianti Studio Pro.

<?php
/**
* tmoduloForm Registration
* @author Mailson
*/
class tmoduloForm extends TPage
{
protected $form; // form
protected $notebook;
/**
* Class constructor
* Creates the page and the registration form
*/
function __construct()
{
parent::__construct();
// creates the notebook
$this->notebook = new TNotebook;
$this->notebook->setSize(500, 300);
$scroll = new TScroll;
$scroll->setSize(490, 290);
$scroll->setTransparency(TRUE);
// creates the table container
$table = new TTable;
// creates the form
$this->form = new TForm('form_tmodulo');
$this->notebook->appendPage(_t('Data'), $scroll);
$scroll->add($table);
// add the notebook inside the form
$this->form->add($this->notebook);
// create the form fields
$id = new TEntry('id');
$Codigo = new TEntry('Codigo');
$Descricao = new TEntry('Descricao');
$DispPara = new TEntry('DispPara');
$Status = new TCheckButton('Ativo');
// define the sizes
$id->setSize(100);
$Codigo->setSize(200);
$Descricao->setSize(200);
$DispPara->setSize(200);
$Status->setSize(200);
// validations
$id->addValidation('id', new TRequiredValidator);
// add a row for the field id
$row=$table->addRow();
$row->addCell(new TLabel('id:'));
$row->addCell($id);
// add a row for the field Codigo
$row=$table->addRow();
$row->addCell(new TLabel('Codigo:'));
$row->addCell($Codigo);
// add a row for the field Descricao
$row=$table->addRow();
$row->addCell(new TLabel('Descricao:'));
$row->addCell($Descricao);
// add a row for the field DispPara
$row=$table->addRow();
$row->addCell(new TLabel('DispPara:'));
$row->addCell($DispPara);
// add a row for the field Status
$row=$table->addRow();
$row->addCell(new TLabel('Status:'));
$row->addCell($Status);
// create an action button (save)
$save_button=new TButton('save');
// define the button action
$save_button->setAction(new TAction(array($this, 'onSave')), _t('Save'));
$save_button->setImage('ico_save.png');
$this->form->setFields(array($id,$Codigo,$Descricao,$DispPara,$Status,$save_button));
$container = new TTable;
$container->addRow()->addCell($this->form);
$container->addRow()->addCell($save_button);
// add the form to the page
parent::add($container);
}
/**
* method onSave()
* Executed whenever the user clicks at the save button
*/
function onSave()
{
try
{
// open a transaction with database 'datalan'
TTransaction::open('datalan');
// get the form data into an active record tmodulo
$object = $this->form->getData('tmodulo');
// form validation
$this->form->validate();
// stores the object
$object->store();
// fill the form with the active record data
$this->form->setData($object);
// close the transaction
TTransaction::close();
// shows the success message
new TMessage('info', TAdiantiCoreTranslator::translate('Record saved'));
// reload the listing
}
catch (Exception $e) // in case of exception
{
// shows the exception error message
new TMessage('error', '<b>Error</b> ' . $e->getMessage());
// undo all pending operations
TTransaction::rollback();
}
}
/**
* method onEdit()
* Executed whenever the user clicks at the edit button da datagrid
*/
function onEdit($param)
{
try
{
if (isset($param['key']))
{
// get the parameter $key
$key=$param['key'];
// open a transaction with database 'datalan'
TTransaction::open('datalan');
// instantiates object tmodulo
$object = new tmodulo($key);
// fill the form with the active record data
$this->form->setData($object);
// close the transaction
TTransaction::close();
}
else
{
$this->form->clear();
}
}
catch (Exception $e) // in case of exception
{
// shows the exception error message
new TMessage('error', '<b>Error</b> ' . $e->getMessage());
// undo all pending operations
TTransaction::rollback();
}
}
}
?>

Alexandre Evangelista de Souza 05/11/2013 (há 10 anos)

então eu não uso o stuio não fasso na mão mesmo mas tenta ver se ele peg os dados do form usando isso

<?php
function onSave($param){
$frm = $this->form->getData();
new TMessage('info',$frm->Ativo);
}
ve se mostra alguma coisa na msg de erro

Mailson da Silva - AUTOR DO POST 05/11/2013 (há 10 anos)

Obrigado pelo apoio Alexandre. Com esse código, se "Status" estiver marcado aparece "on" senão fica em branco, porém no banco sempre grava null. Bem...com alguns "if" no "onSave" e "onEdit" eu consegui fazer essa parte funcionar, ficou gravando, beleza. Mas então se eu colocar uma busca (TSeekButton) no "id" para carregar todo o form inclusive o "Status" que é o check também terei que fazer uma função para substituir o "TForm::sendData()", certo? Concluí isso porque no sendData temos apenas um

<?php
$script->add( " try { document.{$form_name}.{$field}_{$property}.value = '{$data}'; } catch (e) { } " );
?>

isso significa que é considerado apenas ".value" para "text", para "check" seria ".check".

Alexandre Evangelista de Souza 05/11/2013 (há 10 anos)

então é um seguinte, quando ele fica em branco manda null para o banco, voce deveria ter deixando um valor default no banco caso o valor seja nulo, você pode fazer a função edit normal.

tenta ai qualquer coisa cola o codigo aqui.

abraços

Mailson da Silva - AUTOR DO POST 06/11/2013 (há 10 anos)

A parte do banco de dados ficou certinho. Mas na parte da consulta por um TSeekButton eu tive que modificar a função TForm::sendData() para carregar também o "checkbutton". Apenas modifiquei o script e adicionei um teste para chekcbox. Funcionou certinho.

<?php
//Mailson Datalan - Alterado para também carregar checkboxes
$script->add("try { if (document.{$form_name}.{$field}.getAttribute('type') == 'checkbox') " .
"document.{$form_name}.{$field}.checked = {$this->nvl($value)}; " .
"else " .
"document.{$form_name}.{$field}.value = '{$value}'; " .
"} catch (e) { } "
);
?>

Pablo Dall'Oglio 20/11/2013 (há 10 anos)

Oi Mailson,

Estou implementando algumas coisas a respeito para a próxima versão.
Realmente com TCheckGroup ainda não tinha utilizado.
Vou analisar seu código e fazer alguns testes.
Se tudo estiver ok, será uma contribuição bem vinda :-)

abraços,
Pablo

Adriano Chaves Teodoro 24/07/2014 (há 9 anos)

Olá Pessoal,

Estou com o mesmo problema do Mailson, porém não consegui resolver ainda por ter menos experiencia com web, o componente do framework TCheckButton não trabalha corretamente com banco de dados, tenho dois campos em meu TPage que são:

<?php
$cad_usuarios = new TCheckButton('cad_usuarios');
$cad_perfis = new TCheckButton('cad_perfis');
?>

Quando checados eles gravam TRUE no meu campo no banco de dados PostgreSQL, campo do tipo Boolean e quando desmarcados o campo fica VAZIO, porem não consigo replicar isso em tela! Ou seja, no meu evento onEdit quando o usuário clica em um registro na grid eu gostaria de atualizar os meus checks porem não acontece de forma automática, acho que o framework não trata isso, alterei o meu código de TForm::sendData alterando o script de JS para o do Mailson e chamando o mesmo em função externa, a chama esta no onEdit:

<?php
setValue_cad_usuarios($object->cad_usuarios);
setValue_cad_perfis($object->cad_perfis);
?>

e a função é a:

<?php
function setValue_cad_usuarios($param)
{
$obj = new StdClass;
$obj->cad_usuarios = $param;
TForm::sendData('form_Perfil', $obj);
}
function setValue_cad_perfis($param)
{
$objp = new StdClass;
$objp->cad_perfis = $param;
TForm::sendData('form_Perfil', $objp);
}
?>

Vocês podem me ajudar?

Obrigado

Pablo Dall'Oglio 03/08/2014 (há 9 anos)

Oi Adriano,

Em primeiro lugar os componentes TCheckButton e TRadioButton, não foram projetados para serem usados diretamente em um formulário, mas para serem usados dentro de um TCheckGroup ou TRadioGroup. Não faz muito sentido usar somente 1 check ou somente 1 radio. Pense um usar então uma combo com opções Sim/Não, ou um RadioGroup. Neste caso em que você precisa mudar os valores via ajax, sugiro usar TCombo.

Aqui tem um exemplo de como alterar os valores de uma combo usando o TForm::sendData():
www.adianti.com.br/doc-framework-Presentation-Forms-FormInteractions

Att,
Pablo