//=============================================================================================
[Impr_MailObjet]
PROCEDURE Impr_MailObjet ()

Renvoyer "Virement Réf" + NumériqueVersChaine(NuméroRGF,"6d") + " - " + CPTPAR.RSSO

//=============================================================================================
[Impr_MailCorps]
PROCEDURE Impr_MailCorps ()

Texte est une chaine
Texte += "Messieurs," + RC
Texte += RC
Texte += "Nous donnons l'ordre ce jour à notre banque d'effectuer un virement d'un montant de" + NumériqueVersChaine(TotalRGF,"11,2f")+Gauche(" "+LibelleDeviseRGF) + RC
Texte += "sur votre compte "+CPTSVI.DOBQ + " - " + CPTSVI.COBQ+" "+CPTSVI.GUBQ+" "+CPTSVI.CPBQ+" "+CPTSVI.CLBQ + "." + RC
Texte += RC
Texte += "Vous trouverez le détail des factures réglées sur le bordereau de paiement ci-joint." + RC
Texte += RC
Texte += "Croyez, Messieurs, en nos sincères salutations." + RC
Texte += RC
Texte += "La comptabilité fournisseur" + RC
		
Renvoyer Texte

//=============================================================================================