1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
DECLARE
USDTAUXJOUR BAANDB.RTTAUXDEV.USD%type;
JPYTAUXJOUR BAANDB.RTTAUXDEV.JPY%type;
BEGIN
SELECT USD INTO USDTAUXJOUR FROM BAANDB.RTTAUXDEV WHERE (to_char(DTE,'YYYY-MM-DD') = to_char(sysdate,'YYYY-MM-DD'));
SELECT JPY INTO JPYTAUXJOUR FROM BAANDB.RTTAUXDEV WHERE (to_char(DTE,'YYYY-MM-DD') = to_char(sysdate,'YYYY-MM-DD'));
INSERT INTO
BAANDB.TTCCRI700500(T$CCUR, T$STDT, T$RATP, T$RATS, T$ECRT, T$RATF, T$EXCB, T$REFCNTD, T$REFCNTU)
VALUES('USD', to_char(sysdate,'DDMMYYYY'), USDTAUXJOUR, USDTAUXJOUR, USDTAUXJOUR, 1, 1, 0, 0);
INSERT INTO
BAANDB.TTCCRI700500(T$CCUR, T$STDT, T$RATP, T$RATS, T$ECRT, T$RATF, T$EXCB, T$REFCNTD, T$REFCNTU)
VALUES('JPY',to_char(sysdate,'DDMMYYYY'), JPYTAUXJOUR, JPYTAUXJOUR, JPYTAUXJOUR, 1, 1, 0, 0);
END ; |
Partager