| 93 | == fonction sql qui donne l'id_drain_mer sur le rht == |
| 94 | {{{ |
| 95 | #!sql |
| 96 | select * from rht.rhtvs2 where noeudmer=TRUE --1082 |
| 97 | alter table rht.rhtvs2 add column id_drainmer integer; |
| 98 | |
| 99 | DROP TYPE IF EXISTS iddrainmer; |
| 100 | CREATE TYPE iddrainmer as (iddrainmer int); |
| 101 | |
| 102 | CREATE OR REPLACE FUNCTION rht.setdownstreamsegment() |
| 103 | RETURNS integer AS |
| 104 | $BODY$ |
| 105 | DECLARE |
| 106 | numberiddrain integer; |
| 107 | iddrainmer iddrainmer%ROWTYPE; |
| 108 | BEGIN |
| 109 | numberiddrain=0; |
| 110 | for iddrainmer in select id_drain from rht.rhtvs2 where noeudmer=TRUE loop |
| 111 | numberiddrain=numberiddrain+1; |
| 112 | update rht.rhtvs2 set id_drainmer=iddrainmer.iddrainmer where id_drain in (select rht.troncons_amont(iddrainmer.iddrainmer)); |
| 113 | end loop; |
| 114 | return numberiddrain; |
| 115 | END; |
| 116 | $BODY$ |
| 117 | LANGUAGE plpgsql ; |
| 118 | |
| 119 | |
| 120 | select rht.setdownstreamsegment(); |
| 121 | |
| 122 | }}} |
| 123 | |