Requête RCT de lancement action Modification
VLO.RepVisu = CLO."\\\\gavarnie\\tmp\\"
COMMENTAIRE : ‘Récupération de l’identifiant du document à modifier’
VLO.Res = INT-CTX( ACTION= REC-VALEUR , TYPE-VARIABLE= VSD , NOM-VARIABLE= Action ,
E-S:VALEUR= VLO.IdDocGed)
RECH TBD DTD ADGEDEnt AVEC IDENTIFIANT= VLO.IdDocGed :
RECH PREM TBD/SOC DTD ADGEDDoc AVEC INDEX (I4) DTD ADGEDDoc.ADGEDVerPri VRAI
ET DTD ADGEDDoc.ADGEDCat = DTD ADGEDEnt.ADGEDCat
ET DTD ADGEDDoc.ADGEDCleV = DTD ADGEDEnt.ADGEDCleV :
VLO.ID = DTD ADGEDDoc.ADGEDIde
VLO.ficCible = DTD ADGEDDoc.ADGEDFicOri
VLO.NbMot = NB-MOT( SEPARATEUR= CLO."/" , CHAINE= VLO.ficCible )
VLO.nomFichier = MOT( SEPARATEUR= CLO."/», CHAINE= VLO.ficCible, NUMERO= VLO.NbMot)
COMMENTAIRE : ‘Extraction du document dans un fichier cible’
VLO.Res = GED-EXT-DOC (IDENTIFIANT= VLO.ID, DESTINATAIRE= VLO.ficCible)
SI VLO.Res = CGL.VIDE
COMMENTAIRE : ‘Lancement commande système d’ouverture du fichier’
INIT VBP.IAP_TypeFils = CLO."CSY"
INIT VBP.IAP_RefFils = CLO."Ouvrir"
INIT VBP.Parametre = VLO.RepVisu + VLO.nomFichier
FIN_BLOC
SINON
INIT VBP.Parametre = CGL.VIDE
FIN_BLOC
FIN_BLOC
FIN_BLOC
Commande système OUVRIR
Définition de la commande système ‘ouvrir’
Requête REB de la commande système ‘ouvrir’
SI VBP.Parametre EXISTE ET <> ""
INIT SCR.CdeSysCmd = SCR.CdeSysCmd + " " + VBP.Parametre
FIN_BLOC
SINON
INIT SCR.CdeSysCmd = CGL.VIDE
INIT VBP.IAP_ValActFils = CLO."KO"
INIT VBP.RCT_TypeAction = CGL.VIDE
FIN_BLOC
Requête PSD de validation de la PSD
A la validation de la PSD, suppression des liens de l’entité avec l’ancien document et référencement/rattachement du document modifié.
SI SCR.SDyProEvt = CLO."PRO-VAL"
COMMENTAIRE : ‘Récupération des caractéristiques du document origine’
RECH TBD DTD ADGEDEnt AVEC IDENTIFIANT= VBP.Liste :
CREATION Liste WfGEDEnt :
PRENDRE WfGEDEnt GEDAct = CLO."CAR"
PRENDRE WfGEDEnt GEDCle = CLO."CAR"
PRENDRE WfGEDEnt GEDCat = DTD ADGEDEnt.ADGEDCat
PRENDRE WfGEDEnt GEDCleV = DTD ADGEDEnt.ADGEDCleV
FIN_BLOC
VLO.essai = ENR-ACT-GED ( )
RECH PREM LST WfGEDEnt :
VLO.NomFicOri = WfGEDEnt.GEDFicOri
FIN_BLOC
EFFACER Liste WfGEDEnt
EFFACER Liste WfGEDLien
COMMENTAIRE : ‘Suppression des liens avec le document origine’
CREATION Liste WfGEDEnt :
PRENDRE WfGEDEnt GEDAct = CLO."SUP-LIEN"
PRENDRE WfGEDEnt GEDCle = CLO."SUP-LIEN"
PRENDRE WfGEDEnt GEDCat = DTD ADGEDEnt.ADGEDCat
PRENDRE WfGEDEnt GEDCleV = DTD ADGEDEnt.ADGEDCleV
FIN_BLOC
CREATION Liste WfGEDLien :
PRENDRE WfGEDLien GEDCle = CLO."SUP-LIEN"
PRENDRE WfGEDLien GEDEnt = DTD ADGEDEnt.ADGEDTen
PRENDRE WfGEDLien GEDCle1 = DTD ADGEDEnt.ADGEDCl1
FIN_BLOC
COMMENTAIRE : ‘Référencement/Rattachement du document modifié’
CREATION Liste WfGEDEnt :
PRENDRE WfGEDEnt GEDAct = CLO."REF"
PRENDRE WfGEDEnt GEDCle = CLO."REF"
PRENDRE WfGEDEnt GEDCat = DTD ADGEDEnt.ADGEDCat
PRENDRE WfGEDEnt GEDFicOri = VLO.NomFicOri
FIN_BLOC
CREATION Liste WfGEDLien :
PRENDRE WfGEDLien GEDCle = CLO."REF"
PRENDRE WfGEDLien GEDEnt = DTD ADGEDEnt.ADGEDTen
PRENDRE WfGEDLien GEDCle1 = DTD ADGEDEnt.ADGEDCl1
FIN_BLOC
VLO.essai = ENR-ACT-GED ( )
FIN_BLOC
FIN_BLOC Récupération chemin complet à un document GED
Recherche du chemin d’un document pour y accéder depuis un client.
