Error en Validaciones

[gabrieloq]

Hola Amigos tengo un problema de validacion, estoy anexando un archivo empaquetado que tiene todo lo necesario para entender mi problema, primero leer el documento word. Gracias de antemano por su ayuda.

NOTA: Agunas funciones que utilizo no son de mi autoria las encontre en este foro.

[Pablo César]

Basicamente el error que dá es por la ventana Win_gx2 intentar de abrir en MODAL, siendo que ya existe otra ventana MODAL.

Sugiero que abras como CHILD.

Existen algunas funciones redundantes (ya existe lo equivalente en HMG) y que puedes substituir a seguir:

GETDESKTOPREALTOP -> GETWINDOWROW
GETDESKTOPREALLEFT -> GETWINDOWCOL
GETDESKTOPREALWIDTH -> GETWINDOWWIDTH
GETDESKTOPREALHEIGHT -> GETWINDOWHEIGHT

Existen otras que tambien son útiles como:

GETTITLEHEIGHT, GETBORDERHEIGHT, GETBORDERWIDTH, GETMENUBARHEIGHT, GETCLIENTAREAWIDTH, GETCLIENTAREAHEIGHT, GETWINDOWRECT

Estrañé cuando no vi que la instruccion #pragma BEGINDUMP y #pragma ENDDUMP (deberia tenerlo).

[gabrieloq]

Gracias Pablo Cesar por su pronta respuesta y sus observaciones.

con respecto a "Estrañé cuando no vi que la instruccion #pragma BEGINDUMP y #pragma ENDDUMP (deberia tenerlo)" en que parte de la aplicacion se debe colocar, yo la coloque en el programa principal y muestra muchisimos errores y no deja crear el ejecutable. Esta sentecias para que sirven. las busque en los samples de HMG y no hay referencia estas.

[Javier Tovar]

Yo construyo mis aplicasiones asi:

BuscaClie.jpg (114.88 KiB) Viewed 2967 times

Yo veo un poco raro tu programa: Aparte de lo que dice Pablo César, no encuentro donde le indicas que con "ENTER" te despliegue la pantalla para buscar. Se supone que en LOSTFOCUS le dices que te valide la entrada que hiciste al TextBox, pero no le dices en la clusula "ENTER" que se habrá una ventana para buscar el dato en el GRID.

Code: Select all

*NUMERO DE CLIENTE => CodClie
   DEFINE TEXTBOX TextBox_2
      ROW 389
      COL ColGet
      WIDTH 100
      HEIGHT 20
      FONTNAME 'Arial'
      FONTSIZE 9
      ONGOTFOCUS NIL
      ONLOSTFOCUS Busca_Alma_Clie()    //////////////////////////////////////////////////////////////////////
      ONCHANGE NIL
      ONENTER B_Alma_Clie()                  //////////////////////////////////////////////////////////////////////
      RIGHTALIGN .F.
      BACKCOLOR ColorFondoGets
      FONTCOLOR ColorLetraGets
      INPUTMASK '9999999999'
      NUMERIC .T.
      MAXLENGTH 10
      TOOLTIP 'Pulse <ENTER> para seleccionar'
   END TEXTBOX

*NUMERO DE CLIENTE => CodClie
   DEFINE BUTTON ImageButton_1 
      ROW 389
      COL ColGet + 100
      PICTURE ccDirRes+'button.bmp'
      ACTION B_Alma_Clie()
      WIDTH 20 
      HEIGHT 20 
      TOOLTIP 'Buscar Cliente' 
   END BUTTON	

Bueno te recomiendo que:

-Resuelve el problema de tu primer TextBox y tu primer Label.
-Que el código no este lejos uno de otro.
-Que cuando le des DobleClick se cierre automáticamente la ventana y te regrese al siguiente TextBox, "SetFocus".

Cualquier duda al respecto, aquí Estoy!!!

Saludos

-

[andyglezl]

Hola Gabriel

(Me pregunto como le hacen para aprenderse mas de 500 códigos de diagnóstico)
Yo te sugiero hacerlo de la siguiente manera...
Pones 2 Grid's, un vacio y otro con tu BD de códigos, consultas por la palabra que quieres y del resultado, das doble
click para añadirlo al grid vacio.

2Grids.png (130.92 KiB) Viewed 2956 times

NOTA: Solo probé el .exe, no revise los fuentes...

[Pablo César]

.."la instruccion #pragma BEGINDUMP y #pragma ENDDUMP (deberia tenerlo)" en que parte de la aplicacion se debe colocar

En verdad noté que el #pragma BEGINDUMP consta al inicio del código C. Solo resta colocar #pragma ENDDUMP al final del código en lenguaje C.

Con respecto a las funciones que indiqué para substituicion, por favor desconsiderar. Visto que no corresponden. Me engañé. Disculpen.

[Javier Tovar]

Hola Gabriel ya solucionaste tu problema?
Saludos