<%@ LANGUAGE=JavaScript %> <% = "versions_version_form" %>

<% = "versions_version_form" %>

HEAD...    
      var action =  "" + Request.Form('maj_type'); 
      
  switch ("" + Request.Form ('maj_type')) {
  case ("INSERT") : { (CREATION) case ("UPDATE") : { (MODIFICATION)
li_doc_id parseInt("" + Request.Form('doc_id')) parseInt(Request.Form('doc_id'))
li_ver_id select max(ver_id)
from documents_versions
where doc_id = " + li_doc_id + ""
--> = parseInt(OBJECT1.cursor.GetValue(0)) + 1;		 parseInt(Request.Form('ver_id'));
... 
    "select 
    ver_no_valide, 
    ver_no_projet, 
    ver_creation_qui, 
    ver_titre, 
    ver_doc_langue, 
    ver_doc_orig 
    from documents_versions 
    where doc_id = " + R.F('doc_id') + " 
    and ver_id = " + OBJECT1.cursor.GetValue(0) + "";

    if (OBJECT2.cursor.EOF()) {
      //Prevoir ici le cas d'un premier enregistrement
      var li_ver_no_valide = 1; 
      var li_ver_no_projet = 0;

      sqlquery = "
        select 
        doc_creation_qui, 
        doc_titre, 
        doc_langue 
        from documents 
        where doc_id = " + Request.Form ('doc_id') + "";
    
    if (!OBJECT_recup_doc.cursor.EOF()) {
        var ls_ver_creation_qui = 
          OBJECT_recup_doc.cursor.GetValue ('doc_creation_qui');
        var ls_ver_titre = 
          OBJECT_recup_doc.cursor.GetValue ('doc_titre');   
        var ls_ver_doc_langue = 
          OBJECT_recup_doc.cursor.GetValue ('doc_langue'); 
        var ls_doc_orig = "";
        }
      }
    else {  
      OBJECT2.cursor.MoveFirst();
      var li_ver_no_valide = 
        parseInt(OBJECT2.cursor.GetValue(0)) + 1; 
      var li_ver_no_projet = 0;
      var ls_ver_creation_qui = 
        OBJECT2.cursor.GetValue(2);
      var ls_ver_titre = 
        OBJECT2.cursor.GetValue(3);
      var ls_ver_doc_langue = 
        OBJECT2.cursor.GetValue ('ver_doc_langue');
      var ls_ver_doc_orig = 
        OBJECT2.cursor.GetValue ('ver_doc_orig');
      }    
    
    "select * 
    from documents_versions 
    where doc_id = " + li_doc_id + " 
    and ver_id = " + li_ver_id + "";
... 
    var today = new Date; today = format_time (today);
    var ld_ver_creation_date = today;
    var ld_ver_application_date = today;
    var ld_ver_version_date = today;
... 
    OBJECT_recup_params 
    sqlquery = "
      select 
      par_nouveaute_duree, 
      par_duree_peremption, 
      par_valid_print 
      from param_doc 
      where dept_code = '" + Session ('dept_code') + "' 
      and type_code = '" + Session ('type_doc') + "'";
    
    SCRIPT
    function VerifyRqst(){
      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('FIELD_LENGTH') + trad('VER_PEREMPTION_DUREE') + trad('2_CARAC') + "\n"; bool = 1;};
      if (document.frm.ver_nouveaute_duree.value > 99) {
        msg += "\n " + trad('FIELD_LENGTH') + trad('VER_NOUVEAUTE_DUREE') + trad('2_CARAC') + "\n "; bool = 1;};
      if (bool == 1) {alert(msg);} else {document.frm.submit();};
      };
    /SCRIPT
/HEAD

Formulaire :
FORM NAME=\"frm\" onSubmit=\"VerifyRqst()\" ACTION=\"versions_version_write.asp\" METHOD=\"POST\"
INPUT NAME=\"ref_doc\" TYPE=\"HIDDEN\" VALUE=\"" + Request.Form ('ref_doc')
INPUT NAME=\"maj_type\" TYPE=\"HIDDEN\" VALUE=\"" + action
INPUT NAME=\"prec_ver_id\" TYPE=\"HIDDEN\" VALUE=\"" + OBJECT1.cursor.GetValue(0)
INPUT NAME=\"doc_id\" TYPE=\"HIDDEN\" VALUE=\"" + li_doc_id
INPUT NAME=\"ver_id\" TYPE=\"HIDDEN\" VALUE=\"" + li_ver_id
INPUT NAME=\"ver_no_valide\" TYPE=\"TEXT\" VALUE=\"" + li_ver_no_valide + "\" READONLY
INPUT NAME=\"ver_no_projet\" TYPE=\"TEXT\" VALUE=\"" + li_ver_no_projet + "\" READONLY
INPUT NAME=\"ver_creation_date\" TYPE=\"TEXT\" VALUE=\"" + ld_ver_creation_date + "\" READONLY
INPUT NAME=\"ver_creation_qui\" TYPE=\"TEXT\" VALUE=\"" + ls_ver_creation_qui
INPUT NAME=\"ver_application_date\" TYPE=\"TEXT\" SIZE=\"10\" VALUE=\"" + ld_ver_application_date
INPUT NAME=\"ver_nouveaute_duree\" TYPE=\"TEXT\" SIZE=\"2\" VALUE=\"" + li_ver_nouveaute_duree
INPUT NAME=\"ver_peremption_duree\" TYPE=\"TEXT\" SIZE=\"2\" VALUE=\"" + li_ver_peremption_duree
INPUT NAME=\"ver_peremption_date\" TYPE=\"TEXT\" SIZE=\"10\" VALUE=\"" + ld_ver_peremption_date
INPUT NAME=\"ver_valid_print\" TYPE=\"HIDDEN\" SIZE=\"2\" VALUE=\"" + li_ver_valid_print
TEXTAREA NAME=\"ver_titre\" COLS=\"20\" ROWS=\"5\">" + ls_ver_titre
INPUT NAME=\"ver_version_date\" TYPE=\"TEXT\" SIZE=\"10\" VALUE=\"" + ld_ver_version_date
INPUT NAME=\"ver_doc_orig\" TYPE=\"TEXT\" SIZE=\"20\" VALUE=\"" + ls_ver_doc_orig