1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| create or replace PROCEDURE DEVIATION AS
DRILL_NAME VARCHAR(24);
DRILL_DEPTH NUMBER;
DRILL_MAX_DEPTH NUMBER;
DRILL_AZIMUT NUMBER;
DRILL_PENDAGE NUMBER;
DRILL_INC NUMBER;
DRILL_EASTING NUMBER;
DRILL_NORTHING NUMBER;
DRILL_TVD NUMBER;
SER_ID VARCHAR(16);
DRILL_AZIMUT_RAD NUMBER;
INSERT INTO temp_dev_d
SELECT HOLE_ID,
DEV_DEPTH,
AZIM,
PEN,
INC,
'S' || RPAD(PREFIXE,4,'_') || LPAD(TO_CHAR(NUMERO),4,'0') || NUMERO_BIS || 'DEVI+D' AS SERMINE_ID,
0
FROM
(select MaxDev.NOM_SONDAGE as HOLE_ID,DEV.zc + MaxDev.SHIFT_M AS DEV_DEPTH,
dev.AZIMUT AS AZIM,dev.pendage AS PEN,dev.pendage+90 AS INC,MaxDev.prefixe,MaxDev.numero,MaxDev.numero_bis
from geode.tbl_deviation DEV, |
Partager