Como ativar entradas nos Gets

[Vandi]

Bom dia a todos,

E, antecipadamente, peço desculpas pela pergunta infantil que irei fazer, mas, no código abaixo o que está faltando para ativar as entradas nos gets?
Essa rotina faz parte de um sistema que estou montando. As outras estão funcionando OK, mas nessa aí estou "comendo moscas".

Código: Selecionar todos

*---------------------------------------------------------------------------------------
Function teste()   
*---------------------------------------------------------------------------------------
#include "hwgui.ch"
Local TelaPagto, oFontBtn
Private Gf_Regi,Gf_Codi,Gf_Data,Gf_Hist,Gf_Valo
Private oRegi,oCodi,oData,oHist,oValo

     PREPARE FONT oFontBtn NAME "Arial" WIDTH 0 HEIGHT -12

     INIT DIALOG TelaPagto TITLE "Pagamento de Fornecedores"   ICON HIcon():AddResource(1004)  ;
     AT 370,175 SIZE 630,320  FONT HFont():Add( '',0,-13,400,,,)   CLIPPER NOEXIT ;
     STYLE WS_POPUP+WS_CAPTION+DS_SYSMODAL +DS_CENTER +WS_SYSMENU+WS_MINIMIZEBOX+WS_SIZEBOX

     MontaVariaveis()

     @ 22, 60 Say "Codigo"  SIZE 100,20
     @105, 60 Get Gf_Codi VAR oCodi   PICTURE "9999" STYLE WS_DISABLED   SIZE 50, 20

     @ 22,100 Say "Data" SIZE 60, 20
     @105,100 Get Gf_Data VAR oData  PICTURE "99/99/9999"  VALID {||DAY(CTOD(oData)#0)}  STYLE WS_DISABLED  SIZE 80, 20

     @ 22,140 Say "Historico" SIZE 60, 20
     @105,140 Get Gf_Hist VAR oHist  PICTURE REPLICATE("@!",50)  STYLE WS_DISABLED  SIZE 400, 20

     @ 22,180 Say "Valor" SIZE 60, 20
     @105,180 Get Gf_Valo VAR oValo  PICTURE "999,999.99"  STYLE WS_DISABLED  SIZE 150, 20

     ACTIVATE DIALOG TelaPagto ON activate {|o| TelaPagto:center()}

Return Nil

*---------------------------------------------------------------------------------------
Function MontaVariaveis()
*---------------------------------------------------------------------------------------

oCodi:=SPACE(04)
oData:=SPACE(10)
oHist:=SPAC(50)
oValo:=0.00
Return Nil

Gilvandi

[sygecom]

Olá Gilvandi,

E, antecipadamente, peço desculpas pela pergunta infantil que irei fazer, mas, no código abaixo o que está faltando para ativar as entradas nos gets?

Não existe pergunta infantil ou invalida, estamos todos aqui para um ajudar o outro.

Veja que no seus GET você está usando o seguinte STYLE: WS_DISABLED, esse STYLE inicia o GET desativado, se você retirar ele você consegue editar os GET.

Outra coisa que notei no seu código que está com redundancia é que no STYLE do INIT DIALOG você está usando DS_CENTER e no ACTIVATE DIALOG você está usando TelaPagto:center(), ambos fazem a mesma coisa, centraliza a tela ao abrir a DIALOG, você pode deixar apenas o DS_CENTER.

Abaixo seu código corrigido.

Código: Selecionar todos

*---------------------------------------------------------------------------------------
Function teste()   
*---------------------------------------------------------------------------------------
#include "hwgui.ch"
Local TelaPagto, oFontBtn
Private Gf_Regi,Gf_Codi,Gf_Data,Gf_Hist,Gf_Valo
Private oRegi,oCodi,oData,oHist,oValo

     PREPARE FONT oFontBtn NAME "Arial" WIDTH 0 HEIGHT -12

     INIT DIALOG TelaPagto TITLE "Pagamento de Fornecedores"   ICON HIcon():AddResource(1004)  ;
     AT 370,175 SIZE 630,320  FONT HFont():Add( '',0,-13,400,,,)   CLIPPER NOEXIT ;
     STYLE WS_POPUP+WS_CAPTION+DS_SYSMODAL +DS_CENTER +WS_SYSMENU+WS_MINIMIZEBOX+WS_SIZEBOX

     MontaVariaveis()

     @ 22, 60 Say "Codigo"  SIZE 100,20
     @105, 60 Get Gf_Codi VAR oCodi   PICTURE "9999" SIZE 50, 20

     @ 22,100 Say "Data" SIZE 60, 20
     @105,100 Get Gf_Data VAR oData  PICTURE "99/99/9999"  VALID {||DAY(CTOD(oData)#0)}  SIZE 80, 20

     @ 22,140 Say "Historico" SIZE 60, 20
     @105,140 Get Gf_Hist VAR oHist  PICTURE REPLICATE("@!",50)  SIZE 400, 20

     @ 22,180 Say "Valor" SIZE 60, 20
     @105,180 Get Gf_Valo VAR oValo  PICTURE "999,999.99"  SIZE 150, 20

     ACTIVATE DIALOG TelaPagto  //ON activate {|o| TelaPagto:center()} 

Return Nil

*---------------------------------------------------------------------------------------
Function MontaVariaveis()
*---------------------------------------------------------------------------------------

oCodi:=SPACE(04)
oData:=SPACE(10)
oHist:=SPAC(50)
oValo:=0.00
Return Nil

[Vandi]

Sygecom,

Boa tarde...
Mais uma vez, muito obrigado pela colaboração e pelo ensinamento.

Gilvandi