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
| PROCEDURE Load_tables (ph_suiv IN CHAR) IS
/*cursor NumeroCmde is
select c.CDE_NUM
FROM o_commande@sfdd c, o_operation@sfdd o
where o.op_num=c.op_num and
o.tie_num_cli= '000051' ; */
cursor AlimTableFait is
SELECT o.op_num,sfdd_str.getfield(C.CDE_COMP1,';',34,1) as DateCachetPostale,o.op_da_deb, o.op_da_fin,sfdd_str.getfield(C.CDE_COMP1,';',4,1)as DATE_ACHAT_OU_TC_OU_BDC ,
o.op_da_bloc_rec ,o.op_da_bloc_rec+3,ch.CKLV_DA_REA,c.CDE_DA_ETA,c.CDE_NUM
FROM o_operation@sfdd o,o_commande@sfdd c , O_CHECK_LIST_VAL@sfdd ch
where o.op_num=c.op_num and
ch.op_num=o.op_num
and ch.op_num=c.op_num and
o.tie_num_cli= '000051' ;
--M1 NumeroCmde%rowTYPE;
M2 AlimTableFait%ROWTYPE;
BEGIN
DELETE * FROM table_fait_activite_globale;
commit;
--open NumeroCmde;
OPEN AlimTableFait ;
loop
--fetch NumeroCmde into M1;
fetch AlimTableFait into M2 ;
insert into table_fait_activite_globale values (M2.OP_NUM,M2.DateCachetPostale, M2.op_da_deb,M2.op_da_fin,M2.DATE_ACHAT_OU_TC_OU_BDC,M2.op_da_bloc_rec ,
M2.op_da_bloc_rec+3,M2.CKLV_DA_REA,M2.CDE_DA_ETA,M2.CDE_NUM);
EXIT WHEN AlimTableFait%NOTFOUND;
IF SQL%ROWCOUNT = 0 THEN
ROLLBACK;
ELSE
COMMIT;
END IF;
end loop;
close AlimTableFait;
end; |