FiveTech Software tech support forums

Posted: **Mon Jan 15, 2024 11:16 am**

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

Posted: **Mon Jan 15, 2024 12:15 pm**

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

Posted: **Mon Jan 15, 2024 12:30 pm**

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

como uso una variable en este text. de mysql?