TxmlHtmlDocument (tech)
De Wiki1000
(Différences entre les versions)
(→Propriétés) |
|||
(Une révision intermédiaire par un utilisateur est masquée) | |||
Ligne 16 : | Ligne 16 : | ||
|Entête du document html (head) | |Entête du document html (head) | ||
|- | |- | ||
− | |htmlBody | + | |[[htmlBody (TxmlHtmlDocument)|htmlBody]] |
|Corps du document html (body) | |Corps du document html (body) | ||
|- | |- | ||
Ligne 150 : | Ligne 150 : | ||
{{Footer|Code métier}} | {{Footer|Code métier}} | ||
[[category:Objets techniques]] | [[category:Objets techniques]] | ||
+ | [[Category:Document XML]] | ||
+ | [[Category:Document HTML]] | ||
+ | [[Category:Version11]] |
Version actuelle en date du 5 juillet 2023 à 13:43
Introduction
Les objets TxmlHtmlDocument sont des descendants de TxmlDocument permettant de construire des documents xml html.
TxmlHtmlMailDocument est un descendants de TxmlHtmlDocument permettant de construire un document html compatible avec les lecteurs de messagerie.
Tip : Dans un mail destiné à une messagerie il n'est pas possible d'utiliser certaines fonctionnalités, en particulier il n'est pas possible d'inclure du script |
Propriétés
Propriété | Usage |
---|---|
htmlHead | Entête du document html (head) |
htmlBody | Corps du document html (body) |
htmlContent | Contenu généré du document html |
Opérations
Méthode | Usage |
---|
Exemple:
//function Execute(var aReason:string):boolean; Type VueValideur = viewOf(TPieceTaxable) vp1: TValideurPossible = join(ValidationEtat.EtatPossible.EtatMetier,EtatMetier); vp2: TValideurPossible = join(ValidationEtat.RegleValidation,RegleValidation); gcv: TGroupeContactValidation = leftjoin(TGroupeValidation,vp2.ContactEtablissement); aId1:TOID = vp1.oid; aId2:TOID = vp2.oid; aIdVP:TOID = vp2.oidValideurPrecedent; aIdDV:TOID = oiddernierValideur; aIdCV:TOID = vp2.oidContactEtablissement; aIdCE:TOID = ISNULL(gcv.oidTContactEtablissement,vp2.oidContactEtablissement); // personne Mail:string = ISNULL(gcv.TContactEtablissement+eMail,vp2.ContactEtablissement.eMail); FirstName:string = ISNULL(gcv.TContactEtablissement+prenom,vp2.ContactEtablissement.prenom); LastName:string = ISNULL(gcv.TContactEtablissement+nom,vp2.ContactEtablissement.nom); Civility:string = ISNULL(gcv.TContactEtablissement+Civilite+Caption,vp2.ContactEtablissement+Civilite+Caption); // pièce estVomplet:boolean = estComplet; noPiece:string = noPiece; datePiece:Tdatetime = datePiece; totalHT: Tmoney = totalHT; typePieceCode:string = TypePieceGC.code; typePieceLibelle:string = TypePieceGC+Caption; tiersFactureCode:string = RoleTiersFacture.Tiers.code; tiersFactureLibelle:string = RoleTiersFacture.Tiers.Caption; affaireCode:string = Affaire+code; affaireLibelle:string = Affaire+Caption; // [ (estComplet=True) and (aId1=aId2) and (aIdDV<>aIdCV) and ((aIdVP='') or (aIdVP=aIdDV)) ] end; function _SendEmail(eMail,Subject:string; doc:TxmlHtmlMailDocument):boolean; begin Result := True; if (eMail<>'') and (doc<>nil) then begin Result := MailTo(eMail,Subject,doc.htmlContent); end; end; function _Subject(inst:VueValideur):string; begin Result := _TP('(No reply) (Sage FRP 1000) Commande(s) en attente de validation') end; procedure _BodyHeader(doc:TxmlHtmlMailDocument; inst:VueValideur); begin end; procedure _Body(table:ThtmlTable; inst:VueValideur); begin table.AddRow([ inst.TranslateMsg(_TP('La pièce @noPiece@ en date du @datePiece@ d''un montant de @totalHT@ doit être validée')) ]); end; var ls:TSelector; eMail,Subject:string; doc:TxmlhtmlMailDocument; table:ThmlTable; inst:VueValideur; begin aReason := ''; Result := True; // ls := VueValideur.CreateSelector('','Mail,typePieceCode,datePiece',true,[]); eMail := ''; Subject := ''; doc := nil; foreach inst in ls.AsCursor do begin if inst.Mail<>eMail then begin if not _sendEMail(email,Subject,doc) then begin // do not continue if send mail failed Result := False; aReason := _TP('Echec d''envoi de mail, vérifiez le paramétrage du service de messagerie'); Exit; end; // doc := TxmlHtmlMailDocument.Create(nil); doc.htmlbody.AddHeader(inst.TranslateMsg(_TP('A l''attention de @Civility@ @FirstName@ @LastName@')),'section'); doc.htmlbody.AddHeader(_TP('A ce jour les pièces suivantes sont en attente de validation de votre part :'),'subsection'); // table := doc.htmlbody.AddTable([ _TP('Type de pièce'), _TP('Tiers'), _TP('Affaire'), _TP('Pièce'), _TP('Date de pièce'), _TP('Montant') ]); eMail := inst.Mail; Subject := _Subject(inst); end; // if Assigned(Table) then begin table.AddRow([ inst.typePieceLibelle, inst.tiersFactureLibelle, inst.affaireLibelle, Format('%s#%s',[inst.noPiece,TFacadeModel.GetLinkUrlOfObject(inst.oid)]), inst.TranslateMsg('@datePiece@'), inst.TranslateMsg('@totalHT@') ]); end; end; // Result := _SendEmail(eMail,Subject,doc); end;
Voir aussi :
— Code métier — Développement DSM —