FiveTech Support Forums

  
    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'

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