include ("forixinc.php");
include ("cm_sel.php");
include ("co_util.php");
include ("mo_util.php");
include ("bkp.php");
include ("www.php");
include ("util.php");
include ("util_notes.php");
function menu($c,$nome)
{
global $args, $cref, $rco, $cmd;
if ($cmd!=$c)
{
?> echo $nome; ?>
}
else
{
?> echo $nome; ?>
}
?>
}
function campo_rcn($obj,$nome,$vpr)
{
extract($GLOBALS);
?>
if ($obj[$nome]>0)
{
?> &rma= echo $rco; ?>&rmo= echo $obj["rma"]; ?>& echo $vpr; ?>"> echo $obj[$nome]; ?>
}
else
{
?>-
}
?> |
return $function_ret;
}
function campo_rpi($obj,$nome,$vpr)
{
extract($GLOBALS);
?>
if ($obj[$nome]>0)
{
?> &rma= echo $rco; ?>&rpi= echo $obj["rpi"]; ?>& echo $vpr; ?>"> echo $obj[$nome]; ?>
}
else
{
?>-
}
?> |
return $function_ret;
}
function CMmod()
{
extract($GLOBALS);
fxhead($tit.", ".$titulo[$N_MODEL]);
tab_ini();
tab_bar(2);
?>| echo $co_nome; ?> |
| echo $titulo[$N_MODEL]; ?> |
tab_bar(6);
tab_bor();
if ($cref==$REF_CO)
{
$SQLQuery="SELECT ca.*, can.nome as c_nome FROM ca inner join can on ca.rco=can.rco where ca.rco=".$rco." and can.lin=".$linx." Order by rca";
}
else
if ($cref==$REF_MA)
{
$SQLQuery="SELECT mm.*, mon.nome as m_nome FROM mm inner join mon on mm.rma=mon.rma where mm.rma=".$rco." and mon.lin=".$linx." Order by rmm";
}
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
{
?>
while ($RSList= mysql_fetch_array($result))
{
if ($cref==$REF_CO)
{
?> &c=0"> echo $RSList["c_nome"]; ?> echo $RSList["nome"]; ?>
}
else
if ($cref==$REF_MA)
{
?> &c=0"> echo $RSList["m_nome"]; ?> echo $RSList["nome"]; ?>
}
}
?> |
www($cref,$rco);
}
cm_sel(0,0);
tab_fim();
fxtail();
return $function_ret;
}
function CMano()
{
extract($GLOBALS);
fxhead($tit.", ".$titulo[$N_CHAMS]);
tab_ini();
tab_bar(2);
echo("| $co_nome |
");
echo("| $titulo[$N_CHAMS] |
");
tab_bar(6);
tab_bor();
$SQLQuery="SELECT pa_not.rcp, pa_not.rma, can.nome as co_nome, mon.nome as mo_nome, count(pa_not.ini) AS tot_par, Sum(pa_not.vit) AS tot_vit, Sum(pa_not.pol) AS tot_pol, Sum(pa_not.vmr) AS tot_vmr FROM (pa_not INNER JOIN can ON pa_not.rco=can.rco) INNER JOIN mon ON pa_not.rma=mon.rma Where can.lin=".$linx." and mon.lin=".$linx." and pa_not.rco=".$rco." GROUP BY pa_not.rcp, pa_not.rma, can.nome, mon.nome, can.lin, mon.lin, pa_not.rco Order by pa_not.rcp, pa_not.rma";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
// Classificacoes no campeonato
$SQLQuery="Select cp_cla.rcp, cp_cla.cla, cp_cla.pon, cn.rma from cp_cla inner join cn on cp_cla.ref=cn.rcn where cn.rco=$rco and cp_cla.cref=$REF_CN order by cp_cla.rcp, cn.rma";
$result2 = mysql_query($SQLQuery);
$RSstat=mysql_fetch_array($result2);
?>
| echo $titulo[$N_YEAR]; ?> |
echo $titulo[$N_CONS]; ?> |
echo $titulo[$N_CLA]; ?> |
echo $titulo[$N_PONS]; ?> |
echo $titulo[$N_PARS]; ?> |
echo $titulo[$N_WINS]; ?> |
echo $titulo[$N_POLES]; ?> |
echo $titulo[$N_FLAPS]; ?> |
$anop = 0;
$BGC=$TR2_BGC;
while ($RSList= mysql_fetch_array($result)) {
if ($BGC==$TR1_BGC) $BGC=$TR2_BGC; else $BGC=$TR1_BGC;
echo("");
include("cp_rcp.php");
include("cm_nome.php");
echo("| ");
$ano=$RSList["rcp"];
$rmo=$RSList["rma"];
$anoa=0;
$rmoa=0;
while ($RSstat) {
$anoa=$RSstat["rcp"];
$rmoa=$RSstat["rma"];
if ($anoa>$ano || ($anoa==$ano && $rmoa>=$rmo))
break;
$RSstat=mysql_fetch_array($result2);
}
if ($anoa==$ano && $rmoa==$rmo) {
if ($RSstat["cla"]>0)
echo $RSstat["cla"];
else
echo("-");
} else
echo("-");
echo(" | ");
if ($anoa==$ano && $rmoa==$rmo)
echo $RSstat["pon"]/100;
else
echo("-");
echo(" | ");
campo_rcn($RSList,"tot_par","z");
campo_rcn($RSList,"tot_vit","race=1");
campo_rcn($RSList,"tot_pol","grid=1");
campo_rcn($RSList,"tot_vmr","flap=1");
echo(" ");
}
echo(" |
");
}
cm_sel(0,0);
tab_fim();
fxtail();
}
function CMent()
{
extract($GLOBALS);
fxhead($tit.", ".$titulo[$N_ENTN]);
tab_ini();
tab_bar(2);
?>| echo $co_nome; ?> |
| echo $titulo[$N_ENTN]; ?> |
tab_bar(6);
tab_bor();
$SQLQuery="SELECT 1900+truncate(rpa/100000,0) AS rcp, eq.nome, eq.req, Count(papi.rco) AS tot_par FROM eq, papi Where eq.req=papi.req and papi.rco=".$rco." GROUP BY papi.rco, 1900+truncate(rpa/100000,0), eq.nome, eq.req ORDER BY rcp, tot_par Desc, eq.nome";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
{
?> |
}
cm_sel(0,0);
tab_fim();
fxtail();
return $function_ret;
}
function CMpil()
{
extract($GLOBALS);
fxhead($tit.", ".$titulo[$N_DRIVS]);
tab_ini();
tab_bar(2);
?>| echo $co_nome; ?> |
| echo $titulo[$N_DRIVS]; ?> |
tab_bar(6);
tab_bor();
$SQLQuery="SELECT pa_not.rcp, pa_not.rpi, pin.nabr as pi_nome, Sum(pa_not.ini) as tot_ini, Sum(pa_not.vit) as tot_vit, Sum(pa_not.pol) as tot_pol, Sum(pa_not.vmr) as tot_vmr FROM pa_not INNER JOIN pin ON pa_not.rpi=pin.rpi Where pa_not.rco=".$rco." GROUP BY pa_not.rcp, pa_not.rpi, pin.nabr, pin.apel, pa_not.rco Order by pa_not.rcp, pin.apel";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0) {
?>
| echo $titulo[$N_YEAR]; ?> |
echo $titulo[$N_DRIV]; ?> |
echo $titulo[$N_GPST]; ?> |
echo $titulo[$N_WINS]; ?> |
echo $titulo[$N_POLES]; ?> |
echo $titulo[$N_FLAPS]; ?> |
$anop=0;
$rpi=0;
$BGC=$TR2_BGC;
while ($RSList= mysql_fetch_array($result))
{
if ($BGC==$TR1_BGC)
{
$BGC=$TR2_BGC;
}
else
{
$BGC=$TR1_BGC;
}
?>
include("cp_rcp.php");
include("pi_nome.php");
?>| &rpi= echo $RSList["rpi"]; ?>&rma= echo $rco; ?>"> echo $RSList["tot_ini"]; ?> |
campo_rpi($RSList,"tot_vit","race=1");
campo_rpi($RSList,"tot_pol","grid=1");
campo_rpi($RSList,"tot_vmr","flap=1");
?>
}
?> |
}
cm_sel(0,0);
tab_fim();
fxtail();
return $function_ret;
}
function CMpistat()
{
extract($GLOBALS);
fxhead($tit.", ".$titulo[$N_STATS].": ".$titulo[$N_DRIVS]);
switch ($cmd)
{
case $cmdCOPiVit:
$nomecampo="papi.cla";
break;
case $cmdCOPiPol:
$nomecampo="papi.gre";
break;
case $cmdCOPiVmr:
$nomecampo="papi.vmr";
break;
case $cmdCOPiPod:
$nomecampo="papi.cla";
break;
case $cmdCOPiPli:
$nomecampo="papi.pli";
break;
case $cmdCOPiIni:
$nomecampo="papi.ini";
break;
case $cmdCOPiPon:
$nomecampo="";
break;
default:
$cmd=$cmdCOPiIni;
$nomecampo="papi.ini";
break;
}
if ($cmd!=$cmdCOPiPon)
{
if ($cmd==$cmdCOPiIni)
{
$SQLQuery="SELECT pin.nabr as pi_nome, pin.rpi, sum(".$nomecampo.") AS tot FROM papi, pin where papi.rpi=pin.rpi and ((".$nomecampo.")>=0)";
}
else
{
$SQLQuery="SELECT pin.nabr as pi_nome, pin.rpi, count(".$nomecampo.") AS tot FROM papi, pin where papi.rpi=pin.rpi and ";
if ($cmd!=$cmdCOPiPod)
{
$SQLQuery=$SQLQuery."((".$nomecampo.")=1)";
}
else
{
$SQLQuery=$SQLQuery."(papi.cla >= 1 and papi.cla <= 3)";
}
}
$SQLQuery=$SQLQuery." AND (papi.rpi>0)";
if ($cref==$REF_CO)
{
$SQLQuery=$SQLQuery." AND (papi.rco=".$rco.") group by pin.nabr, pin.rpi";
}
else
if ($cref==$REF_MA)
{
$SQLQuery=$SQLQuery." AND (papi.rma=".$rco.") group by pin.nabr, pin.rpi";
}
$SQLQuery=$SQLQuery." order by tot desc, pin.rpi";
}
else
{
if ($cref==$REF_CO)
{
$SQLQuery="SELECT pin.nabr as pi_nome, pin.rpi, sum(papi.pop) AS tot FROM papi, pin where papi.rpi=pin.rpi and (papi.pop > 0 and (papi.rco=".$rco.")) group by pin.nabr, pin.rpi order by tot desc";
}
else
if ($cref==$REF_MA)
{
$SQLQuery="SELECT pin.nabr as pi_nome, pin.rpi, sum(papi.pop) AS tot FROM papi, pin where papi.rpi=pin.rpi and (papi.pop > 0 and (papi.rma=".$rco.")) group by pin.nabr, pin.rpi order by tot desc";
}
}
tab_ini();
tab_bar(2);
?>| echo $co_nome; ?> |
|---|
| echo Statnome($cmd); ?> |
tab_bar(6);
tab_bor();
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
{
?> |
}
else
{
?>| echo $titulo[$N_NONE]; ?> |
}
cm_sel(0,1);
?> |
 |
?>
|
menu($cmdCOPiIni,$titulo[$N_GPST]);
menu($cmdCOPiPon,$titulo[$N_PONS]);
menu($cmdCOPiVit,$titulo[$N_WINS]);
menu($cmdCOPiPod,$titulo[$N_PODS]);
menu($cmdCOPiPol,$titulo[$N_POLES]);
menu($cmdCOPiPli,$titulo[$N_FROW]);
menu($cmdCOPiVmr,$titulo[$N_FLAPS]);
?> |
|
fxtail();
return $function_ret;
}
function CMfic()
{
extract($GLOBALS);
fxhead($tit);
if ($cref==$REF_CO)
{
$SQLQuery="SELECT co.* FROM co where co.rco=".$rco;
}
else
if ($cref==$REF_MA)
{
$SQLQuery="SELECT mo.* FROM mo where mo.rma=".$rco;
}
$result = mysql_query($SQLQuery);
$RSList= mysql_fetch_array($result);
tab_ini();
tab_bar(2);
?> echo $co_nome; ?> |
tab_bar(4);
tab_bor();
?> |
tab_bor();
tab_bar(4);
?>
if ($zip==$Zip_PHOCD)
{
?> echo $titulo[$N_PGAL]; ?>
}
else
{
if ($cref==$REF_CO)
{
?>
echo $titulo[$N_CHAMS]; ?> |
echo $titulo[$N_DRIVS]; ?> |
} ?>
echo $titulo[$N_STATS]; ?>: echo $titulo[$N_DRIVS]; ?>
if ($super_modo>=$Modo_privado)
{
?>
echo $titulo[$N_MODEL]; ?> |
echo $titulo[$N_ENTN]; ?>
}
}
?> |
tab_bar(4);
if ($zip<$Zip_CDROM)
{
// Comentários
$SQLQuery="SELECT notes.*, contactos.copynote FROM notes inner join contactos on contactos.sig=notes.autor 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=".$cref." and notes.ref=".$rco." and notes.tipo=".$No_tipo_C." and notes.modo<=".$super_modo." Order by notes.lin desc";
if (($result = mysql_query($SQLQuery)) and ($RSbio= mysql_fetch_array($result)))
{
com_texto($RSbio,460,$titulo[$N_COMM],false);
}
Bkp($cref,$rco,$lin);
www($cref,$rco);
cm_sel(0,0);
}
tab_fim();
fxtail();
return $function_ret;
}
$cref=intval(get_arg("x"));
$rco=intval(get_arg("r"));
$cmd=intval(get_arg("c"));
$nco="";
if ($rco<=0)
{
if (post_arg("co")!="")
{
$nco=trim(post_arg("co"));
if (substr($nco,strlen($nco)-(1))!="?")
{
if ($cref==$REF_CO)
$rco= COref(post_arg("co"));
else
if ($cref==$REF_MA)
$rco= MOref(post_arg("co"));
}
}
}
log_page($cref,$rco,$cmd);
if ($cref==$REF_CO)
{
$cab=$titulo[$N_MAKES];
if ($rco>0)
$co_nome= COnome($rco);
}
else
if ($cref==$REF_MA)
{
$cab=$titulo[$N_ENGS];
if ($rco>0)
$co_nome= MOnome($rco);
}
if ($rco>0)
{
$tit="Forix: ".$co_nome;
if ($cmd==$cmdCMfic)
{
CMfic();
}
else
if ($cmd==$cmdCMmod)
{
CMmod();
}
else
if ($cref==$REF_CO && $cmd==$cmdCMano)
{
CMano();
}
else
if ($cref==$REF_CO && $cmd==$cmdCMpil)
{
CMpil();
}
else
if ($cref==$REF_CO && $cmd==$cmdCMent)
{
CMent();
}
else
if ($cmd>=$cmdCOPi)
{
CMpistat();
}
}
else
{
fxhead("Forix: ".$cab);
tab_ini();
tab_bar(2);
?>| echo $cab; ?> |
if ($cref==$REF_CO)
{
$SQLQuery="SELECT can.nome, can.rco as ref FROM can WHERE (can.nome Like '".$nco."%') and can.lin=".$linx." order by can.nome";
}
else
if ($cref==$REF_MA)
{
$SQLQuery="SELECT mon.nome, mon.rma as ref FROM mon WHERE (mon.nome Like '".$nco."%') and mon.lin=".$linx." order by mon.nome";
}
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
{
tab_bar(4);
tab_bor();
?>
while ($RSList= mysql_fetch_array($result))
{
?> &c= echo $cmdCMfic; ?>"> echo $RSList["nome"]; ?>
}
}
?> |
tab_fim();
fxtail();
}
?>