1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Flag est une chaine=Page1.SAI_FLAG
SELON Flag
CAS Flag="AAA"
Fichier1 est une chaîne = fRepDonnées() +"\"+ DateSys()+HeureSys()+".pdf"
iDestination (iPDF, Fichier1)
iInitRequêteEtat(Requête1, Page1.SAI_FLAG)
iImprimeEtat(mon_etat)
FichierAffiche(Fichier1, "application/pdf")
fSupprime(Fichier1)
CAS Flag="BBB"
Fichier2 est une chaîne = fRepDonnées() +"\"+ DateSys()+HeureSys()+".pdf"
iDestination (iPDF, Fichier2)
iInitRequêteEtat(Requête1, Page1.SAI_FLAG)
iImprimeEtat(mon_etat2)
FichierAffiche(Fichier2, "application/pdf")
fSupprime(Fichier2)
FIN |
Partager