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
| //Générer un nom de fichier PDF unique
Fichier est une chaîne
Fichier2 est une chaîne
Fichier =fRepWeb+"\"+"rapport"+"\"+gsNomcli+"_"+SAI_refaffaire+".pdf"
Fichier2 =fRepWeb+"\"+"facturePDF"+"\"+gsNomcli+"_"+s_RefFacture+"_"+s_RefAffaire+".pdf"
//Paramétrer la destination de l'impression
iDestination(iPDF,Fichier)
iDestination(iPDF,Fichier2)
//Imprime l'état
SI gsStatutTache="D" ALORS
iImprimeEtat(ETAT_Rapport)
ExécuteTraitement(PAGE_Facturation.BTN_valider,trtClic)
// Passer les paramètres à la requête associée
iInitRequêteEtat(ETAT_facture,s_RefAffaire,s_RefFacture)
// Imprime l'état
iImprimeEtat(ETAT_facture)
// Extrait le nom et l'extension du fichier
sNomfichier2 est une chaîne= fExtraitChemin(Fichier2,fFichier+fExtension)
// Envoyer le fichier dans le navigateur
FichierAffiche(Fichier2,"application/pdf")
fSupprime(Fichier2)
SINON
iImprimeEtat(ETAT_bon_de_livraison)
FIN
//Extrait le nom et l'extension du fichier
sNomfichier est une chaîne= fExtraitChemin(Fichier,fFichier+fExtension)
//Envoyer le fichier dans le navigateur
FichierAffiche(Fichier,"application/pdf")
fSupprime(Fichier) |
Partager