POR QUE AS VEZES FUNCIONA "DEFINE" OUTRAS NÃO ";" / WHY TIMES WORKS "DEFINE" OTHER NOT ";"

[MICROVOLUTION]

ENGLISH (google translate)
Good evening!
Until today I have not been able to migrate 100% to HMG, I am using WVG hybrid with HMG.
But, there is something that torments me.
Sometimes I can do some FORM WINDOW control like this:

Code: Select all

            @ 10, 200 TEXTBOX TB_COD_CLIENTE  PARENT F_BAIXAR WIDTH 150 HEIGHT 30 FONTCOLOR BLUE BOLD NUMERIC  MAXLENGTH 07 FONT "Arial" SIZE 14  // ON ENTER { || fCONFERE_SENHA_GUI () }  // INPUTMASK '9999999999999' FORMAT 'E'

I prefer like this:

Code: Select all

            DEFINE TEXTBOX Text_2 PARENT F_BAIXAR
                ROW    120
                COL    190
                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
                VALUE ""
            END TEXTBOX

It doesn't always work the way I want (DEFINE / END).
I would like to understand what is missing to include or change in the code to accept it my way (some INCLUDE) or what?
thankful!



PORTUGUESE (original language)
Boa noite!
Até hoje não consegui migrar 100% para HMG, estou meio usando híbrido de WVG com HMG.
Mas, tem uma coisa que me atormenta.
Às vezes consigo fazer algum controle do FORM WINDOW de forma assim:

Code: Select all

            @ 10, 200 TEXTBOX TB_COD_CLIENTE  PARENT F_BAIXAR WIDTH 150 HEIGHT 30 FONTCOLOR BLUE BOLD NUMERIC  MAXLENGTH 07 FONT "Arial" SIZE 14  // ON ENTER { || fCONFERE_SENHA_GUI () }  // INPUTMASK '9999999999999' FORMAT 'E'

Eu prefiro assim:

Code: Select all

            DEFINE TEXTBOX Text_2 PARENT F_BAIXAR
                ROW    120
                COL    190
                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
                VALUE ""
            END TEXTBOX

Nem sempre funciona do jeito que quero (DEFINE / END).
Gostaria de entender o que falta para incluir ou alterar no código para que aceite do meu jeito (algum INCLUDE) ou o quê?
grato!

[serge_girard]

Hello,

What error you get? Can you post complete prg or at least complete define form?

Serge

[MICROVOLUTION]

What error you get?

dá o erro de sintaxe, nem compila pela IDE.

[SALINETAS24]

Eu prefiro assim:

Code: Select all

            DEFINE TEXTBOX Text_2 PARENT F_BAIXAR
                ROW    120
                COL    190
                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
                VALUE ""
            END TEXTBOX

Nem sempre funciona do jeito que quero (DEFINE / END).
Gostaria de entender o que falta para incluir ou alterar no código para que aceite do meu jeito (algum INCLUDE) ou o quê?
grato!

Hola,
El error que detecto es por poner en la misma linea
DEFINE TEXTBOX Text_2 PARENT F_BAIXAR
deben de ir en lineas separadas...

Code: Select all

            DEFINE TEXTBOX Text_2 
                PARENT F_BAIXAR
                ROW    120
                COL    190
                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
                VALUE ""
            END TEXTBOX

Salud y una cervecita fresquita!!

[MICROVOLUTION]

DEFINE TEXTBOX Text_2 PARENT F_BAIXAR
deben de ir en lineas separadas...

vou testar agora mesmo e trazer a resposta aqui pra todos...
um instante por favor!

[MICROVOLUTION]

DEFINE TEXTBOX Text_2 PARENT F_BAIXAR
deben de ir en lineas separadas...

vou testar agora mesmo e trazer a resposta aqui pra todos...
um instante por favor!

gente, eu não sabia que estava esse óbvio o tempo todo na minha "face" kkk
Então é assim:
se quero usar com a nomenclatura DEFINE/END tem que realmente tudo em linhas separadas, EXCETO o tipo de controle e seu nome (exemplo: DEFINE COMBOBOX CBteste)...
se quero tudo numa só linha ou linhas abaixo, tenho que usar o ";" (ponto e vírgula) se quiser dar ENTER (linha debaixo de linha) e muda um pouco também a nomenclatura...

se for isso, agora, acho que aprendi corretamente sobre os CONTROLES e suas SINTAXES.

Grato!

[AUGE_OHR]

hi,

have you try FMG Designer

i have learn HMG Syntax that Way while right Code Syntax is generate

[MICROVOLUTION]

have you try FMG Designer

not.
What?