Formulaire de création/modification de version de document

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

versions_version_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'une nouvelle version d'une procédure.

chaîne "modif" en mode Modification, cette page affiche les données d'une version de procédure et ouvre certains champs en modification.

ver_id entier : référence informatique de la 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.

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'une nouvelle version d'une procédure.
chaîne "modif"	en mode Modification, cette page affiche les données d'une version de procédure et ouvre certains champs en modification.
ver_id	entier : référence informatique de la 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, ver_doc_orig, ver_doc_langue sont rapatriées depuis le dernier enregistrement de projet ou de version dans la base :
select ver_no_valide (incrémenté d'1), ver_no_projet (mis à 0), ver_creation_qui, ver_titre, ver_doc_orig, ver_doc_langue from documents_versions where doc_id = R.Q ('doc_id') and ver_id = max(ver_id). sont rapatriées depuis l'enregistrement passé en paramètre
select * 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_application_date, ld_ver_version_date sont initialisées à la date du jour.

Les durées li_ver_peremption_duree, li_ver_nouveaute_duree, li_ver_valid_print sont récupérées dans la table param_doc.

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, ver_doc_orig, ver_doc_langue	sont rapatriées depuis le dernier enregistrement de projet ou de version dans la base : select ver_no_valide (incrémenté d'1), ver_no_projet (mis à 0), ver_creation_qui, ver_titre, ver_doc_orig, ver_doc_langue from documents_versions where doc_id = R.Q ('doc_id') and ver_id = max(ver_id).	sont rapatriées depuis l'enregistrement passé en paramètre select * 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_application_date, ld_ver_version_date	sont initialisées à la date du jour.
Les durées li_ver_peremption_duree, li_ver_nouveaute_duree, li_ver_valid_print	sont récupérées dans la table param_doc.

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", HIDDEN, li_ver_id
Visible non modifiable en 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 + Modifiable

<% = trad('VER_CREATION_QUI') %> documents_versions.ver_creation_qui Affichage et Formulaire : "ver_creation_qui", INPUT-TEXT, ld_ver_creation_qui Auteur.

<% = trad('VER_APPLICATION_DATE') %> documents_versions.ver_application_date "ver_application_date", INPUT-TEXT, ld_ver_application_date Date d'application.

<% = trad('VER_PEREMPTION_DUREE') %> documents_versions.ver_peremption_duree "ver_peremption_duree", INPUT-TEXT, li_ver_peremption_duree Durée avant peremption.

<% = trad('VER_NOUVEAUTE_DUREE') %> documents_versions.ver_nouveaute_duree "ver_nouveaute_duree", INPUT-TEXT, li_ver_nouveaute_duree Durée comme nouveaute.

<% = trad('VER_VALID_PRINT') %> documents_versions.ver_valid_print "ver_valid_print", INPUT-TEXT, li_ver_valid_print Durée de validité d'impression.

<% = 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_ver_version_date Date de version.

<% = trad('VER_DOC_ORIG') %> documents_versions.ver_doc_orig "ver_doc_orig", INPUT-TEXT, ls_ver_doc_orig Document d'origine.

<% = trad('VER_DOC_LANGUE') %> documents_versions.ver_doc_langue "ver_doc_langue", INPUT-TEXT, ls_ver_doc_langue Langage de la version du document.

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", HIDDEN, li_ver_id Visible non modifiable en 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 + Modifiable
<% = trad('VER_CREATION_QUI') %>	documents_versions.ver_creation_qui	Affichage et Formulaire : "ver_creation_qui", INPUT-TEXT, ld_ver_creation_qui	Auteur.
<% = trad('VER_APPLICATION_DATE') %>	documents_versions.ver_application_date	"ver_application_date", INPUT-TEXT, ld_ver_application_date	Date d'application.
<% = trad('VER_PEREMPTION_DUREE') %>	documents_versions.ver_peremption_duree	"ver_peremption_duree", INPUT-TEXT, li_ver_peremption_duree	Durée avant peremption.
<% = trad('VER_NOUVEAUTE_DUREE') %>	documents_versions.ver_nouveaute_duree	"ver_nouveaute_duree", INPUT-TEXT, li_ver_nouveaute_duree	Durée comme nouveaute.
<% = trad('VER_VALID_PRINT') %>	documents_versions.ver_valid_print	"ver_valid_print", INPUT-TEXT, li_ver_valid_print	Durée de validité d'impression.
<% = 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_ver_version_date	Date de version.
<% = trad('VER_DOC_ORIG') %>	documents_versions.ver_doc_orig	"ver_doc_orig", INPUT-TEXT, ls_ver_doc_orig	Document d'origine.
<% = trad('VER_DOC_LANGUE') %>	documents_versions.ver_doc_langue	"ver_doc_langue", INPUT-TEXT, ls_ver_doc_langue	Langage de la version du document.

Form "frm" Elle rassemble les zones d'entrée, et permet leur gestion à la soumission (bouton "Soumettre la requête" : OnSubmit="verify_Rqst()") : vous êtes alertés si les durées de peremption et de nouveauté sont nulles ou > 99.
Redirection sur versions_write asp ?act= + reprise de "crea" ou de "modif" + "&ref_doc=" + Request.QueryString('ref_doc')
+ en cas de création : "&prec_ver_id=" + OBJECT1.cursor.GetValue(0) (donnée sortie de la recherche du max(ver_id)).

function VerifyRqst(){ (LES TRAD SONT COTE SERVEUR) var msg = "" + trad('C_VIDES') + " : "; var bool = 0; if (document.frm.ver_peremption_duree.value == "") {msg += "\n " + trad('VER_PEREMPTION_DUREE') + " ;\n "; bool = 1;}; if (document.frm.ver_nouveaute_duree.value == "") {msg += "\n " + trad('VER_NOUVEAUTE_DUREE') + " ;\n "; bool = 1;}; if (bool == 0) msg = ""; if (document.frm.ver_peremption_duree.value > 99) {msg += "\n " + trad('C_FIELD_LENGTH') + trad('VER_PEREMPTION_DUREE') + trad('2_CARAC') + "\n"; bool = 1;}; if (document.frm.ver_nouveaute_duree.value > 99) {msg += "\n " + trad('C_FIELD_LENGTH') + trad('VER_NOUVEAUTE_DUREE') + trad('2_CARAC') + "\n "; bool = 1;}; if (bool == 1) {alert(msg);} else {document.frm.action = " COTE SERVEUR : switch (action) { case ("crea") : {Response.Write ("versions_write.asp?act=crea" + "&prec_ver_id=" + OBJECT1.cursor.GetValue(0) + "&ref_doc=" + Request.QueryString('ref_doc') + ""); break; }; case ("modif") : {Response.Write ("versions_write.asp?act=modif" + "&ref_doc=" + Request.QueryString('ref_doc') + ""); break; }; } FIN " document.frm.action += "&doc_id=" + document.frm.doc_id.value; document.frm.action += "&ver_id=" + document.frm.ver_id.value; document.frm.action += "&ver_no_valide=" + document.frm.ver_no_valide.value; document.frm.action += "&ver_no_projet=" + document.frm.ver_no_projet.value; document.frm.action += "&ver_creation_date=" + document.frm.ver_creation_date.value; document.frm.action += "&ver_creation_qui=" + document.frm.ver_creation_qui.value; document.frm.action += "&ver_version_date=" + document.frm.ver_version_date.value; document.frm.action += "&ver_titre=" + escape(document.frm.ver_titre.value); document.frm.action += "&ver_doc_langue=" + document.frm.ver_doc_langue.value; document.frm.action += "&ver_doc_orig=" + document.frm.ver_doc_orig.value; document.frm.action += "&ver_application_date=" + document.frm.ver_application_date.value; document.frm.action += "&ver_nouveaute_duree=" + document.frm.ver_nouveaute_duree.value; document.frm.action += "&ver_peremption_duree=" + document.frm.ver_peremption_duree.value; document.frm.action += "&ver_valid_print=" + document.frm.ver_valid_print.value; }; };