TEXT BOX DE JANELA CHILD OU MODAL

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Responder
Max
Usuário Nível 1
Usuário Nível 1
Mensagens: 14
Registrado em: 13 Jan 2021 22:15
Localização: volta redonda rj

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Max »

Estou com uma dúvida, relacionada a uma questão DO TEXTBOX:

Tenho um programa que abre a janela principal (main), a partir dos dados digitados no (main), ele abre a segunda janela (child). No entanto, ao tentar gravar o conteudo do textbox da 2a janela, o sistema dá erro na execução, com o seguinte alerta: "Control: Text_4 Of Form_2 Not defined. Program Terminated."

Ou seja, por se tratar de uma janela filha, o sistema não está deixando eu gravar numa variável, o conteudo digitado no campo text_4.
Alguem poderia me ajudar, por favor?

Eu utilizo o HMG-IDE 1.2a.

Código: Selecionar todos

#include "hmg.ch"
#include "hbclass.ch"
#include "minigui.ch"
#include "common.ch"

//#define VAR_TRF:=(Form_2.Text_4.Value)

Function main()
declare window FORM_2
//declare window FORM_2.TEXT_4
#define FORM_2.TEXT_4.VALUE
	REQUEST HB_GT_GUI_DEFAULT
    REQUEST DBFNTX
    REQUEST DBFCDX, DBFFPT
	HB_LANGSELECT("PT")
	REQUEST HB_LANG_PT
	REQUEST HB_CODEPAGE_UTF8EX
	hb_cdpSelect( "UTF8EX" )	
	HB_SETCODEPAGE("PT850")
	REQUEST HB_CODEPAGE_PTISO
	HB_SETCODEPAGE("PTISO")
	HB_LANGSELECT("PT")
	request hb_codepage_gbk
	REQUEST HB_GT_WIN_DEFAULT
	SET CODEPAGE TO PORTUGUESE
	SET LANGUAGE TO PORTUGUESE		 
	SET CODEPAGE TO UNICODE
	SET CENTURY ON
	SET DATE BRITISH
	SET CENTURY ON
	SET TOOLTIPSTYLE BALLOON
	SET WRAP ON
	SET interactiveclose on
    SET multiple off warning
	SET navigation extended
	SET DELIMITERS ON
	//_IsWindowDefined (Form_2)
PRIVATE VAR_TRF:=""
	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 640 ;
		HEIGHT 480 ;
		TITLE 'TreeView Sample' ;
		MAIN 
ON KEY ESCAPE ACTION ThisWindow.Release()  
		DEFINE MAIN MENU
			POPUP '&File'
				ITEM 'Get Tree Value' ACTION MsgInfo( Str ( Form_1.Tree_1.Value ) ) 
				ITEM 'Set Tree Value' ACTION Form_1.Tree_1.Value := val(inputbox('',''))
				ITEM 'Collapse Item' ACTION Form_1.Tree_1.Collapse ( val(inputbox('','') ) )
				ITEM 'Expand Item' ACTION Form_1.Tree_1.Expand ( val(inputbox('','') ) )
			END POPUP
		END MENU

		DEFINE CONTEXT MENU 
			ITEM 'About'				ACTION MsgInfo ("Free GUI Library For Harbour","HMG Tree Demo") 
		END MENU

		DEFINE TREE Tree_1 AT 10,10 WIDTH 500 HEIGHT 550 VALUE 15 FONT "ARIAL" SIZE 14 DynamicForeColor WHITE DynamicBackColor YELLOW;
             ON DBLCLICK IF (Form_1.Tree_1.IsExpand (Form_1.Tree_1.Value) == .F. ,; 
                             Form_1.Tree_1.Expand (Form_1.Tree_1.Value) ,;
                             Form_1.Tree_1.Collapse (Form_1.Tree_1.Value) );
			//formata1 ()

		NODE 'ORIGEM DOS RECURSOS' 
			NODE 'EMPRESA  Matriz'
				TREEITEM 'CONTA CORRENTE 1' 
				TREEITEM 'CONTA CORRENTE 2' 
			END NODE
		END NODE
	END TREE


	DEFINE TREE Tree_2 AT 10,550 WIDTH 500 HEIGHT 550 VALUE 3 FONT "ARIAL" SIZE 14 DynamicForeColor WHITE DynamicBackColor YELLOW;
             ON DBLCLICK IF (Form_1.Tree_2.IsExpand (Form_1.Tree_2.Value) == .F. ,; 
                             Form_1.Tree_2.Expand (Form_1.Tree_2.Value) ,;
                             Form_1.Tree_2.Collapse (Form_1.Tree_2.Value) );
			
		NODE 'DESTINO DOS RECURSOS' 
			NODE 'EMPRESA - FILIAL'
				TREEITEM 'CONTA CORRENTE 1' 
				TREEITEM 'CONTA CORRENTE 2' 
			END NODE
		END NODE
	END TREE
	
	DEFINE BUTTON Text_And_Image_Button
        ROW    570
        COL    870
        WIDTH  180
        HEIGHT 50
        ACTION PEGA1 ()
        CAPTION "Avançar"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP "Avançar"
        FONTBOLD .t.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        PICTURE "avanca.BMP"
        PICTALIGNMENT LEFT
    END BUTTON
	
	END WINDOW
	MAXIMIZE WINDOW Form_1
   ACTIVATE WINDOW Form_1

Return

FUNCTION PEGA1 ()
PUBLIC C_ORIGEM:=""
PUBLIC C_ORIGEM:=( Form_1.Tree_1.Item ( Form_1.Tree_1.Value ) )


IF EMPTY(C_ORIGEM).OR.C_ORIGEM="ORIGEM DOS RECURSOS"
	ALERT ("ESCOLHER CONTA DE ORIGEM")
	RetuRN
ENDIF
PUBLIC C_DESTINO:=""
PUBLIC C_DESTINO:=( Form_1.Tree_2.Item ( Form_1.Tree_2.Value ) )
IF EMPTY(C_DESTINO).OR.C_DESTINO="DESTINO DOS RECURSOS"
	ALERT ("ESCOLHER CONTA DE DESTINO")
	RetuRN
ENDIF
pega2()
return

FUNCTION PEGA2 ()
GRAVAR()
DEFINE WINDOW Form_2 ;
		AT 0,0 ;
		WIDTH 1200 HEIGHT 500 ;
		TITLE "HMG Demo" ;
		CHILD ;
		FONT "Arial" SIZE 10 BACKCOLOR YELLOW
		ON KEY ESCAPE ACTION ThisWindow.Release()  
		
	DEFINE LABEL Label_1
        ROW    10
        COL    100
        WIDTH  700
        HEIGHT 60
        VALUE upper("Lancamento de transferencia")
        FONTNAME "Arial"
        FONTSIZE 18
        TOOLTIP ""
        FONTBOLD .t.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .F.
        BACKCOLOR YELLOW
        FONTCOLOR Nil //{160,82,45}
    END LABEL
	
	DEFINE LABEL Label_2
        ROW    80
        COL    40
        WIDTH  100
        HEIGHT 53
        VALUE upper("O Dinheiro sai da conta:")
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .t.
		FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .t.
        BACKCOLOR YELLOW
        FONTCOLOR {0,0,0}
	END LABEL

	DEFINE LABEL Label_3 
        ROW    80
        COL    220
        WIDTH  500
        HEIGHT 24
        VALUE alltrim(C_ORIGEM)
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .t.
		FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .f.
        BACKCOLOR YELLOW
        FONTCOLOR {0,0,205}
    END LABEL
	
	DEFINE LABEL Label_4
        ROW    120
        COL    40
        WIDTH  100
        HEIGHT 53
        VALUE upper("O Dinheiro VAI PARA A  conta:")
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .t.
		FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .t.
        BACKCOLOR YELLOW
        FONTCOLOR {0,0,0}
	END LABEL

	DEFINE LABEL Label_5 
        ROW    120
        COL    260
        WIDTH  500
        HEIGHT 24
        VALUE alltrim(C_DESTINO)
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .t.
		FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .f.
        BACKCOLOR YELLOW
        FONTCOLOR {0,0,205}
    END LABEL
	
	DEFINE LABEL Label_6 
        ROW    170
        COL    40
        WIDTH  50
        HEIGHT 24
        VALUE "DATA DO LANÇAMENTO: "
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .t.
		FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .t.
        BACKCOLOR YELLOW
        FONTCOLOR {0,0,205}
    END LABEL
	
	DEFINE TEXTBOX Text_1
        ROW    170
        COL    260
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 10
        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.
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        DATE .T. 
        VALUE DATE() //ctod('01/01/01')
    END TEXTBOX
	
	
	DEFINE LABEL Label_7 
        ROW    200
        COL    40
        WIDTH  50
        HEIGHT 24
        VALUE "VALOR DA TRANSFERENCIA: "
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .t.
		FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .t.
        BACKCOLOR YELLOW
        FONTCOLOR {0,0,205}
    END LABEL
	
	DEFINE TEXTBOX Text_2
        ROW    200
        COL    260
        WIDTH  120
        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.
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        NUMERIC .T. 
        VALUE 100 
		INPUTMASK '999,999,999.99'   //'@E 999,999,999.99'
    END TEXTBOX
	DEFINE LABEL Label_8 
        ROW    230
        COL    40
        WIDTH  300
        HEIGHT 24
        VALUE "HISTORICO: "
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .t.
		FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .t.
        BACKCOLOR YELLOW
        FONTCOLOR {0,0,205}
    END LABEL
	DEFINE TEXTBOX Text_3
        ROW    230
        COL    260
        WIDTH  500
        HEIGHT 24
		MaxLength=40
		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 .T.
        RIGHTALIGN .F.
        BACKCOLOR {0,0,255}
        FONTCOLOR NIL
		FORMAT Nil
        VALUE HIST_TRF
    END TEXTBOX
	DEFINE LABEL Label_9 
        ROW    270
        COL    40
        WIDTH  300
        HEIGHT 24
        VALUE "OBSERVACAO: "
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .t.
		FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .t.
        BACKCOLOR YELLOW
        FONTCOLOR {0,0,205}
    END LABEL

	@ 270,360 TEXTBOX Text_4
		WIDTH  150
        HEIGHT 20
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .f.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        VALUE "ATÉ 20 CARACTERES"
		MAXLENGTH 20
		PARENT Form_2


	DEFINE BUTTON Text_And_Image_Button
        ROW    300
        COL    260
        WIDTH  180
        HEIGHT 50
        ACTION GRAVAR()
        CAPTION "Salvar Lançamento"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP "Salvar Lançamento"
        FONTBOLD .t.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        PICTURE "SAVE.BMP"
        PICTALIGNMENT LEFT
    END BUTTON
if iswindowactive(FORM_2)
	DoMethod( "Form_2","Text_4","SetFocus" )
	ENDIF
END WINDOW
ACTIVATE WINDOW FORM_2
Form_1.Tree_1.SetFocus

RETURN Nil
	

FUNCTION GRAVAR()
DO CASE 
	CASE C_ORIGEM="CONTA 1"
		public DESCR_ORIG:="CONTA 1"
	CASE C_ORIGEM="CONTA 2"
		public DESCR_ORIG:="CONTA 2"
ENDCASE


DO CASE 
	CASE C_DESTINO="CONTA 1"
		public DESCR_DEST:="CONTA 1"
	CASE C_DESTINO="CONTA 2"
		public DESCR_DEST:="CONTA 2"

ENDCASE


PUBLIC HIST_TRF:="Trf "+DESCR_ORIG+" p/ "+DESCR_DEST
	PRIVATE VAR_TRF:=GetProperty( "Form_2", "Text_4", "VALUE")	
	IF VAR_TRF='ATÉ 20 CARACTERES'
		PRIVATE VAR_TRF:=""
	ELSE
		PRIVATE VAR_TRF:=GetProperty( "Form_2", "Text_4", "VALUE")
	ENDIF

set printer on
set printer to k.txt
? VAR_TRF
? HIST_TRF
? C_ORIGEM
? C_DESTINO
return
Editado pela última vez por Jairo Maia em 14 Nov 2021 15:17, em um total de 1 vez.
Razão: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
Voltar ao topo
syslink
Usuário Nível 3
Usuário Nível 3
Mensagens: 132
Registrado em: 20 Fev 2018 13:13
Localização: joinvile/sc

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por syslink »

Toledo e administradores favo faze o seugint:
muda o topico desse lugar pra minigui;
coloca as tag code/code no codigo do autor
Editado pela última vez por Jairo Maia em 14 Nov 2021 15:19, em um total de 1 vez.
Razão: O presente tópico foi movido da seção Harbour, uma vez que seu conteúdo não tem relação com os objetivos daquela seção, onde só podem constar dúvidas técnicas de programação diretamente relacionadas com o [x]Harbour.
Voltar ao topo
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por JoséQuintas »

Reorganize o fonte, e principalmente as variáveis.
Deve ajudar.
No momento, olhar esse fonte é lamentável.
Como pode um fonte com tão poucas variáveis, ser complicado de ver se as variáveis foram criadas e/ou existem durante todo o fonte.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Voltar ao topo
Max
Usuário Nível 1
Usuário Nível 1
Mensagens: 14
Registrado em: 13 Jan 2021 22:15
Localização: volta redonda rj

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Max »

Jose, boa noite!
Obrigado, pelo retorno!
É que sou muito iniciante!!!
Esse exemplo que peguei da pasta C:\HMG.3.5\SAMPLES\Controls\Tree\Tree_Dynamic_Font, e fui aprimorando.
A idéia, é montar na janela, 2 árvores com opção de COntas COrrentes da empresa, (de um lado, a conta de onde sai o dinheiro, e do outro lado, para onde o dinheiro vai. E a partir dessa escolha, abre uma nova janela, para inserir valores, data, histórico e alguma observação se houver. Depois então, gravaria. No entanto, o sistema, não reconhece de forma alguma, o bendito Text_4.
Grato.
Voltar ao topo
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por JoséQuintas »

Max escreveu:No entanto, o sistema, não reconhece de forma alguma, o bendito Text_4.
só olhar o fonte linha por linha e se perguntar pra que serve.

Por exemplo, porque está cancelando isto no fonte?

Código: Selecionar todos

#define FORM_2.TEXT_4.VALUE
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Voltar ao topo
Max
Usuário Nível 1
Usuário Nível 1
Mensagens: 14
Registrado em: 13 Jan 2021 22:15
Localização: volta redonda rj

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Max »

"Jose Quintas, escreveu:
só olhar o fonte linha por linha e se perguntar pra que serve.


Por exemplo, porque está cancelando isto no fonte?

#define FORM_2.TEXT_4.VALUE

Opa... Boa noite...
Então.... eu tenho esse cuidado, de analisar linha por linha, e te confesso que cheguei bem longe sozinho, somente praticando essas observações.

No entanto, quanto ao problema acima, te confesso, que tentei de várias formas, mas não obtive sucesso, daí o meu pedido de socorro!!!

O fato de eu ter cancelado o comando acima, se deu porque, mesmo inserindo o mesmo no código, não obtive o resultado esperado.

Obrigado, pela atenção!!
Voltar ao topo
Max
Usuário Nível 1
Usuário Nível 1
Mensagens: 14
Registrado em: 13 Jan 2021 22:15
Localização: volta redonda rj

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Max »

Agora, eu estava dando continuidade nesse código, e observei, que nem o valor do lançamento que está no formulário, eu consigo gravar na variável.

Tentei esses comandos abaixo, e não consegui:

SET CONTROL <TEXTBOX> OF <Form_2> ==> _HMG_SetControlData function
store GetProperty( "Form_2", "Text_2", "VALUE") to valor10

Sinceramente, eu achei que essa parte seria fácil, mas confesso que quanto mais acho que sei, mais sei que nada sei!!! (rsrsrsrs)

Me ajudem por favor!!!
Voltar ao topo
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por JoséQuintas »

Comece removendo esse #define.
Depois, declare as variáveis que são visíveis em todo fonte, no início do fonte.
Variáveis locais são declaradas em cada função, mas variáveis public/private não podem ser em qualquer lugar.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Voltar ao topo
Max
Usuário Nível 1
Usuário Nível 1
Mensagens: 14
Registrado em: 13 Jan 2021 22:15
Localização: volta redonda rj

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Max »

Bom dia!

Mais uma vez agradeço pelo seu retorno!

Então, conforme suas orientações eu fiz.

PUBLIC VAR_TRF:="" // VAR_TRF := GetProperty( "Form_2", "Text_4", "VALUE")
PUBLIC C_DESTINO:="" // C_DESTINO := ( Form_1.Tree_2.Item ( Form_1.Tree_2.Value ) )
PUBLIC C_ORIGEM:="" // C_ORIGEM := ( Form_1.Tree_1.Item ( Form_1.Tree_1.Value ) )
PUBLIC VALOR_10:=0 // VALOR_10 := GetProperty( "Form_2", "Text_2", "VALUE")
public DESCR_ORIG:="" // O VALOR MUDA NO "DO CASE"
public DESCR_DEST:="" // O VALOR MUDA NO "DO CASE"
PUBLIC HIST_TRF:="" // HIST_TRF := "Trf "+DESCR_ORIG+" p/ "+DESCR_DEST


Conforme descrito acima, essas são as variáveis a serem declaradas. E á frente, demonstro como elas se comportarão ao longo do fonte.
Daí pergunto: em que momento, eu informo as mudanças que ocorrerão nas variáveis?
Dentro da função? ( Eu fiz, mas não deu certo!).
Será onde está o problema?
Voltar ao topo
Max
Usuário Nível 1
Usuário Nível 1
Mensagens: 14
Registrado em: 13 Jan 2021 22:15
Localização: volta redonda rj

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Max »

O sistema, insiste em retornar o seguinte erro: " Control: Text_4 Of Form_2 Not defined. Program Terminated"
Voltar ao topo
Claudio Soto
Colaborador
Colaborador
Mensagens: 566
Registrado em: 27 Ago 2012 12:31
Localização: Uruguay
Contato:
Contato Claudio Soto

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Claudio Soto »

Me parece que el problema esta en que en la definición del textbox se estan mezclando la sintaxis de las dos formas de definir un control (DEFINE y @)

Cambia en tu código la definición del textbox4 por esta:

Código: Selecionar todos

DEFINE TEXTBOX Text_4
      ROW 270
      COL 360
      WIDTH  150
        HEIGHT 20
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .f.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        VALUE "ATÉ 20 CARACTERES"
      MAXLENGTH 20
      PARENT Form_2
END TEXTBOX
Saludos.
Dr. Claudio Soto
(Uruguay)
http://srvet.blogspot.com
Voltar ao topo
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por JoséQuintas »

Código: Selecionar todos

FUNCTION PEGA2 ()

   GRAVAR()
   DEFINE WINDOW Form_2 ;
         AT 0,0 ;
Está tentando gravar o conteúdo do form ANTES de criar o form?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Voltar ao topo
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por JoséQuintas »

oohg.png
Usei OOHG como quebra galho, porque é o que estava aqui na mão.
Não foi 100% compatível no treeview, mas deu pra testar.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Voltar ao topo
Max
Usuário Nível 1
Usuário Nível 1
Mensagens: 14
Registrado em: 13 Jan 2021 22:15
Localização: volta redonda rj

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Max »

"Quintas, Escreveu:
Está tentando gravar o conteúdo do form ANTES de criar o form? "


Na verdade, a função somente se chama "Gravar", mas o intuito da mesma, é somente para chamar a 2a tela!

Grato,
Voltar ao topo
Max
Usuário Nível 1
Usuário Nível 1
Mensagens: 14
Registrado em: 13 Jan 2021 22:15
Localização: volta redonda rj

TEXT BOX DE JANELA CHILD OU MODAL

Mensagem por Max »

"Dr. Claudio Soto, escreveu:
Me parece que el problema esta en que en la definición del textbox se estan mezclando la sintaxis de las dos formas de definir un control (DEFINE y @)

Cambia en tu código la definición del textbox4 por esta:"

Boa tarde, obrigado pela sua ajuda!

COnforme suas orientações, eu fiz o que me enviou, no entanto, o erro insiste!

Grato.
Voltar ao topo
Responder

Voltar para “MiniGui”