function litCookie (nom_de_la_variable)
{
  var nom_du_cookie = "Ident";
  if (document.cookie.indexOf(nom_du_cookie) == -1)
  {
    return "";
  }
  var debut = document.cookie.indexOf(nom_du_cookie);
  debut = debut + nom_du_cookie.length + 1;
  var fin = document.cookie.length;
  var tmp = unescape(document.cookie.substring(debut, fin));

  if (tmp.indexOf(nom_de_la_variable + "=") == -1)
  {
    return "";
  }
  debut = tmp.indexOf(nom_de_la_variable + "=");
  debut = debut + nom_de_la_variable.length + 1;
  fin = tmp.length;
  if (tmp.indexOf(";", debut) != -1)
  {
    fin = tmp.indexOf(";", debut);
  }
  tmp = tmp.substring(debut, fin);

  return tmp;
}

function placeCookie (valeur)
{
  var nom_du_cookie = "Ident";
  var jours_validite = 7;
    echeance = new Date();
    echeance.setTime(echeance.getTime() + (1000 * 60 * 60 * 24 * jours_validite));
    echeance = echeance.toGMTString();
    document.cookie = nom_du_cookie + "=" + escape (valeur) + ";path=/" + "; secure";
}
function effacerCookie ()
{
  var nom_du_cookie = "Ident";
    echeance = new Date("01/01/1990");
    echeance = echeance.toGMTString();
    document.cookie = nom_du_cookie + "=; expires=" + echeance;
}
function envoiPage (nom_page,nom_pgm,nom_frame)
   {
if (parent.XPHASE=='KO') {alert(parent.XPHASE);return;}
if (nom_frame == 'Navigation') {;}
   else {if (nom_frame == 'Principal') {;}
        else {if (nom_frame == 'Barre') {;}
             else {nom_frame = 'Principal';}}}
with (parent.frames[nom_frame]) {
  var nom = litCookie("UserID");
  document.IDENT.elements[0].value = nom;
  document.IDENT.elements[1].value = nom_page;
  document.IDENT.action = nom_pgm;
  document.IDENT.submit();   }
}

function XACTION(TMP)
{
with (parent.frames['Principal']) {
  document.IDENT.ACTION.value=TMP; }
  parent.envoiPage('AXP','/QSYS.LIB/CGI.LIB/GXPIVOT.PGM?JS','Principal');
}

// function XFORTX(TMP)
//{window.open("http://asbkup/qsys.lib/cgi.lib/nxintra.pgm?*&CLI&0078780&gx&"
//   ,"FF" )}

function fluxo(TMP)
{  var nom = litCookie("UserID");
   var xdcgi="http://"+parent.VXSURL+"/qsys.lib/cgi.lib/gxpivot.pgm?"+TMP+"&"+nom+"&";
   window.open(xdcgi ,"FF" )
}

function XFORT(TMP,RCN)
{
with (parent.frames['Principal']) {
  document.FMFORT.param1.value=parent.VFOR;
  document.FMFORT.verbose.value='N';
  document.FMFORT.record.value=parent.VXRC;
  document.FMFORT.submit();   }
}

function XDUM(){var vdummy="1";}
function XPRINT(){window.print();}
function XPPRINT() {top.Principal.focus(); top.Principal.print();}

/* function browserID() {
   var name = navigator.appName ;
   var version = navigator.appVersion;
   if (name == 'Netscape') { name = 'Netscape Navigator';
                            version = navigator.appVersion.substring(0,5);
                           }
      else {
            if (name == 'Microsoft Internet Explorer') {
                       id = version.indexOf('MSIE');
                       version = version.substring(id+5,id+9);
               }
                 else {
                         name = 'Navigateur inconnu';
                         version = '0.00';
                 }
         }
         ID = name + ' ' + version;
         return ID;
 }                          */