I
Operação com TWindows
Caros colegas,
Peço ajuda a comunidade para conseguir realizar um processo que até então deveria ser simples, criei um formulário do tipo TStandardList para seleção de registros via Adianti Studio e funciona exatamente como minha necessidade, só que dentro da TWindow que ele cria, preciso colocar além da grade que já é montada 01 campo TDate, 01 TDBCombo e 01 TButton e que ele chame A função onReceber no TWindow. Alguem tem alguma ideia?
Agradeço
public function showResults()
{
$datagrid = new BootstrapDatagridWrapper(new TQuickGrid);
$datagrid->addQuickColumn('Código', 'ID', 'right');
$datagrid->addQuickColumn('Contrato', 'ID_CONTR_VENDA', 'right');
$datagrid->addQuickColumn('Data', 'DATA_VR', 'left');
$datagrid->addQuickColumn('Vlr Total', 'VLR_TOTAL', 'right');
// create the datagrid model
$datagrid->createModel();
$selected_objects = TSession::getValue(__CLASS__.'_selected_objects');
ksort($selected_objects);
if ($selected_objects)
{
$datagrid->clear();
foreach ($selected_objects as $selected_object)
{
$datagrid->addItem( (object) $selected_object );
}
}
$win = TWindow::create('Realizar baixa', 0.6, 0.6);
$win->add($datagrid);
$win->add(MEUS NOVOS CAMPOS);
$win->show();
}
public function onReceber($param)
{
$selected_objects = TSession::getValue(__CLASS__.'_selected_objects');
ksort($selected_objects);
if ($selected_objects)
{
foreach ($selected_objects as $selected_object)
{
TTransaction::open($AcessoCliente);
$object = new CCadm($selected_object['ID']); // Carrega o objeto
$object->DATA_RP = MEU CAMPO DATA DO TWINDOW;
$object->FORMAPR = MINHA SELEÇÃO DO COMBO DO TWINDOW;
$object->store;
}
}
}
Peço ajuda a comunidade para conseguir realizar um processo que até então deveria ser simples, criei um formulário do tipo TStandardList para seleção de registros via Adianti Studio e funciona exatamente como minha necessidade, só que dentro da TWindow que ele cria, preciso colocar além da grade que já é montada 01 campo TDate, 01 TDBCombo e 01 TButton e que ele chame A função onReceber no TWindow. Alguem tem alguma ideia?
Agradeço
public function showResults()
{
$datagrid = new BootstrapDatagridWrapper(new TQuickGrid);
$datagrid->addQuickColumn('Código', 'ID', 'right');
$datagrid->addQuickColumn('Contrato', 'ID_CONTR_VENDA', 'right');
$datagrid->addQuickColumn('Data', 'DATA_VR', 'left');
$datagrid->addQuickColumn('Vlr Total', 'VLR_TOTAL', 'right');
// create the datagrid model
$datagrid->createModel();
$selected_objects = TSession::getValue(__CLASS__.'_selected_objects');
ksort($selected_objects);
if ($selected_objects)
{
$datagrid->clear();
foreach ($selected_objects as $selected_object)
{
$datagrid->addItem( (object) $selected_object );
}
}
$win = TWindow::create('Realizar baixa', 0.6, 0.6);
$win->add($datagrid);
$win->add(MEUS NOVOS CAMPOS);
$win->show();
}
public function onReceber($param)
{
$selected_objects = TSession::getValue(__CLASS__.'_selected_objects');
ksort($selected_objects);
if ($selected_objects)
{
foreach ($selected_objects as $selected_object)
{
TTransaction::open($AcessoCliente);
$object = new CCadm($selected_object['ID']); // Carrega o objeto
$object->DATA_RP = MEU CAMPO DATA DO TWINDOW;
$object->FORMAPR = MINHA SELEÇÃO DO COMBO DO TWINDOW;
$object->store;
}
}
}
Basicament você precisa criar um form, um container e os campos: