como uso una variable en este text. de mysql?

[goosfancito]

Hola.
Necesito utilizar una variable para poder reemplazar el dato "base_de_datos"

Code: Select all  Expand view

 
    local  cDB

    if ( lDesarrollo)
        cDB:= 'computo_desarrollo'
    else
        cDB:= 'computo_produccion'
    endif

TEXT INTO PROCEDIMIENTO
   SELECT
   specific_name
   FROM information_schema.routines
   WHERE routine_schema = cDB AND specific_name = 'pr_clientes'

. <---------- en esta linea
Gracias

[leandro]

Creo que es lo que necesitas, pero solo funciona con variables de tipo PRIVATE

Code: Select all  Expand view

Function creamosTigger(oCnb)
Local cQry
Local cQr2

PRIVATE cTblFct :=  oLamcla:tFact
PRIVATE cTblBsc :=  oLamcla:tBasc

cQr2 := "DROP TRIGGER borracaptura"
TRY
  oCnb:Execute(cQr2)
CATCH oError
  FW_ShowAdoError(oCnb)
END

TEXT INTO cQry
    CREATE TRIGGER borracaptura AFTER DELETE ON &cTblFct
        FOR EACH ROW
        BEGIN
          UPDATE &cTblBsc SET estado_pedido=1 WHERE documento=OLD.ll_docume AND consecutivo=OLD.ll_consec;
    END;
ENDTEXT
TRY
  oCnb:Execute(cQry)
CATCH oError
  FW_ShowAdoError(oCnb)
END
Return nil
 

[goosfancito]

Gracias!
funciono y. como decis solo si la declaras como PRIVATE a la variable. gracias.