Interesante la nota, pero justo referencia Harbour, que hace 9 años que no se mueve, (la nota misma ya tiene sus 3 añitos).

Queda claro que ahora se incluye un compilador libre, eso es un alivio (en linux supongo que también).

Mi preocupación es que si tengo que asesorar en la entidad donde trabajo de una herramienta para reemplazar a VFP, es importante que si se debe hacer el esfuerzo de dar un salto, que el mismo sea lo menos traumatico posible (hay que reentrenar 5/6 programadores) y mi temor que el salto sea al vacio.

Todavia me parece que voy a seguir esperando al compilador .net de fox (que no está haciendo Microsoft), pareciera que que el salto no va a ser tan traumatico.

Saludos: Miguel

--- El mar 1-jul-08, oscar berrocal <oberrocalch@...> escribió:

De: oscar berrocal <oberrocalch@...>
Asunto: Re: [vfoxpro] Rv: [harbourminigui_es] Novato, no puedo llamar a otro prg
Para: vfoxpro@...
Fecha: martes, 1 de julio de 2008, 11:04 am

Aqui se puede aclarar algunas preguntas..

 

http://www.avemundi.com/archivos/000195.html

 

Saludos.. 

----- Mensaje original ----
De: Carlos Miguel FARIAS <carlosmiguelfarias@...>
Para: vfoxpro@...
Enviado: martes, 1 de julio, 2008 7:48:35
Asunto: Re: [vfoxpro] Rv: [harbourminigui_es] Novato, no puedo llamar a otro prg

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

---

¡Buscá desde tu celular! Yahoo! oneSEARCH ahora está en Claro
http://ar.mobile. yahoo.com/ onesearch

---

Enviado desde Correo Yahoo!
La bandeja de entrada más inteligente.