Incrementer un n° d'ordre

Bonjour,
J'ai un problème d'implémentation d'une suite logique de n° d'ordre
voici la ligne de commande que j'ai écrite mais ne marche pas:

select count(*) into x from Douane
where to_char(dp,'mmyy')=to_char(sysdate,'mmyy');
:douane.dp:=to_char(sysdate,'yy');
:DOUANE.N_Ordre :=to_char(sysdate,'mm') || substr(to_char(x+1,'000'),2); /* (2) to_char fournis tjr un blanc supplementaire */

Je signale que les 02 premières lignes mais la ligne n_ordre donne un seul numero qu'elle
à plusieurs lignes d'enregistrements.

Je fonctionne avec Orale 7 et Forms 6.0

Merci à tout volontaire qui voudrait bien m'éclairer