Errores en Samples / ERROR in Samples

[Javier Tovar]

Hola a todos / Hello everyone

Estando probando los ejemplos que vienen con HMG encontré que varios no se ejecutan bien o tienen errores. / While testing the examples that come with HMG found several not run well or have errors.


1.- Samples/ProgramExecution/MultiPRG --------> ERROR
2.- Samples/Proposed.Features/Grid.Sort-------->ERROR
3.- Samples/SamplesAplication/Contactos------->En el Grid salen signos diferentes a los mostrados en los TextBox
4.- Samples/UserComponents------------------->ERROR

Alguien me podría decir por favor en que están mal o si es que algo yo he omitido?. Los he probado con el IDE. / Anyone tell me please that are wrong or if anything I've missed?. I have tried with the IDE.

Gracias / Thanks

[esgici]

1.- Samples/ProgramExecution/MultiPRG --------> ERROR
2.- Samples/Proposed.Features/Grid.Sort-------->ERROR
3.- Samples/SamplesAplication/Contactos------->En el Grid salen signos diferentes a los mostrados en los TextBox
4.- Samples/UserComponents------------------->ERROR

Anyone tell me please that are wrong or if anything I've missed?. I have tried with the IDE.

1.- Samples/ProgramExecution/MultiPRG --------> Extract "libs=test1 test2" line from multiprg.hbc ( or "Configuration" tab in DE.

2.- Samples/Proposed.Features/Grid.Sort-------> Apparently this isn't a mature program Moreover, we don't need low-level stuff for sorting GRID column(s). Please look at "MiniAgenda" here or here

3.- Samples/SamplesAplication/Contactos------->In the Grid out signs than those shown in the TextBox No difference seen here

4.- Samples/UserComponents--------------------> Sorry; this subject is beyond of my perspective

Happy HMG'ing

[Pablo César]

Hola Javier Tovar,

En los siguientes ejemplos que citaste:

1.- Samples/ProgramExecution/MultiPRG --------> ERROR
Este error ya fué detectado en Item 1

2.- Samples/Proposed.Features/Grid.Sort-------->ERROR
Este otro error fué tambien relatado en item 4, pero en la version 3.1.5, no fué actualizada. Iré reforzar en mi ultimo "HMG 3.1.5 - Improvements and corrections".

3.- Samples/SamplesAplication/Contactos------->En el Grid salen signos diferentes a los mostrados en los TextBox
Esto es simples de resolver. El PRG todavia está en formato ANSI. Edictando el archivo em formato UTF-8 y corrigiendo los mensajes acentuados, irá funcionar. Pero tambien iré reforçar en "HMG 3.1.5 - Improvements and corrections"

4.- Samples/UserComponents------------------->ERROR
Este error tambien está relatado en item 4.

Espero haberte esclarecido y adradezco tu interés e indicaciones de errores.

[Javier Tovar]

Gracias Pablo, es muy acertada tu aclaración, también gracias Sr. Esgici.

Tengo algo más que comentar (que me he dado cuenta).

En el archivo AGENDA en el grid que llevan las letras para poder seleccionar la letra con el mouse y muestre en la grid, no se ejecutan ya que por falta de espacio es necesario hacer más grande la grid y la ventana, esto lo note también en la versión HMG.3.0.46 y ahorita estoy con la HMG.3.1.5. Ya que un principiante como yo no daba el por que esta no funcionaba.

Las correcciones serian estas:

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Thanks Pablo, your explanation is very successful, thanks also Mr. Esgici.

I have something else to say (that I've noticed).

In this file DIARY in the grid identified by the letters in order to select the character with the mouse, and display on the grid, do not run and that lack of space is necessary make larger grid and the window, this will also note in HMG.3.0.46 version and now I'm with HMG.3.1.5. As a beginner like me was not the reason that this did not work.

Corrections would be these:

Code: Select all

Function Main() 		
	Local i := 0

	SET DELETED ON
	SET CENTURY ON

	Private lNovo := .F.

	AgendaOpen()	

	DEFINE WINDOW Form_1   ;
	             AT 0,0	              ;
	             WIDTH 470	;                                          // PONER "WIDTH 470"
	             HEIGHT 470	;
	             TITLE "Agenda de Contatos";		
	             MAIN	              ;      
	             ICON "AGENDA"	;
	             NOMAXIMIZE	;
	             NOSIZE		;      	
	             ON RELEASE Finaliza_Sistema() ;
                           BACKCOLOR BLUE
	             
                           @ 010,415 Grid GIndice Of Form_1 WIDTH 40 HEIGHT 360 HEADERS {""} WIDTHS { 20 } ;  //PONER "WIDTH 40"                                  
                                            FONT "Arial" SIZE 07.5 ;
                                            TOOLTIP "Click na Letra Desejada"  ;		                           	                                    
	                              ON DBLCLICK Pesquisa_Agenda() 

[Pablo César]

En el archivo AGENDA en el grid que llevan las letras para poder seleccionar la letra con el mouse y muestre en la grid, no se ejecutan ya que por falta de espacio es necesario hacer más grande la grid y la ventana...

En mi opinion, lo que faltó, es aumentar la altura de ese mismo grid.

@ 010,415 Grid GIndice Of Form_1 WIDTH 40 HEIGHT 362 <--

---

El ejemplo C:\hmg.3.1.5\SAMPLES\SampleApplications\CONTACTOS púede ser mejorado. Principalmente, con respecto a solo abrir una vez sola y cerrar los dbfs al salir del programa. Tambien le falta una rutina de indexación. Si se corrompen los índices o se pierden, no hay como ejecutar el programa... Crees Javier, que puedes mejorarlo ?

[Javier Tovar]

Hola Pablo ya quedo, solo me hace algo raro en el grid y no se que es, podrías revisarlo... por favor.

[Javier Tovar]

Rutina de Abrir DBF y Crear Indices y Cerrar Tablas:

Code: Select all

*------------------------------------------------------------------------------*
PROCEDURE AbrirTablas
*------------------------------------------------------------------------------*
LOCAL nArea := SELECT('Tipos')
LOCAL aMidb := {}

	IF nArea == 0
	   IF ! FILE('Tipos.DBF' )
		  aMidb:= {{ "Cod_Tipo"   , "N", 03, 0}, ; 
				   { "Desc"       , "C", 32, 0}}
		  DBCREATE('Tipos.DBF', aMidb )
		  USE Tipos ALIAS Tipos NEW SHARED
		  IF ! FILE( 'Tipos.CDX' )
			 INDEX ON STR(Cod_Tipo, 3) TAG Cod_Tipo
			 INDEX ON Desc TAG Desc
		  ENDIF
		  Tipos->(DBCLOSEAREA())
	   ELSE
		  IF ! FILE( 'Tipos.CDX' )
			 USE Tipos ALIAS Tipos NEW SHARED
			 INDEX ON STR(Cod_Tipo, 3) TAG Cod_Tipo
			 INDEX ON UPPER(DESC) TAG DESC
			 Tipos->(DBCLOSEAREA())
		  ENDIF
	   ENDIF
	ENDIF

	USE Tipos ALIAS Tipos NEW SHARED
    INDEX ON Cod_Tipo TAG Cod_Tipo
	INDEX ON UPPER(Desc) TAG Desc
	Tipos->(DbGoTop())
	
*///////////////////////////////////////////////////////////////////////////////////////////////////////	
	nArea := SELECT('Contactos')
	aMidb := {}

	IF nArea == 0
	   IF ! FILE('Contactos.DBF' )
		  aMidb:= {{ "Apellido"   , "C", 25, 0}, ; 
				   { "Nombres"    , "C", 25, 0}, ;
				   { "Calle"      , "C", 25, 0}, ;
				   { "Numero"     , "N", 10, 0}, ;
				   { "Piso"       , "N", 02, 0}, ;
				   { "Dpto"       , "C", 01, 0}, ;
				   { "Tel_Part"   , "C", 16, 0}, ;
				   { "Tel_Cel"    , "C", 16, 0}, ;
				   { "E_Mail"     , "C", 32, 0}, ;
				   { "Fecha_Nac"  , "D", 8, 0}, ;
				   { "Observ"     , "M", 10, 0}, ;
				   { "Cod_Tipo"   , "N", 03, 0}}
		  DBCREATE('Contactos.DBF', aMidb )
		  USE Contactos ALIAS Contactos NEW SHARED
		  IF ! FILE( 'Contactos.CDX' )
			 INDEX ON UPPER(Apellido) TAG Apellido
			 INDEX ON Cod_Tipo TAG Cod_Tipo
		  ENDIF
		  Contactos->(DBCLOSEAREA())
	   ELSE
		  IF ! FILE( 'Contactos.CDX' )
			 USE Contactos ALIAS Contactos NEW SHARED
			 INDEX ON UPPER(Apellido) TAG Apellido
			 INDEX ON Cod_Tipo TAG Cod_Tipo
			 Contactos->(DBCLOSEAREA())
		  ENDIF
	   ENDIF
	ENDIF

	USE Contactos ALIAS Contactos NEW SHARED
    INDEX ON UPPER(Apellido) TAG Apellido
    Contactos->(ORDSETFOCUS('Apellido'))
	Contactos->(DbGoTop())

RETURN NIL 


*------------------------------------------------------------------------------*
PROCEDURE CerrarTablas
*------------------------------------------------------------------------------*
	DBCLOSEALL()
	FErase("Tipos.cdx")
	FErase("Contactos.cdx")
RETURN

[Javier Tovar]

Ok Pablo Cesar gracias por tu interés a HMG, y por responder pronto a mis sugerencias

Un cordial saludo

[Pablo César]

Gracias Javier por tu contribucion sobre las mejorias.

- Los grids y los forms de ContactosAdmin.Prg y de TiposAdmin.Prg fueron diferenciados porque tenian el mismo nombre. Esto no es una práctica ideal, entonces lo padronizé.
- Algunos closes estaban siendo ejecutados.
- Optimizado parte del código para creaccion de los dbfs (buena idea suya de crearlos en su falta).
- Adicionado un nuevo TAG para busca de nombre y por apellido.
- Adiconado funccion para exibir el tipo de contacto (Se es vecino, amigo, etc) a medida que cambia en el grid.
- El grid_2 no estaba configurado para cargar los datos directamente del dbf. Este era el error principal.
- Optimizado las funciones de busca, modificar, borrar y agregar.
- Substituido funciones de tratamiento de strings UNICODE.
- Los archivos de imagenes se encuentran en carpeta separada.
- Mejorado las indentaciones de los prgs para mejor compehension.

Creo que está funcionando normal y mejor ahora. Si tienes alguna nueva implementación que hacer, algun mejoramiento, creo que este ejemplo puedo llevar tu nombre como contribuidor de este ejemplo.

Lo bueno de este ejemplo que explica algun detalles importante sobre la programación GUI. Pena que no está en inglés para que otros colegas puedan ser útil.

Un gran abrazo !

<Archivo para download, removido. Baje la version más actualizada en el fin de este tópico>

[Javier Tovar]

Al compilar el ejemplo del amigo Pablo César me sale mal mi Form, esencialmente en los Grid, hay algo que este funcionando mal en mi HMG o IDE?, HMG.3.1.5.
Me sale asi cuando abro "Contactos":

Contact1.jpg (147.25 KiB) Viewed 5917 times

CONTACTOS1.rar

(1.74 MiB) Downloaded 288 times

Y cuando escribo "*" y doy "Enter":

Contact1.jpg (147.25 KiB) Viewed 5917 times

Por alguna razon no me sube bien las imagenes, no se que estoy haciendo mal, pero creo que se ve, lo que quiero corregir.