1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
| CREATE OR REPLACE PROCEDURE M4SPH_DADSU_s10_g01_01(S10_G01_01_010 IN VARCHAR2,datefin IN DATE) IS
separateur VARCHAR(1):=NULL;
--Année déclarée
dt_aa_exe NUMBER(4);
organization VARCHAR2(4):='00';
id_sub_leg_ent varchar2(9):='00';
num_sec_soc varchar2(13):='000000000000';
dt_deb_per_act DATE:=to_date ('18000101','YYYYMMDD');
-- Code civilité de la personne contact émetteur
S10_G01_01_001_001 VARCHAR2(2);
-- Nom et prénom de la personne contact émetteur
S10_G01_01_001_002 VARCHAR2(80);
--Code domaine d'intervention
S10_G01_01_002 VARCHAR2(2):='02';
--Adresse mél
S10_G01_01_005 VARCHAR2(100);
--Adresse téléphonique
S10_G01_01_006 VARCHAR2(20);
--Adresse fax
S10_G01_01_007 VARCHAR2(20);
chiffre number;
BEGIN
SELECT sph_dt_aa_exe into dt_aa_exe FROM m4sph_tfa_par_exp WHERE std_id_leg_ent='00' AND sco_id_hr='0000000000000' and sph_dt_mm_pay='00';
-- A-t-on un centre émetteur ?
select count(*) INTO chiffre FROM m4sph_tfa_par_dads where sph_bl_sle_emetteur='1';
If chiffre > 0 THEN
-- Il y a un établissement émetteur
--Récupération du sire et du nic
SELECT sph_cod_civil,sph_nm_nom||' '|| sph_nm_prenom,
sph_nm_email ,
sph_num_tel,
sph_num_fax
INTO
S10_G01_01_001_001,
S10_G01_01_001_002,
S10_G01_01_005 ,
S10_G01_01_006,
S10_G01_01_007
FROM m4sph_tfa_par_dads
WHERE sph_bl_sle_emetteur='1';
ELSE
SELECT sph_cod_civil,
sph_nm_nom||' '|| sph_nm_prenom,
sph_nm_email ,
sph_num_tel,
sph_num_fax
INTO S10_G01_001_001_001,
S10_G01_01_001_002,
S10_G01_01_005,
S10_G01_01_006,
S10_G01_01_007
FROM m4sph_cent_trt;
END IF;
------------INSERTION----------------------
INSERT INTO m4sph_S10_G01_01 (
sph_dt_aa_exe,
id_organization,
sfr_id_sub_leg_ent,
sph_num_sec_soc,
sph_dt_deb_per_act,
S10_G01_01_001_001,
S10_G01_01_001_002,
S10_G01_01_002,
S10_G01_01_005,
S10_G01_01_006,
S10_G01_01_007
)
VALUES
(
dt_aa_exe,
organization,
id_sub_leg_ent,
num_sec_soc,
dt_deb_per_act,
S10_G01_01_001_001,
S10_G01_01_001_002,
S10_G01_01_002,
S10_G01_01_005,
S10_G01_01_006,
S10_G01_01_007
);
END M4SPH_DADSU_s10_g01_01;
/
show errors; |
Partager