Dados Grid ou Browse em textbox

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Responder
gilsonpaulo
Usuário Nível 3
Usuário Nível 3
Mensagens: 135
Registrado em: 02 Fev 2008 11:30
Localização: Quatro Barras

Dados Grid ou Browse em textbox

Mensagem por gilsonpaulo »

Ola a todos, testei a HMG 3.0.35 ei fiquei maravilhado com a simplicidade de migracao dos meus sistemas clipper para grafico, estou fazendo teste, só estou com uma duvida, tenho uma grid, quando clico em uma linha do grid quero que preencha meus textbox.

Ja procurei no forum e em outros lugares mas não consegui fazer funcionar.

Código: Selecionar todos

DEFINE WINDOW TEMPLATE AT 203 , 352 WIDTH 595 HEIGHT 350 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL MODAL CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON PAINT Nil BACKCOLOR Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

    DEFINE LABEL lbl_codigo
        ROW    10
        COL    5
        WIDTH  40
        HEIGHT 24
        VALUE "Codigo"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .F.
        BACKCOLOR NIL
        FONTCOLOR NIL
    END LABEL

    DEFINE TEXTBOX txt_codigo
        ROW    5
        COL    50
        WIDTH  25
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        VALUE ""
    END TEXTBOX

    DEFINE LABEL lbl_descricao
        ROW    10
        COL    80
        WIDTH  55
        HEIGHT 20
        VALUE "Descricao"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .F.
        BACKCOLOR NIL
        FONTCOLOR NIL
    END LABEL

    DEFINE TEXTBOX txt_descricao
        ROW    5
        COL    140
        WIDTH  440
        HEIGHT 25
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        VALUE ""
    END TEXTBOX

    DEFINE BROWSE Browse_grupo
        ROW    40
        COL    5
        WIDTH  575
        HEIGHT 235
        VALUE 0
        WIDTHS {40,300}
        HEADERS {'Codigo','Descricao'}
        WORKAREA cadgru
        FIELDS {'cadgru->codgru','cadgru->desgru'}
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE teste()
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONDBLCLICK Nil
        ALLOWEDIT .F.
        ALLOWAPPEND .F.
        ONHEADCLICK Nil
        ALLOWDELETE .F.
        HELPID Nil
        VALID Nil
        VALIDMESSAGES Nil
        LOCK .F.
        VSCROLLBAR .T.
        DYNAMICBACKCOLOR Nil
        DYNAMICFORECOLOR Nil
        INPUTMASK Nil
        FORMAT Nil
        WHEN Nil
        INPUTITEMS Nil
        DISPLAYITEMS Nil
        BACKCOLOR NIL
        FONTCOLOR NIL
        IMAGE Nil
        JUSTIFY Nil
        NOLINES .F.
        READONLYFIELDS Nil
        HEADERIMAGES Nil
    END BROWSE

    DEFINE BUTTON grupo_btn_sair
        ROW    280
        COL    520
        WIDTH  60
        HEIGHT 28
        ACTION btn_grupo_sair()
        CAPTION "&Sair"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_cancelar
        ROW    280
        COL    455
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Cancelar"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_gravar
        ROW    280
        COL    390
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Gravar"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_excluir
        ROW    280
        COL    325
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Excluir"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_alterar
        ROW    280
        COL    260
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Alterar"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_incluir
        ROW    280
        COL    195
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Incluir"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_pcodigo
        ROW    280
        COL    5
        WIDTH  90
        HEIGHT 28
        ACTION p_codigo()
        CAPTION "P. Codigo"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_pdescricao
        ROW    280
        COL    100
        WIDTH  90
        HEIGHT 28
        ACTION Nil
        CAPTION "P. Descricao"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

END WINDOW

Código: Selecionar todos

#include <hmg.ch>

Function grupo
  select 1
  use cadgru shared alias cadgru
  set index to indgru
  set order to 1
  Load Window Grupo
  Grupo.txt_codigo.Value            :=  codgru
  Grupo.txt_descricao.Value         :=  desgru
  Grupo.txt_codigo.Enabled          :=  .f.
  Grupo.txt_descricao.Enabled       :=  .f.
  Grupo.grupo_btn_alterar.Enabled   :=  .f.
  Grupo.grupo_btn_excluir.Enabled   :=  .f.
  Grupo.grupo_btn_gravar.Enabled    :=  .f.
  Grupo.grupo_btn_cancelar.Enabled  :=  .f.    

  Grupo.Center
  Grupo.Activate
  Close cadgru
Return

//Procedure Atualizar()
  

Function btn_grupo_sair
  Grupo.Release
Return nil

Procedure p_codigo()
  Load Window p_grupo
  p_grupo.Center
  p_grupo.Activate
return
  
Procedure Procura()
  seek p_grupo.txt_pcodigo.Value
  if .not. found()
    MsgInfo("Codigo Nao Encontrado")
  else
    grupo.txt_codigo.Value := codgru
  endif
  p_grupo.release
return
Desde ja agradeço qualquer ajuda.
Voltar ao topo
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:
Contato Toledo

Dados Grid ou Browse em textbox

Mensagem por Toledo »

Gilson, pelo que notei você tá usando um Browse e não um Grid, e neste Browse você colocou uma função chamada TESTE() no evento ONCHANGE deste Browse. Então basta criar a função TESTE() da seguinte forma:

Código: Selecionar todos

Func Teste()
Grupo.txt_codigo.Value:=  codgru
Grupo.txt_descricao.Value:=  desgru
Return Nil
Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Voltar ao topo
gilsonpaulo
Usuário Nível 3
Usuário Nível 3
Mensagens: 135
Registrado em: 02 Fev 2008 11:30
Localização: Quatro Barras

Dados Grid ou Browse em textbox

Mensagem por gilsonpaulo »

Fiz o teste Toledo mas não funcionou.

Código: Selecionar todos

DEFINE WINDOW TEMPLATE AT 203 , 352 WIDTH 595 HEIGHT 350 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL MODAL CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON PAINT Nil BACKCOLOR Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

    DEFINE LABEL lbl_codigo
        ROW    10
        COL    5
        WIDTH  40
        HEIGHT 24
        VALUE "Codigo"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .F.
        BACKCOLOR NIL
        FONTCOLOR NIL
    END LABEL

    DEFINE TEXTBOX txt_codigo
        ROW    5
        COL    50
        WIDTH  25
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        VALUE ""
    END TEXTBOX

    DEFINE LABEL lbl_descricao
        ROW    10
        COL    80
        WIDTH  55
        HEIGHT 20
        VALUE "Descricao"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .F.
        BACKCOLOR NIL
        FONTCOLOR NIL
    END LABEL

    DEFINE TEXTBOX txt_descricao
        ROW    5
        COL    140
        WIDTH  440
        HEIGHT 25
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        VALUE ""
    END TEXTBOX

    DEFINE BROWSE Browse_grupo
        ROW    40
        COL    5
        WIDTH  575
        HEIGHT 235
        VALUE 0
        WIDTHS {40,300}
        HEADERS {'Codigo','Descricao'}
        WORKAREA cadgru
        FIELDS {'cadgru->codgru','cadgru->desgru'}
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE teste()
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONDBLCLICK Nil
        ALLOWEDIT .F.
        ALLOWAPPEND .F.
        ONHEADCLICK Nil
        ALLOWDELETE .F.
        HELPID Nil
        VALID Nil
        VALIDMESSAGES Nil
        LOCK .F.
        VSCROLLBAR .T.
        DYNAMICBACKCOLOR Nil
        DYNAMICFORECOLOR Nil
        INPUTMASK Nil
        FORMAT Nil
        WHEN Nil
        INPUTITEMS Nil
        DISPLAYITEMS Nil
        BACKCOLOR NIL
        FONTCOLOR NIL
        IMAGE Nil
        JUSTIFY Nil
        NOLINES .F.
        READONLYFIELDS Nil
        HEADERIMAGES Nil
    END BROWSE

    DEFINE BUTTON grupo_btn_sair
        ROW    280
        COL    520
        WIDTH  60
        HEIGHT 28
        ACTION btn_grupo_sair()
        CAPTION "&Sair"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_cancelar
        ROW    280
        COL    455
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Cancelar"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_gravar
        ROW    280
        COL    390
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Gravar"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_excluir
        ROW    280
        COL    325
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Excluir"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_alterar
        ROW    280
        COL    260
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Alterar"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_incluir
        ROW    280
        COL    195
        WIDTH  60
        HEIGHT 28
        ACTION Nil
        CAPTION "&Incluir"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_pcodigo
        ROW    280
        COL    5
        WIDTH  90
        HEIGHT 28
        ACTION p_codigo()
        CAPTION "P. Codigo"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

    DEFINE BUTTON grupo_btn_pdescricao
        ROW    280
        COL    100
        WIDTH  90
        HEIGHT 28
        ACTION Nil
        CAPTION "P. Descricao"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON

END WINDOW

Código: Selecionar todos

#include <hmg.ch>

Function grupo
  select 1
  use cadgru shared alias cadgru
  set index to indgru
  set order to 1
  Load Window Grupo
  Grupo.txt_codigo.Value            :=  codgru
  Grupo.txt_descricao.Value         :=  desgru
  Grupo.txt_codigo.Enabled          :=  .f.
  Grupo.txt_descricao.Enabled       :=  .f.
  Grupo.grupo_btn_alterar.Enabled   :=  .f.
  Grupo.grupo_btn_excluir.Enabled   :=  .f.
  Grupo.grupo_btn_gravar.Enabled    :=  .f.
  Grupo.grupo_btn_cancelar.Enabled  :=  .f.    
  Grupo.Center
  Grupo.Activate
Return

//Procedure Atualizar()
  

Function btn_grupo_sair
  Grupo.Release
Return nil

Procedure p_codigo()
  Load Window p_grupo
  p_grupo.Center
  p_grupo.Activate
return
  
Procedure Procura()
  seek p_grupo.txt_pcodigo.Value
  if .not. found()
    MsgInfo("Codigo Nao Encontrado")
  else
    grupo.txt_codigo.Value := codgru
  endif
  p_grupo.release
return

Function Teste()
  Grupo.txt_codigo.Value            :=  codgru
  Grupo.txt_descricao.Value         :=  desgru
Return Nil
Quando clico em algum item do browse não altera os dados do txt_codigo e txt_descricao
Voltar ao topo
gilsonpaulo
Usuário Nível 3
Usuário Nível 3
Mensagens: 135
Registrado em: 02 Fev 2008 11:30
Localização: Quatro Barras

Dados Grid ou Browse em textbox

Mensagem por gilsonpaulo »

Toledo, muito obrigado, ja resolvi.

Código: Selecionar todos

Function grupo

  use cadgru shared alias cadgru
  set index to indgru
  set order to 1

  Private Novo:=.f.
  
  Load Window Grupo
  controle_inicial()
  Grupo.Center
  Grupo.Activate

Return

Procedure controle_inicial()

  Grupo.txt_codigo.Value            :=  codgru
  Grupo.txt_descricao.Value         :=  desgru
  Grupo.txt_codigo.Enabled          :=  .f.
  Grupo.txt_descricao.Enabled       :=  .f.
  Grupo.grupo_btn_alterar.Enabled   :=  .f.
  Grupo.grupo_btn_excluir.Enabled   :=  .f.
  Grupo.grupo_btn_gravar.Enabled    :=  .f.
  Grupo.grupo_btn_cancelar.Enabled  :=  .f.    
  Grupo.grid_grupo.recno := RecNo()  
  Grupo.grid_grupo.SetFocus

Return

Código: Selecionar todos

Function grupo_grid_onchange()
  Grupo.txt_codigo.Value            :=  cadgru->codgru
  Grupo.txt_descricao.Value         :=  cadgru->desgru
Return Nil
Voltar ao topo
Responder

Voltar para “MiniGui”