include ("forixinc.php");
include ("pi_sel.php");
include ("pi_fic.php");
include ("pi_stat.php");
include ("pi_ida.php");
include ("gp_util.php");
include ("pi_util.php");
include ("bkp.php");
include ("www.php");
include ("util.php");
function pi_cab($nome)
{
extract($GLOBALS);
tab_ini();
tab_bar(4);
if (strlen($pi_nome)>0)
{
?>
echo $pi_nome; ?> |
}
?> echo $nome; ?> |
return $function_ret;
}
function PIano_total($valor,$comando)
{
extract($GLOBALS);
?>
if ($valor>0)
{
?> echo $valor; ?>
}
else
{
?>-
}
?> |
return $function_ret;
}
function PIano_stat($res,$stat,$comando)
{
global $REF_PI, $rpi, $cmdStatIni;
?>
$SQLQuery="SELECT * from cp_stat where cref=".$REF_PI." and cod=".$stat." and ref=".$rpi;
if ($result2 = mysql_query($SQLQuery))
$RSstat= mysql_fetch_array($result2);
else
$RSstat = false;
mysql_data_seek($res, 0);
while ($RSList= mysql_fetch_array($res))
{
$ano=$RSList["ano"];
$anoa=0;
while ($RSstat)
{
$anoa=$RSstat["rcp"];
if ($anoa>=$ano)
break;
$RSstat= mysql_fetch_array($result2);
}
if ($anoa==$ano)
{
?> echo $RSstat["val"]; ?>
}
else
if ($stat==$cmdStatIni)
{
?>0
}
else
{
?>-
}
}
?> |
}
function PIano()
{
extract($GLOBALS);
$cabecalho=$titulo[$N_CHAMS];
if (strlen($pi_nome)>0)
{
fxhead("Forix: ".$pi_nome.", ".$titulo[$N_CHAMS]);
pi_cab($cabecalho);
$SQLQuery="SELECT 1900+truncate(rpa/100000,0) AS ano, rpi From papi Where rpi=".$rpi." Group by 1900+truncate(rpa/100000,0), rpi";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
{
tab_bar(6);
tab_bor();
?>
echo $titulo[$N_YEAR]; ?> |
echo $titulo[$N_CLA]; ?> |
echo $titulo[$N_PONS]; ?> |
echo $titulo[$N_GPST]; ?> |
echo $titulo[$N_WINS]; ?> |
echo $titulo[$N_PODS]; ?> |
echo $titulo[$N_POLS]; ?> |
echo $titulo[$N_FROW]; ?> |
echo $titulo[$N_FLAPS]; ?> |
while ($RSList= mysql_fetch_array($result))
{
$ano=$RSList["ano"];
?> echo $ano; ?>
}
?> |
$SQLQuery="SELECT * from cp_cla where cref=".$REF_PI." and ref=".$rpi;
if ($result2 = mysql_query($SQLQuery))
$RSstat= mysql_fetch_array($result2);
else
$RSstat = false;
mysql_data_seek($result, 0);
$RSList= mysql_fetch_array($result);
while($RSList)
{
$ano=$RSList["ano"];
$anoa=0;
while($RSstat)
{
$anoa=$RSstat["rcp"];
if ($anoa>=$ano)
{
break;
}
$RSstat= mysql_fetch_array($result2);
}
if ($anoa==$ano)
{
if ($RSstat["cla"]>0)
{
?> echo $RSstat["cla"]; ?>
}
else
{
?>-
}
}
else
{
?>-
}
$RSList= mysql_fetch_array($result);
}
?> |
if ($result2)
{
mysql_data_seek($result2, 0);
$RSstat= mysql_fetch_array($result2);
}
mysql_data_seek($result, 0);
$RSList= mysql_fetch_array($result);
while($RSList)
{
$ano=$RSList["ano"];
$anoa=0;
while($RSstat)
{
$anoa=$RSstat["rcp"];
if ($anoa>=$ano)
break;
$RSstat= mysql_fetch_array($result2);
}
if ($anoa==$ano)
{
?> echo $RSstat["pon"]/100; ?>
}
else
{
?>-
}
$RSList= mysql_fetch_array($result);
}
?> |
PIano_stat($result,$cmdStatIni,$cmdPiParIni);
PIano_stat($result,$cmdStatVit,$cmdPiParCla);
PIano_stat($result,$cmdStatPod,$cmdPiParPod);
PIano_stat($result,$cmdStatPol,$cmdPiParGre);
PIano_stat($result,$cmdStatPli,$cmdPiParPli);
PIano_stat($result,$cmdStatVmr,$cmdPiParVmr);
?>
Total |
$SQLQuery="SELECT * FROM pil where rpi=".$rpi;
$result = mysql_query($SQLQuery);
$RSList= mysql_fetch_array($result);
?> echo $RSList["poc"]/100; ?> |
PIano_total($RSList["ini"],$cmdPiParIni);
PIano_total($RSList["p1"],$cmdPiParCla);
PIano_total($RSList["pod"],$cmdPiParPod);
PIano_total($RSList["g1"],$cmdPiParGre);
PIano_total($RSList["pli"],$cmdPiParPli);
PIano_total($RSList["vmr"],$cmdPiParVmr);
?>
|
}
}
else
{
fxhead("Forix: ".$titulo[$N_DRIVS].", ".$titulo[$N_CHAMS]);
tab_ini();
tab_bar(4);
}
pi_sel($cabecalho,0);
tab_fim();
fxtail();
return $function_ret;
}
function PIfem()
{
extract($GLOBALS);
fxhead("Forix: ".$titulo[$N_WOMEN]);
$cabecalho=$titulo[$N_WOMEN];
$pi_nome="";
pi_cab($cabecalho);
$SQLQuery="SELECT pil.anos, pil.par, pil.cpais, pin.rpi, pin.nome as pi_nome, pin.apel, tpais.nome as pais FROM (pil inner join pin on pil.rpi=pin.rpi) inner join tpais on tpais.cod=pil.cpais where pil.sexo=1 and tpais.lin=".$lin." order by pin.apel";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
{
tab_bar(6);
tab_bor();
?>
echo $titulo[$N_NAME]; ?> |
echo $titulo[$N_CTRYS]; ?> |
echo $titulo[$N_PRES]; ?> |
$rpi=0;
$BGC=$TR2_BGC;
while ($RSList= mysql_fetch_array($result))
{
if ($BGC==$TR1_BGC)
{
$BGC=$TR2_BGC;
}
else
{
$BGC=$TR1_BGC;
}
?>
include("pi_nome.php");
?> echo $RSList["pais"]; ?> |
echo $RSList["anos"]; ?> |
&c= echo $cmdPiParIni; ?>"> echo $RSList["par"]; ?> |
}
?>
|
}
tab_fim();
fxtail();
return $function_ret;
}
function PIcla()
{
extract($GLOBALS);
$cabecalho=$titulo[$N_CLACS];
if (strlen($pi_nome)>0)
{
fxhead("Forix: ".$pi_nome.", ".$titulo[$N_CLACS]);
pi_cab($cabecalho);
tab_bar(4);
tab_bor();
$SQLQuery="SELECT picla.* FROM picla WHERE picla.rpi=".$rpi;
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
{
?>
echo $titulo[$N_CLA]; ?> |
echo $titulo[$N_RACE]; ?> |
echo $titulo[$N_GRID]; ?> |
echo $titulo[$N_FLA]; ?> |
$BGC=$TR2_BGC;
while ($RSList= mysql_fetch_array($result))
{
if ($BGC==$TR1_BGC)
{
$BGC=$TR2_BGC;
}
else
{
$BGC=$TR1_BGC;
}
?>
echo $RSList["pos"]; ?> |
if ($RSList["cla"]>0)
{
?>"> echo $RSList["cla"]; ?>
}
else
{
?>-
}
?> |
if ($RSList["gre"]>0)
{
?>"> echo $RSList["gre"]; ?>
}
else
{
?>-
}
?> |
if ($RSList["vmr"]>0)
{
?>
"> echo $RSList["vmr"]; ?>
}
else
{
?>-
}
?> |
}
?>
|
}
else
{
?> echo $titulo[$N_NCLA]; ?> |
}
}
else
{
fxhead("Forix: ".$titulo[$N_DRIVS].", ".$titulo[$N_CLACS]);
tab_ini();
tab_bar(4);
}
pi_sel($cabecalho,1);
tab_fim();
fxtail();
return $function_ret;
}
function PIcarreira()
{
extract($GLOBALS);
fxhead("Forix: ".$titulo[$N_DRIVS].", ".$titulo[$N_CAREE]);
$SQLQuery="SELECT texto.*, texto.ref as rpi, contactos.copynote, pin.nome as pi_nome FROM (texto inner join contactos on texto.autor=contactos.name) inner join pin on pin.rpi=texto.ref WHERE texto.cref=".$REF_PI." and texto.tipo=".$TXT_CAR." and texto.lin=".$lin." order by pin.apel";
if (($result = mysql_query($SQLQuery)) and mysql_num_rows($result) > 0)
{
tab_ini();
tab_bar(4);
?> echo $titulo[$N_DRIVS]; ?> |
echo $titulo[$N_CAREE]; ?> echo $RSlist["copynote"]; ?> |
tab_bar(6);
tab_bor();
?>
$rpi=0;
$BGC=$TR2_BGC;
while ($RSList= mysql_fetch_array($result))
{
if ($BGC==$TR1_BGC)
{
$BGC=$TR2_BGC;
}
else
{
$BGC=$TR1_BGC;
}
?>
include("pi_nome.php");
?>
}
?> |
}
tab_fim();
fxtail();
return $function_ret;
}
function seq_menu($c,$nome)
{
global $args, $cmd;
if ($cmd!=$c)
{
?> echo $nome; ?>
}
else
{
?> echo $nome; ?>
}
}
function PISeq()
{
extract($GLOBALS);
fxhead("Forix: ".$titulo[$N_DRIVS].": ".$titulo[$N_SEQS]);
$tipo=$cmd-intval($cmd/10)*10;
$SQLQuery="SELECT piseq.*, pin.nabr as pi_nome, pil.anos FROM (piseq INNER JOIN pin ON piseq.rpi= pin.rpi) inner join pil on piseq.rpi=pil.rpi WHERE piseq.tipo=".$tipo." order by piseq.cod";
$result = mysql_query($SQLQuery);
tab_ini();
tab_bar(4);
?> echo $titulo[$N_SEQS]; ?> |
echo SeqNome($cmd); ?> |
tab_bar(6);
tab_bor();
?> |
tab_bor();
?> |
seq_menu($cmdPISeqVit,$titulo[$N_WINS]);
seq_menu($cmdPISeqPol,$titulo[$N_POLES]);
seq_menu($cmdPISeqVmr,$titulo[$N_FLAPS]);
seq_menu($cmdPISeqPli,$titulo[$N_FROW]);
seq_menu($cmdPISeqPod,$titulo[$N_PODS]);
seq_menu($cmdPISeqPon,$titulo[$N_PONS]);
seq_menu($cmdPISeqGpk,$titulo[$N_GPLED]);
?> |
|
fxtail();
return $function_ret;
}
$rpi=intval(get_arg("r"));
$cmd=intval(get_arg("c"));
$abr=get_arg("a");
$npi="";
if ($rpi<=0)
{
if (post_arg("pi")!="")
{
$npi= trim(post_arg("pi"));
if (substr($npi,strlen($npi)-(1))!="?")
{
$rpi= PIref(str_replace("'","''",post_arg("pi")));
}
}
}
$pi_nome= PInome($rpi);
log_page($REF_PI,$rpi,$cmd);
if ($cmd==$cmdPIfic)
{
PIfic();
}
else
if ($cmd==$cmdPIano)
{
PIano();
}
else
if ($cmd==$cmdPIfem)
{
PIfem();
}
else
if ($cmd==$cmdPIcla)
{
PIcla();
}
else
if ($cmd==$cmdPIcrr)
{
PIcarreira();
}
else
if (intval($cmd/10)*10==$cmdPISeq)
{
PISeq();
}
else
if (intval($cmd/1000)*1000==$cmdStat)
{
PIstat();
}
else
if (intval($cmd/100)*100==$cmdPiIda)
{
PIida();
}
?>