Clipper On Line • Ver Tópico - TEXT BOX DE JANELA CHILD OU MODAL

TEXT BOX DE JANELA CHILD OU MODAL

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Max » 14 Nov 2021 14:11

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.

#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
Nota de Moderação:
Jairo Maia: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
Max
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 13 Jan 2021 22:15
Cidade/Estado: volta redonda rj
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor syslink » 14 Nov 2021 15:07

Toledo e administradores favo faze o seugint:
muda o topico desse lugar pra minigui;
coloca as tag code/code no codigo do autor
Nota de Moderação:
Jairo Maia: 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.
syslink
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 132
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 3 vezes
Mens.Curtidas: 3 vezes

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor JoséQuintas » 14 Nov 2021 19:52

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, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Max » 14 Nov 2021 21:05

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.
Max
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 13 Jan 2021 22:15
Cidade/Estado: volta redonda rj
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor JoséQuintas » 15 Nov 2021 23:28

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?

#define FORM_2.TEXT_4.VALUE
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Max » 16 Nov 2021 01:44

"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!!
Max
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 13 Jan 2021 22:15
Cidade/Estado: volta redonda rj
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Max » 16 Nov 2021 02:43

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!!!
Max
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 13 Jan 2021 22:15
Cidade/Estado: volta redonda rj
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor JoséQuintas » 16 Nov 2021 06:52

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, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Max » 16 Nov 2021 12:58

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?
Max
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 13 Jan 2021 22:15
Cidade/Estado: volta redonda rj
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Max » 16 Nov 2021 13:06

O sistema, insiste em retornar o seguinte erro: " Control: Text_4 Of Form_2 Not defined. Program Terminated"
Max
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 13 Jan 2021 22:15
Cidade/Estado: volta redonda rj
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Claudio Soto » 16 Nov 2021 13:50

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:
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
Avatar de usuário

Claudio Soto
Colaborador

Colaborador
 
Mensagens: 555
Data de registro: 27 Ago 2012 12:31
Cidade/Estado: Uruguay
Curtiu: 35 vezes
Mens.Curtidas: 166 vezes

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor JoséQuintas » 16 Nov 2021 13:54

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, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor JoséQuintas » 16 Nov 2021 13:57

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, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Max » 16 Nov 2021 14:06

"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,
Max
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 13 Jan 2021 22:15
Cidade/Estado: volta redonda rj
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

TEXT BOX DE JANELA CHILD OU MODAL

Mensagempor Max » 16 Nov 2021 14:17

"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.
Max
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 13 Jan 2021 22:15
Cidade/Estado: volta redonda rj
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Próximo



Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro