Errores en Samples / ERROR in Samples

[Pablo César]

Hola Javier, en verdad no sé si tu instalación de HMG 3.1.5 está avariada o no. De todas formas puedes desinstalar e instalarla nuevamente. Fijate que existe unos parches que deberia ser aplicados en 11. Patch corrections in following files y tambien este otro: Demos_HMG.3.1.5_patch2.rar y HMG.3.1.5_patch2.rar

Después debes re-hacer las bibliotecas (ejecutando el archivo C:\hmg.3.1.5\BuildAllLib.bat)

Lo que hé notado, que el archivo contactos.hbp estaba grabado en el formato UTF-8 y cuando es cargado en la IDE, notar que el primer archivo (main.prg) tiene un cuadradito al inicio del nombre del archivo. Eso porque el archivo deberia estar en ANSI para que el Harbour lo interprete... (creo que esto Claudio Soto poderia dar una mirada en el código de la IDE). Pero si lo regrabas o utilizas este del paquete que estoy adjuntando vá a servir...

Otro detalle, seria importante que apagues los archivos .cdx.

La rutina de indexación, lo re-hice para que lo haga en la falta de los mismo y pueda exibir el ProgressBar. Tambien hé mejorado el archivo de imagen de la nueva opcion, espero que te guste.

[Javier Tovar]

Hola Pablo César

Si, reinstale HMG.3.1.5 e hice lo que me indicaste y al parecer ya quedo, en mis archivos grave Contactos.hbp como ANSI y ya lo ejecuto bien.

Gracias por las correcciones!

Saludos
Polo

[Javier Tovar]

Hola a todos

Queriendo seguir con el archivo de "Contactos" y percatarme que no se ejecutaba "Buscar" en "Contactos" quise modificarlo, pero no se ejecuta como debiera, ya que se salta hasta el final... no se si a ustedes les pasa lo mismo? Al hacer Click en "Buscar" se salta hasta donde puse un MsgBox y no se por qué? Los archivos son los que publico arriba el amigo Pablo Cesar.


Hello everyone

Wanting to continue the file "Contacts" and see how, did not run "Search" on "Contacts" I wanted to modify it, but does not run as it should, since it jumps to the end ... not if you are in it together? When you click on "Search" are springing up where I put a MsgBox and why not? The files are the public above the friend Pablo Cesar.

Code: Select all

Function Buscar
Local nCol := Win_1.grid_1.Value[2]
Local Buscar := ""

Buscar := HMG_Upper ( AllTrim ( InputBox( 'Ingrese Apellido a Buscar:' , 'Busqueda' ) ) )
DBSELECTAREA( 'Contactos')
Contactos->(ORDSETFOCUS('Apellido'))

If .Not. Empty(Buscar)
	MsgBox(Buscar)
    DBSetOrder(nCol)
	If Contactos->(DbSeek(Buscar))
		Win_1.grid_1.RecNo := Contactos->(RecNo())
	Else
		MsgExclamation('No se encontraron registros')
	EndIf
ELSE
	MsgBox('sI ESTA VACIO')
EndIf
Return Nil

NoSale.jpg (154.28 KiB) Viewed 3643 times

Saludos

[Pablo César]

seguir con el archivo de "Contactos" y percatarme que no se ejecutaba "Buscar" en "Contactos" quise modificarlo, pero no se ejecuta como debiera, ya que se salta hasta el final... no se si a ustedes les pasa lo mismo?

No, a mi me funciona perfectamente.

Al hacer Click en "Buscar" se salta hasta donde puse un MsgBox y no se por qué?

Te indiqué que realizaras los 3 patches y regeneraras las LIBs de HMG. Para mi debe ser algo con respecto a eso, al menos que sin querer dejes en blanco el InputBox...

Si, reinstale HMG.3.1.5 e hice lo que me indicaste y al parecer ya quedo, en mis archivos grave Contactos.hbp como ANSI y ya lo ejecuto bien.

Perfecto !

[Javier Tovar]

Ok, ya quedo mi HMG, después de batallar un buen rato... Lo que hacia mal era modificar el archivo "Buildlib.bat" y no era así, solo hay Cambiar las carpetas que dijo Claudio HMG.3.1.5Path_2.rar que son INCLUDE y SOURCE. y ejecutar los *.bat que están en la carpeta de HMG.3.1.5, Buidlib.bat y Builalllib seleccionar que los ejecute en la opción 2-Unicode. Y cambiar el IDE por uno que Claudio dío en IDE_UNICODE2.rar.

Gracias a todos por la atención

[Javier Tovar]

Hola

Aquí están los archivos de Contactos modificados por el amigo Pablo César y ahora tienen la información y descripción de la programación. En Español e Ingles

Un cordial saludo
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Hello

Here are the contacts files modified by friend Paul César and now have the information and description of the schedule. Spanish and English

Regards

CONTACTOS2.rar

(896.6 KiB) Downloaded 319 times

[bpd2000]

Thanks to Pablo, Javier Tovar