Perdendo configuração de gets de leitura

Mensagem por **rubens** » 22 Jun 2015 13:32

Olá...
O título ficou meio estranho... não conseguir direito o problema mas é o seguinte...

Estou compilando um programa com a HMG/GTWVT e MINIGUI EXTENDS/GTWVT. Quando compilo com a MINIGUI EXTENDS/GTWVT o Get de data perde a configuração e não aceita colocar a barra. Já quando compila com a HMG isso não acontece...
Com minigui extendes/gtwvt
Erro na hora de digitar o numero ( o numero 0 fica a direita e quando pressiono enter e sai do get ele junta o numero digitaro 123 com o 0 e fica 1230 como pode ser visto na figura 2)

Na figura o 2 já é na data. Num get normal se digito a data 22062015 ele coloca as barras automaticamente 22/06/2015. Já nesse exemplo aí ele sobrescreve a data perdendo a formatacao... daí se eu digitar 22062015 vai comer as barras e daí não sai do get porque não há validação.

Isso só acontece na minigui extends. NA HMG 3.0.35 funciona normalmente...
Fiz teste também sem acrescentar o formulário só em modo texto e funciona... O problema é qdo insere objetos da minigui.
Nas duas compilações usei o minigui.ch tanto para compilar com hmg e minigui... na hmg funciona beleza...

Imagem funcionando Com hmg/gtwvt.

Formulario

Código: Selecionar todos

* HMG-IDE Form Designer Generated Code
* (c) Roberto Lopez - http://sites.google.com/site/hmgweb

DEFINE WINDOW TEMPLATE AT 198 , 408 WIDTH 550 HEIGHT 350 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL MAIN CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

    DEFINE BUTTON Button_1
        ROW    130
        COL    120
        WIDTH  100
        HEIGHT 28
        ACTION JANTEXTO()
        CAPTION "&Janela DOS"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
    END BUTTON

    DEFINE BUTTON Button_2
        ROW    130
        COL    314
        WIDTH  100
        HEIGHT 28
        ACTION thiswindow.release
        CAPTION "&Sair"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
    END BUTTON

END WINDOW

Alguma idéia de como resolver.. ?

Obrigado
Rubens

Mensagem por **Toledo** » 22 Jun 2015 15:33

Amigo, no código do formulário que você postou tem apenas dois botões! Poste o código do campo data e número que está com problema.

Abraços,

Mensagem por **rubens** » 22 Jun 2015 17:17

Toledo...
é o mesmo código compilado tanto com hmg como com hmgs... no HMG não precisei colocar a lib, já na hmgs tive que colocar a lib: C:\MINIGUI\HARBOUR\LIB\GTWVT.LIB

Código: Selecionar todos

#include 'minigui.ch'
#include 'hbgtinfo.ch'

REQUEST HB_GT_WVT_DEFAULT

FUNCTION Main
	
	LOAD WINDOW MISTO
	MISTO.CENTER
	MISTO.ACTIVATE 
	
RETURN( NIL )
 
*-------------------------------------------------------------------------------
FUNCTION JANTEXTO()

	HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )
	hb_gtInfo( HB_GTI_FONTWIDTH, 10 )
	hb_gtInfo( HB_GTI_FONTSIZE , 20 )
	hb_gtInfo( HB_GTI_FONTQUALITY , .T. )
	HB_GtInfo( HB_GTI_CLOSABLE, .F. )
	
	setmode(25,80)

	SET DATE BRIT 
	SET CENT ON 
	SET EPOC TO 1930
	
	dDATE  	:= DATE()
	nNUMERO  := 0
	cTEXTO   := SPACE(40)
	@ 12,10 SAY 'NUMERO...:' GET nNUMERO 
	@ 10,10 SAY 'DATA.....:' GET dDATE	
	@ 14,10 SAY 'TEXTO....:' GET cTEXTO
	READ

RETURN NIL

Obrigado
Rubens

Mensagem por **Toledo** » 22 Jun 2015 18:37

Amigo, tente usar o parâmetro PICTURE, que acho que vai ajudar, por exemplo:

Código: Selecionar todos

   @ 12,10 SAY 'NUMERO...:' GET nNUMERO PICTURE "999999"
   @ 10,10 SAY 'DATA.....:' GET dDATE   PICTURE "@D"
   @ 14,10 SAY 'TEXTO....:' GET cTEXTO

Agora uma observação pessoal, não tenho nada contra usar a IDE da MiniGui (HMG ou MiniGui Extended) para compilar programas em modo console, mas acho que a IDE foi feita para desenvolvimento em modo gráfico. Mesclar com a MiniGui modo console e modo gráfico juntos não vai dar certo, não é uma boa prática em fontes modo console chamar o #include 'minigui.ch', acho que isto vai confundir um pouco como o programa vai ser executar... gráfico ou texto?

Abraços,

Mensagem por **rubens** » 23 Jun 2015 08:20

Bom dia...

Obrigado Toledo...
O Uso da máscara resolveu...
Também concordo Toledo... que o certo e ideal seria não misturar as coisas... Mas para quem tá correndo atrás do prejuízo não adianta só mostrar para o cliente que o programa roda em qualquer windows, imprime em qualquer impressora USB ou não, envia e-mail, usa SQL etc... Ele quer que o sistema tenha botões e formulários igual o windows. E infelizmente não dá para mudar isso de uma hora para outra... Se voce consegue ir migrando por partes, já é um grande avanço... A Parte de cadastros até que vai rápido mas aí vem as movimentações... Cê num tem idéia da cara de satisfação de um cliente, quando eu cheguei com a parte de vendas já em janela minigui... O jeito de trabalhar não mudou muita para o sistema internamente mas o visual sim... O que acontece é que o cliente mesmo... trabalha de boa com o sistema produzindo resultados esperados.. o problema é os entendidos... que chegam e falam que o sistema é ultrapassado e tal, daí qualquer cliente fica grilado... bom em suma.... se der certo agora... o menu vai ficar gráfico e o restante vai sendo feito e testado aos poucos...

DE qualquer forma... obrigado Toledo...

Obrigado
Rubens