FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour GET no deja editar
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
GET no deja editar
Posted: Mon Dec 26, 2016 12:31 AM

Buenas noches

Tengo este dialogo pero al intentar colocar un valor los GET no lo aceptan. No logro entender la razon

include "fivewin.ch"

FUNCTION MAIN()
LOCAL oDlg,oFont
LOCAL cIp :=cIp
LOCAL cLogin :=cLogin
LOCAL cPass :=cPass

DEFINE FONT oFont NAME "Arial" SIZE 0, -11 BOLD

DEFINE DIALOG oDlg TITLE "Datos del Servidor MS-SQL Server" ;
FROM 0,0 TO 15,50;

@ 0.5,0.5 SAY "Nombre del Servidor" ;
FONT oFont

@ 1.4,0.5 GET cIp VAR cIp SIZE 115,10

@ 2.1,0.5 SAY "Login" FONT oFont
@ 3.2,0.5 GET cLogin SIZE 70,10

@ 3.6,0.5 SAY "Password" FONT oFont
@ 5.0,0.5 GET cPass PASS SIZE 70,10

ACTIVATE DIALOG oDlg CENTERED

RETURN .T.

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: GET no deja editar
Posted: Mon Dec 26, 2016 02:33 AM

Saludos, no veo la declaracion de las VAR, no tienen valor asigando asi que su valor por defecto es NULL, revisa eso haber, estas declarando los objetos al valor de si mismo, eso no lo entiendo

local cVar := space(n) o nVar := 0

local oGet1, oGet2

@ x, y GET oGet1 VAR cVar......

usas el mismo objeto como var

@ 1.4,0.5 GET cIp VAR cIp SIZE 115,10

Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion