function controltab()
{
for (i=0;i<F_numField.length;i++) {
mult = F_Att[i].charAt(2) ;
saisie = F_Att[i].charAt(3) ;
if (mult == "1" && saisie == "2"){
ord = F_Att[i].charAt(6) ;
eord = eval (ord);
if (eord <=1){
enb = F_Val_code[i].length ;
j = enb-1 ;
if ( F_Val_code[i][j] != "" || F_Val_lib[i][j] != "" ){
j = enb ;
F_Val_code[i][j]  = "";
F_Val_lib[i][j]  = "";
nat = F_Att[i].charAt(0) ;
if (nat == "2" || nat == "8") {F_Val_link[i][j]  = "";}
}
}}}}

function displayform(fieldfocus)
{
var k=0 ;
allok =true ;
fieldlastfocus = fieldfocus ;
fieldnextfocus = "" ;
formcontent = "<form action='"+FormAction+"' method='POST' enctype='x-www-form-encoded' name='record'>" ;
formcontent += "<input type='hidden' name='eForm_Action' value ='"+eForm_Action+"'>" ;
formcontent += "<input type='hidden' name='AForm_Record_Type' value ='"+AForm_Record_Type+"'>" ;
formcontent += "<input type='hidden' name='AForm_Record_Site' value ='"+AForm_Record_Site+"'>" ;
formcontent += "<input type='hidden' name='Record' value ='"+Record+"'>" ;
formcontent += "<input type='hidden' name='Alang' value ='"+Alang+"'>" ;
formcontent += "<input type='hidden' name='Field' value ='"+Field+"'>" ;
formcontent += "<table border='0' cellspacing='1'><tr><td width='300'></td><td width='100%'></td></tr>" ;
allFields = "" ;

for (i=0;i<F_numField.length;i++) {
if (F_Att[i].charAt(3) == "2") {allFields += F_numField[i]+"-"}
nat = F_Att[i].charAt(0) ;
ord = F_Att[i].charAt(6) ;
eord = eval(ord) ;
mode = "input" ;
premgroup = true ;
if (eord > 1 ){ mode = "";}

if (nat == "1" && eord<=1){ TS = F_Att2[i] ;
switch (TS)
{
case "R" :
mode = "radio" ;
oblig = F_Att[i].charAt(1) ;
if ( F_Val_code[i][0] == "" && oblig == "1") {xstyle= "<font color='red'>* " ;allok = false ;}
else {xstyle = ""}

formcontent += "<tr valign='top'><td align='right' class='titleblack10'>" +xstyle+ F_Lib[i] + "</td><td><table border='0' width='400'>";
k = 0 ;
for (j=0;j<V_code[i].length;j++){
if (k ==3) { formcontent += "</tr><tr>" ; k = 0 ;}
k ++;
formcontent += "<td width='3%'><input type=radio name='T_"+F_numField[i]+"' value='"+V_code[i][j]+"' "+V_sel[i][j] ;
formcontent += " onClick='clickrb(\""+mode+"\","+i+","+j+")' " ;
formcontent += "></td><td width='30%'>"+V_lib[i][j]+"</td>" ; }
formcontent += "</td></tr></table></td></tr>" ;
break ;

case "C" : 
mode = "boites" ;
formcontent += "<tr valign='top'><td align='right' class='titleblack10'>" + F_Lib[i] + "</td><td><table border='0' width='400'>";
k = 0 ;
for (j=0;j<V_code[i].length;j++){
if (k ==3) { formcontent += "</tr><tr>" ; k = 0 ; }
k ++;
formcontent += "<td width='3%'><input type='checkbox' name='T_"+F_numField[i]+"_"+j+"' value='"+V_code[i][j]+"' "+V_sel[i][j];
formcontent += " onClick='clickrb(\""+mode+"\","+i+","+j+","+k+")' ";
formcontent += "></td><td width=30%'>"+V_lib[i][j]+"</td>" ;}
formcontent += "</td></tr></table></td></tr>" ;
break ;

default :
mode = "input";
break;
}}

if (mode == "input"){
for (j=0;j<F_Val_code[i].length;j++)
{ if (premgroup == true) { premgroup = false; bgc = "ff9966"} else {premgroup=true; bgc ="6699ff"}

displayinput(i,j); formcontent += formcontent1 ;

if (eord == 1) { eord = 2 ; k = i+1 ;
while (eord >1 && k<F_numField.length) {
formcontent1 = "" ;displayinput(k,j); formcontent += formcontent1 ;
k =k+1;
if (k >= F_numField.length) {eord = 1}
else { ord = F_Att[k].charAt(6) ; eord =eval(ord) ;}
}
}
formcontent += "</td></tr>" ;
ord = F_Att[i].charAt(6) ; eord =eval(ord) ;
}}}
if (allok != true) {formcontent += "<tr><td></td><td><font class='titleblack10'><font color='red'> Tous les champs pr&eacute;c&eacute;d&eacute;s de * doivent &ecirc;tre renseign&eacute;s</td></tr>";}
if (Geide == true) {formgeide=""; displaygeide(); formcontent+=formgeide}
if (allok == true){ formcontent += "<input type='hidden' name='allFields' value='"+allFields+"'>" ;
formcontent += "<tr><td></td><td><table><tr><td><input type='submit' name='submit' value='Paiement par carte bancaire' class='button'></td><td><td><input type='submit' name='autresubmit'  value='Autre paiement' class='button'></td></table></td></tr>";}
formcontent += "</form></table>" ;

division = "record" ;
if (document.getElementById) {document.getElementById(division).innerHTML = formcontent ;
document.getElementById(division).style.visibility = "visible";}
else if (document.layers) {dest = document.division ;dest.document.write(formcontent) ; dest.document.close() ;document.division.visibility = "visible";}
else if (document.all) {document.all(division).innerHTML = formcontent;division.style.visibility = "visible"; }
if (fieldnextfocus != ""){document.record[fieldnextfocus].focus()}

}

function displayinput (ix,jx)

{
var esize = 80;
var oblig = "1";
var enb =0 ;
nat = F_Att[ix].charAt(0) ;
enb = F_Val_code[ix].length ;
formcontent1 = "";
if (jx >= enb)
{
enb = jx;
F_Val_code[ix][enb] = "";
F_Val_lib[ix][enb] = "";
if (nat == "2" || nat == "8") {F_Val_link[ix][enb] = "";}
}

if (jx == 0) { libclass = "titleblack10"}
else  { libclass = "textblack10"}
f1div = "<div id='field_"+ix+"_"+jx+"' style='position: relative; z-index:9; visibility:hidden' ><div>" ;
size = "80" ;
maxlength ="" ;
link ="" ;
link2="" ;
switch (nat)
{
case "1" :
link2="<input type='hidden' name='C_"+F_numField[ix]+"_"+jx+"' value='"+F_Val_code[ix][jx]+"'>";
break ;

case "2" :
link = F_Val_link[ix][jx] ; break ;

case "8" :
link = F_Val_link[ix][jx] ; break ;

case "3" :
Asize = F_Att2[ix].substring(0,4) ;
esize = parseInt (Asize,10) ;
if (esize == 0 || esize > 80) {size = "texte"}
else {size = Asize ; maxlength = " maxlength="+size+" "} ; break;

case "4" :
size = "20" ; break ;

case "5" :
size = "20" ; break ;

case "9" :
size = "adr" ; break ;
}
if (F_Att[ix].charAt(3) == "1") {size = "display"}
if (F_Att[ix].charAt(3) == "0") {size = "hidden"; F_Lib[ix] = ""}

if (link != "") {link1 ="<a href='Record.htm?record="+link+"' target='new'>" ;link2 ="</a>";
link2 += "<input type='hidden' name='L_"+F_numField[ix]+"_"+jx+"' value='"+link+"'>";}
else {link1="";}
if (F_Com[ix] != "") {formscript = " title='"+F_Com[ix]+"'"}
else {formscript = ""}
formscript += " onFocus='displayfocus("+ix+","+jx+")'";
if (nat == "2" || nat == "8") {formscript += " onChange='displaychangelink("+ix+","+jx+")' " ;}
else {formscript += " onChange='displaychange("+ix+","+jx+")' " ;}

if (size != "hidden") {formcontent1 = "<tr valign='top'><td align='right' class='"+libclass+"'>" ;}

oblig = F_Att[ix].charAt(1) ;
if (F_Val_lib[ix][jx] != "" || F_Val_code[ix][jx] != "") {oblig = "0";}
if (jx==0 && oblig=="1") {formcontent1 += "<font color='red'>* " ;allok = false ;}
if (eord > 1 ){formcontent1 += "<i>"}
formcontent1 +=  link1+F_Lib[ix]+link2 ;

if (size != "hidden") {formcontent1 += "</td><td>"}
if (eord != 0 && size != "hidden") {formcontent1 += "<table border='0' width='100%' cellspacing='0'><tr><td width =1 bgcolor='#"+bgc+"'> </td><td width='100%'>"}
fieldname = "F_"+F_numField[ix]+"_"+jx  ;

if (size == "display") {formcontent1 += F_Val_lib[ix][jx]}
if (size == "display" || size == "hidden") {formcontent1 +=" <input type='hidden' name='"+fieldname+"' value='"+F_Val_lib[ix][jx]+"'>" ;}

if (size == "texte") {
formcontent1 += " <textarea rows='3' cols='77'  name='"+fieldname+"' class='textblack10' " ;
formcontent1 +=  formscript+">" +F_Val_lib[ix][jx]+"</textarea>";
}
if (size == "adr") {
formscript = 'onChange="displaychangeaddr('+ix+','+jx+',' ; 
formcontent1 += ' <input type="text" name="'+fieldname+'_ad1" value="' ;
formcontent1 += F_Val_ad1[ix][jx];
formcontent1 += '" size="54" class="textblack10" '+formscript+'1)"  title="Adresse 1"><br>' ;
formcontent1 += ' <input type="text" name="'+fieldname+'_ad2" value="'+F_Val_ad2[ix][jx]+'" size="54" class="textblack10" '+formscript+'2)"  title="Adresse 2"><br>' ;
formcontent1 += ' <input type="text" name="'+fieldname+'_CP" value="'+F_Val_CP[ix][jx]+'" size="10" class="textblack10" '+formscript+'3)" title="Code postal">';
formcontent1 += ' <input type="text" name="'+fieldname+'_ville" value="'+F_Val_ville[ix][jx]+'" size="40" class="textblack10" '+formscript+'4)" title="Ville"><br>' ;
formcontent1 += ' <input type="text" name="'+fieldname+'_region" value="'+F_Val_region[ix][jx]+'" size="20" class="textblack10" '+formscript+'5)" title="region">' ;
formcontent1 += ' <input type="text" name="'+fieldname+'_pays" value="'+F_Val_pays[ix][jx]+'" size="30" class="textblack10" '+formscript+'6)" title="Pays"><br>' ;
}
if (size != "texte" && size != "adr" && size != "display" && size != "hidden")
{valeur = F_Val_lib[ix][jx] ;
formcontent1 += ' <input type="text" name="'+fieldname+'" value="'+valeur+'" size="'+size+'" class="textblack10" '+maxlength+formscript+' >' 
}

formcontent1 += f1div ;
if (eord != 0 && size != "hidden") {formcontent1 += "</td></tr></table>"}
if (fieldlastfocus == fieldname) { nextfocus = true}
else { if (nextfocus == true) {nextfocus = false; fieldnextfocus = fieldname}}
}

function displaychangelink(iz,jz)
{
field = "F_"+F_numField[iz]+"_"+jz ;
attr = F_Att2[iz] ;
val = document.record[field].value ;
if (val == ""){F_Val_code[iz][jz] = val; F_Val_lib[iz][jz] = val;}
else { nat = F_Att[iz].charAt(0) ;
if (nat == "2") {table="5";thes="&des="+F_Att2[iz]}
else {table=attr;thes="";}
xfield = "&i="+iz+"&j="+jz ;
xframe.document.location.href ="EditValid.htm?list=valid&what="+val+"&field="+field+"&table="+table+thes+xfield ;
}}

function displaychange(iz,jz)
{
field = "F_"+F_numField[iz]+"_"+jz ;
attr = F_Att2[iz] ;
val = document.record[field].value ;
nat = F_Att[iz].charAt(0) ;

if (F_numField[iz] == "21" || F_numField[iz] == "22" || F_numField[iz] == "13" || F_numField[iz] == "34")
{xframe.document.location.href ="EditControl.htm?list=control&what="+val+"&field="+F_numField[iz]+"&currentrecord="+Record;}

if (nat == "1"){
if (val =="") {F_Val_code[iz][jz] = ""; F_Val_lib[iz][jz] = "";}
else {nbc = val.length ; valx ="" ; 
for (k=0;k<V_lib[iz].length;k++){
if (valx == "" && val.toLowerCase() == V_lib[iz][k].toLowerCase()) {valx = V_lib[iz][k] ; F_Val_lib[iz][jz] = valx ; F_Val_code[iz][jz] = V_code[iz][k]}}
for (k=0;k<V_lib[iz].length;k++){valz = V_lib[iz][k].substring(0,nbc) ;
if (valx == "" && val.toLowerCase() == valz.toLowerCase()) {valx = V_lib[iz][k] ; F_Val_lib[iz][jz]  = valx ; F_Val_code[iz][jz] = V_code[iz][k]}}}
} else { if (nat == "5") {alphatonum(val); val = axval;}

F_Val_code[iz][jz] = val; F_Val_lib[iz][jz] = val;}
controltab();
displayform(field);
document.record[fieldnextfocus].focus();
if (fieldnextfocus != ""){nav = navigator.appName; navx = nav.substring(0,3) ;  if (navx != "Mic") {document.record[fieldnextfocus].focus()}}
}

function displaychangeaddr(iz,jz,zone)
{
fieldx = "F_"+F_numField[iz]+"_"+jz+"_" ;
switch (zone)
{
case 1 :
field = fieldx+"ad1" ;
F_Val_ad1[iz][jz] = document.record[field].value  ; fieldadocus = fieldx+"ad2" ; break ;
case 2 :
field = fieldx+"ad2" ;
F_Val_ad2[iz][jz] = document.record[field].value  ; fieldadocus = fieldx+"CP" ; break ;
case 3 :
field = fieldx+"CP" ;
F_Val_CP[iz][jz] = document.record[field].value  ; fieldadocus = fieldx+"ville" ; break ;
case 4 :
field = fieldx+"ville" ;
F_Val_ville[iz][jz] = document.record[field].value  ; fieldadocus = fieldx+"region" ; break ;
case 5 :
field = fieldx+"region" ;
F_Val_region[iz][jz] = document.record[field].value  ; fieldadocus = fieldx+"pays" ; break ;
case 6 :
field = fieldx+"pays" ;
F_Val_pays[iz][jz] = document.record[field].value  ; fieldadocus = fieldx+"pays" ; break ;
}
controltab();
displayform(field); 
document.record[fieldadocus].focus();
}

function alphatonum(aval)
{
axval = "";
nbc = aval.length ;
axnums = " 0123456789,." ;
for(i=0;i<nbc;i++)
{ acar = aval.charAt(i) ; exnum = axnums.indexOf(acar) ;
if (exnum >= 0) {axval += acar }
}
while (axval.charAt(0) == "0"){axval = axval.substring(1,axval.length)}
}

function displayfocus(iz,jz)

{
i_in = iz;
j_in = jz ;
division = "field_"+iz+"_"+jz ;
if (lastdivF != "") {document.getElementById(lastdivF).innerHTML = "" ;document.getElementById(lastdivF).style.visibility = "hidden";}
lastdivF = division;
fieldhelp = "" ;
nat = F_Att[iz].charAt(0) ;

if (F_AttAjout[[iz]] != ""){
fieldhelpA = "</td><td><a href='javascript:addvalue("+iz+","+jz+")' title='Ajouter une fiche'>" ;
fieldhelpA += "<img SRC='GIF/Ajout.gif' BORDER='0'></a>" ;}
else {fieldhelpA = ""}

if (nat=="2" || nat =="8"){
fieldhelp += "<table border=0><tr><td width=400 align=right><a href='javascript:displayhelp("+iz+","+jz+")'><i>Consultation de l'index -&gt; " ;
fieldhelp += "<img SRC='GIF/Help.gif' BORDER='0'></a>"+fieldhelpA+"</td></tr></table>"}
if (nat == "1"){
fieldhelp += "<table border=0><tr><td width=400 align=right><i>Valeurs autoris&eacute;es pour rubriques de type &quot;code&quot; -&gt;<select name='tabvalue' size='1' class='textblack10' onchange='selectedvalue(tabvalue.value)'>" ;
for(k=0;k<V_code[i_in].length;k++) {
fieldhelp+= "<option value='"+k+"'" ;
if (F_Val_code[i_in][j_in] == V_code[i_in][k]){fieldhelp += " selected";}
fieldhelp += ">"+V_lib[i_in][k] ;
}
fieldhelp += "</select></td>"+fieldhelpA+"</tr></table>" ;}

if (F_Com[iz] != "") {fieldhelp += "<table border='0' width='420'><tr><td bgcolor='#ffffcc'>"+F_Com[iz]+"</td></tr></table>" ;}
writedivision(division,fieldhelp);

}
function selectedvalue(apos)
{  epos =eval(apos) ; field = "F_"+F_numField[i_in]+"_"+j_in ;
document.record[field].value = V_lib[i_in][epos] ; 
cfield = "C_"+F_numField[i_in]+"_"+j_in ;
document.record[cfield].value = V_code[i_in][epos] ; 
F_Val_code[i_in][j_in] = V_code[i_in][epos] ;
F_Val_lib[i_in][j_in] = V_lib[i_in][epos] ;
controltab();
displayform(field);
document.record[fieldnextfocus].focus();
if (fieldnextfocus != ""){nav = navigator.appName; navx = nav.substring(0,3) ;  if (navx != "Mic"){document.record[field].focus()}}
}

function clickrb(mode,i,j)
{ if(mode == "radio"){
F_Val_code[i][0] = V_code[i][j] ;
F_Val_lib[i][0] = V_lib[i][j] ;
V_sel[i][j]= " checked=true " ;
for (k=0;k<V_lib[i].length;k++)
{if (j != k){V_sel[i][k] ="";}}
}
else {
field = "T_"+F_numField[i]+"_"+j ;
bval = document.record[field].checked ;

if (bval == true) {V_sel[i][j]= " checked=true " ;}
else {V_sel[i][j]= "" }
}}

function displayhelp(iz,jz)
{
field = "F_"+F_numField[iz]+"_"+jz ;
attr = F_Att2[iz] ;
val = document.record[field].value ;
nat = F_Att[iz].charAt(0) ;
if (nat == "2") {table="5";thes="&des="+F_Att2[iz]}
else {table=attr;thes="";}
pageurl = "EditHelp.htm?list=help&table="+table+thes+"&field="+F_numField[iz];
window.open(pageurl,"edithelp","width=300,height=400,toolbar=no,scrollbars=yes,alwaysRaised=yes");
}

function addvalue(iz,jz)
{
field = "F_"+F_numField[iz]+"_"+jz ;
attr = F_AttAjout[iz] ;
if (nat == "2") {table="5";thes="&des="+F_Att2[iz]}
else {table=attr;thes="";}
pageurl = "EditAddRecord.htm?table="+attr+"&field="+F_numField[iz];
window.open(pageurl,"editadd","width=600,height=400,toolbar=no,scrollbars=yes,alwaysRaised=yes");
}

function fieldgetfromhelp(code,link,valeur)
{ 
if (nat ==1){ nbval = V_code[i_in].length ;
V_code[i_in][nbval] = link ;
V_lib[i_in][nbval] = valeur ;
selectedvalue(nbval) ;
}
else {
document.record[field].value = valeur ;
F_Val_code[i_in][j_in] = code ;
if (link != ""){F_Val_link[i_in][j_in] = link ;}
F_Val_lib[i_in][j_in] = valeur ;
}
controltab();
displayform(field);
}

function writedivision(div,text)
{
division = div;
innertext = text;
if (document.getElementById) {
document.getElementById(division).innerHTML = innertext;
document.getElementById(division).style.visibility = "visible";}
else if (document.layers) {
dest = document.selection ;
dest.document.write(innertext) ;
dest.document.close() ;
document.division.visibility = "visible";}
else if (document.all) {
document.all("selection").innerHTML = innertext;
division.style.visibility = "visible"; }
}

function displaygeide()
{
formgeide = "<tr><td valign = 'top' align = 'right'><font class='titleblack10'>" ;
if (G_arc.length !=0 || Geide_add == true)
{ formgeide += "Archives" ; }
formgeide += "</td><td>" ;
for (i = 0; i<G_arc.length;i++)
{
formgeide += "<table border='0' ><tr valign='top'><td width='180'>" ;
formgeide += "<table border='1' width='100%' cellspacing='1' bgcolor='#eeeedd'>" ;
formgeide += "<tr><td><center>"+G_link[i]+"</td></tr></table>" ;
formgeide += "</td><td >" ;

formgeide += "<font class='titleblack10'>Nom<br>" ;
if (Geide_mod == true)
{formgeide += "<input tye='text' name='G_nom_"+G_arc[i]+"' value='"+G_nom[i]+"' size='32' " ;
formgeide += "onchange=\"G_nom["+i+"] = document.record['G_nom_"+G_arc[i]+"'].value;\"" ;
formgeide += " class='textblack10'><br>" ;
formgeide += "<font class='titleblack10'>Commentaire<br>" ;
formgeide += " <textarea rows='2' cols='30'  name='G_com_"+G_arc[i]+"' class='textblack10' " ;
formgeide += "onchange=\"G_com["+i+"] = document.record['G_com_"+G_arc[i]+"'].value;\"" ;
formgeide += " class='textblack10'>" +G_com[i]+"</textarea><br>" ;}
else
{formgeide += "<input type='hidden' name='G_nom_"+G_arc[i]+"' value='"+G_nom[i]+"'>" ;
formgeide += "<font class='textblack10'>"+G_nom[i]+"<br><br>" ;
if (G_com[i] != "")
{formgeide += "<font class='titleblack10'>Commentaire<br>" ;
formgeide += "<font class='textblack10'>" +G_com[i]+"<br><br>" ;}}
formgeide += "<font class='textblack10'>"+G_info[i] ;
if (Geide_del == true)
{formgeide += "<br><table border='0'><tr><td><input type='checkbox' name='G_del_"+G_arc[i]+"'" ;
if (G_statut[i] == -1 ) {formgeide += " checked=true"}
formgeide += "' onclick='geidedel("+i+")' >" ;
formgeide += "</td><td><font color='red'> Supprimer</td></tr></table>";
}
formgeide += "</td></tr></table>" ;
}
if (Geide_add == true)
{
Gdivision = "G_add1" ;
if (document.getElementById) {document.getElementById(Gdivision).style.visibility = "visible";}
else if (document.layers) {document.Gdivision.visibility = "visible";}
else if (document.all) {Gdivision.style.visibility = "visible"; }

formgeide += "<font class='titleblack10'>" ;
for(i=0;i<G_add_file.length;i++) {
if (G_add_file[i] != "")
{
xFile = G_add_file[i] ;
formgeide += "<input type='hidden' name='G_add_fil"+i+"' value='"+G_add_file[i]+"' >";
formgeide += "<font class='textblack10'><a href='File://"+G_add_Pfile[i]+"' target='_blank'>"+G_add_file[i] +"</a>" ;
formgeide += "<a href='javascript:G_add_file["+i+"]=\"\";displayform();' title='Effacer'><IMG SRC='Ressource.gif?resnum=1108' BORDER='0'></a>" ;
formgeide += "<br><font class='titleblack10'>" ;
formgeide += "Nom<br><Input Name='G_add_nom"+i+"' value='"+G_add_nom[i]+"' size='32' type='text' class='titleblack10'" ;
formgeide+= " onChange='G_add_nom["+i+"]=this.value'><br>" ;
formgeide += "<font class='titleblack10'>Commentaire<br>" ;
formgeide += " <textarea rows='2' cols='30'  name='G_add_com"+i+"' class='textblack10' " ;
formgeide += "onChange=\"G_add_com["+i+"] = this.value;\"" ;
formgeide += " class='textblack10'>" +G_add_com[i]+"</textarea><br><hr>" ;
}
}}
formgeide+= "</td></tr>" ;
}

function geideadd(xFile)
{ j = G_add_file.length;
xFile2 = "";
for(i=0;i<xFile.length;i++)
{
xChar = xFile.charAt(i)
if ( xChar == "\`" ) {xChar = "_"}
if ( xChar == "\\" ) {xChar = "" ; xFile2 = ""}
xFile2 += xChar ;
}
G_add_file[j] = xFile2;
G_add_Pfile[j] = xFile;
G_add_nom[j] = xFile2
G_add_com[j] = "";

displayform() ;
}

function geidedel(i)
{
if (G_statut[i]  == 0) {G_statut[i] = -1}
else {G_statut[i] = 0}
}

lastdivF ="";
eord =0 ;
i_in =0 ;
j_in = 0;
axval = "";
field = "";
allok = true;
nextfocus = false ;
premgroup = true ;
fieldlastfocus = "" ;
fieldnextfocus ="" ;
displayform("");