Preguntas:

Esta herramienta, requiere ademas harbour, xharbour?
Estas herramientas, en el caso de plataformas Windows, veo que requieren un compilador C++ (hay varias opciones), estos compiladores son de pago? hay alguno gratis?

Estas herramientas son realmente estables?

Por lo que vi de Harbour, todavía están betas (luego de 9 años)

xHarbour parece que se mueve más.

Tenes mas información sobre esto (resumida) o tendré que seguir revolviendo la Web

Gracias

Saludos: Miguel

--- El lun 30-jun-08, oscar berrocal <oberrocalch@ yahoo.es> escribió:

De: oscar berrocal <oberrocalch@ yahoo.es>
Asunto: [vfoxpro] Rv: [harbourminigui_ es] Novato, no puedo llamar a otro prg
Para: vfoxpro@gruposyahoo .com.ar
Fecha: lunes, 30 de junio de 2008, 10:55 am

Para los que deseen conocer a su primo cercano del VFOX... En especial es que es FREE...

 

----- Mensaje reenviado ----
De: Jonatan Hernandez <jhm.programador@ gmail.com>
Para: harbourminigui_ es@yahoogroups. com
Enviado: lunes, 30 de junio, 2008 1:58:35
Asunto: [harbourminigui_ es] Novato, no puedo llamar a otro prg

Hola Amigos.

Estoy facinado con HMG. Programo con clipper por mas de 15 años y
ahora continuare por 20 años +

Como mo estoy iniciando. Tengo algunas dudas que no he podido
solucionar con los ejemplos.

la 1ra.

Como puedo llamar a un programa despues de que ingres un usuario y
contraseña. El programa que quiero llamar se llamam MENUGENERAL. Pero
no se como llamarlo despues de validar el usuario y contraseña

Aqui va el código (porfavor no se rian, miren que estoy recien comenzando.

// Iniciol del programa

#include "minigui.ch"

Set Procedure To RUTINAS

#xtranslate VALID <condition> [ MESSAGE <message> ] ;
=> ;
ON LOSTFOCUS _DoValid ( <condition> , <message> )

Function Main

//////////// ///////// ///////// ///////// ///////// ///////// ///////// ///////// ////
// Inicializacion RDD DBFCDX Nativo
//////////// ///////// ///////// ///////// ///////// ///////// ///////// ///////// ////

REQUEST DBFCDX , DBFFPT
RDDSETDEFAULT( "DBFCDX" )

Public _HMG_IsValidInProgr es := .F.

SET NAVIGATION EXTENDED
SET EPOCH TO 2000

SET CENTURY ON
_DATOS_OK=0

OPENDBF()

DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 900 ;
HEIGHT 700 ;
TITLE '' ;
MAIN ;
BACKCOLOR {241,248,253}

@ 450,0 FRAME Frame_1 CAPTION '' ;
WIDTH 890 HEIGHT 180 ;
BACKCOLOR BLUE;
FONTCOLOR BLUE



@ 500,110 LABEL Label_1 VALUE 'INGRESE USUARIO ' ;
HEIGHT 50 WIDTH 400;
BACKCOLOR {241,248,253} ;
FONT "ARIAL" SIZE 14
FONTCOLOR BLUE

@ 550,110 LABEL Label_2 VALUE 'CLAVE DE ACCESO' ;
HEIGHT 50 WIDTH 400;
BACKCOLOR {241,248,253} ;
FONT "ARIAL" SIZE 14
FONTCOLOR BLUE

@ 500,300 TEXTBOX Text_1 ;
HEIGHT 25 WIDTH 170;
VALUE '' ;
FONT 'Verdana' SIZE 14 ;
TOOLTIP 'Character TextBox';
VALID VALIDA_USUARIO( FORM_1.TEXT_ 1.VALUE,1) ;
MESSAGE 'USUARIO NO EXISTE'

@ 550,300 TEXTBOX Text_2 ;
HEIGHT 25 WIDTH 170;
VALUE '' ;
FONT 'Verdana' SIZE 14 ;
PASSWORD;
TOOLTIP 'Character TextBox';
VALID VALIDA_USUARIO( FORM_1.TEXT_ 2.VALUE,2) ;
MESSAGE 'CLAVE DE ACCESO INCORRECTA'


END IMAGE

END WINDOW

CENTER WINDOW Form_1

ACTIVATE WINDOW Form_1


Return

FUNCTION VALIDA_USUARIO( _usuario1, _opcion)

Public _clave_dbf
sele usuarios

if _opcion=1
seek padr(_usuario1, 20)
if !found()
RETU .F.
endif
else

if padr(_usuario1, 15)#padr( password, 15)
retu .f.
endif



Endif

RETU .T.

FUNCTION OPENDBF()

IF USE_NET(4,0, "USUARIOS" )
ENDIF
IF !FILE("USUARIOS. CDX")
INDEX ON PADR(usuario, 20) TO USUARIOS
ENDIF
SET ORDE TO 1
GO TOP

Function _DoValid ( Expression , Message )

If _HMG_IsValidInProgr es

Return Nil

Else

If ValType ( Message ) = "U"
Message := "DATO INCORRECTO"
EndIf

_HMG_IsValidInProgr es := .T.
If ( Expression , Nil , ( MsgStop (Message,'') , This.SetFocus ) )
_HMG_IsValidInProgr es := .F.

EndIf

_DATOS_OK=1

Return Nil

Procedure Menugeneral


DEFINE WINDOW win_2 ;
AT 0,0 ;
WIDTH 900 ;
HEIGHT 700 ;
TITLE '' ;
MAIN ;
BACKCOLOR {241,248,253}

@ 50,10 CHECKBUTTON CheckButton_ 1 ;
PICTURE 'fd.gif' ;
WIDTH 27 ;
HEIGHT 27 ;
VALUE .F. ;
TOOLTIP 'Graphical CheckButton'

END WINDOW

ACTIVATE WINDOW Win_2

Return

// fin del programa