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