| 12
 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