Error: Variable cambia Sola de valor ¿windows 11?

[JoseAlvarez]

Saludos a todos, apreciados amigos del foro.

Me esta sucediendo algo muy, pero muy extraño. Tengo este codigo:

Code: Select all  Expand view

cId  :='V-05933817-9'
cId2 :=cId1

msginfo(cId1)  // resultado-> V59338179
msginfo(cId2)  // resultado-> V59338179
 

Asi, tal cual, no hay mas nada entre la lineas. Se desaparecen los guiones y el cero.

Ya pase varios antivirus y la maquina esta limpia.

Hace dias migre a windows 11 y desde alli no habia programado. ¿sera posible que sea el windows 11?
Quisiera estrar seguro para evitarme el trabajo de reinstalar windows10

¿ Alguien ha tenido este problema?

Hago la aclaratoria de que mi equipo NO cumple con los requisitos para win11. Es un I5 con 6 en ram. Sin embargo lo Instale para probarlo, teniendo en cuenta que microsoft abrio la posibilidad de instalarlo en equipos asi.

Es lo unico que se me ocurre que pueda estar pasando.

FW-17.01+ xHarbour + bcc7.4 + tDolphin + Pellesc como editor de recursos

[remtec]

Hola José.

Me llama la atención que estas asignando un valor a "cld2", de una variable que no es "cld".

Muchos saludos amigo.

Antonio

Code: Select all  Expand view

cId  :='V-05933817-9'                               <------ Me llama la atención, a qui estas asignando el código a " cId  "
cId2 :=cId1                                             <------ Estas igualando " cld2 ", a una variable llamada " cId1 ", es otra variable y creo que trae otro valor desde otra parte

msginfo(cId1)  // resultado-> V59338179
msginfo(cId2)  // resultado-> V59338179
 

[Antonio Linares]

José,

como te ha indicado Antonio,

Esta línea:
cId2 :=cId1

debiera ser:
cId2 := cId

[JoseAlvarez]

Saludos antonio,

Disculpen el codigo, como es algo simple, lo escribi directamente en el foro, es decir NO hice un copy & paste del prg y me salte el numero 1 en la variable.
Pero el problema es exactamente tal cual como lo describi.

Code: Select all  Expand view

cId1 := 'V-05933817-9'
cId2 := cId1

msginfo(cId1)  // resultado-> V59338179
msginfo(cId2)  // resultado-> V59338179

Asi, sin nunguna otra linea de codigo de por medio y sin explicacion, se pierden los guiones y el cero del valor de la variable.

Estoy convencido que debe ser algun detalle de windows 11 con el equipo. Pero antes de volver al w10 quisiera ver si a alguien la ha sucedido esto antes.

Agradesco cualquier ayuda al respecto.

[JoseAlvarez]

Listo amigos,

Ya encontré la falla, solo que no tengo idea del por qué, ni como solucionarlo.

La variable cambia su valor cuando la consulto con msginfo() o con ?

Si no hago esa parada de consulta, todo funciona bien, la variable mantiene su valor exacto, pero como podran imaginar, no hay manera de trabajar sin hacer paradas de chequeo.

Cuando hago el primer msginfo() la variable cambia su valor.

alguna sugerencia?

ahora estoy mas que convencido que es alguna incompatibilidad de win11 con el equipo, con fw o con xHarbour, es lo que pienso...

[Antonio Linares]

Jose,

Intenta reproducirlo en un PRG pequeño y autocontenido y lo compartes para que lo probemos

Nosotros usamos Windows 11 sin ningún problema, luego pienso que debe ser otra cosa

[hmpaquito]

Hola a todos,

Estuve buscando sin exito en la documentacion de xHarbour... Pero a mi me huele a una de esas "optimizaciones" de xHarbour, algunas de las cuales han dado quebraderos de cabeza.

Migrar a Harbour es/puede ser la solución

Salu2

[JoseAlvarez]

Jose,

Intenta reproducirlo en un PRG pequeño y autocontenido y lo compartes para que lo probemos

Nosotros usamos Windows 11 sin ningún problema, luego pienso que debe ser otra cosa

Antonio me imagino que tu equipo cumple con todos los requerimientos para win11. El mio no, tenia mis reservas para migrar con un equipo no compatible, pero igual me lanzé al gua

Bueno, por los momentos puedo avanzar que era lo que mas me preocupaba porque no podia terminar una actualizacion de mi sistema.

Voy a preparar el ejemplo y lo pasare por aca.

Gracias¡

[JoseAlvarez]

Hola a todos,

Estuve buscando sin exito en la documentacion de xHarbour... Pero a mi me huele a una de esas "optimizaciones" de xHarbour, algunas de las cuales han dado quebraderos de cabeza.

Migrar a Harbour es/puede ser la solución

Salu2

Hola hmpaquito

Gracias por tu cooperacion.

Tengo en planes migrar el sistema a harbour, pero me va a llevar tiempo.

De hecho comencé hace unas semanas , pero debo hacer cambios en los codigos fuente y varios formularios ya que algunos modelos de botones y otros controles aparecen desalineados o se ven muy mal.

Por los momentos, sigo adelantando.

Gracias a todos¡

[karinha]

Code: Select all  Expand view

// C:\FWH..\SAMPLES\CLID1.PRG - kapiabafwh@gmail.com

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL cId1 := "V-05933817-9"
   LOCAL cId2 := cId1

   MUESTRA_CLID( cId1, cId2 )

RETURN NIL

FUNCTION MUESTRA_CLID( cId1, cId2 )

   #ifdef __XHARBOUR__

      // funciona perfecto.
      MsgInfo( cId1, " xHarbour Power: " ) // resultado-> V-5933817-9

      MsgInfo( cId2, " xHarbour Power: " ) // resultado-> V-5933817-9

   #else  // Harbour - medio lento. funciona.

      MsgInfo( cId1, " Harbour Power: " ) // resultado-> V-5933817-9

      MsgInfo( cId2, " Harbour Power: " ) // resultado-> V-5933817-9

   #endif

RETURN NIL

// FIN
 

Regards, saludos.

[acuellar]

José

Uso windows 11 en un equipo que no cumple las exigencias de Microsoft y funciona perfecto.

[JoseAlvarez]

José

Uso windows 11 en un equipo que no cumple las exigencias de Microsoft y funciona perfecto.

Hola Ademar,

gracias por tu aporte, lo tendre en cuenta, usas harbour o xharbour?

[JoseAlvarez]

Code: Select all  Expand view

// C:\FWH..\SAMPLES\CLID1.PRG - kapiabafwh@gmail.com

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL cId1 := "V-05933817-9"
   LOCAL cId2 := cId1

   MUESTRA_CLID( cId1, cId2 )

RETURN NIL

FUNCTION MUESTRA_CLID( cId1, cId2 )

   #ifdef __XHARBOUR__

      // funciona perfecto.
      MsgInfo( cId1, " xHarbour Power: " ) // resultado-> V-5933817-9

      MsgInfo( cId2, " xHarbour Power: " ) // resultado-> V-5933817-9

   #else  // Harbour - medio lento. funciona.

      MsgInfo( cId1, " Harbour Power: " ) // resultado-> V-5933817-9

      MsgInfo( cId2, " Harbour Power: " ) // resultado-> V-5933817-9

   #endif

RETURN NIL

// FIN
 

Regards, saludos.

Gracias estimado amigo Joao,

Probe tu propuesta pero no funciona. Sigue el error,

Sigo Buscando y cuando encuentre la causa y la solucion, lo comentare por aca.

Un abrazo

[mgsoft]

Hola,

Prueba a cambiar de nombre las variables con otro más largo e identificativo.

[karinha]

José,

Code: Select all  Expand view

Fwh 17.01 32 bits + Harbour 3.2 + Borland 7.4
 

Este Borland 7.4 no és para FWH1701. Tal vez sea esto.

Regards, saludos.