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
| procedure sauv_val_compteur
(pi_pv in point_vente.i_pv%type,
pi_gerant in agent.i_agent%type,
pd_even in caisses.d_even%type,
pi_compteur in exp_fc_compteur_caisse.i_compteur%type,
pn_compteur in caisses.n_cpt1%type)
is
v_sql varchar2(1000);
begin
v_sql := 'UPDATE caisses ' ||
' SET N_CPT' || to_char(pi_compteur) || ' = ' || pn_compteur ||
' WHERE i_pv = to_number(' || pi_pv || ')' ||
' AND i_agent = to_number(' || pi_gerant || ')' ||
' AND d_even = to_date(''' || to_char(pd_even, 'ddmmyyyy') || ''', ''ddmmyyyy'') ' ||
' AND n_seq = 1';
transaction_pkg.set_transaction;
execute immediate v_sql;
commit;
exception
when others then
rollback;
pkg_erreur.insere_erreur('SAISIE_FLUX_FI_PKG.SAUV_VAL_COMPTEUR', substr(sqlerrm, 1, 200), 1,
nvl(pi_gerant, 'CASTORFI'));
commit;
raise;
end sauv_val_compteur; |
Partager