req="INSERT INTO T_Courrier VALUES ('',"+SClient.IDT_Client+",'"+DateSys()+"','"+HeureVersChaîne(HeureSys(),"HHMMSS")+"','"+SClient.nomRep+"\"+dateJour..Mois+"-"+dateJour..Année+"\"+fExtraitChemin(Email.Attache[1],fFichier)+".wdz',"+...
"'"+Courrier:dateImp+"','','"+PDF:getNoRapport()+"',"+Courrier:CourrierEnvoiDestinataire+","+Courrier:CourrierFaxEnvoiMandant+","+Courrier:CourrierFaxEnvoiRep+","+Courrier:CourrierFaxEnvoiDivers+","+Courrier:CourrierFaxEnvoiLibre+...
","+Courrier:CourrierMailEnvoiMandant+","+Courrier:CourrierMailEnvoiRep+","+Courrier:CourrierMailEnvoiDivers+","+Courrier:CourrierMailEnvoiLibre+","+nbFicZip+",'',"+PDF:getNbPages()+...
","+Courrier:CourrierEstRecommande+","+Courrier:CourrierEstNormal+","+Courrier:CourrierEstEconomique+",'"+Courrier:AccFaxEmail+"')"
SI PAS HExécuteRequêteSQL("ajout",hModifieFichier,req) ALORS HErreurInfo(hErrComplet)
HAnnuleDéclaration("ajout")
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2229&post_id=9320