=1) $neworsis="new"; else $neworsis="sis";
//---------------------------------- Lectura de la empresa ------------------------------------
$Empresa=$Codigo;
$aa="SELECT * FROM 701AR1 WHERE (AR1Codigo ='$Empresa')";
$LecturaA = mysql_query($aa);
$CantRegistrosA=mysql_num_rows($LecturaA);
if ($CantRegistrosA<1) die("No se consiguió empresa");
$rowA = mysql_fetch_array($LecturaA);
echo "Empresa: $rowA[AR1Codigo] $rowA[AR1Nombre]";
echo "
";
echo "| Dirección | Ciudad |
| $rowA[AR1Bloque1] | $rowA[AR1Lista1] |
";
echo "
";
//---------------------------------- Verificación del status ------------------------------------
echo "";
echo "| Proyecto |
Descripción |
Status |
Prob |
Valor |
Valor Esperado |
";
// Ir proyecto por proyecto
$Letras=array("A","B","C");
$CampoStatus=array("AR1Lista4","AR1Lista5","AR1Lista6");
$CampoDesc=array("AR1Bloque4","AR1Bloque5","AR1Bloque6");
$CampoProbabilidad=array("AR1Monto1","AR1Monto2","AR1Monto3");
$CampoValor=array("AR1Cant1","AR1Cant2","AR1Cant3");
for ($i=0; $i<3; $i++){
$xx=$CampoDesc[$i];
echo "| $Letras[$i] | $rowA[$xx] | ";
$dd="SELECT DISTINCT INTCodigo, INTNombre,INTLista3,INTLista4,INTLista5,INTFecha,
AR1Monto1,AR1Monto2,AR1Monto3,AR1Cant1,AR1Cant2,AR1Cant3,
INTBloque1,INTTipoInt,INTPersona FROM 700PER,701AR1,701INT
WHERE (INTTipoInt='Cambio Status' and INTLista3='$Letras[$i]' and
((INTEnlace1 ='$Empresa')or((PEREnlace1 ='$Empresa') and (INTPersona=PERCodigo))))
ORDER BY INTLista4 DESC LIMIT 1";
$LecturaD = mysql_query($dd);
$CantRegistrosD=mysql_num_rows($LecturaD);
if ($CantRegistrosD>0){
$rowD = mysql_fetch_array($LecturaD);
$Posicion=strpos($rowD[INTLista4]," a ")+3;
$StatusReal=substr($rowD[INTLista4],$Posicion);
//------------------------------- Actualizacion de la tabla -------------------------------------
$aa="UPDATE 701AR1 SET $CampoStatus[$i] ='$StatusReal' WHERE (AR1Codigo='$Empresa')";
$busqueda = mysql_query($aa);
echo "$StatusReal | ";
}else echo "--- | ";
$xxp=$CampoProbabilidad[$i];
$xxv=$CampoValor[$i];
$ValorEsperado=number_format($rowA[$xxp]*$rowA[$xxv],0,",",".");
$xxv=number_format($rowA[$xxv],0,",",".");
echo "$rowA[$xxp] |
$xxv |
$ValorEsperado |
";
};
echo "
";
//---------------------------------- Lectura de los contactos ------------------------------------
$cc="SELECT * FROM 700PER WHERE PEREnlace1='$Empresa'";
$LecturaC = mysql_query($cc);
if (!$LecturaC) die("Falla lectura");
$CantRegistrosC=mysql_num_rows($LecturaC);
echo "CONTACTOS";
echo "
";
echo "| Nombre |
Email |
Tel Ofic |
Tel Hab |
Tel Movil |
Observaciones |
Interacc |
";
for ($i=0; $i<$CantRegistrosC; $i++){
$rowC = mysql_fetch_array($LecturaC);
echo "| $rowC[PERNombre] |
$rowC[PEREmail1] |
$rowC[PERTel1] |
$rowC[PERTel2] |
$rowC[PERTel3] |
$rowC[PERBloque2] |
Añadir |
";
};
echo "
";
//---------------------------------- Lectura de las interacciones ------------------------------------
echo "INTERACCIONES";
$bb="SELECT DISTINCT INTCodigo, INTNombre,INTLista3,INTLista4,INTLista5,INTFecha,INTHora,INTBloque1,INTTipoInt,INTPersona FROM 700PER,701AR1,701INT
WHERE ((INTEnlace1 ='$Empresa')or((PEREnlace1 ='$Empresa') and (INTPersona=PERCodigo)))
ORDER BY INTFecha DESC, INTHora DESC";
$LecturaB = mysql_query($bb);
$CantRegistrosB=mysql_num_rows($LecturaB);
if ($CantRegistrosB<1)
echo"
No Tiene Interacciones
";
else{
echo "";
echo "
| Nro Int |
Fecha |
Hora |
Proyecto |
Contacto |
Tipo Int |
Resumen |
Detalles |
";
};
for ($i=0; $i<$CantRegistrosB; $i++){
$rowB = mysql_fetch_array($LecturaB);
// Leer el responsable
$cc="SELECT PERNombre FROM 700PER WHERE PERCodigo='$rowB[INTPersona]'";
$LecturaC = mysql_query($cc);
if (!$LecturaC) $Contacto="";
else {
$rowC = mysql_fetch_array($LecturaC);
$Contacto=$rowC[PERNombre];
};
$colordefondo="papayawhip";
if ($rowB[INTTipoInt]=='Cambio Status'){
$Detalles=$rowB[INTLista4].":".$rowB[INTLista5];
$colordefondo="wheat";
}else $Detalles=$rowB[INTBloque1];
$aaHora=substr($rowB[INTHora],0,5);
echo "
| Ver |
$rowB[INTFecha] |
$aaHora |
$rowB[INTLista3] |
$Contacto |
$rowB[INTTipoInt] |
$rowB[INTNombre] |
$Detalles |
";
};
echo "
";
?>