cmd est une chaîne
sAsdate est une chaîne
Wddate est une Date
cmd="NBREG=DEC(10 0);RTVMBRD FILE("+SAI_biblio+"/"+SAI_file+") CRTDATE(&CRDATE) NBRCURRCD(&NBREG) FILETYPE(&TYPE)"
ASAppelRtv(cmd)
sResultat est une chaîne
sResultat = ASResultatRtv("RC")
SI sResultat <> "0" ALORS
SI sResultat="CPF9812" ALORS Info("Fichier non trouvé") SINON Info("Erreur de la commande : "+sResultat)
SINON
// récupérer et formater la date
sAsdate=ASResultatRtv("crdate")
sAsdate=Gauche(sAsdate,7)
SI Gauche(sAsdate,1)="0" ALORS
wddate="19"+Droite(sAsdate,6)
SINON
wddate="20"+Droite(sAsdate,6)
FIN
SAI_DATE=DateVersChaîne(wddate,"JJJJ JJ MMMM AAAA")
SAI_NBR=ASResultatRtv("NBREG")
SAI_TYP=ASResultatRtv("TYPE")
FIN