Envoi document GED à la validation d’une PSD

Requête PSD de validation :

VLO.NbMot = NB-MOT( SEPARATEUR= CLO.";" , CHAINE= VSD.MailDest )

SI VLO.NbMot >= CLO.1

VLO.Dest = CLO."D=" + MOT ( SEPARATEUR= CLO.";" , CHAINE= VSD.MailDest , NUMERO= CLO.1 )

SI VLO.NbMot > CLO.1

BOUCLE VLO.ind DE CLO.2 A VLO.NbMot :

VLO.Dest = VLO.Dest + CLO."; D=" + MOT ( CHAINE= VSD.MailDest , NUMERO= VLO.ind )

FIN_BLOC

VLO.Corps = VSD.AgeEvtDes

VLO.Obj = VSD.AgeEvtSuj

VLO.typmes = CLO."J_v2k8dev"

VLO.NbMot = NB-MOT ( SEPARATEUR= CLO.",», CHAINE= VBP.Liste)

BOUCLE VLO.ind DE CLO.1 A VLO.NbMot :

VLO.ID = MOT ( SEPARATEUR= CLO."," , CHAINE= VBP.Liste , NUMERO= VLO.ind )

RECH TBD DTD ADGEDEnt AVEC IDENTIFIANT= VLO.ID :

RECH TBD/SOC DTD ADGEDDoc AVEC INDEX (I1) DTD ADGEDDoc.ADGEDCat = DTD ADGEDEnt.ADGEDCat

ET DTD ADGEDDoc.ADGEDCleV = DTD ADGEDEnt.ADGEDCleV :

SI VLO.PJ = CGL.VIDE

VLO.PJ = CLO."FIC-GED-INTERNE=|"

FIN_BLOC

SINON

VLO.PJ = VLO.PJ + CLO.";" + CLO."FIC-GED-INTERNE=|"

FIN_BLOC

VLO.PJ = VLO.PJ + DTD ADGEDDoc.ADGEDIde

FIN_BLOC

VLO.Corps = VLO.Corps + CLO."\n" + VLO.PJ

VLO.res = ENVOI-EMAIL (DESTINATAIRES= VLO.Dest, OBJET= VLO.Obj, MESSAGE= VLO.Corps,

PIECES-JOINTES= VLO.PJ, TYPE-MESSAGE= VLO.typmes)

FIN-BLOC