Problema con ComboBox

[mjaviergutierrez]

Hola, estoy renegando con algo que debe ser una tontería, pero no logro sacar, paso a explicar :
1. uso el IDE, armo un form
2. en el form pongo un ComboBox y en la propiedad Ítem le pongo un array, ejemplo : ITEM = aTiposDePago
3. en tiempo de ejecución llamo el form y lleno el array de la siguiente forma :

Function Pagos

aTiposDePago:={}

PAGOS->( DBGOTOP( ) )
While PAGOS->( .not. EOF( ) )
AADD( aTiposDePago ,PAGOS->DESCRIP ) // lleno el array con los distintos tipos de pagos
PAGOS->( DBSKIP( ) )
End While

LOAD WINDOW frmFormulario
ACTIVATE WINDOW frmFormulario

me da el error: "no existe la variable aTiposDePago, o sea el array que declare en la función que llamo al form generado con el IDE.

??????
me esta volviendo loco, es tarde, pero por ahí algunos de mis compañeros de grupo esta mas lucido que yo y pesca donde le estoy errando, ja ja. Como siempre desde ya muchas gracias.

[danielmaximiliano]

Algo raro se ve en el codigo que publicaste..

puedes publicar el ejemplo completo, con todo lo necesario para poder ejecutarlo y probar ..

[mjaviergutierrez]

Vos nunca entendes los posts que publicamos, pensé que era solo con mis posts, pero a todos le decis lo mismo, que es lo que no entendes ? Hay algún otro miembro que no entienda lo que explique ? aunque no sepa la respuesta ?
vuelvo a explicar :
armo un form con el IDE le agrego un control ComboBox, en la propieda ITEMS le pongo el nombre de un variable que es un array , cuando en tiempo de ejecución lo llamo, me error : no existe la variable, pero a la variable la declare en la función que llama a formulario generado con el ide, obvio, dentro del mismo proyecto.

[mjaviergutierrez]

parecemos todos boludos ! Que sos tan inteligente que no entendes las pavadas que publicamos ? o solo respondes para estar en los "Peak Posters", por que no veo que des muchas soluciones. Solo planteos.

[Javier Tovar]

Hola mjaviergutierrez,

Creo que lo que dice el amigo Daniel Maximiliano es que muchas veces son cosas tan simples, pero el que esta haciendo la aplicación no vemos el error, y tu sabes que por un "." o una "," ya no compila bien.

Bueno dado tu pregunta hice un ejemplo para ver que podía ser, pero a mi me compila bien este ejemplo:

Code: Select all

#include <hmg.ch>

Function Main
LOCAL aValores:= {}

	AADD(aValores,"Uno")
	AADD(aValores,"Dos")
	AADD(aValores,"Tres")
	AADD(aValores,"Cuatro")
	AADD(aValores,"Cinco")

	Load Window Combo
	Combo.Center
	Combo.Activate

Return

Y en el archivo *.FMG esta ASÍ:

Code: Select all

* HMG-IDE UNICODE Form Designer Generated Code
* (c) Roberto Lopez - http://sites.google.com/site/hmgweb

DEFINE WINDOW Combo AT 189 , 366 WIDTH 550 HEIGHT 350 MAIN VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL  CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

    DEFINE COMBOBOX Combo_1
        ROW    40
        COL    370
        WIDTH  100
        HEIGHT 100
        ITEMS aValores
        VALUE 0
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        SORT .F.
        ONENTER Nil
        ONDISPLAYCHANGE Nil
        DISPLAYEDIT .F.
        IMAGE Nil
        DROPPEDWIDTH Nil
        ONDROPDOWN Nil
        ONCLOSEUP Nil
    END COMBOBOX

END WINDOW

Y el resultado es este:

Combo.jpg (21.62 KiB) Viewed 3183 times

Espero haberte ayudado.

P.D.: No cuesta nada tratar de ser un poco más claro.

[mjaviergutierrez]

Gracias Javier Tovar (tocayo, como decimos en Argentina) , por haberte tomado la molestia de responder. Igual creo que fui muy claro. Gracias, ahora pruebo tu ejemplo.

[mjaviergutierrez]

je je, lo de un "." o una "," ya lo he experimentado hace 24 años que programo, te puedo asegurar que antes de molestar aquí, paso muchas horas haciendo pruebas, buscando ejemplos, buscando posts ... etc, etc, etc, te aseguro que cuando llego a publicar aquí es porque no tengo otra solución. Si tuviera un manual "posta", lo leería de punta a punta, pero... Igual esta es una herramienta que me ha ayudado mucho en mi trabajo y me parece impresionante, para mi es lo "mas" como dicen los pibes. Pero no comparto, para nada, responder un post de un miembro del grupo si no entiendo lo que pregunta, (por que no sé), si yo sé de que esta hablando y puedo ayudarlo, respondo con todo gusto. Pero no respondo diciendo que no "es claro" si no se que pregunta. Creo que es algo obvio. Agradezco a todos los que responden mis inquietudes y estoy disponible 100% para lo que yo pueda ayudar. Gracias, totales. A todos.

[Pablo César]

Hola Javier, lamento mucho que los ánimos empiecen a desgastarse. Entiendo que muchas veces uno rompe la cabeza para encontrar el error que a veces es muy claro pero no lo vemos. Asi como vos que estás adelante de tu código, imaginate a nosotros que por apenas palabras y parte del código tambien no lo vemos. Pero siempre debemos tratarnos con respecto muchachos. Daniel no te faltó con respecto. Esas palabras no deberian ser usadas, Javier. Disculpame, tengo mucha consideracion contigo, pero debemos intentar ser amigos y a veces hacer de cuenta que no leímos algo que no nos haya gustado. Con cabeza caliente, no se resuelve nada. Por favor, mantengamos la linea y tratemos con respecto.

Por lo poco que pudimos ver del código, pude analisar lo siguiente:

2. en el form pongo un ComboBox y en la propiedad Ítem le pongo un array, ejemplo : ITEM = aTiposDePago

No sabemos si vos pusiste asi o no. Por eso que Daniel te pidió tu código. Porque de esta forma que pusiste, evidentemente que vá a dar problemas. Y te explico porqué:

Fijate el ejemplo que Javier Tovar, donde muestra como definió el ComboBox en la propiedad ITEMS aValores. No sabemos si este es tu caso. Pero a veces como dijimos antes, con cabeza caliente no vemos lo más óbvio. Eso lo digo porque pasa con todos nosotros, sin la intencion de menosprezarte, OK Javier Gutierrez ?

Daniel, te explicó el porqué de poner tu código por completo. Justamente es para que nosotros puédamos te ayudar y poder reproducir fielmente lo que te está pasando. Porque sin presentar lo mismo que tienes o similar, no se puede reproducir la misma situacion. Concordás conmigo en eso ? Y acostumbramos a pedir código/ejemplo, asi nos facilitas para que podamos hacer TESTs, simplesmente eso.

Tengo otra indicacion que no solo te irá servir a vos como a todos.

Colocando al invés de un array, tambien puedes colocar una funcion que devuelve (en su retorno) una array. Ejemplo: ITEMS BuscaTiposDePago()

El fórum lo que tiene de fantástico es eso, si todos somos claros sea en la preguntas como en las respuestas, ese mismo post podrá servir a otros en el futuro.

[EduardoLuis]

Pablo, nadie pudo expresar mejor el espíritu del foro.-

+100

mjaviergutierrez: a todos nos sucede encontrarnos durante el desarrollo de una aplicación ante un atolladero que parece sin salida y eso puede sacarnos de las casillas.- Pero eso no justifica la descalificación a un miembro del grupo que te pide mas información para ayudarte a resolver tu problema.- Conozco a Daniel, y su comportamiento en el foro está muy lejos de pretender ser un "peak poster", más aún, siempre que algún requerimiento de otro miembro estaba a su alcance darle una solución, lo hizo con su habitual gentileza.- Creo que mas allá de cualquier animosidad respecto de Daniel, resultaría saludable que reflexionaras sobre la forma un tanto agresiva en que te expresas.- Ninguno de los miembros del foro es dueño de la verdad revelada, y todos con mayor o menor experiencia o trayectoria somos aprendices de la experiencia de los otros.-
Saludos. Eduardo

[luisvasquezcl]

Estimado mjaviergutierrez,
Considero que es una falta de respeto como ha tratado a DanielMaximiliano.
Cuando uno pide ayuda, debe considerar que te puedan pedir más información y estar dispuesto a proporcionarla.
Daniel siempre ha sido muy cortes y cooperador con el foro, pero si siguen estas faltas de respeto y de cortesía, no quedará nadie con deseos de responder ningún post.
Ojalá que esto sea sólo un mal momento, nuestro grupo siempre se ha caracterizado por ser muy cooperador y con muy buenas relaciones por lo que espero se mantenga.
Saludos cordiales,
Luis Vásquez.