topic-41650

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Ordenar arreglo bidimensional
Posted: Thu Apr 14, 2022 12:42 AM

Hola a todos, un gran abrazo.

Esta vez tengo la necesidad de ordenar un arreglo bidimensional tomando en cuenta dos columnas.

Alguien sabe como hacerlo?

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Ordenar arreglo bidimensional
Posted: Thu Apr 14, 2022 03:31 AM

José buenas noches como vas?

Code (fw): Select all Collapse

//Ordenamos el array por documento y luego por consecutivo
ASORT(aRspFac,,, { |x, y| if( x["ll_docume"]==y["ll_docume"],;
                val(x["ll_consec"])<val(y["ll_consec"]),;
                x["ll_docume"]<y["ll_docume"] ) })

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Ordenar arreglo bidimensional
Posted: Fri Apr 15, 2022 10:12 PM

leandro wrote:José buenas noches como vas?

Code (fw): Select all Collapse

//Ordenamos el array por documento y luego por consecutivo
ASORT(aRspFac,,, { |x, y| if( x["ll_docume"]==y["ll_docume"],;
                val(x["ll_consec"])<val(y["ll_consec"]),;
                x["ll_docume"]<y["ll_docume"] ) })

Hola Leandro!

Funcionó perfecto!

Muchas Gracias nuevamente por tu gentil ayuda!

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

FiveTech Support Forums

Continue the discussion