1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
Select nvl(count(*),0) Into :NbrOI
From ULISEE.PAESI PA
Where Length(PA.PAESI_CODEXT)=7;
p = round(NbrOI / 50, 0)
DECLARE curseur_OI CURSOR FOR
SELECT LPAD(PA.PAESI_CODEXT,7,'0') "PAESI_COD", InitCap(PA.PAESI_LIB) "PAESI_LIB"
FROM ULISEE.PAESI PA
WHERE LENGTH(PAESI_CODEXT)=7;
OPEN curseur_OI;
FETCH curseur_OI INTO :NmOI, :nomOI;
c = 1
i = 1
DO WHILE SQLCA.sqlcode = 0
if numOI = 3191401 then
MessageBox("Greeting", "Hello User")
end if
//LineNumber=(fill("",7 - len(string(NmOI,"0000000"))) + string(NmOI,"0000000")+" "+String(nomOI))
LineNumber=String(NmOI)+" "+String(nomOI)
ListGrpe[c] = LineNumber
FETCH curseur_OI INTO :NmOI, :nomOI;
c ++
If mod(c, p) = 0 Then
i ++
W_message.st.text = string(i) + "%"
End If
LOOP
MaxGrpe = c - 1;
CLOSE curseur_OI; |
Partager