Conheça Características Quem usa Galeria Cursos Docs Fórum
Downloads
Posts Fique por dentro Sobre o Fórum Minha conta
TDBCombo hierarquia Boa tarde, estou com dificuldades em fazer esse TDBCombo hierarquia funcionar, atê segui um exemplo no tutor, mas deu certo. ...
F
TDBCombo hierarquia  
Felipe B. 21/08/2019 (há 5 anos)
Boa tarde, estou com dificuldades em fazer esse TDBCombo hierarquia funcionar, atê segui um exemplo no tutor, mas deu certo. 

 
  1. <?php>
  2. $ar_item_ar_cod_fil = new TDBCombo('ar_item_ar_cod_fil', $this->database, 'TFilial', 'cod_fil', '{sigla_fil} - {nome_fil}', 'nome_fil asc');
  3.         $ar_item_ar_cod_fil->enableSearch();
  4.         $filter = new TCriteria;
  5.         $filter->add(new TFilter('cod_area', '<', '0'));
  6.         $ar_item_ar_cod_area = new TDBCombo('ar_item_ar_cod_area', $this->database, 'TArea', 'cod_area', 'area', 'area', $filter);
  7.         $ar_item_ar_cod_area->enableSearch();
  8. ?>
 

 
  1. <?php>
  2. public function fireEvents( $object )
  3.     {
  4.         $obj = new stdClass;
  5.         $obj->ar_item_ar_cod_fil      = $object->ar_item_ar_cod_fil;
  6.         $obj->ar_item_ar_cod_area     = $object->ar_item_ar_cod_area;
  7.         TForm::sendData(self::$formName, $obj);
  8.     }
  9.     
  10.     public static function onAreaChange($param)
  11.     {
  12.         try
  13.         {
  14.             TTransaction::open(TSession::getValue('pConfig'));
  15.             if (!empty($param['ar_item_ar_cod_fil']))
  16.             {
  17.                 $criteria = TCriteria::create( ['cod_fil' => $param['ar_item_ar_cod_fil'] ] );
  18.                 
  19.                 // formname, field, database, model, key, value, ordercolumn = NULL, criteria = NULL, startEmpty = FALSE
  20.                 TDBCombo::reloadFromModel(self::$formName, 'ar_item_ar_cod_area', TSession::getValue('pConfig'), 'TArea', 'cod_area', '{cod_area} - {area}', 'area', $criteria);
  21.             }
  22.             else
  23.             {
  24.                 TCombo::clearField(self::$formName, 'ar_item_ar_cod_area');
  25.             }
  26.             
  27.             TTransaction::close();
  28.         }
  29.         catch (Exception $e)
  30.         {
  31.             new TMessage('error', $e->getMessage());
  32.         }
  33.     }
  35. public function onSave($param = null)
  36.     {
  37.         try
  38.         {
  39.             TTransaction::open($this->database);
  41.             $messageAction = null;
  43.             $this->form->validate();
  45.             $object = new TCCusto();
  47.             $data = $this->form->getData();
  49.             $object->fromArray( (array) $data);
  51.             $object->store();
  53.             $ar_item_ar_items = $this->storeItems('TCCustoArea', 'cod_ccusto', $object, 'ar_item_ar',
  54.                 function($masterObject, $detailObject){}
  55.             );
  57.             $data->cod_ccusto = $object->cod_ccusto;
  59.             $this->form->setData($data);
  61.             $this->fireEvents( $object );
  63.             TTransaction::close();
  65.             new TMessage('info', AdiantiCoreTranslator::translate('Record saved'), $messageAction);
  66.         }
  67.         catch (Exception $e)
  68.         {
  69.             new TMessage('error', $e->getMessage());
  70.             $this->form->setData( $this->form->getData() );
  71.             TTransaction::rollback();
  72.         }
  73.     }
  75.     public function onEdit( $param )
  76.     {
  77.         try
  78.         {
  79.             if (isset($param['key']))
  80.             {
  81.                 $key = $param['key'];
  82.                 TTransaction::open(TSession::getValue('pConfig'));
  84.                 $object = new TCCusto($key);
  86.                 $ar_item_ar_items = $this->loadItems('TCCustoArea', 'cod_ccusto', $object, 'ar_item_ar',
  87.                 function($masterObject, $detailObject){}
  88.                 );
  89.                 
  90.                 $this->form->setData($object); 
  91.                 $this->onReload();
  93.                 TTransaction::close();
  95.                 $this->fireEvents( $object );
  96.             }
  97.             else
  98.             {
  99.                 $this->form->clear();
  100.             }
  101.         }
  102.         catch (Exception $e)
  103.         {
  104.             new TMessage('error', $e->getMessage()); 
  105.             TTransaction::rollback(); 
  106.         }
  107.     }
  108. ?>


Ele está dando erro de ficar dando reload tipo de 2 em 2 segundos, e então não dá para selecionar a área. Pois ai, somente após ser selecionado uma filial, listará o combo das áreas, e após selecionar as áreas liberará o campo de sub-área, porém isso é posterior para ser feito.
Imagino eu que seja alguma besteira que esqueci de fazer, mas não estou conseguindo encontrar, se alguém puder tentar ajudar ficarei grato.

Curso Dominando o Adianti Framework

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


Dominando o Adianti Framework Quero me inscrever agora!

Comentários (5)

NR
Nataniel Rabaioli       22/08/2019 (há 5 anos)

Não entendi, o programa fica em loop? Poste o resto do código do construtor
F
Felipe B. - AUTOR DO POST       22/08/2019 (há 5 anos)

Deixa ver se consigo explicar, se eu fizer o mesmo código para atributos da tabela principal, dá tudo certinho, porém se eu eu tentar fazer o mesmo em aba detalhe, ele não deixa eu mudar no tdbcombo, fica em loop sim, ai por isso não estou entendendo, pois fiz em 3 class diferente na aba principal, e esse da aba de detalhe não está funcionando...

eu uso esse código no construtor também para chamar a função que faz o tdb funcionar somente se a filial estiver selecionada: 
 
  1. <?php>$ar_item_ar_cod_area->setChangeAction( new TAction( array($this, 'onAreaChange' )) ); ?>
F
Felipe B. - AUTOR DO POST       22/08/2019 (há 5 anos)

Dei uma resumida no codigo, está tudo aqui agora: 
 
  1. <?php>class TPluvLocalForm extends TPage
  2. {
  3.     protected $form;
  4.     private $formFields = [];
  5.     private $database;
  6.     private static $activeRecord = 'TPluvLocal';
  7.     private static $primaryKey = 'cod_pluv_local';
  8.     private static $formName = 'form_TPluvLocal';
  9.     
  10.     use Adianti\Base\AdiantiMasterDetailTrait;
  12.     function __construct()
  13.     {
  14.         parent::__construct();
  15.         
  16.         $this->database = TSession::getValue('pConfig');
  17.         $this->form = new BootstrapFormBuilder(self::$formName);
  18.         $this->form->setFormTitle('AGR - Formulário de Pluviômetro');
  20.         $cod_pluv_local = new TEntry('cod_pluv_local');
  21.         $cod_prop  = new TDBCombo('cod_prop', $this->database, 'TProp', 'cod_prop', '{cod_prop} - {nome_prop}', 'nome_prop asc');
  22.         $cod_prop->enableSearch();
  23.         $filter = new TCriteria;
  24.         $filter->add(new TFilter('cod_fil', '<', '0'));
  25.         $cod_fil  = new TDBCombo('cod_fil', $this->database, 'TFilial', 'cod_fil', '{cod_fil} - {nome_fil}', 'nome_fil asc',$filter);
  26.         $cod_fil->enableSearch();
  27.        filter = new TCriteria;
  28.         $filter->add(new TFilter('cod_fil', '<', '0'));
  29.         $cod_fil  = new TDBCombo('cod_fil', $this->database, 'TFilial', 'cod_fil', '{cod_fil} - {nome_fil}', 'nome_fil asc',$filter);
  30.         $filter = new TCriteria;
  31.         $filter->add(new TFilter('cod_area', '<', '0'));
  32.         $cod_area  = new TDBCombo('cod_area', $this->database, 'TArea', 'cod_area', '{cod_area} - {area}', 'area asc');
  33.         $cod_sub_area  = new TDBCombo('cod_sub_area', $this->database, 'TAreaSub', 'cod_sub_area', '{cod_sub_area} - {sub_area}', 'sub_area asc');
  35.         $this->form->addFields( [ new TLabel('ID') ], [ $cod_pluv_local ]);
  36.         $this->form->addFields( [ new TLabel('Prop.') ], [ $cod_prop ], [ new TLabel('Filial') ], [ $cod_fil ] );
  37.         $this->form->addFields( [ new TLabel('Área') ], [ $cod_area ], [ new TLabel('Sub-Área') ], [ $cod_sub_area ] );
  39.         $cod_pluv_local->setEditable(FALSE);
  40.         
  41.         $cod_prop->setChangeAction( new TAction( array($this, 'onProprietarioChange' )) );
  42.         $cod_area->setChangeAction( new TAction( array($this, 'onAreaChange' )) );
  43.         $cod_sub_area->setChangeAction( new TAction( array($this, 'onAreaSubChange' )) );
  45.         $btn = $this->form->addAction(_t('Save'), new TAction([$this, 'onSave']), 'fa:floppy-o');
  46.         $btn->class = 'btn btn-sm btn-primary';
  47.         $this->form->addAction(_t('New'),  new TAction([$this, 'onEdit']), 'fa:eraser red');
  48.         $this->form->addAction( _t('List'), new TAction(array('TPluvLocalList','onReload')),  'fa:table blue' );
  50.         $container = new TVBox;
  51.         $container->style = 'width: 100%';
  52.         $container->class = 'form-container';
  53.         $container->add($this->form);
  54.         
  55.         parent::add($container);
  56.     }
  58.     public function fireEvents( $object )
  59.     {
  60.         $obj = new stdClass;
  61.         $obj->cod_prop     = $object->cod_prop;
  62.         $obj->cod_fil      = $object->cod_fil;
  63.         $obj->cod_area     = $object->cod_area;
  64.         $obj->cod_sub_area = $object->cod_sub_area;
  65.         TForm::sendData(self::$formName, $obj);
  66.     }
  68.     public static function onProprietarioChange($param)
  69.     {
  70.         try
  71.         {
  72.             TTransaction::open(TSession::getValue('pConfig'));
  73.             if (!empty($param['cod_prop']))
  74.             {
  75.                 $criteria = TCriteria::create( ['cod_prop' => $param['cod_prop'] ] );
  76.                 TDBCombo::reloadFromModel(self::$formName, 'cod_fil', TSession::getValue('pConfig'), 'TFilial', 'cod_fil', '{cod_fil} - {nome_fil}', 'nome_fil', $criteria);
  77.             }
  78.             else
  79.             {
  80.                 TCombo::clearField(self::$formName, 'cod_fil');
  81.             }
  82.             
  83.             TTransaction::close();
  84.         }
  85.         catch (Exception $e)
  86.         {
  87.             new TMessage('error', $e->getMessage());
  88.         }
  89.     }
  91.     public static function onAreaChange($param)
  92.     {
  93.         try
  94.         {
  95.             TTransaction::open(TSession::getValue('pConfig'));
  96.             if (!empty($param['cod_fil']))
  97.             {
  98.                 $criteria = TCriteria::create( ['cod_fil' => $param['cod_fil'] ] );
  99.                 TDBCombo::reloadFromModel(self::$formName, 'cod_area', TSession::getValue('pConfig'), 'TArea', 'cod_area', '{cod_area} - {area}', 'area', $criteria);
  100.             }
  101.             else
  102.             {
  103.                 TCombo::clearField(self::$formName, 'cod_area');
  104.             }
  105.             
  106.             TTransaction::close();
  107.         }
  108.         catch (Exception $e)
  109.         {
  110.             new TMessage('error', $e->getMessage());
  111.         }
  112.     }
  114.     public static function onAreaSubChange($param)
  115.     {
  116.         try
  117.         {
  118.             TTransaction::open(TSession::getValue('pConfig'));
  119.             if (!empty($param['cod_area']))
  120.             {
  121.                 $criteria = TCriteria::create( ['cod_area' => $param['cod_area'] ] );
  122.                 TDBCombo::reloadFromModel(self::$formName, 'cod_sub_area', TSession::getValue('pConfig'), 'TAreaSub', 'cod_sub_area', '{cod_sub_area} - {sub_area}', 'sub_area', $criteria);
  123.             }
  124.             else
  125.             {
  126.                 TCombo::clearField(self::$formName, 'cod_sub_area');
  127.             }
  128.             
  129.             TTransaction::close();
  130.         }
  131.         catch (Exception $e)
  132.         {
  133.             new TMessage('error', $e->getMessage());
  134.         }
  135.     }
  137.     public function onSave( $param )
  138.     {
  139.         try
  140.         {
  141.             TTransaction::open($this->database);
  143.             $data = $this->form->getData();
  145.             $this->form->validate();
  146.             
  147.             $object = new TPluvLocal;
  149.             $object->fromArray( (array) $data);
  151.             $object->store();
  152.             
  153.             $data->cod_pluv_local = $object->cod_pluv_local;
  154.             
  155.             $this->form->setData($data);
  156.             
  157.             $this->fireEvents( $object );
  158.             
  159.             TTransaction::close();
  160.             
  161.             new TMessage('info', TAdiantiCoreTranslator::translate('Record saved'));
  162.         }
  163.         catch (Exception $e)
  164.         {
  165.             new TMessage('error', $e->getMessage());
  166.             $this->form->setData( $this->form->getData() );
  167.             TTransaction::rollback();
  168.         }
  169.     }
  171.     public function onEdit( $param )
  172.     {
  173.         try
  174.         {   
  175.             if(isset($param['cod_pluv_local']))
  176.             {
  177.                 TTransaction::open(TSession::getValue('pConfig'));
  178.                 $tpluvlocal = new TPluvLocal($param['cod_pluv_local']);
  179.                 TTransaction::close();
  181.                 unset($tpluvlocal->cod_pluv_local);
  183.                 $this->form->setData($tpluvlocal);
  184.             }
  185.             if (isset($param['key']))
  186.             {
  187.                 $key = $param['key'];
  188.                 TTransaction::open($this->database);
  189.                 $object = new TPluvLocal($key);
  191.                 $this->form->setData($object); 
  193.                 TTransaction::close();
  194.                 
  195.                 $this->fireEvents( $object );
  196.             }
  197.             else
  198.             {
  199.                 $this->form->clear();
  200.             }
  201.         }
  202.         catch (Exception $e)
  203.         {
  204.             new TMessage('error', $e->getMessage());
  205.             TTransaction::rollback();
  206.         }
  207.     }
  208. }?>
NR
Nataniel Rabaioli       23/08/2019 (há 5 anos)

Testei seu código e rodou normal aqui. Só fiz um pequeno ajuste nas chamadas das exitAction: 
 
  1. <?php
  2. //$cod_prop->setChangeAction( new TAction( array($this, 'onProprietarioChange' )) );
  3. //$cod_area->setChangeAction( new TAction( array($this, 'onAreaChange' )) );
  4. //$cod_sub_area->setChangeAction( new TAction( array($this, 'onAreaSubChange' )) );
  6. $cod_prop->setChangeAction( new TAction( array($this, 'onProprietarioChange' )) );
  7. $cod_fil->setChangeAction( new TAction( array($this, 'onAreaChange' )) );
  8. $cod_area->setChangeAction( new TAction( array($this, 'onAreaSubChange' )) );
  9. ?>

Você estava vinculando uma ação de saída(onAreaChange) ao campo $cod_area, e dentro da função onAreaChange estava verificando pelo campo cod_fil para preencher o próprio campo $cod_area. Imagino que o vínculo com onAreaChange deva ser com o campo $cod_fil, assim ao escolher uma filial o campo área será recarregado filtrando pela filial escolhida.
F
Felipe B. - AUTOR DO POST       23/08/2019 (há 5 anos)

Nossa, verdade... Obrigado Nataniel, ajudou muito!
Resolvido.
Abraço.