Página 1 de 1

Array:SetValue

Publicado: Lun Ago 03, 2009 9:03 pm
por zeasoftware
Estoy notando un detalle al querer asignar valires a un TArrayBrowse que sobrepasa la el area visible:
Los datos que se encuentran fuera del area de visualizacion no les asigna el valor, tengo en un alinea casi 17 columnas, y solo las visibles adquieren el valor asignado con SetValue(), si elimnino algunas para poder ver las mas lejanas, atrapan sus valores correctamente.
Que puede ser?
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

Array:SetValue

Publicado: Mar Ago 04, 2009 12:51 am
por zeasoftware
Tengo que corregirlo para un cliente que tiene 7 tiendas, que tengo que hacer, por lo que he estudiado en los fuentes el error o detalle esta aqui:
METHOD SetValue( Col, x, nAt ) CLASS XArrayBrowse
LOCAL Oldvalue
LOCAL cType
LOCAL nIndex
DEFAULT nAt TO ::nArrayAt
cType := Valtype( Col )
DO CASE
CASE cType == "C"
nIndex := Ascan( ::aCols, {|v| Upper( v:cHeader ) == Upper( Col ) } )
IF nIndex > 0
nIndex := ::aCols[ nIndex ]:nIndex
ENDIF
CASE cType == "O"
nIndex := Ascan( ::aCols, {|v| v == Col } )
IF nIndex > 0
nIndex := ::aCols[ nIndex ]:nIndex
ENDIF
CASE cType == "N"
nIndex := Col
OTHERWISE
nIndex := 0
END CASE
IF nIndex > 0
IF ::nEditMode != beAPPEND .AND. nAt > 0
OldValue := ::FaArrayData[ nAt ][ nIndex ]
ENDIF
WITH OBJECT ::aCols[ nIndex ]
IF :oGridEdit:lVisible .AND. nAt == ::nArrayAt <--------Si no esta visible no le asigna el valor
:oGridEdit:Value := x
ENDIF
END WITH
IF ::nEditMode != beAPPEND .AND. nAt > 0
::FaArrayData[ nAt ][ nIndex ] := x
ENDIF
::RefreshCurrent()
ENDIF
RETURN OldValue
Algun parche que pueda aplicar?
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--