Página 1 de 1

Problema con aScan

Publicado: Mié Jul 04, 2007 6:37 pm
por zeasoftware
Estoy haciendo un proceso:
If ( aScan(::aUserFields, {|c| c:cName == oColumn:oDataField }) == 0 )
//hago un proceso
End
El problema es que a pesar que la condicion se cumple, aScan me devuelve siempre 0.
Ya hice pruebas desplegando en valor de c:cName y de oColumn:oDatafield delimitados para comparar longitudes con logdebug, pero aún asi me devuelve 0.
A alguien le ha pasado?
Gracias.
--
Ramon Zea
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoftware/
--

Problema con aScan

Publicado: Mié Jul 04, 2007 6:56 pm
por zeasoftware
amplio mas el problema y esta de locos!!
En el siguiente codigo, si le pongo !aScan, me despliega exacto, los que estan dentro de ::aUserFields, en caso contrario me los despliega todos.

For Each oColumn In :aCols
If ( !aScan(::aUserFields, {|c| c:cName == oColumn:oDataField }) == 0 )
logdebug(oColumn:oDataField)
End
Next
Incluso lo intente asi:
For Each oColumn In :aCols
If ( !aScan(::aUserFields, {|c| c:cName == oColumn:oDataField }) == 0 )
Else
logdebug(oColumn:oDataField)
End
Next
Se supone que si en el primer bloque me despliega los que si estan en ::aUserFields, al anexarle el ELSE, deberia desplegar los que no los esten, pero.... pero...., me los despliega todos!!!!!
Ya le busque y no le hayo. Alguna sugerencia?
Gracias
--
Ramon Zea
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoftware/
--

Problema con aScan

Publicado: Mié Jul 04, 2007 7:04 pm
por jose.luis
Ramón,
For Each oColumn In :aCols
If ( !aScan(::aUserFields, {|c| c:cName == oColumn:oDataField:cName }) == 0 )
logdebug(oColumn:oDataField)
End
Next
Saludos,
José Luis Capel
"Ramon Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=468bd12b@ozsrv2.ozlan.local...]468bd12b@ozsrv2.ozlan.local...[/email]
amplio mas el problema y esta de locos!!
En el siguiente codigo, si le pongo !aScan, me despliega exacto, los que estan dentro de ::aUserFields, en caso contrario me los despliega todos.

For Each oColumn In :aCols
If ( !aScan(::aUserFields, {|c| c:cName == oColumn:oDataField }) == 0 )
logdebug(oColumn:oDataField)
End
Next
Incluso lo intente asi:
For Each oColumn In :aCols
If ( !aScan(::aUserFields, {|c| c:cName == oColumn:oDataField }) == 0 )
Else
logdebug(oColumn:oDataField)
End
Next
Se supone que si en el primer bloque me despliega los que si estan en ::aUserFields, al anexarle el ELSE, deberia desplegar los que no los esten, pero.... pero...., me los despliega todos!!!!!
Ya le busque y no le hayo. Alguna sugerencia?
Gracias
--
Ramon Zea
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoftware/
--

Problema con aScan

Publicado: Mié Jul 04, 2007 7:30 pm
por zeasoftware
ya lo intente asi y me sale error:
TSQLQUERY:GETCOLUMNS(439)
Error BASE/1004 Class: 'CHARACTER' has no exported method: CNAME
Argumentos: ()
a como lo tengo, si le hago logdebug a los datos comparados y me salen ambos nombres exactamente igual, por eso digo que esta muy raro.
Gracias
--
Ramon Zea
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoftware/
--

Problema con aScan

Publicado: Jue Jul 05, 2007 5:40 am
por zeasoftware
He logrado aislar el error, y todo indica que ::aUserFields se queda vacio en algun momento.
Saludos.
--
Ramon Zea
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoftware/
--