1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
BEGIN
VARSQL='SELECT T.ROWID, T.RUB_POSITION, T.TYPE_SAL, T.CODE_RUB, R.DESIGNATION, T.USERNAME, T.MODIFIED, ';
VARSQL=:VARSQL||'R.DESCRIPTION,R.CALCUL_ACTIVER';
VARSQL=:VARSQL||' FROM PA_TB_TYPESAL_DET T INNER JOIN PA_TB_PROF R ON T.CODE_RUB=R. CODE_RUB;
if (:type_salaire<>'' AND :activer<>'') then
VARSQL=:VARSQL||' where T.TYPE_SAL = '''|| TYPE_SALAIRE ||''' AND R.calcul_activer = '''|| ACTIVER;
if (:type_salaire='' AND :activer<>'') then
VARSQL=:VARSQL||' where R.calcul_activer = '''|| ACTIVER;
if (:type_salaire<>'' AND :activer='') then
VARSQL=:VARSQL||' where T.TYPE_SAL = '''|| TYPE_SALAIRE;
VARSQL=:VARSQL||' ORDER BY '|| ORDER_BY ;
FOR EXECUTE STATEMENT VARSQL
into :rowid,:rub_position,:type_sal,:code_rub,:calcul_activer, :description,:username,:modified
DO
suspend;
END |
Partager