<%@ LANGUAGE=JavaScript %> Formulaire de création/modification de projet de version de procédure <% WriteHeader() %>

versions_projet_form.asp

Paramètre Valeur Utilisation
doc_id chaîne "crea" en mode création, cette page permet de saisir les variables non automatiques nécessaires à la constitution d'un nouveau projet de version d'un document.
chaîne "modif" en mode Modification, cette page affiche les données d'un projet de version de document et ouvre certains champs en modification.
ver_id entier : référence informatique du projet de version à modifier.

ref_doc

 chaîne = début du titre de la procédure pour le titre de la fenêtre et du tableau, paramètre en sortie vers versions_write, voire versions_liste si erreur.

Calculs préliminaires : Creation Modification
li_doc_id Request.QueryString ('doc_id') Request.QueryString ('doc_id')
li_ver_id 1 + select max(ver_id) from documents_versions where doc_id = li_doc_id Request.QueryString ('ver_id')
Les autres données li_ver_no_valide, li_ver_no_projet, ls_ver_creation_qui, ls_ver_titre, sont rapatriées depuis le dernier enregistrement de projet ou de version dans la base :
select ver_no_valide (inchangé), ver_no_projet (incrémenté d'1), ver_creation_qui, ver_titre, ver_doc_langue from documents_versions where doc_id = R.Q ('doc_id') and ver_id = max(ver_id).
A défaut, auteur, titre et langue sont récupérées dans le document n° Request.Q ("doc_id"). 		sont rapatriées depuis l'enregistrement passé en paramètre :
"select ver_no_valide, ver_no_projet, ver_creation_date, ver_creation_qui, ver_titre, ver_version_date, ver_doc_langue, ver_titre from documents_versions where doc_id = R.Q ('doc_id') and ver_id = R.Q ('ver_id').
Les dates ld_ver_creation_date, ld_ver_version_date sont initialisées à la date du jour.
Lorsque l'on est en modification, il y a effacement des pages du projet, qui vont être remplacées par la nouvelle mouture. On parcourt la table documents_pages (select page_id) where doc_id et ver_id et appel de del_page (doc_id, ver_id, pag_id) pour chaque page présente.
(del_page (li_doc_id, li_ver_id, OBJECT_compte.cursor.GetValue (0));)

EN MODE CREATION ET EN MODIFICATION
NOM de LIGNE CHAMP de la BASE CHAMP du FORMULAIRE COMMENTAIRE
<% = trad('DOC_ID') %> documents_versions.doc_id "doc_id", INPUT-HIDDEN, li_doc_id Référence (base de donnée) de document - Non modifiable
<% = trad('VER_ID') %> documents_versions.ver_id "ver_id", INPUT-HIDDEN, li_ver_id
Visible en position "debug" 		Référence (base de donnée) de version - Non modifiable
<% = trad('VER_NO_VALIDE') %> documents_versions.ver_no_valide Affichage : "ver_no_valide_txt", INPUT-TEXT-DISABLED, li_ver_no_valide
Formulaire : "ver_no_valide", INPUT-HIDDEN, li_ver_no_valide 		Numéro de version validée - Non modifiable
<% = trad('VER_NO_PROJET') %> documents_versions.ver_no_projet Affichage : "ver_no_projet_txt", INPUT-TEXT-DISABLED, li_ver_no_projet
Formulaire : "ver_no_projet", INPUT-HIDDEN, li_ver_no_projet 		Numéro de projet de version - Non modifiable
<% = trad('VER_CREATION_DATE') %> documents_versions.ver_creation_date "ver_creation_date", INPUT-TEXT, ld_ver_creation_date Date de création. Date du jour automatique + Modification libre
<% = trad('VER_CREATION_QUI') %> documents_versions.ver_creation_qui Affichage et Formulaire : "ver_creation_qui", INPUT-TEXT, ld_ver_creation_qui Auteur.
<% = trad('VER_TITRE') %> documents_versions.ver_titre "ver_titre", INPUT-TEXT, ls_ver_titre Titre.
<% = trad('VER_VERSION_DATE') %> documents_versions.ver_version_date "ver_version_date", INPUT-TEXT, ld_version_date Date de version.
<% = trad('VER_DOC_LANGUE') %> documents_versions.ver_doc_langue "ver_doc_langue", INPUT-TEXT, ld_ver_doc_langue Langue.
<% = trad('VER_DOC_ORIG') %> documents_versions.ver_doc_orig "ver_doc_orig", INPUT-HIDDEN, ls_ver_doc_orig Document d'origine. 

        Formulaire : 
        NAME="frm" 
        OnSubmit="compos_file()" 
        ACTION="versions_write.asp?act=" + R.Q('act') + "&ref_doc=" + R.Q('ref_doc') + " 
        METHOD="POST">
            
     SCRIPT coté client
      function formatage (entier, longu) {
          var str = "" + entier;
          while (str.length < longu) {
            str = "0" + str;
            }
          return str;
          };
      function compos_file () {
          var file_in = escape("" + document.frm.Filedata.value);
          var index_nom = file_in.lastIndexOf("%5C") + 3;
          var index_ext = file_in.indexOf (".", 1);
          var index_fin = file_in.length;
          document.frm.ver_doc_orig.value = file_in.substring (index_nom, index_fin);
          document.frm.RedirectURL.value = "http://" + psDocument.Site() + psDocument.Path()) + "/versions_write.asp?act=" + R.Q('act') + "&ref_doc=" + escape(R.Q ('ref_doc')) + "";                       
          
          if (file_in.substring (index_ext, index_fin) != ".docx") {
            var nom_fichier = Session ("type_doc") + "_" + formatage (document.frm.doc_id.value, 4) + "_" + formatage (document.frm.ver_no_valide.value,3) + "_" + formatage (document.frm.ver_no_projet.value,3) + "_000" + file_in.substring (index_ext, index_fin);
            var file_out = escape(Application('dir_out') + Session ("dept_code") + "\\" + Session ("type_doc") + "\\") + nom_fichier;		
            document.frm.Filename.value = unescape(file_out);
            
            document.frm.RedirectURL.value += "&ref_info=" + escape("http://" + psDocument.Site () + "/SuneTeam/Documents/" + Session ("dept_code") + "/" + Session ("type_doc")) + "/" + nom_fichier + "&ref_info_file=" + unescape(file_out) + "";
            }
        else {
            document.frm.Filename.value = "c:\\temp\\sop.docx" ;
            
            }
        document.frm.RedirectURL.value += "&doc_id=" + document.frm.doc_id.value;
        document.frm.RedirectURL.value += "&ver_id=" + document.frm.ver_id.value;
        document.frm.RedirectURL.value += "&ver_no_valide=" + document.frm.ver_no_valide.value;
        document.frm.RedirectURL.value += "&ver_no_projet=" + document.frm.ver_no_projet.value;
        document.frm.RedirectURL.value += "&ver_creation_date=" + document.frm.ver_creation_date.value;
        document.frm.RedirectURL.value += "&ver_creation_qui=" + document.frm.ver_creation_qui.value;
        document.frm.RedirectURL.value += "&ver_version_date=" + document.frm.ver_version_date.value;
        document.frm.RedirectURL.value += "&ver_titre=" + escape(document.frm.ver_titre.value);
        document.frm.RedirectURL.value += "&ver_doc_langue=" + document.frm.ver_doc_langue.value;
        document.frm.RedirectURL.value += "&ver_doc_orig=" + document.frm.ver_doc_orig.value;            
        
        }