FiveTech Support Forums

Estimados amigos, estoy compilando un programa usando ADO en todo él, y en el módulo que estoy haciendo ahora me saltan estos warning :

Compiling 'D:\PROYEC~4\BRINQU~1\Source\gesh0300.prg'...
D:\PROYEC~4\BRINQU~1\Source\gesh0300.prg(182) Warning W0027 Meaningless use of expression: ':'
D:\PROYEC~4\BRINQU~1\Source\gesh0300.prg(192) Warning W0027 Meaningless use of expression: ':'


Las líneas a las que hace referencia son estas :

182 oCol[ 1]:bStrData := { || IF(oRsHist:BOF() .AND. oRsHist:EOF(),SPACE(10),(oRsHist:Fields("FECHA"):Value , "@D" )) }
192 oCol[ 2]:bStrData := { || IF(oRsHist:BOF() .AND. oRsHist:EOF(),SPACE(10),(oRsHist:Fields("INFORME"):Value ,"@Z999,999")) }

y lo más curioso es que en esta línea no aparece ese warning, y por eso me tiene ya con dolor de cabeza

201 oCol[ 3]:bStrData := { || IF(oRsHist:BOF() .AND. oRsHist:EOF(),SPACE(10),oRsHist:Fields("DIAGNOSTICO"):Value ) }

Alguien tiene la amabilidad de indicarme el motivo de esos warning??

Lo que yo veo es que en las líneas 182 y 192 estás retornando 2 valores cuando el puntero no se encuentra en BOF o EOF, mientras que en la 201 solamente devuelves 1 valor...

Seguramente :bStrData no sabe que hacer con el formato PICTURE que estás retornando...

Pedro wrote:Estimados amigos, estoy compilando un programa usando ADO en todo él, y en el módulo que estoy haciendo ahora me saltan estos warning :

Compiling 'D:\PROYEC~4\BRINQU~1\Source\gesh0300.prg'...
D:\PROYEC~4\BRINQU~1\Source\gesh0300.prg(182) Warning W0027 Meaningless use of expression: ':'
D:\PROYEC~4\BRINQU~1\Source\gesh0300.prg(192) Warning W0027 Meaningless use of expression: ':'


Las líneas a las que hace referencia son estas :

182 oCol[ 1]:bStrData := { || IF(oRsHist:BOF() .AND. oRsHist:EOF(),SPACE(10),(oRsHist:Fields("FECHA"):Value , "@D" )) }
192 oCol[ 2]:bStrData := { || IF(oRsHist:BOF() .AND. oRsHist:EOF(),SPACE(10),(oRsHist:Fields("INFORME"):Value ,"@Z999,999")) }

y lo más curioso es que en esta línea no aparece ese warning, y por eso me tiene ya con dolor de cabeza

201 oCol[ 3]:bStrData := { || IF(oRsHist:BOF() .AND. oRsHist:EOF(),SPACE(10),oRsHist:Fields("DIAGNOSTICO"):Value ) }

Alguien tiene la amabilidad de indicarme el motivo de esos warning??

Pedro, puede ser que en las expresiones de tipo (oRsHist:Fields("INFORME"):Value ,"@Z999,999") , te falte la función tipo TRANSFORM o algo similar?
Digo esto porque yo nunca he usado la expresión (oRsHist:Fields("INFORME"):Value ) con el Picture de salida sin una función adicional.
Un saludo y espero que te sea de ayuda

Pues tienes razón Cristobal, me cegué y no vi que me faltaba el transform en la segunda columna.

Byron no son dos valores, es sólo uno, el "segundo valor" es en realidad el parámetro del picture con el transform delante, claro. Ten en cuenta que en este tipo de condicionantes tu puedes poner muchas condiciones encerradas entre paréntesis como si fuera una sola condición, por ejemplo : SI esta condición es verdadera, me haces esto, si no lo es, ( me haces esto, y esto otro, y esto también, y lo que sea más).

Gracias a los dos