<?
include ("forixinc.php");

include ("nc_util.php");
include ("bkp.php");
include ("www.php");
include ("util.php");
include ("campo.php");


function nc_sort($tit,$s)
{
global $args, $sort, $bloc, $cmd, $rnc, $SORT_BGC;

    if ($s!=$sort)
	echo("<TD ALIGN=\"center\"><A HREF=\"nc.asp?$args&r=$rnc&c=$cmd&b=$bloc&s=$s\"><B>$tit</B></A></TD>");
    else
	echo("<TD ALIGN=\"center\" BGCOLOR=\"$SORT_BGC\"><B>$tit</B></TD>");

}



function nc_menu($b)
{
    extract($GLOBALS);

    tab_bar(4);
    echo("<TR><TD ALIGN=\"center\">&nbsp;&nbsp;");
    if ($b>0) {
	echo("<A HREF=\"nc.asp?$args&r=$rnc&c=$cmd&b=");
	if ($bloc==0) echo("1"); else echo("0");
	echo("&s=$sort\"><B>+ +</B></A>&nbsp;|&nbsp;");
    }

    if ($cmd!=$cmdNCgpr)
	echo("<A HREF=\"nc.asp?$args&r=$rnc&c=$cmdNCgpr&b=$bloc&s=$sort\"><B>$titulo[$N_GPRIS]</B></A>");
    else
	echo("<B>$titulo[$N_GPRIS]</B>");
    echo("&nbsp;|&nbsp;");
    if ($cmd!=$cmdNCvit)
	echo("<A HREF=\"nc.asp?$args&r=$rnc&c=$cmdNCvit&b=$bloc&s=$sort\"><B>$titulo[$N_WINS]</B></A>");
    else
	echo("<B>$titulo[$N_WINS]</B>");
    echo("&nbsp;|&nbsp;");
    if ($cmd!=$cmdNCpol)
	echo("<A HREF=\"nc.asp?$args&r=$rnc&c=$cmdNCpol&b=$bloc&s=$sort\"><B>$titulo[$N_POLES]</B></A>");
    else
	echo("<B>$titulo[$N_POLES]</B>");
    echo("&nbsp;|&nbsp;");
    if ($cmd!=$cmdNCvmr)
	echo("<A HREF=\"nc.asp?$args&r=$rnc&c=$cmdNCvmr&b=$bloc&s=$sort\"><B>$titulo[$N_FLAPS]</B></A>");
    else
	echo("<B>$titulo[$N_FLAPS]</B>");
    echo("&nbsp;&nbsp;</TD></TR>");
}



function st_menu($cmd,$c,$cref)
{
global $args, $rnc;

?>
&nbsp;&nbsp;<?   if ($cmd!=$c)
  {
?><A HREF="nc.asp?<?     echo $args; ?>&r=<?     echo $rnc; ?>&c=<?     echo $c; ?>&x=<?     echo $cref; ?>"><?   } ?>
<?   echo Statnome($c); ?>
<?   if ($cmd!=$c)
  {
?></A><?   } ?><BR><?
}



function st_link($c,$icref)
{
global $args, $rnc;

?><A HREF="nc.asp?<?   echo $args; ?>&r=<?   echo $rnc; ?>&c=<?   echo $c; ?>&x=<?   echo $icref; ?>"><IMG SRC="/pic/ponto.gif" ALT="<?   echo CrefNome($icref); ?>: <?   echo Statnome($c); ?>" WIDTH="6" HEIGHT="6" BORDER="0"></A><?
}



function nc_cab($nome)
{
  extract($GLOBALS);

tab_ini();
tab_bar(2);
?><TR><TD ALIGN="center">
<table border=0 cellspacing="0" cellpadding="0"><tr>
<td valign="middle"><? www_logo($REF_NC,$rnc);?></td>
<td valign="middle"><B><?
  if ($cmd==$cmdNCfic)
  {
?><FONT SIZE="+3"><?     echo $nc_nome; ?><?
  }
    else
  {
?><FONT SIZE="+2"><A HREF="nc.asp?<?     echo $args; ?>&r=<?     echo $rnc; ?>&c=<?     echo $cmdNCfic; ?>"><?     echo $nc_nome; ?></A><?
  }

?>&nbsp;</FONT></B></td>
<td valign="middle"><A HREF="nc.asp?<?   echo $args; ?>"><IMG SRC="/pic/lista.gif" ALT="=" ALIGN="absmiddle" BORDER="0"></A>
</td></tr></table></TD></TR><?

// Nome completo - eventualmente vários
  if ($cmd==$cmdNCfic)
  {
    $SQLQuery="Select * from ncnc where rnc=".$rnc;
    if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
        while($RSnc = mysql_fetch_array($result))
    {
      $ai=$RSnc["anoi"];
      $af=$RSnc["anof"];
?><TR><TH><FONT SIZE="+1"><?       echo $RSnc["nomec"]; ?></FONT><?
      if ($ai>0 || $af>0)
      {

?>&nbsp;(<?
        if ($ai>0)
        {
?><?           echo $ai; ?><?         }

?>&nbsp;-&nbsp;<?
        if ($af>0)
        {
?><?           echo $af; ?><?         }

?>)<?
      }

?></TH></TR><?
    }
  }
  }


  if (strlen($nome)>0)
  {

?><TR><TH><FONT SIZE="+3">&nbsp;<?     echo $nome; ?>&nbsp;</FONT></TH></TR><?
  }

tab_bar(4);
  return $function_ret;
}



function nc_sel($b)
{
global $args, $lin, $rnc, $cmd, $bloc, $sort, $cref;
global $titulo, $N_CISEL;

    tab_bar(4);
    echo("<FORM METHOD=\"post\" ACTION=\"nc.asp?$args&c=$cmd&b=$bloc&s=$sort&x=$cref\">");
    echo("<TR><TH VALIGN=\"middle\">&nbsp;&nbsp;$titulo[$N_CISEL]&nbsp;&nbsp;");
    if ($b==1)
	echo("<BR>&nbsp;&nbsp;");
    nc_select ("rnc", $rnc);
    echo("&nbsp;&nbsp;<INPUT TYPE=\"SUBMIT\" value=\"Ok\">&nbsp;&nbsp;</TH></TR></FORM>");
    tab_bar(4);
}



function NCtabela()
{
global $pub_part, $lin, $linEng, $CAB_BGC, $TR1_BGC;

    $pub_part=0;
    fxhead("Forix: Circuits");
    tab_ini();
    tab_bar(2);
    echo("<TR><TH COLSPAN=\"3\"><FONT SIZE=\"+2\">Circuits</FONT></TH></TR>");
    tab_bar(4);
    tab_bor();
    echo("<TR BGCOLOR=\"$TR1_BGC\"><TD ALIGN=\"center\"><TABLE border=\"0\" cellspacing=\"2\" cellpadding=\"2\">");
    echo("<TR BGCOLOR=\"$CAB_BGC\"><TD ALIGN=\"center\"><B>Code</B></TD>");
    echo("<TD ALIGN=\"center\"><B>English</B></TD>");
    echo("<TD ALIGN=\"center\"><B>".Lingua($lin)."</B></TD></TR>");
    echo("<TR>");
    $SQLQuery="SELECT ncn.nome,ncn.rnc from ncn where ncn.lin=".$linEng." order by ncn.rnc";
    if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
	campo($result,"rnc","center");
	campo($result,"nome","left");
	$SQLQuery="SELECT ncn.nome from ncn where ncn.lin=".$lin." order by ncn.rnc";
	echo("<!-- START TRANSLATIONS HERE -->".chr(10));
	if (($result = mysql_query($SQLQuery)) and mysql_fetch_array($result))
	    campo($result,"nome","left");
	else
	    echo("<TD ALIGN=\"left\" VALIGN=\"top\"></TD>");
    }
    echo("</TR></TABLE></TD></TR>");
    tab_fim();
    fxtail();
}



function NClista()
{
  extract($GLOBALS);


fxhead("Forix: ".$titulo[$N_CIRCS]);
tab_ini();
tab_bar(2);
?><TR><TH><FONT SIZE="+3"><?   echo $titulo[$N_CIRCS]; ?></FONT></TH></TR><?
tab_bar(4);
tab_bor();
  $SQLQuery="SELECT nc.*, ncn.nome as nc_nome, ncnc.nomec from (nc inner join ncn on nc.rnc=ncn.rnc) left join ncnc on nc.rnc=ncnc.rnc where ncn.lin=".$lin." order by ";
  switch ($sort)
  {
    case 1:
      $SQLQuery=$SQLQuery."nc.ngp,";
      break;
    case 2:
      $SQLQuery=$SQLQuery."nc.rgpi,";
      break;
    case 3:
      $SQLQuery=$SQLQuery."nc.rgpf,";
      break;
    default:

      $sort=0;
      break;
  }
  $SQLQuery=$SQLQuery."ncn.nome";
    if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
  {

?><TR><TD ALIGN="center"><TABLE border="0" cellspacing="0" cellpadding="2">
<TR><?
    if ($sort!=0)
    {

?><TD ALIGN="center" ROWSPAN="2"><A HREF="nc.asp?<?       echo $args; ?>&r=<?       echo $rnc; ?>&c=<?       echo $cmd; ?>&b=<?       echo $bloc; ?>&s=0"><B><?       echo $titulo[$N_NAME]; ?></B></A></TD><?
    }
      else
    {

?><TD ALIGN="center" BGCOLOR="<?       echo $SORT_BGC; ?>" ROWSPAN="2"><B><?       echo $titulo[$N_NAME]; ?></B></A></TD><?
    }

?><TD ALIGN="center" COLSPAN="3"><B><?     echo $titulo[$N_GPRIS]; ?></B></TD>
</TR><TR><?
nc_sort($titulo[$N_TOTAL],1);
nc_sort($titulo[$N_FIRS],2);
nc_sort($titulo[$N_LAST],3);
?></TR><?
    $BGC=$TR2_BGC;
    $rnca=0;
    while ($RSList= mysql_fetch_array($result))
    {

      if ($RSList["rnc"]!=$rnca)
      {
        $rnca=$RSList["rnc"];
        if ($BGC==$TR1_BGC) $BGC=$TR2_BGC; else $BGC=$TR1_BGC;
?><TR BGCOLOR="<?         echo $BGC; ?>">
<TD ALIGN="left">&nbsp;<A HREF="nc.asp?<?         echo $args; ?>&r=<?         echo $RSList["rnc"]; ?>&c=0"><?         echo $RSList["nc_nome"]; ?></A></TD>
<TD ALIGN="right">&nbsp;<?
        if ($RSList["ngp"]>0)
        {

?><A HREF="nc.asp?<?           echo $args; ?>&r=<?           echo $RSList["rnc"]; ?>&c=<?           echo $cmdNCgpr; ?>"><?           echo $RSList["ngp"]; ?></A><?
        }
          else
        {

?>0<?
        }

?>&nbsp;</TD>
<TD ALIGN="right">&nbsp;<?
        if ($RSList["ngp"]>0)
        {

?><A HREF="gp.asp?<?           echo $args; ?>&r=<?           echo $RSList["rgpi"]; ?>&c=<?           echo $cmdGPfic; ?>"><?           echo 1900+intval($RSList["rgpi"]/100); ?></A><?
        }
          else
        {

?>-<?
        }

?>&nbsp;</TD>
<TD ALIGN="right">&nbsp;<?
        if ($RSList["ngp"]>0)
        {

?><A HREF="gp.asp?<?           echo $args; ?>&r=<?           echo $RSList["rgpf"]; ?>&c=<?           echo $cmdGPfic; ?>"><?           echo 1900+intval($RSList["rgpf"]/100); ?></A><?
        }
          else
        {

?>-<?
        }

?>&nbsp;</TD>
</TR><?
      }

      if ($RSList["nomec"]>"")
      {

?><TR BGCOLOR="<?         echo $BGC; ?>"><td colspan="4" nowrap><font size="2">&nbsp; &nbsp; &nbsp;<?         echo $RSList["nomec"]; ?></font></td></tr><?
      }

    }
?></TABLE></TD></TR><?
  }

tab_fim();

fxtail();
  return $function_ret;
}



function NCfic()
{
    extract($GLOBALS);

    fxhead("Forix: ".$nc_nome);
    $SQLQuery="SELECT nc.* from nc where nc.rnc=".$rnc;
    if (($result = mysql_query($SQLQuery)) and ($RSList = mysql_fetch_array($result))) {
	nc_cab("");
	tab_bor();
	$ngp=$RSList["ngp"];
	$foto1 = "";
	$foto2 = "";

// Location strip and eventual photos
	$SQLQuery="SELECT fotos.*, contactos.copynote FROM fotos, contactos WHERE fotos.ref=".$rnc." and fotos.cref=".$REF_NC." and fotos.sig=contactos.sig Order by fotos.foto";
	if (($result = mysql_query($SQLQuery)) and ($RSFoto = mysql_fetch_array($result))) {
	    echo("<TR BGCOLOR=\"$TR1_BGC\"><TD ALIGN=\"center\"><IMG SRC=\"picture.php?p=img/".$RSFoto["foto"]."\" ALT=\"$titulo[$N_CIMAP]\"></TD></TR>");
	    tab_bar1(4);
	// Photo 1
	    if ($RSFoto = mysql_fetch_array($result)) {
		$foto1=$RSFoto["foto"];
		$zoom1=$RSFoto["zoom"];
		$copy1=$RSFoto["copynote"];
	    }

	// Photo 2
	    if ($RSFoto = mysql_fetch_array($result)) {
		$foto2=$RSFoto["foto"];
		$zoom2=$RSFoto["zoom"];
		$copy2=$RSFoto["copynote"];
	    }
	}

// Comentarios
	$SQLQuery="SELECT notes.id, notes.texto, notes.store, contactos.copynote FROM notes, contactos Where (notes.lin=".$lin;
	if ($lin_base[$lin]>0)
	    $SQLQuery=$SQLQuery." or notes.lin=".$lin_base[$lin];
	$SQLQuery=$SQLQuery.") ";
	if ($super_modo==$Modo_publico)
	    $SQLQuery=$SQLQuery." and notes.dat<=".$hiso;
	$SQLQuery=$SQLQuery." and notes.cref=".$REF_NC." and notes.ref=".$rnc." and notes.tipo=".$No_tipo_C." and notes.modo<=".$super_modo." and notes.page=".$cmd." and contactos.sig=notes.autor Order by notes.lin desc";
	if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
	    while ($RStriv = mysql_fetch_array($result)) {
		echo("<TR BGCOLOR=\"$TR1_BGC\"><TD ALIGN=\"center\">");
		echo("<table border=\"0\" cellspacing=\"0\" cellpadding=\"6\">");
		echo("<TR BGCOLOR=\"$TR1_BGC\"><TD width=\"550\"><p align=\"justify\"><FONT SIZE=\"2\">");
		if ($RStriv["store"]==1)
		    echo str_replace("#args#",$args,read_txt($base_dir.$RStriv["texto"],0));
		else
		    echo str_replace("#args#",$args,$RStriv["texto"]);
		echo("</FONT><BR>");
		if ($RStriv["copynote"] > "")
		    echo("<FONT SIZE=\"1\">(".$RStriv["copynote"].")</FONT>");
		if ($super_modo==$Modo_total)
		    echo("<FONT SIZE=\"1\"> [<A HREF=\"notes.asp?$args&i=".$RStriv["id"]."&c=14\">Edit</A>]</FONT>");
		echo("</p></TD></TR></TABLE></TD></TR>");
	    }
	    tab_bor();
	}

	echo("<TR><TD ALIGN=\"center\" VALIGN=\"top\"><TABLE width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><TR BGCOLOR=\"$TR1_BGC\"><TD ALIGN=\"center\" VALIGN=\"top\"><TABLE width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\">");
	echo("<TR BGCOLOR=\"$TR2_BGC\">");
	echo("<TD ALIGN=\"center\"></TD>");
	echo("<TD ALIGN=\"center\"><B>$titulo[$N_PERI]<BR>[m]</B></TD>");
	echo("<TD ALIGN=\"center\"><B>$titulo[$N_GPRS]</B><BR><B>".$RSList["ngp"]."</B></TD></TR>");
	$SQLQuery="SELECT ci.*, ncn.nome as nc_nome from ci inner join ncn on ci.rnc=ncn.rnc where ci.rnc=".$rnc." and ncn.lin=".$lin." order by ci.rci";
	if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
	    $seq=0;
	    $rci=0;
	    $BGC=$TR2_BGC;
	    while ($RSList= mysql_fetch_array($result)) {
		if ($BGC==$TR1_BGC) $BGC=$TR2_BGC; else $BGC=$TR1_BGC;
		echo("<TR BGCOLOR=\"$BGC\">");
		include ("ci_nome.php");
		echo("<TD ALIGN=\"right\">&nbsp;".($RSList["perim"]/10)."&nbsp;</TD>");
		echo("<TD ALIGN=\"right\">".$RSList["ngp"]);
		if ($RSList["ngp"]>0) {
		    if ($RSList["rgpi"]==$RSList["rgpf"])
			echo(" (".(1900+intval($RSList["rgpi"]/100)).")<BR>");
		    else
			echo(" (".(1900+intval($RSList["rgpi"]/100))." - ".(1900+intval($RSList["rgpf"]/100)).")<BR>");
		}
		echo("</TD></TR>");
	    }

	// Photo 1
	    if ($foto1>"") {
		tab_bar1(6);
		echo("<TR BGCOLOR=\"$TR1_BGC\"><TD ALIGN=\"center\" COLSPAN=\"3\">");
		if ($zoom1==0)
		    echo("<IMG SRC=\"picture.php?p=img/$foto1\" ALT=\"Photo\"><BR>");
		else
		    echo("<A HREF=\"photos.asp?$args&x=101&f=$foto1\"><IMG SRC=\"picture.php?p=img/$foto1\" ALT=\"Zoom\" BORDER=\"0\"></A><BR>");
		echo("<FONT SIZE=\"1\">$copy1</FONT></TD></TR>");
		tab_bar1(4);
	    }

?></TABLE></TD><?
      if ($ngp>0)
      {

?><TD width="10"></TD>
<TD ALIGN="center" VALIGN="top"><TABLE width="100%" border="0" cellspacing="0" cellpadding="2"><?

// Photo 2
        if ($foto2>"")
        {

?><TR BGCOLOR="<?           echo $TR1_BGC; ?>"><TD ALIGN="center"><?
          if ($zoom2==0)
          {

?><IMG SRC="picture.php?p=img/<?             echo $foto2; ?>" ALT="Photo"><BR><?
          }
            else
          {

?><A HREF="photos.asp?<?             echo $args; ?>&x=101&f=<?             echo $foto2; ?>"><IMG SRC="picture.php?p=img/<?             echo $foto2; ?>" ALT="Zoom" BORDER="0"></A><BR><?
          }

?><FONT SIZE="1"><?           echo $copy2; ?></FONT></TD></TR><?
tab_bar1(4);
        }

?><TR BGCOLOR="<?         echo $TR2_BGC; ?>"><TH><?         echo $titulo[$N_STATS]; ?></TH></TR>
<TR BGCOLOR="<?         echo $TR1_BGC; ?>"><TD ALIGN="center"><TABLE border="0" cellspacing="0" cellpadding="1">
<TR>
<TD><BR></TD>
<TD ALIGN="center"><FONT SIZE="2"><B> <?         echo $titulo[$N_DRIVS]; ?> </B></FONT></TD>
<TD ALIGN="center"><FONT SIZE="2"><B> <?         echo $titulo[$N_MAKES]; ?> </B></FONT></TD>
<TD ALIGN="center"><FONT SIZE="2"><B> <?         echo $titulo[$N_ENGS]; ?> </B></FONT></TD>
</TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatVit); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVit,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVit,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVit,$REF_MA);?></TD></TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatPol); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPol,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPol,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPol,$REF_MA);?></TD></TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatVmr); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVmr,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVmr,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVmr,$REF_MA);?></TD></TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatPod); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPod,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPod,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPod,$REF_MA);?></TD></TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatPli); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPli,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPli,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPli,$REF_MA);?></TD></TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatPon); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPon,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPon,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatPon,$REF_MA);?></TD></TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatGpc); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatGpc,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatGpc,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatGpc,$REF_MA);?></TD></TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatVoc); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVoc,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVoc,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatVoc,$REF_MA);?></TD></TR>
<TR><TD ALIGN="left"><FONT SIZE="2"><B><?         echo StatNome($cmdStatKmc); ?></B></FONT></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatKmc,$REF_PI);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatKmc,$REF_CO);?></TD>
<TD ALIGN="center" WIDTH="50"><? st_link($cmdStatKmc,$REF_MA);?></TD></TR>
</TABLE>
</TD></TR></TABLE>
</TD><?
      }


?></TR></TABLE></TD></TR><?
      if ($ngp>0)
      {

tab_bor();
nc_menu(0);
tab_bar(4);
      }


Bkp($REF_NC,$rnc,$lin);
www($REF_NC,$rnc);
    }

tab_bor();
nc_sel(0);
  }

tab_fim();
fxtail();
  return $function_ret;
}



function NCgpr()
{
  extract($GLOBALS);


fxhead("Forix: ".$nc_nome.", ".$titulo[$N_GPRIS]);
  $SQLQuery="SELECT gp.*, ngn.nome as ng_nome, ci.perim, tmeses.sigla as mes FROM ((ngn INNER JOIN gp ON gp.rng = ngn.rng) inner join ci on ci.rci=gp.rci) inner join tmeses on gp.mm=tmeses.cod where ci.rnc=".$rnc." and ngn.lin = ".$lin." and tmeses.lin = ".$lin." order by gp.rgp";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
  {

nc_cab($titulo[$N_GPRIS]);
tab_bor();
?><TR><TD ALIGN="center"><TABLE width="100%" border="0" cellspacing="0" cellpadding="2"><TR>
<TD ALIGN=CENTER><B><?     echo $titulo[$N_ASEQ]; ?></B></TD>
<TD ALIGN=CENTER><B><?     echo $titulo[$N_YEAR]; ?></B></TD>
<TD ALIGN=CENTER><B><?     echo $titulo[$N_DATE]; ?></B></TD>
<TD ALIGN=CENTER><B><?     echo $titulo[$N_GPR]; ?></B></TD>
<TD ALIGN=CENTER><B><?     echo $titulo[$N_APER]; ?><BR>[m]</B></TD>
<TD ALIGN=CENTER><B><?     echo $titulo[$N_ALAPS]; ?></B></TD>
<TD ALIGN=CENTER><B><?     echo $titulo[$N_DIST]; ?><BR>[km]</B></TD>
</TR><?
    $seq=0;
    $rci=0;
    $BGC=$TR2_BGC;
    while ($RSList= mysql_fetch_array($result))
    {

      if ($BGC==$TR1_BGC)
      {

        $BGC=$TR2_BGC;
      }
        else
      {

        $BGC=$TR1_BGC;
      }

      $ss=$RSList["rgp"]-intval($RSList["rgp"]/100)*100;
      if ($ss>80)
      {

        $m=1;
        $BGC=$CAB_BGC;
      }
        else
      {

        $m=0;
      }

?><TR BGCOLOR="<?       echo $BGC; ?>">
<? include ("seq.php"); ?>
<TD ALIGN="center">&nbsp;<?       echo 1900+intval($RSList["rgp"]/100); ?></TD>
<TD ALIGN="right" VALIGN="top">&nbsp;<?       echo pri_datab($RSList["dd"],$RSList["mes"],0); ?>&nbsp;</TD>
<TD ALIGN="left">&nbsp;<?
      if ($ss<80)
      {

?><A HREF="gp.asp?<?         echo $args; ?>&r=<?         echo $RSList["rgp"]; ?>&c=0"><?         echo $RSList["ng_nome"]; ?></A><?
      }
        else
      {

?><?         echo $RSList["ng_nome"]; ?><?
      }

?></TD>
<TD ALIGN="right">&nbsp;<?       echo $RSList["perim"]/10; ?>&nbsp;</TD>
<TD ALIGN="right">&nbsp;<?       echo $RSList["nv"]; ?>&nbsp;</TD>
<TD ALIGN="right">&nbsp;<?       echo sprintf ("%0.3f", $RSList["dist"]/1000); ?></TD>
</TR><?
    }
?></TABLE></TD></TR><?
tab_bor();
nc_menu(0);
nc_sel(0);
tab_fim();
  }

fxtail();
  return $function_ret;
}



function NCvpr($nome)
{
  extract($GLOBALS);


fxhead("Forix: ".$nc_nome.", ".$nome);
  $SQLQuery="SELECT papi.*, pas.ses, pas.cla, pas.vlt, pas.tim, pas.med, ncn.nome as nc_nome, pin.nabr as pi_nome, can.nome as co_nome, ca.nome as ca_nome, mon.nome as mo_nome, mot.tipo as mo_tipo FROM ((((((ncn INNER JOIN papi ON papi.rnc = ncn.rnc) inner join pin on papi.rpi=pin.rpi) inner join can on papi.rco=can.rco) inner join ca on papi.rca=ca.rca) inner join mon on papi.rma=mon.rma) inner join mot on papi.rmo=mot.rmo) inner join pas on pas.rpa=papi.rpa where papi.rnc=".$rnc." and ";
  if ($cmd==$cmdNCvit)
  {

    $SQLQuery=$SQLQuery."papi.cla=1 and pas.ses=1";
  }
    else
  if ($cmd==$cmdNCpol)
  {

    $SQLQuery=$SQLQuery."papi.gre=1 and pas.ses=2";
  }
    else
  if ($cmd==$cmdNCvmr)
  {

    $SQLQuery=$SQLQuery."papi.vmr=1 and pas.ses=3";
  }

  $SQLQuery=$SQLQuery." and ncn.lin = ".$lin." and can.lin=".$linx."  and mon.lin=".$linx." order by ";
  switch ($sort)
  {
    case 1:
      $SQLQuery=$SQLQuery."papi.num,";
      break;
    case 2:
      $SQLQuery=$SQLQuery."pin.apel,";
      break;
    case 3:
      if ($bloc==0)
      {

        $SQLQuery=$SQLQuery."can.nome,ca.nome,";
      }
        else
      {

        $sort=0;
      }

      break;
    case 4:
      if ($bloc==0)
      {

        $SQLQuery=$SQLQuery."mon.nome,mot.tipo,";
      }
        else
      {

        $sort=0;
      }

      break;
    case 5:
      if ($bloc==1)
      {

        $SQLQuery=$SQLQuery."pas.tim,";
      }
        else
      {

        $sort=0;
      }

      break;
    case 6:
      if ($bloc==1)
      {

        $SQLQuery=$SQLQuery."pas.med,";
      }
        else
      {

        $sort=0;
      }

      break;
  }
  $SQLQuery=$SQLQuery."papi.rpa";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
  {

nc_cab($nome);
tab_bor();
?><TR><TD ALIGN="center"><TABLE width="100%" border="0" cellspacing="0" cellpadding="2"><TR>
<TD ALIGN="center"><B><?     echo $titulo[$N_ASEQ]; ?></B></TD><?
nc_sort($titulo[$N_GPR],0);
nc_sort($titulo[$N_NUMB],1);
nc_sort($titulo[$N_DRIV],2);
    if ($bloc==0)
    {

nc_sort($titulo[$N_CAR],3);
      if ($super_modo>=$Modo_clube)
      {

?><TD ALIGN="center"><B><?         echo $titulo[$N_CHAS]; ?></B></TD><?
      }

nc_sort($titulo[$N_ENG],4);
    }
      else
    {

nc_sort($titulo[$N_TIME],5);
nc_sort("km/h",6);
    }

?></TR><?
    $seq=0;
    $rgp=0;
    $rpi=0;
    $rca=0;
    $rmo=0;
    $BGC=$TR2_BGC;
    while ($RSList= mysql_fetch_array($result))
    {

      if ($BGC==$TR1_BGC)
      {

        $BGC=$TR2_BGC;
      }
        else
      {

        $BGC=$TR1_BGC;
      }

      $rgpa=intval($RSList["rpa"]/1000);
      if ($rgpa!=$rgp)
      {

        $seq=$seq+1;
        $rgp=$rgpa;
      }

?><TR BGCOLOR="<?       echo $BGC; ?>">
<TD ALIGN="center">&nbsp;<?       echo $seq; ?></TD>
<TD ALIGN="center"><?
      $rgp=intval($RSList["rpa"]/1000);
?>&nbsp;<A HREF="gp.asp?<?       echo $args; ?>&r=<?       echo $rgp; ?>&c=0"><?       echo 1900+intval($rgp/100); ?></A><?
?></TD><?
include ("pa_num.php");
include ("pi_nome.php");

      if ($bloc==0)
      {
include ("car_link.php");
         if ($super_modo>=$Modo_clube)
        {
?>
<TD ALIGN="center" NOWRAP>&nbsp;<?           echo $RSList["cha"]; ?>&nbsp;</TD>
<?         }
include ("mot_link.php");
      }
        else
      {
?>
<TD ALIGN="right" NOWRAP>&nbsp;<?         echo $RSList["tim"]; ?>&nbsp;</TD>
<TD ALIGN="right" NOWRAP>&nbsp;<?         echo $RSList["med"]; ?>&nbsp;</TD>
<?       } ?>
</TR><?
    }
?></TABLE></TD></TR><?
tab_bor();
nc_menu(1);
nc_sel(0);
tab_fim();
  }

fxtail();
  return $function_ret;
}



function NCstat()
{
  extract($GLOBALS);


fxhead("Forix: ".$nc_nome.", ".$titulo[$N_STATS]);
  switch ($cref)
  {
    case     $REF_PI:
      $SQLQuery="SELECT nc_stat.val, pin.rpi, pin.nabr as pi_nome From pin inner join nc_stat on nc_stat.ref=pin.rpi where nc_stat.rnc=".$rnc." and nc_stat.cref=".$cref." and nc_stat.cod=".$cmd." order by nc_stat.val desc, pin.rpi";
      break;
    case     $REF_CO:
      $SQLQuery="SELECT nc_stat.val, co.rco, can.nome as co_nome From (co inner join nc_stat on nc_stat.ref=co.rco) inner join can on can.rco=co.rco where nc_stat.rnc=".$rnc." and nc_stat.cref=".$cref." and nc_stat.cod=".$cmd." and can.lin=".$linx." order by nc_stat.val desc, co.rco";
      break;
    case     $REF_MA:
      $SQLQuery="SELECT nc_stat.val, mo.rma, mon.nome as mo_nome From (mo inner join nc_stat on nc_stat.ref=mo.rma) inner join mon on mon.rma=mo.rma where nc_stat.rnc=".$rnc." and nc_stat.cref=".$cref." and nc_stat.cod=".$cmd." and mon.lin=".$linx." order by nc_stat.val desc, mo.rma";
      break;
  }
$result = mysql_query($SQLQuery);
  $bonpos=12;
nc_cab(Statnome($cmd));
tab_bor();
?><TR><TD ALIGN="center"><TABLE width="100%" border="0" cellspacing="0" cellpadding="2"><TR>
<TD ALIGN=CENTER><B><?   echo $titulo[$N_CLA]; ?></B></TD>
<TD ALIGN=CENTER><B><?   echo CrefNome($cref); ?></B></TD>
<TD ALIGN=CENTER><B><?   echo $titulo[$N_TOTAL]; ?></B></TD>
</TR><?
  $seq=0;
  $rpi=0;
  $rco=0;
  $rma=0;
  $BGC=$TR2_BGC;
  while ($RSList= mysql_fetch_array($result)) {
    if ($BGC==$TR1_BGC) $BGC=$TR2_BGC; else $BGC=$TR1_BGC;
?><TR BGCOLOR="<?     echo $BGC; ?>">
<? include ("seq.php");
    switch ($cref)
    {
      case       $REF_PI:
include ("pi_nome.php");
        break;
      case       $REF_CO:
include ("co_nome.php");
        break;
      case       $REF_MA:
include ("mo_nome.php");
        break;
    }
?><TD ALIGN="right"><?
    if ($cmd<$cmdStatPon)
    {

      switch ($cref)
      {
        case         $REF_PI: ?>&nbsp;<A HREF="pi_par.asp?<?           echo $args; ?>&r=<?           echo $RSList["rpi"]; ?>&c=<?           echo $cmd-$cmdStat; ?>&v=1&i=<?           echo $rnc; ?>"><?           echo $RSList["val"]; ?></A><BR><?
          break;
        case         $REF_CO: ?>&nbsp;<A HREF="cm_par.asp?<?           echo $args; ?>&x=<?           echo $REF_CO; ?>&r=<?           echo $RSList["rco"]; ?>&c=<?           echo $cmd-$cmdStat; ?>&v=1&i=<?           echo $rnc; ?>"><?           echo $RSList["val"]; ?></A><BR><?
          break;
        case         $REF_MA: ?>&nbsp;<A HREF="cm_par.asp?<?           echo $args; ?>&x=<?           echo $REF_MA; ?>&r=<?           echo $RSList["rma"]; ?>&c=<?           echo $cmd-$cmdStat; ?>&v=1&i=<?           echo $rnc; ?>"><?           echo $RSList["val"]; ?></A><BR><?
          break;
      }
    }

    if ($cmd==$cmdStatPon)
    {
?>
&nbsp;<?       echo $RSList["val"]/100; ?><BR><?
    }

    if ($cmd>$cmdStatPon)
    {
?>
&nbsp;<?       echo $RSList["val"]; ?><BR><?
    }

?></TD>
</TR><?
  }
  while($seq<10)
  {
    if ($BGC==$TR1_BGC) $BGC=$TR2_BGC; else $BGC=$TR1_BGC;
?><TR BGCOLOR="<?     echo $BGC; ?>"><TD COLSPAN="3">&nbsp;</TD></TR><?
    $seq=$seq+1;
  }
?></TABLE></TD></TR><?
tab_bor();
nc_sel(1);
?><TR BGCOLOR="<?   echo $BOR_BGC; ?>"><TD HEIGHT="1"><img src="/pic/0.gif" width="1" height="1"></TD></TR></TABLE></TD><TD BGCOLOR="<?   echo $BOR_BGC; ?>" WIDTH="1"><img src="/pic/0.gif" width="1" height="1"></TD><?

?><TD VALIGN=TOP>
<TABLE BORDER=0 BGCOLOR="<?   echo $TR1_BGC; ?>">
<TR BGCOLOR="<?   echo $TR2_BGC; ?>"><TD ALIGN="left"><B><FONT SIZE="+1"><?   echo CrefNome($cref); ?></FONT></B></TD></TR><TR><TD ALIGN="left"><?
st_menu($cmd,$cmdStatVit,$cref);
st_menu($cmd,$cmdStatPol,$cref);
st_menu($cmd,$cmdStatVmr,$cref);
st_menu($cmd,$cmdStatPod,$cref);
st_menu($cmd,$cmdStatPli,$cref);
st_menu($cmd,$cmdStatPon,$cref);
st_menu($cmd,$cmdStatGpc,$cref);
st_menu($cmd,$cmdStatVoc,$cref);
st_menu($cmd,$cmdStatKmc,$cref);
?>
</B></TD></TR>
<?
  switch ($cref)
  {
    case     $REF_PI: ?><TR BGCOLOR="<?       echo $TR2_BGC; ?>"><TD ALIGN=LEFT><FONT SIZE="+1"><B><A HREF="nc.asp?<?       echo $args; ?>&r=<?       echo $rnc; ?>&c=<?       echo $cmd; ?>&x=<?       echo $REF_CO; ?>">
<?       echo $titulo[$N_MAKES]; ?></A></B></FONT></TD></TR><TR><TD ALIGN="left">&nbsp;&nbsp;...</TD></TR>
<TR BGCOLOR="<?       echo $TR2_BGC; ?>"><TD ALIGN=LEFT><FONT SIZE="+1"><B><A HREF="nc.asp?<?       echo $args; ?>&r=<?       echo $rnc; ?>&c=<?       echo $cmd; ?>&x=<?       echo $REF_MA; ?>">
<?       echo $titulo[$N_ENGS]; ?></A></B></FONT></TD></TR><TR><TD ALIGN="left">&nbsp;&nbsp;...</TD></TR><?
      break;
    case     $REF_CO: ?><TR BGCOLOR="<?       echo $TR2_BGC; ?>"><TD ALIGN=LEFT><FONT SIZE="+1"><B><A HREF="nc.asp?<?       echo $args; ?>&r=<?       echo $rnc; ?>&c=<?       echo $cmd; ?>&x=<?       echo $REF_PI; ?>">
<?       echo $titulo[$N_DRIVS]; ?></A></B></FONT></TD></TR><TR><TD ALIGN="left">&nbsp;&nbsp;...</TD></TR>
<TR BGCOLOR="<?       echo $TR2_BGC; ?>"><TD ALIGN=LEFT><FONT SIZE="+1"><B><A HREF="nc.asp?<?       echo $args; ?>&r=<?       echo $rnc; ?>&c=<?       echo $cmd; ?>&x=<?       echo $REF_MA; ?>">
<?       echo $titulo[$N_ENGS]; ?></A></B></FONT></TD></TR><TR><TD ALIGN="left">&nbsp;&nbsp;...</TD></TR><?
      break;
    case     $REF_MA: ?><TR BGCOLOR="<?       echo $TR2_BGC; ?>"><TD ALIGN=LEFT><FONT SIZE="+1"><B><A HREF="nc.asp?<?       echo $args; ?>&r=<?       echo $rnc; ?>&c=<?       echo $cmd; ?>&x=<?       echo $REF_PI; ?>">
<?       echo $titulo[$N_DRIVS]; ?></A></B></FONT></TD></TR><TR><TD ALIGN="left">&nbsp;&nbsp;...</TD></TR>
<TR BGCOLOR="<?       echo $TR2_BGC; ?>"><TD ALIGN=LEFT><FONT SIZE="+1"><B><A HREF="nc.asp?<?       echo $args; ?>&r=<?       echo $rnc; ?>&c=<?       echo $cmd; ?>&x=<?       echo $REF_CO; ?>">
<?       echo $titulo[$N_MAKES]; ?></A></B></FONT></TD></TR><TR><TD ALIGN="left">&nbsp;&nbsp;...</TD></TR><?
      break;
  }
?>
</TABLE></TD></TR></TABLE>
<?
fxtail();
}



function NCedi ()
{
    extract($GLOBALS);

    if ($tip == 0) {
	fxhead("Forix: edit circuit names");
	tab_ini();
	tab_bar(2);
	echo("<TR><TH><FONT SIZE=\"+1\"><a href=\"$script?$args&r=$rnc\">$nc_nome</a></FONT></TH></TR>");
	echo("<TR><TH><FONT SIZE=\"+2\">Full names</FONT></TH></TR>");
	tab_bar(4);
	tab_bor();
	tab_bar1(4);
	echo("<FORM METHOD=\"post\" ACTION=\"$script?$args&r=$rnc&c=$cmdNCedi&t=1\">");
	echo("<TR BGCOLOR=\"$TR1_BGC\"><TD ALIGN=\"center\"><table border=\"0\" cellspacing=\"0\" cellpadding=\"4\">");
	echo("<TR><TD ALIGN=\"center\" colspan=\"2\"><B>name | y0 | y1 ||</B></TD></TR>");
	echo("<TR><TD ALIGN=\"center\"><TEXTAREA name=\"txt\" ROWS=\"14\" COLS=\"64\">");
	$sql = "Select * from ncnc where rnc=$rnc order by anoi";
	if (($result = mysql_query($sql)) and mysql_num_rows($result) > 0)
	    while ($rs = mysql_fetch_array($result))
		echo(htmlspecialchars($rs["nomec"]) ."|". $rs["anoi"] ."|". $rs["anof"] ."||". chr(10));
	echo("</TEXTAREA></TD></TR></table></td></tr>");
	tab_bar1(4);
	tab_bor();
	tab_bar2(6);
	echo("<TR BGCOLOR=\"$TR2_BGC\"><th><INPUT TYPE=\"SUBMIT\" value=\"Ok\"></TH></TR></FORM>");
	tab_bar2(6);
	tab_fim();
	fxtail();
    } else {
// Delete current records
	$sql = "Delete from ncnc where rnc=$rnc";
	mysql_query ($sql);

	$txt=trim(post_arg("txt"));
	if (strlen($txt)>0) {
	    $linhas= explode(chr(10), $txt);
	    for ($i=0; $i < count($linhas); $i++) {
		$nome = trim(strtok($linhas[$i], '|'));
		$anoi = trim(strtok('|'));
		$anof = trim(strtok('|'));
	// Insert new record
		$sql = "Insert into ncnc values ($rnc, '".mysql_escape_string($nome)."', $anoi, $anof)";
		mysql_query ($sql);
	    }
	}
	header("Location: nc.asp?$args&r=$rnc&c=$cmdNCfic");
    }
}



$rnc=intval(get_arg("r"));
$cmd=intval(get_arg("c"));
$cref=intval(get_arg("x"));
$sort=intval(get_arg("s"));
$bloc=intval(get_arg("b"));
$tip=intval(get_arg("t"));

if ($cmd==999)
    NCtabela();
else {
    if ($rnc<=0)
	$rnc=intval(post_arg("rnc"));

    if ($rnc>0) {
	$nc_nome=NCnome($rnc);
	if (strlen($nc_nome)>0) {
	    log_page($REF_NC,$rnc,$cmd);
	    switch($cmd) {
		case $cmdNCgpr:
		    NCgpr();
		    break;
		case $cmdNCvit:
		    NCvpr($titulo[$N_WINS]);
		    break;
		case $cmdNCpol:
		    NCvpr($titulo[$N_POLES]);
		    break;
		case $cmdNCvmr:
		    NCvpr($titulo[$N_FLAPS]);
		    break;
		case $cmdNCedi:
		    if ($username == 'forix')
			NCedi();
		    break;
		default:
		    if ($cmd>=$cmdStat)
			NCstat();
		    else
			NCfic();
	    }
	} else
	    $rnc=0;
    }

    if ($rnc<=0) {
	log_page($REF_NC,0,0);
	NClista();
    }
}

?>
