<?php

include ("forixinc.php");
include ("__gp_util.php");
include ("util.php");
include ("campo.php");



function gp_cab($nome,$ncol,$nav)
{
  extract($GLOBALS);

?>
<TABLE BORDER="6" <?php   if ($ncol==1)
  {
?> WIDTH="75%"<?php   } ?> BGCOLOR="<?php   echo $TR1_BGC; ?>">
<TR BGCOLOR="<?php   echo $CAB_BGC; ?>">
<TH COLSPAN=<?php   echo $ncol; ?>><FONT SIZE="+2"><A HREF="_cp.asp?<?php   echo $args; ?>&r=<?php   echo $ano; ?>&c=<?php   echo $cmdCPgpr; ?>"><?php   echo $ano; ?></A>, <A HREF="_gp.asp?<?php   echo $args; ?>&r=<?php   echo $rgp; ?>&c=<?php   echo $cmdGPfic; ?>"><?php   echo $gp_nome; ?></A></FONT><?php
  if ($nav==1 && $ss>51)
  {

?>&nbsp;<A HREF="_gp.asp?<?php     echo $args; ?>&r=<?php     echo $rgp-1; ?>&c=<?php     echo $cmd; ?>&s=<?php     echo $ses; ?>"><IMG SRC="../pic/ante.gif" ALT="&lt;" ALIGN="absmiddle" BORDER="0"></A><?php
  }

?>&nbsp;<A HREF="_cp.asp?<?php   echo $args; ?>&r=<?php   echo $ano; ?>&c=<?php   echo $cmdCPgpr; ?>"><IMG SRC="../pic/lista.gif" ALT="=" ALIGN="absmiddle" BORDER="0"></A><?php
  if ($nav==1 && $ss<$ngp+50)
  {

?>&nbsp; <A HREF="_gp.asp?<?php     echo $args; ?>&r=<?php     echo $rgp+1; ?>&c=<?php     echo $cmd; ?>&s=<?php     echo $ses; ?>"><IMG SRC="../pic/prox.gif" ALT="&gt;" ALIGN="absmiddle" BORDER="0"></A><?php
  }

?><BR><FONT SIZE="+2"><?php   echo $gp_nome_tot; ?></FONT></TH></TR>
<TR BGCOLOR="<?php   echo $CAB_BGC; ?>">
<TH COLSPAN=<?php   echo $ncol; ?>><FONT SIZE="+3"><?php   echo $nome; ?></FONT></TH></TR>
<TR></TR>
<?php   return $function_ret;
}



function notavel($rgp,$sess,$tit,$bgc)
{
  extract($GLOBALS);


  $SQLQuery="Select n_pa.*, n_pa.c_make as co_nome, n_pa.c_model as ca_nome, n_pa.e_make as mo_nome, n_pa.e_model as mo_tipo from n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp." and ";
  if ($sess==1)
  {

    $SQLQuery=$SQLQuery."n_pa.r_cla=1";
  }

  if ($sess==2)
  {

    $SQLQuery=$SQLQuery."n_pa.g_cla=1";
  }

  if ($sess==3)
  {

    $SQLQuery=$SQLQuery."n_pa.f_cla=1";
  }

  $SQLQuery=$SQLQuery." order by n_pa.rpa";
  if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
  {

?><TR BGCOLOR="<?php     echo $bgc; ?>"><TD ALIGN="left" VALIGN="top"><B><?php     echo $tit; ?></B></TD>
<TD ALIGN="left" VALIGN="top"><?php
while ($RSList= mysql_fetch_array($result))
    {
?>&nbsp;<?php       echo $RSList["driver"]; ?><BR><?php
    }
?></TD>
<TD ALIGN="left" VALIGN="top"><?php
mysql_data_seek($result, 0);
while ($RSList= mysql_fetch_array($result))
    {

?>&nbsp;<?php       echo $RSList["co_nome"]; ?>&nbsp;<?php       echo $RSList["ca_nome"]; ?><?php       if ($RSList["co_nome"]!=$RSList["mo_nome"])
      {
?> / <?php         echo $RSList["mo_nome"]; ?><?php       } ?><BR><?php
    }
?></TD></TR><?php
  }

  return $function_ret;
}



function GPfic($rgp)
{
  extract($GLOBALS);


fxhead("Forix: ".$ano.", ".$gp_nome);
  $SQLQuery="SELECT n_gp.*, dayofmonth(n_gp.date) as dd, month(n_gp.date) as mm, n_gp.name as gp_name, n_gp.obs as gp_obs, n_ci.* FROM n_ci INNER JOIN n_gp ON n_gp.circuit=n_ci.name where n_gp.rgp=".$rgp." and n_gp.rgp>=n_ci.rci and n_gp.rgp<n_ci.rci_n order by n_gp.rgp";
if (($result = mysql_query($SQLQuery)) and ($RSList = mysql_fetch_array($result)))
  {


    $SQLQuery="SELECT count(n_pa.rpa) as npa From n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp;
    if (($result2 = mysql_query($SQLQuery)) and ($RSpa= mysql_fetch_array($result2)))
    {
      $npa=$RSpa["npa"];
    }
      else
    {
      $npa=0;
    }

?>
<table border="0" cellspacing="0" cellpadding="0">
<TR>
<TD BGCOLOR="<?php     echo $BOR_BGC; ?>" WIDTH="1"><img src="../pic/0.gif" width="1" height="1"></TD>
<TD><table border="0" cellspacing="0" cellpadding="0">
<TR BGCOLOR="<?php     echo $BOR_BGC; ?>"><TD HEIGHT="1"><img src="../pic/0.gif" width="1" height="1"></TD></TR>
<TR BGCOLOR="<?php     echo $CAB_BGC; ?>"><TD HEIGHT="4"><img src="../pic/0.gif" width="1" height="1"></TD></TR>
<TR BGCOLOR="<?php     echo $CAB_BGC; ?>">
<TH><FONT SIZE="+2"><?php     echo $ano; ?>, <A HREF="__ng.asp?<?php     echo $args; ?>&r=<?php     echo str_replace(" ","+",$RSList["gp_name"]); ?>&c=1"><?php     echo $RSList["gp_name"]; ?></A></FONT><?php
    if ($ss>51)
    {

?>&nbsp;<A HREF="__gp.asp?<?php       echo $args; ?>&r=<?php       echo $rgp-1; ?>&c=<?php       echo $cmdGPfic; ?>"><IMG SRC="../pic/ante.gif" ALT="&lt;" ALIGN="absmiddle" BORDER="0"></A><?php
    }

?>&nbsp;<A HREF="__cp.asp?<?php     echo $args; ?>&r=<?php     echo $ano; ?>&c=<?php     echo $cmdCPgpr; ?>"><IMG SRC="../pic/lista.gif" ALT="=" ALIGN="absmiddle" BORDER="0"></A><?php
    if ($ss<$ngp+50)
    {

?>&nbsp;<A HREF="__gp.asp?<?php       echo $args; ?>&r=<?php       echo $rgp+1; ?>&c=<?php       echo $cmdGPfic; ?>"><IMG SRC="../pic/prox.gif" ALT="&gt;" ALIGN="absmiddle" BORDER="0"></A><?php
    }

?><BR><FONT SIZE="+3">&nbsp;&nbsp;<?php     echo $RSList["fname"]; ?>&nbsp;&nbsp;</FONT></TH></TR>
<?php
    $SQLQuery="SELECT fotos.*, contactos.copynote FROM fotos inner join contactos on fotos.sig=contactos.sig WHERE fotos.camp=0 and fotos.ref=".$rgp." and (fotos.cref=".$REF_GP." or fotos.cref=".$REF_GPP.")";
if (($result2 = mysql_query($SQLQuery)) and ($RSFoto= mysql_fetch_array($result2)))
    {

?>
<TR BGCOLOR="<?php       echo $CAB_BGC; ?>"><TD HEIGHT="6"><img src="../pic/0.gif" width="1" height="1"></TD></TR>
<TR BGCOLOR="<?php       echo $CAB_BGC; ?>"><TD ALIGN="center">
<IMG SRC="picture.php?p=img/<?php       echo $RSFoto["foto"]; ?>" ALT="Photo"><BR>
<FONT SIZE="-1"><?php       echo $RSFoto["copynote"]; ?></FONT>
</TD></TR>
<?php     } ?>
<TR BGCOLOR="<?php     echo $CAB_BGC; ?>"><TD HEIGHT="4"><img src="../pic/0.gif" width="1" height="1"></TD></TR>
<TR BGCOLOR="<?php     echo $BOR_BGC; ?>"><TD HEIGHT="1"><img src="../pic/0.gif" width="1" height="1"></TD></TR>
<TR BGCOLOR="<?php     echo $CAB_BGC; ?>"><TD ALIGN="center"><TABLE width="100%" border="0" cellspacing="0" cellpadding="2">
<TR BGCOLOR="<?php     echo $TR2_BGC; ?>"><TD ALIGN="left" COLSPAN="5"><FONT SIZE="+1"><B><?php     echo pri_data($RSList["dd"],$RSList["mm"],0,1); ?></B></FONT></TD></TR>
<?php
    $perim=$RSList["perim_mt"];
    if ($perim==0)
    {

      $perim=$RSList["perim_mi"]*1.609344+0.5;
    }

?>
<TR BGCOLOR="<?php     echo $TR1_BGC; ?>"><TD ALIGN="left"><B>&nbsp;<?php     echo $titulo[$N_CIRC]; ?></B></TD><TD ALIGN="right">&nbsp;<?php     echo $RSList["circuit"]; ?></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left"><B>&nbsp;<?php     echo $titulo[$N_LAPS]; ?></B></TD><TD ALIGN="right">&nbsp;<?php     echo $RSList["laps"]; ?></TD></TR>
<TR BGCOLOR="<?php     echo $TR1_BGC; ?>"><TD ALIGN="left"><B>&nbsp;<?php     echo $titulo[$N_PERI]; ?></B></TD><TD ALIGN="right">&nbsp;<?php     echo intval($perim); ?></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left"><B>&nbsp;km</B></TD><TD ALIGN="right">&nbsp;<?php     echo sprintf("%0.3f", $RSList["laps"]*$perim/1000); ?></TD></TR>
</TABLE>
<TR BGCOLOR="<?php     echo $BOR_BGC; ?>"><TD HEIGHT="1"><img src="../pic/0.gif" width="1" height="1"></TD></TR>

<TR BGCOLOR="<?php     echo $CAB_BGC; ?>"><TD ALIGN="center"><TABLE width="100%" border="0" cellspacing="0" cellpadding="2">
<?php
$rgp = $RSList["rgp"];
notavel($rgp,1,$titulo[$N_WIN],$TR2_BGC);
notavel($rgp,2,$titulo[$N_POLE],$TR1_BGC);
notavel($rgp,3,$titulo[$N_FLAP],$TR2_BGC);
?>
</TABLE></TD></TR>
<?php   } ?>
<TR BGCOLOR="<?php   echo $BOR_BGC; ?>"><TD HEIGHT="1"><img src="../pic/0.gif" width="1" height="1"></TD></TR>
</TABLE></TD>
<TD BGCOLOR="<?php   echo $BOR_BGC; ?>" WIDTH="1"><img src="../pic/0.gif" width="1" height="1"></TD>
</TR>
</TABLE>
<?php
   include ("__fxtail.php");
   return $function_ret;
}


/*
function GPpar($rgp)
{
  extract($GLOBALS);


fxhead("Forix: ".$ano.", ".$gp_nome.": ".$titulo[$N_ELIS]);
  $ncol=7;
gp_cab($titulo[$N_ELIS],$ncol,1);
  $SQLQuery="Select n_pa.*, n_pa.c_make as co_nome, n_pa.c_model as ca_nome, n_pa.e_make as mo_nome, n_pa.e_model as mo_tipo from n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp." order by truncate(n_pa.number,0), n_pa.rpa";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
  {

?>
<TR BGCOLOR="<?php     echo $CAB_BGC; ?>">
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_NUMB]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_DRIV]; ?></B></TD>
<TD ALIGN=CENTER><B>Entrant</B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_CAR]; ?></B></TD>
<TD ALIGN=CENTER><B>Chassis</B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_ENG]; ?></B></TD>
</TR>

<TR>
<?php
include ("_pa_num.php");
include ("_pi_nome.php");
campo($RSList,"entrant","left");
include ("car_nome.php");
campo($RSList,"chassis","right");
include ("mot_nome.php");
?>
</TR>
<?php
include ("_gp_menu.php");
   } ?>
</TABLE>
<?php
   include ("__fxtail.php");
   return $function_ret;
}



function GPcla($rgp)
{
  extract($GLOBALS);


fxhead("Forix: ".$ano.", ".$gp_nome.": ".$titulo[$N_CLAC]);
  $ncol=7;
gp_cab($titulo[$N_CLAC],$ncol,1);
  $SQLQuery="Select n_pa.*, n_pa.c_make as co_nome, n_pa.c_model as ca_nome, n_pa.e_make as mo_nome, n_pa.e_model as mo_tipo from n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp." and n_pa.r_cla > 0 order by n_pa.r_cla, n_pa.rpa";
$dbc->Execute  $SQLQuery);
  if (!$RSList->EOF)
  {

?>
<TR BGCOLOR="<?php     echo $CAB_BGC; ?>">
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_CLA]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_NUMB]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_DRIV]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_CAEN]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_ALAPS]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_TIME]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_DERE]; ?></B></TD>
</TR>

<TR>
<?php campo($RSList,"r_cla","right");?>
<!--#include file="_pa_num.inc"-->
<!--#include file="_pi_nome.inc"-->
<!--#include file="cm_nome.inc"-->
<?php campo_n($RSList,"r_laps","right");?>
<?php campo($RSList,"r_time","right");?>
<?php campo($RSList,"r_motive","right");?>
</TR>

<?php
    $SQLQuery="Select n_pa.*, n_pa.c_make as co_nome, n_pa.c_model as ca_nome, n_pa.e_make as mo_nome, n_pa.e_model as mo_tipo from n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp." and n_pa.r_cla = 0 order by n_pa.r_laps desc, n_pa.number";
$dbc->Execute    $SQLQuery);
    if (!$RSList->EOF)
    {

?>
<TR>
<TD></TD>
<!--#include file="_pa_num.inc"-->
<!--#include file="_pi_nome.inc"-->
<!--#include file="cm_nome.inc"-->
<?php campo_n($RSList,"r_laps","right");?>
<?php campo($RSList,"r_time","right");?>
<TD ALIGN="right">
<?php
$RSList->MoveFirst;
      while(!$RSList->EOF)
      {

        if (strlen($RSList["r_motive"])==0)
        {

?>&nbsp;<?php           echo $RSList["r_code"]; ?><BR><?php
        }
          else
        {

?>&nbsp;<?php           echo $RSList["r_motive"]; ?><BR><?php
        }

$RSList->MoveNext;
      }
?></TD></TR><?php
    }


    $SQLQuery="Select n_pa.*, n_pa.c_make as co_nome, n_pa.c_model as ca_nome, n_pa.e_make as mo_nome, n_pa.e_model as mo_tipo from n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp." and n_pa.r_cla < 0 order by n_pa.number, n_pa.rpa";
$dbc->Execute    $SQLQuery);
    if (!$RSList->EOF)
    {

?>
<TR>
<TD></TD>
<!--#include file="_pa_num.inc"-->
<!--#include file="_pi_nome.inc"-->
<!--#include file="cm_nome.inc"-->
<TD><BR></TD>
<?php campo($RSList,"r_code","left");?>
<?php campo($RSList,"r_motive","right");?>
</TR><?php
    }

?>
<?php   } ?>
<!--#include file="_gp_menu.inc"-->
</TABLE>
<?php
   include ("__fxtail.php");
   return $function_ret;
}



function GPgre($rgp)
{
  extract($GLOBALS);


fxhead("Forix: ".$ano.", ".$gp_nome.": ".$titulo[$N_SGRID]);
  $ncol=5;
gp_cab($titulo[$N_SGRID],$ncol,1);
  $SQLQuery="Select n_pa.*, n_pa.c_make as co_nome, n_pa.c_model as ca_nome, n_pa.e_make as mo_nome, n_pa.e_model as mo_tipo from n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp." and n_pa.g_cla > 0 order by n_pa.g_cla";
$dbc->Execute  $SQLQuery);
  if (!$RSList->EOF)
  {

?>
<TR BGCOLOR="<?php     echo $CAB_BGC; ?>">
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_CLA]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_NUMB]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_DRIV]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_CAEN]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_TIME]; ?></B></TD>
</TR>

<TR>
<?php campo($RSList,"g_cla","right");?>
<!--#include file="_pa_num.inc"-->
<!--#include file="_pi_nome.inc"-->
<!--#include file="cm_nome.inc"-->
<?php campo($RSList,"g_time","right");?>
</TR>

<?php
    $SQLQuery="Select n_pa.*, n_pa.c_make as co_nome, n_pa.c_model as ca_nome, n_pa.e_make as mo_nome, n_pa.e_model as mo_tipo from n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp." and n_pa.g_cla <= 0 and n_pa.g_time <> '' order by n_pa.g_time";
$dbc->Execute    $SQLQuery);
    if (!$RSList->EOF)
    {

?>
<TR BGCOLOR="<?php       echo $CAB_BGC; ?>">
<TH COLSPAN=<?php       echo $ncol; ?>><BR></TH></TR>
<TR><TD ALIGN=RIGHT><BR></TD>
<!--#include file="_pa_num.inc"-->
<!--#include file="_pi_nome.inc"-->
<!--#include file="cm_nome.inc"-->
<?php campo($RSList,"g_time","right");?>
</TR>
<?php     } ?>
<?php   }
    else
  {
?>
<TR><TH ALIGN="center"><FONT SIZE="+2">Not available</FONT></TH></TR>
<?php   } ?>
<!--#include file="_gp_menu.inc"-->
</TABLE>
<?php
   include ("__fxtail.php");
   return $function_ret;
}



function GPvmr($rgp)
{
  extract($GLOBALS);


fxhead("Forix: ".$ano.", ".$gp_nome.": ".$titulo[$N_FLAPS]);
  $ncol=6;
gp_cab($titulo[$N_FLAPS],$ncol,1);
  $SQLQuery="Select n_pa.*, n_pa.c_make as co_nome, n_pa.c_model as ca_nome, n_pa.e_make as mo_nome, n_pa.e_model as mo_tipo from n_pa Where truncate(n_pa.rpa/1000,0)=".$rgp." and n_pa.f_cla > 0 order by n_pa.f_cla, n_pa.f_lap, n_pa.number";
$dbc->Execute  $SQLQuery);
  if (!$RSList->EOF)
  {

?>
<TR BGCOLOR="<?php     echo $CAB_BGC; ?>">
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_CLA]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_NUMB]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_DRIV]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_CAEN]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_ALAP]; ?></B></TD>
<TD ALIGN=CENTER><B><?php     echo $titulo[$N_TIME]; ?></B></TD>
</TR>

<TR>
<?php campo($RSList,"f_cla","right");?>
<!--#include file="_pa_num.inc"-->
<!--#include file="_pi_nome.inc"-->
<!--#include file="cm_nome.inc"-->
<TD ALIGN=RIGHT><?php
$RSList->MoveFirst;
    while(!$RSList->EOF)
    {

      if ($RSList["f_lap"]>0)
      {

?>&nbsp;<?php         echo $RSList["f_lap"]; ?><BR><?php
      }
        else
      {

?>&nbsp;-<BR><?php
      }

$RSList->MoveNext;
    }
?></TD>
<?php campo($RSList,"f_time","right");?>
</TR>
<?php   }
    else
  {
?>
<TR><TH ALIGN="center"><FONT SIZE="+2">Not available</FONT></TH></TR>
<?php   } ?>
<!--#include file="_gp_menu.inc"-->
</TABLE>
<?php
   include ("__fxtail.php");
   return $function_ret;
}
*/



$rgp=intval(get_arg("r"));
$cmd=intval(get_arg("c"));
$ses=intval(get_arg("s"));

if ($rgp>0)
{

  $ano=intval($rgp/100);
  $ss=$rgp-$ano*100;
  $SQLQuery="SELECT count(n_gp.rgp) as ngp From n_gp Where n_gp.rgp>=".($ano*100+51)." and n_gp.rgp<".($ano*100+100);
if (($result = mysql_query($SQLQuery)) and ($RSList = mysql_fetch_array($result)))
  $ngp=$RSList["ngp"];
else
  $ngp=0;

// log_page($REF_GP,$rgp,$cmd);
  $gp_nome= GPnome($rgp,$lin);
  $gp_nome_tot= GPnome_tot($rgp,$lin);

  if ($cmd==$cmdGPfic)
  {

GPfic($rgp);
  }
    else
  if ($cmd==$cmdGPpar)
  {

GPpar($rgp);
  }
    else
  if ($cmd==$cmdGPcla)
  {

GPcla($rgp);
  }
    else
  if ($cmd==$cmdGPgre)
  {

GPgre($rgp);
  }
    else
  if ($cmd==$cmdGPvmr)
  {

GPvmr($rgp);
  }

}

?>
