Ayuda con 2 Combobox ???

[Antonio Linares]

muy bien !

[remtec]

Maestro Antonio.

Muy buen dia.

Disculpe todas las molestias.

Muy agradecido por su tiempo, ayuda y preocupacion.

Tengo la mala costumbre de no apagar mi equipo despues que termino de trabajar, por las ventanas con informacion importante de trabajo, eso me ahorra tiempo, pero finalmente me juega mas jugadas como en esta ocacion.

Muchas gracias.

Saludos

Antonio.

[gabo]

Un Poquito tarde, pero quizas alguien le pueda servir aqui es la funcion que regresa un arreglo de la forma
{ "Abarrotes, "Carnes frias", "Etc" }
ó
{ "<01> Abarrotes", "<02>Carnes frias", "<03> Etc" }

Code: Select all  Expand view  RUN

  cSQLQuery:= "SELECT id_grupo,descripcion FROM cat_grupos"
  aGrupos:= oMySQLMain:QueryArray(cSQLQuery)
  WITH OBJECT ::oCbxGrupos
       :aItems:= ArrayCol( aGrupos, 1, 2 )
  END WITH

/*-----------------------------------------------------------------------------------------------*/
FUNCTION ArrayCol( aData, nCol, nCol2 )
/*-----------------------------------------------------------------------------------------------*/
  LOCAL aCol := Array( Len( aData ) )

  IF nCol == NIL
     nCol:= 1
  ENDIF
  IF nCol2!=NIL
     Aeval( aData, {|v,e| aCol[ e ] := +"<"+AllTrim(v[ nCol ])+"> "+AllTrim(aData[ e,nCol2 ]) } )
  ELSE
     Aeval( aData, {|v,e| aCol[ e ] := AllTrim(v[ nCol ]) } )
  ENDIF  
  RETURN aCol

 

Saludo!