Page 1 of 1

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

Posted: Sun Dec 27, 2020 3:49 am
by 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!

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

Posted: Sun Dec 27, 2020 9:39 am
by serge_girard
Hello,

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

Serge

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

Posted: Sun Dec 27, 2020 11:15 am
by MICROVOLUTION
serge_girard wrote: Sun Dec 27, 2020 9:39 am
What error you get?
dá o erro de sintaxe, nem compila pela IDE.

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

Posted: Sun Dec 27, 2020 1:21 pm
by SALINETAS24
MICROVOLUTION wrote: Sun Dec 27, 2020 3:49 am
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!!

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

Posted: Mon Dec 28, 2020 12:33 am
by MICROVOLUTION
SALINETAS24 wrote: Sun Dec 27, 2020 1:21 pm 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!

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

Posted: Mon Dec 28, 2020 1:37 am
by MICROVOLUTION
MICROVOLUTION wrote: Mon Dec 28, 2020 12:33 am
SALINETAS24 wrote: Sun Dec 27, 2020 1:21 pm 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!

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

Posted: Mon Dec 28, 2020 3:36 am
by AUGE_OHR
hi,

have you try FMG Designer :?:

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

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

Posted: Mon Dec 28, 2020 1:55 pm
by MICROVOLUTION
AUGE_OHR wrote: Mon Dec 28, 2020 3:36 am have you try FMG Designer
not.
What?