sub cptHisto {local($To,$nom,$val,$OUT) = @_; 
 local $In = ''; if (&wsFile("read",$To,$nom,"Cpta",\$In)!=0) {return 100}; local $x = $In; 
 local($k,$x0,$y); 
 $y = "var wwHisto = \"\";\n";
while(true) {
 if ($x ne "") {$x =~ s/^\s*//};
 if ($x eq '') {last}; $k = index($x,"/#T)");
 if ($k==-1) {return 1}; $k = $k+4; $x0 = substr($x,0,$k); $x = substr($x,$k);
 if ($x0!~/\(#T\(Compta\)new:\/\/\w+\/#T\(cptOwner\):(\w+)\/#T\(cptError\):(\w+)\/#T\(cptUser\):(\w+)\/#T\(cptEtat\):(.*)\/#T\(cptMsg\):(.*)\/#T\(Date\)/) {next};
 if (($1 eq $To.$nom)&&($3 eq $val)) {
  if ($2 eq "1") {$y = "var wwHisto = \"\";\n"; next}
  $y .= "wwHisto += ".&uneval($4.",".$3.",>,".$5."/#").";\n";
 } elsif (($3 eq $To.$nom)&&($1 eq $val)) {
  if ($2 eq "1") {$y = "var wwHisto = \"\";\n"; next}
  $y .= "wwHisto += ".&uneval($4.",".$1.",<,".$5."/#").";\n";
 }
}
 $$OUT .= $y;
 return 0;
}

function cptHisto(To,nom,val,OUT) { 
 var In = Array(''); if (wsFile("read",To,nom,"Cpta",In)!=0) {return 100}; var x = In[0]; 
 var k,x0,y; 
 y = "var wwHisto = \"\";\n";
while(true) {
 if (x!="") {x = x.replace(/^\s*/,"")};
 if (x=='') {break}; k = x.indexOf("/#T)");
 if (k==-1) {return 1}; k = k+4; x0 = x.substr(0,k); x = x.substr(k);
 if (!x0.match(/\(#T\(Compta\)new:\/\/\w+\/#T\(cptOwner\):(\w+)\/#T\(cptError\):(\w+)\/#T\(cptUser\):(\w+)\/#T\(cptEtat\):(.*)\/#T\(cptMsg\):(.*)\/#T\(Date\)/)) {continue};
 if ((RegExp.$1==To+nom)&&(RegExp.$3==val)) {
  if (RegExp.$2=="1") {y = "var wwHisto = \"\";\n"; continue}
  y += "wwHisto += "+uneval(RegExp.$4+","+RegExp.$3+",>,"+RegExp.$5+"/#")+";\n";
 } else if ((RegExp.$3==To+nom)&&(RegExp.$1==val)) {
  if (RegExp.$2=="1") {y = "var wwHisto = \"\";\n"; continue}
  y += "wwHisto += "+uneval(RegExp.$4+","+RegExp.$1+",<,"+RegExp.$5+"/#")+";\n";
 }
}
 OUT[0] += y;
 return 0;
}