HMG 3.5 - ERROR BASE 1449 ERRO DE SINTAXE "&"

[jairpinho]

olá, se você mudar para hmg por etapas em seu código ou módulos garanto que terá todas as respostas desde a mais simples como textbox, label janelas, funções, procedure, variáveis, grid combo entre outros componentes. Inicie uma parte do código e poste perguntando suas duvidas mesmo que não tenha iniciado nada em hmg, poste o código antigo e descreva como pensa que funcione em hmg com isso ira receber muitos exemplos do fórum

English
hello, if you switch to hmg in stages in your code or modules I guarantee that you will have all the answers from the simplest such as textbox, label windows, functions, procedure, variables, grid combo among other components. Start a part of the code and post asking your questions even if you haven't started anything in hmg, post the old code and describe how you think it works in hmg with this you will receive many examples from the forum

[MICROVOLUTION]

olá, se você mudar para hmg por etapas em seu código ou módulos garanto que terá todas as resposta

grato por expressar sua opnião.
Sempre estou em busca de melhorias.
Mas, o que estou tentando fazer é dar uma sobrevida ao meu sistema.
Não posso fazer e acredito não ter mais espaço para somente DESKTOP. O que na verdade então estamos à procura, é tirar um pouco da cara de CONSOLE/DOS para algo com aparência gráfica. Pra isso a lib GTWVG tem essa facilidade. O CONSOLE/WVG fica como estilo API/WINDOWS.
Então, já fiz no sistema o que não tinha até 2015:
- migração de clipper para harbour;
- implantação de impressoras USB, WIFI, etc (só tinha mal mal LPT1);
- movimentos e cliques do mouse nos menus VERTICAL/HORIZONTAL das telas CONSOLE/WVG;
- tela de splash 100% feita em HMG;
- tela de LOGIN 100% feita em HMG;
- MAIN WINDOW e MAIN MENU feitos 100% em HMG.
Agora, os módulos gerais do sistema, não quero mudar, por acreditar que não temos mais tempo para isso... pois o mundo agora é WEB + MOBILE.

e, por falar em mobile... desculpa expressar a minha humilde opinião sobre o assunto, que é milindroso...
Se, os criadores de todas as LIBs (HMG, HMGE, HWGUI, WVG, WVW, WVT, OOHG, etc) não se unirem em prol de:
- unificar as LIBs pra serem usadas juntas ou separadas;
- criarem um novo compilador/linkeditor que seja multiplataforma (pelo menos DESKTOP e MOBILE [ios e android]);
- criarem um manual, guia, tutorial (como tem na HMG e HMGE), mas, com todas as sintaxes de comandos, funções, métodos, classes, etc;

Sinceramente, na minha humilde opinião e sem desrespeitar a ninguém que tanto trabalhou pra termos o que já temos...
penso, que,

Nosso bom e velho clipper que agora é o HARBOUR, infelizmente irá morrer...

pois o mundo agora é web + mobile.

a gente só vê propaganda de JAVA, JS, PHYTON, C, C++, C#, e agora a propaganda é voltada para GO/GoLang... fora o Delphi que deu mais que uma sobrevida, sendo multiplataforma (DESKTOP + MOBILE nativos) + web (intraweb q é pago)...
por falar em pago, a Embarcadero criou uma versão free por 12 meses do RadStudio Delphi 10.3.3...
A questão desktop já está na prorrogação do 2º tempo e aos 48 minutos... o jogo já está acabando...

Quem entende do código fonte do HARBOUR, xHARBOUR e das libs HMG, HMGE, WVG, HWGUI, podiam muito bem, pensar nos pontos que abordamos.
Bom domingo a todos!

#ficaAdica

[jairpinho]

olá, se você mudar para hmg por etapas em seu código ou módulos garanto que terá todas as resposta

grato por expressar sua opnião.
Sempre estou em busca de melhorias.
Mas, o que estou tentando fazer é dar uma sobrevida ao meu sistema.
Não posso fazer e acredito não ter mais espaço para somente DESKTOP. O que na verdade então estamos à procura, é tirar um pouco da cara de CONSOLE/DOS para algo com aparência gráfica. Pra isso a lib GTWVG tem essa facilidade. O CONSOLE/WVG fica como estilo API/WINDOWS.
Então, já fiz no sistema o que não tinha até 2015:
- migração de clipper para harbour;
- implantação de impressoras USB, WIFI, etc (só tinha mal mal LPT1);
- movimentos e cliques do mouse nos menus VERTICAL/HORIZONTAL das telas CONSOLE/WVG;
- tela de splash 100% feita em HMG;
- tela de LOGIN 100% feita em HMG;
- MAIN WINDOW e MAIN MENU feitos 100% em HMG.
Agora, os módulos gerais do sistema, não quero mudar, por acreditar que não temos mais tempo para isso... pois o mundo agora é WEB + MOBILE.

e, por falar em mobile... desculpa expressar a minha humilde opinião sobre o assunto, que é milindroso...
Se, os criadores de todas as LIBs (HMG, HMGE, HWGUI, WVG, WVW, WVT, OOHG, etc) não se unirem em prol de:
- unificar as LIBs pra serem usadas juntas ou separadas;
- criarem um novo compilador/linkeditor que seja multiplataforma (pelo menos DESKTOP e MOBILE [ios e android]);
- criarem um manual, guia, tutorial (como tem na HMG e HMGE), mas, com todas as sintaxes de comandos, funções, métodos, classes, etc;

Sinceramente, na minha humilde opinião e sem desrespeitar a ninguém que tanto trabalhou pra termos o que já temos...
penso, que,

Nosso bom e velho clipper que agora é o HARBOUR, infelizmente irá morrer...

pois o mundo agora é web + mobile.

a gente só vê propaganda de JAVA, JS, PHYTON, C, C++, C#, e agora a propaganda é voltada para GO/GoLang... fora o Delphi que deu mais que uma sobrevida, sendo multiplataforma (DESKTOP + MOBILE nativos) + web (intraweb q é pago)...
por falar em pago, a Embarcadero criou uma versão free por 12 meses do RadStudio Delphi 10.3.3...
A questão desktop já está na prorrogação do 2º tempo e aos 48 minutos... o jogo já está acabando...

Quem entende do código fonte do HARBOUR, xHARBOUR e das libs HMG, HMGE, WVG, HWGUI, podiam muito bem, pensar nos pontos que abordamos.
Bom domingo a todos!

#ficaAdica

olá, vou tentar explicar porque deixar todo o código Atualizado e nativo, Vamos lá:
harbour+android?? sim já existe, já foi iniciado porem quando começar avançar estes projetos precisamos estar atualizados com códigos nativos, acredito que logo após a versão 3.4.5 ficar estabilizada já poderá existir projetos com android

http://hbmigsoft.blogspot.com/2015/04/h ... -v-04.html
http://hbmigsoft.blogspot.com/2015/03/g ... idgui.html
http://www.kresin.ru/en/android.html
https://github.com/alkresin/libharbour4a
http://www.elektrosoft.it/tutorials/har ... indows.asp

quanto ao delphi hoje uso muito Delphi free para criar servidor rest para web e aplicativos hmg e logo já teremos uma versão estável de restfull para harbour trabalhando com json ficando com servidor rest harbour e cliente harbour nativos conversando por json
atualmente utilizo Delphi para criar app mobile

aqui tem algo que deve ajudar para o que quer fazer em GTWVG
http://www.elektrosoft.it/tutorials/gtwvg/gtwvg.asp

Englishhello, I will try to explain why to leave all the code Updated and native, Come on:
harbor + android ?? yes it already exists, it has already started but when we start to advance these projects we need to be updated with native codes, I believe that soon after version 3.4.5 is stabilized there may already be projects with android

http://hbmigsoft.blogspot.com/2015/04/h ... -v-04.html
http://hbmigsoft.blogspot.com/2015/03/g ... idgui.html
http://www.kresin.ru/en/android.html
https://github.com/alkresin/libharbour4a
http://www.elektrosoft.it/tutorials/har ... indows.asp


as for delphi today i use a lot of Delphi free to create rest server for web and hmg applications and soon we will have a stable version of restfull for harbor working with json staying with rest harbor server and native harbor client talking by json
I currently use Delphi to create a mobile app

[MICROVOLUTION]

http://hbmigsoft.blogspot.com/2015/04/h ... -v-04.html
http://hbmigsoft.blogspot.com/2015/03/g ... idgui.html

seis longos anos se passaram e nada. as imagens do site nem abrem pra gente ver o resultado.

http://www.kresin.ru/en/android.html

parece que não deu em nada... um apena.

https://github.com/alkresin/libharbour4a

interessante, mas, também tem 6 anos que sequer é atualizado ou commit nalguma coisa.

http://www.elektrosoft.it/tutorials/har ... indows.asp

aqui sim, tem mais credibilidade, pois DiMaria cria tutoriais interessantes. Mas, neste caso, como por exemplo, conectar o celular com o computador e base de dados DBF?
não tem nada. só o HELLO WORLD.

http://www.elektrosoft.it/tutorials/gtwvg/gtwvg.asp

Esse já testei e uso.
No mais, o meu sistema tá rodando certinho em WVG ou HMG. A junção de ambas é que estou lutando pra conseguir, e, vou conseguir, se O Criador me der vida.
No mais, o meu muito obrigado!

[andyglezl]

Hola MICROVOLUTION
Puedes postear el código de tu FUNCTION/PROCEDURE: PCI10006() para hacer una prueba. ?
*------------------------------------------------------------------------------------------------------------------
Hi MICROVOLUTION
You can post the code of your FUNCTION / PROCEDURE: PCI10006 () to make a test. ?

[tonton2]

I used this little program to make invisible (ESSAI), using "HIDE", "VISIBLE" and others but nothing worked. Does anyone have an idea Thanks to all of you
remark:

Enable_Invisible.rar

(1.66 KiB) Downloaded 188 times

- Form_1.PopMenu.Enabled:= .F. ===> here the "PopMenu"(ESSAI) turns gray it's normal
- Form_1.PopMenu.Enabled:= .T. ===> here the "PopMenu"(ESSAI) returns to normal it's OK
- BUT Form_1.PopMenu.Visible := .F. must become invisible (Hidden), but it does not become so

[serge_girard]

Tonton,

I don't think it is possible...
but you can
DEFINE/RELEASE Menu at runtime:

- RELEASE MAIN MENU OF FormName
- RELEASE MAINMENU OF FormName
- ReleaseMainMenu ( cFormName )

and DEFINE again when you need visible.

Code: Select all

in main from
          DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 45,40 IMAGESIZE 22,22 FONT 'Arial' SIZE 8  FLAT
                 BUTTON Button_1   CAPTION 'ESSAI.Enable .F. '     ACTION z2()  
                 BUTTON Button_2   CAPTION 'ESSAI.Enable .F. '     ACTION z3()  
          END TOOLBAR


FUNCTION z2()
RELEASE MAIN MENU OF Form_1
RETURN




FUNCTION z3()
DEFINE MAIN MENU OF Form_1
     POPUP 'ESSAI' NAME PopMenu    // this name Creat_Menu
         ITEM 'ITEM 1'  Action msginfo( "Je suis visible   ") 
     END POPUP
END MENU

RETURN

This works but you will need to hide the buttons as well. Pressing the same button twice you give RTE.

Serge

[andyglezl]

tonton2, aquí tu ejemplo modificado...
Solo tienes que validar que esté definido el Menú
para evitar errores.
*------------------------------------------------------------------
tonton2, here's your modified example ...
You just have to validate that the Menu is defined
to avoid mistakes.

Code: Select all

#include "hmg.ch"

Function Main

   DEFINE WINDOW Form_1 ;
          AT 0,0 ;
          WIDTH 640 HEIGHT 480 ;
          TITLE 'Visible popup' ; 
          MAIN ;
          FONT 'Arial' SIZE 10 

          Pop_Menu()

          DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 45,40 IMAGESIZE 22,22 FONT 'Arial' SIZE 8  FLAT
                 BUTTON Button_1   CAPTION 'ESSAI.Enable .F. '   ACTION ReleaseMainMenu ( "Form_1" )		//Form_1.PopMenu.Enabled:= .F. 
		 
                 BUTTON Button_2   CAPTION 'ESSAI.Enable .T. '   ACTION Pop_Menu()				//Form_1.PopMenu.Enabled:= .T.   
          END TOOLBAR

   END WINDOW
   CENTER WINDOW Form_1
   ACTIVATE WINDOW Form_1
Return Nil


*****************************************************************************************************************************
// MAIN MENU
*****************************************************************************************************************************

Procedure Pop_Menu()
   
          DEFINE MAIN MENU OF Form_1

                 POPUP 'ESSAI' NAME PopMenu    // this name Creat_Menu
                    
                     ITEM 'ITEM 1'  Action msginfo( "Je suis visible   ") 
                     
                 END POPUP
          END MENU
Return

[tonton2]

Merci a vous Serge et Andyglezl , je viens de refaire un autre exemple mais avec2 popup, je voudrais cacher TEST1 et garder TEST2 visible .
Google translation
Thanks to you Serge and Andyglezl, I just did the same again, example but with 2 popup, I would like to hide TEST1 and keep TEST2 visible.

[andyglezl]

La sintaxis no menciona la propiedad VISIBLE... no se si funcione.
*----------------------------------------------------------------
The syntax doesn't mention the VISIBLE property ... I don't know if it works.


MainMenu Properties:
- Parent (R)

MenuItem Properties:

- Name (R)
- Checked
- Enabled
- Image
- ToolTip