Acessar objeto entre Frames

[edujgomes5]

Pessoal, bom dia!

Sou novo no Unigui e tenho gostado da experiência, mas por ser uma novidade pra mim, to apanhando de algumas coisas, vamos lá.

Peguei uma dica na internet de como abrir os forms em abas, claro que convertendo eles de Form para UniFrame, até aí ta tudo certo, consigo abrir as abas de consulta sem problemas.

Main.MainForm.NovaAba(TFrame(TFrConEstoque),'Consulta de Produtos', True);

Agora quero que, ao clicar duas vezes no grid abra uma aba com os dados do produto selecionado seja criada. Tenho toda a lógica pronta, minha dificuldade é que tenho que setar a query que vai trazer esses dados na aba de cadastro. Não consigo acessar os componentes que tem lá.

    if StrtoIntDef(SQL_ConEstoque.FieldByName('CODIGO').AsString, 0) > 0 then
    begin
       if ((Dm.pInclui) or (Dm.pAltera))then
       begin
          FrCadEstoque.SQL_CadProduto.Close;
          FrCadEstoque.SQL_CadProduto.SQL.Text := 'SELECT CODIGO, DESCRICAO, PRECO_VENDA FROM ESTOQUE '+
                                                                                     'WHERE CODIGO = '''+SQL_ConEstoqueCODIGO.AsString+''' ';
          FrCadEstoque.SQL_CadProduto.Open;

           Main.MainForm.NovaAba(TFrame(TFrCadEstoque),'Cadastro de Produtos', True);
        end;
    end;

Quando passo nesta linha FrCadEstoque.SQL_CadProduto.Close me da um erro: Exception class Exception with message 'Owner Form not found.'. Não faço idéia de como resolver, acredito que seja algo simples, mas sou novo no Unigui e nunca trabalhei com frames antes, ae to perdido...

Ja tentei criar a o frame antes de passar pela linha FrCadEstoque.SQL_CadProduto.Close, mesmo assim, o erro persiste.

[sroberto]

Olá amigo.
Eu usaria DataModule para colocar as Querys (já que está colocando no Frame).
Mas se preferir, crie uma var para representar o Frame.

Qualquer coisa chama no grupo do Telegram: @uniguidevdesign

[eduardosuruagy]

On 4/1/2021 at 11:15 AM, edujgomes5 said:

Pessoal, bom dia!

Sou novo no Unigui e tenho gostado da experiência, mas por ser uma novidade pra mim, to apanhando de algumas coisas, vamos lá.

Peguei uma dica na internet de como abrir os forms em abas, claro que convertendo eles de Form para UniFrame, até aí ta tudo certo, consigo abrir as abas de consulta sem problemas.

Main.MainForm.NovaAba(TFrame(TFrConEstoque),'Consulta de Produtos', True);

Agora quero que, ao clicar duas vezes no grid abra uma aba com os dados do produto selecionado seja criada. Tenho toda a lógica pronta, minha dificuldade é que tenho que setar a query que vai trazer esses dados na aba de cadastro. Não consigo acessar os componentes que tem lá.

    if StrtoIntDef(SQL_ConEstoque.FieldByName('CODIGO').AsString, 0) > 0 then
    begin
       if ((Dm.pInclui) or (Dm.pAltera))then
       begin
          FrCadEstoque.SQL_CadProduto.Close;
          FrCadEstoque.SQL_CadProduto.SQL.Text := 'SELECT CODIGO, DESCRICAO, PRECO_VENDA FROM ESTOQUE '+
                                                                                     'WHERE CODIGO = '''+SQL_ConEstoqueCODIGO.AsString+''' ';
          FrCadEstoque.SQL_CadProduto.Open;

           Main.MainForm.NovaAba(TFrame(TFrCadEstoque),'Cadastro de Produtos', True);
        end;
    end;

Quando passo nesta linha FrCadEstoque.SQL_CadProduto.Close me da um erro: Exception class Exception with message 'Owner Form not found.'. Não faço idéia de como resolver, acredito que seja algo simples, mas sou novo no Unigui e nunca trabalhei com frames antes, ae to perdido...

Ja tentei criar a o frame antes de passar pela linha FrCadEstoque.SQL_CadProduto.Close, mesmo assim, o erro persiste.

TFrameInicialPrestador(MainForm.FindComponent('FrameInicialPrestador')).TimerAtualizacaoPrestador.Enabled := True;