¿Por que no esta implementado el intercambio de ordenacion ascendente a descendente? Parece muy sencillo de implementar.
En lugar de :
Se puede hacer exactamente igual que si no utilizamos el oDBF:
Es una forma sencilla que se me ocurre, pero hay mas.
En lugar de :
elseif nAnd( ::oBrw:nDataType, DATATYPE_ODBF ) == DATATYPE_ODBF .and. ;
ValType( ::cSortOrder ) == 'C'
if ! Eq( ::oBrw:oDbf:SetOrder(), ::cSortOrder )
::oBrw:oDbf:SetOrder( ::cSortOrder )
lSorted := .t.
For n := 1 TO Len(::oBrw:aCols)
oCol := ::oBrw:aCols[ n ]
oCol:cOrder := " "
Next n
::cOrder := 'A'
endifSe puede hacer exactamente igual que si no utilizamos el oDBF:
elseif nAnd( ::oBrw:nDataType, DATATYPE_ODBF ) == DATATYPE_ODBF .and. ;
ValType( ::cSortOrder ) == 'C'
if Eq( (::oBrw:oDBF:cAlias)->( OrdSetFocus() ), ::cSortOrder )
(::oBrw:oDBF:cAlias)->( OrdDescend( , , ! OrdDescend() ) )
::cOrder := If( ( ::oBrw:oDBF:cAlias )->( OrdDescend() ), 'D', 'A' )
lSorted := .t.
else
(::oBrw:oDBF:cAlias)->( OrdSetFocus( ::cSortOrder ) )
lSorted := .T.
For n := 1 TO Len(::oBrw:aCols)
oCol := ::oBrw:aCols[ n ]
oCol:cOrder := " "
Next n
::cOrder := If( ( ::oBrw:oDBF:cAlias )->( OrdDescend() ), 'D', 'A' )
endifEs una forma sencilla que se me ocurre, pero hay mas.
Jorge Ignacio Corral
Enjoy it :)
Enjoy it :)