FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ¿Puedo usar aca las MACROS?
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
¿Puedo usar aca las MACROS?
Posted: Mon Mar 19, 2007 12:57 PM
Gente,

Hoy por hoy llamo a un metodo propio que me devuelve una consulta
por mysql, y lo hago de esta manera:

oQuery:= GetApp():LeerTabla( { "clientes.cod_cli", "clientes.cliente" }, , , "cliente" )

Pero luego en otra funcion vuelvo a hacer el mismo procedimiento
pero cambio lo que le transfiero a LeerTabla

oQuery:= GetApp():LeerTabla( { "clientes.*" } )

Entonces quiero hacer una sola funcion en el cual indicandolé
que quiero enviar como parámetro. Pensé esto:


function Recargar( nItem )

    do case 
        case nItem == 1

        return ( oQuery:= GetApp():LeerTabla( { "clientes.cod_cli", "clientes.cliente" }, , , "cliente" )  )

        Case nItem == 2

        return ( oQuery:= GetApp():LeerTabla( { "clientes.*" } )  )
    enddo
return


Esto es simple cuando hay unos 3 o 4, pero tengo en realizar 40 de esto s nItem entonces es muy engorroso ir acordandose que me devuelve esto:

Recargar( 35 )

Por lo que pense que podría hacer un .ch donde, por ejmplo haga esto:

ConsultaCliente:= { "clientes.cod_cli", "clientes.cliente" }, , , "cliente"

Como lo hago? porque dijense que estoy pansado tambien las comas. pensé hacerlo asi:
[comillas simples] { "clientes.cod_cli", "clientes.cliente" }, , , "cliente" [comillas simples]

pero me toma como toda una cadena.

Alguna Idea?
Gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion