[SOLUCIONADO] Procedimiento deja de funcionar cuando cambio de PC

[Jarmandaros]

Alguno de ustedes tiene conocimiento acerca de a que se debe que tengo un procedimiento en un formulario que me funciona perfectamente en la pc donde lo he programado, pero cuando llevo el codigo a otra pc, dicho procedimiento no funciona 

NOTA: en las dos pcs esta el visual studio enterprise 6.0, las dos con winxp español.

cualquier comentario o consejo se los agradesco de antemano, saludos 

[vlad]

Hijole, ahi esta muy dificil de que alguien te responda a ciencia cierta sin saber mas datos o ver el codigo.

Mi mejor estimación es que tu código (esa función) hace uso de alguna librería o ActiveX que solo una de las maquinas posee.

[Jarmandaros]

Gracias Vlad por contestar, pues mira el codigo es este y no esta relacioando a ningun activex o libreria, por eso es raro lo que me pasa:

Código: [Seleccionar]


sele cxdia
go top
do while !eof()
sele xdia
locate for thisform.grid1.column1.combo1.value=codigo
if found() && si lo encuentra
else
   =messagebox('El Codigo esta procesado!',64,'Alerta...')
endif
sele cxdia
skip
enddo

thisform.grid1.refresh()


lo que hace es que compara un codigo de la tabla temporal cxdia y lo busca en la tabla xdia y si lo encuentra me da el mensaje que ya esta procesado.

el codigo esta puesto en el procedimiento Valid de un combo. Ojala y me haya explicado bien. 

Gracias de antemano... 

[vlad]

Las tablas de prueba en ambas maquinas son identicas?.

Ademas, ¿en que parte del funcionamiento piensas que difiere?, o a que te refieres con "cuando llevo el codigo a otra pc, dicho procedimiento no funciona"?

[Jarmandaros]

Las tablas de prueba en ambas maquinas son identicas?.

Ademas, ¿en que parte del funcionamiento piensas que difiere?, o a que te refieres con "cuando llevo el codigo a otra pc, dicho procedimiento no funciona"?

ok, me llevo todo el proyecto completo a otro pc.

y pues en mi PC cuando cuando selecciono del listado del COMBO un Codigo me da un messagebox diciendome que ese codigo ya existe en determinada tabla, pero en la otra pc, pareciera que se obviara este codigo porque selcciono y no me dice que existe cuando yo se que ese codigo ya lo meti en la tabla 

[DarkBios]

ok, me llevo todo el proyecto completo a otro pc.

revisastes si no te falta algo en la segunda pc acerca de visual Studio 6, digamos el msdn

[Jarmandaros]

revisastes si no te falta algo en la segunda pc acerca de visual Studio 6, digamos el msdn

con respecto a esto...

he realizado la misma instalacion en los 2 pc con los mismos discos de instalacion VS6 +MSDN y en ninguno e instalado SP para el VS.

[DarkBios]

con respecto a esto...

he realizado la misma instalacion en los 2 pc con los mismos discos de instalacion VS6 +MSDN y en ninguno e instalado SP para el VS.

La unica cosa que se ocurre es posible una restrinción tiene el windows para que no te deje correr el archivo

[Jarmandaros]

La unica cosa que se ocurre es posible una restrinción tiene el windows para que no te deje correr el archivo

pues el pryecto corre bien, el formulario carga bien pero especificamente cuando selecciono del combo y que me tendria que decir si esta o no ahi es donde no hace nada pero el programa sigue trabajando.. 

[kikeuntercio]

proba asi.

Código: [Seleccionar]

sele cxdia
locate for thisform.grid1.column1.combo1.value=codigo
if found() && si lo encuentra
messagebox('El Codigo esta procesado!',64,'Alerta...')
endif
thisform.refresh

claro que entiendo que solo queres comprobar si existe en la tabla cxdia si existe el codigo ingresado en Combo1

lo raro que veo que estas trabajajando en el mismo gridd, seria de ver una captura de pantalla para mejor detalle  y quizas un poco mas de explicacion sobre el formulario.

[Jarmandaros]

proba asi.

Código: [Seleccionar]

sele cxdia
locate for thisform.grid1.column1.combo1.value=codigo
if found() && si lo encuentra
messagebox('El Codigo esta procesado!',64,'Alerta...')
endif
thisform.refresh

claro que entiendo que solo queres comprobar si existe en la tabla cxdia si existe el codigo ingresado en Combo1

lo raro que veo que estas trabajajando en el mismo gridd, seria de ver una captura de pantalla para mejor detalle  y quizas un poco mas de explicacion sobre el formulario.

ok, ya hago las capturas y las pongo, pero la pregunta es.... porque en mi pc va a la perfeccion?? y en la otra no..

[vlad]

Comproba que en las dos maquinas estes obteniendo el mismo "thisform.grid1.column1.combo1.value=codigo" cuando se ejecute esa función.

No se si Fox lo tiene, pero si podes establecer una pausa en el codigo en ese procedimiento (Breakpoints) te sería de gran utilidad para determinar que es lo que sucede.

[Jarmandaros]

Comproba que en las dos maquinas estes obteniendo el mismo "thisform.grid1.column1.combo1.value=codigo" cuando se ejecute esa función.

No se si Fox lo tiene, pero si podes establecer una pausa en el codigo en ese procedimiento (Breakpoints) te sería de gran utilidad para determinar que es lo que sucede.

  interesante, creeme que no lo habia pensado, ahorita me rebusco con esta pausa.....

[eduardoantonio10]

interesante, creeme que no lo habia pensado, ahorita me rebusco con esta pausa.....

pon un

Set Step on
 antes del codigo para poner en modo de depuración

[Jarmandaros]

Comproba que en las dos maquinas estes obteniendo el mismo "thisform.grid1.column1.combo1.value=codigo" cuando se ejecute esa función.

No se si Fox lo tiene, pero si podes establecer una pausa en el codigo en ese procedimiento (Breakpoints) te sería de gran utilidad para determinar que es lo que sucede.

hey Gracias Vlad, en efecto aqui estaba el error, no me tiraba nada en el valor "thisform.grid1.column1.combo1.value=codigo" aunque lo que en si pasaba era que unas veces lo hacia y otras no asi es que decidi cambiar el codigo del evento valid al evento click y ahora si me funciona en las dos pc.

pon un

Set Step on
 antes del codigo para poner en modo de depuración

Gracias eduardoantonio10 por el dato, me ha servido de mucho, es algo que desconocia y con esto pude solucionar mi problema.

bueno, agradezco a todos los que aportaron a este thread por haberme ayudado a solucioanr mi problema y sin mas doy por solucionado mi caso.