/*
FUNNEL DE VENTAS. SE LISTAN LAS EMPRESAS EN CADA UNO DE LOS STATUS
PENDIENTE: Cambiar el status en AR1 y dividir por proyectos
*/
die ("Programa en proceso de actualizacion");
//==================================== PRIMERA PARTE ==================================
/* En esta primera parte se actualizan los status de cada uno de los proyectos
*/
//---------------------------------- Leer empresas ------------------------------------
$aa="SELECT * FROM 700AR1";
$LecturaA = mysql_query($aa);
$CantRegistrosA=mysql_num_rows($LecturaA);
if ($CantRegistrosA<1) die("No se consiguieron empresas");
//echo "CantRegistrosA:$CantRegistrosA
";
for ($i=0; $i<$CantRegistrosA; $i++){
$rowA = mysql_fetch_array($LecturaA);
$Empresa=$rowA[AR1Codigo];
//echo "Empresa:$Empresa-$rowA[AR1Nombre]
";
//---------------------------------- Actualización del status ------------------------------------
// 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");
//---------------------------------- Ir proyecto por proyecto ------------------------------------
for ($j=0; $j<3; $j++){
$dd="SELECT DISTINCT INTCodigo, INTNombre,INTLista3,INTLista4,AR1Nombre,
INTBloque1,INTTipoInt,INTPersona FROM 700PER,700AR1,701INT
WHERE (INTTipoInt='Cambio Status' and INTLista3='$Letras[$j]' and
((INTEnlace1 ='$Empresa')or((PEREnlace1 ='$Empresa') and (INTPersona=PERCodigo))))
ORDER BY INTLista4 DESC LIMIT 1";
$LecturaD = mysql_query($dd);
$CantRegistrosD=mysql_num_rows($LecturaD);
//echo "$dd
CantRegistrosD:$CantRegistrosD
";
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 700AR1 SET $CampoStatus[$j] ='$StatusReal' WHERE (AR1Codigo='$Empresa')";
//echo "Cambio status:$rowD[AR1Nombre]
";
//echo "$aa
";
$busqueda = mysql_query($aa);
//echo "StatusReal:$StatusReal
";
};
};
};
//==================================== SEGUNDA PARTE ==================================
/* En esta segunda parte se van revisando todas las empresa guardando en un arreglo el status
*/
echo "
SEGUNDA PARTE
";
$aa="SELECT * FROM 700AR1";
$LecturaA = mysql_query($aa);
$CantRegistrosA=mysql_num_rows($LecturaA);
if ($CantRegistrosA<1) die("No se consiguieron empresas");
//echo "CantRegistrosA:$CantRegistrosA
";
for ($i=0; $i<$CantRegistrosA; $i++){
$rowA = mysql_fetch_array($LecturaA);
$Empresa=$rowA[AR1Codigo];
$Nombre=$rowA[AR1Nombre] ;
$StatA=$rowA[AR1Lista4];
$StatB=$rowA[AR1Lista5];
$StatC=$rowA[AR1Lista6];
//echo "Empresa:$Empresa-$rowA[AR1Nombre]-$StatA-$StatB-$StatC
";
if ($StatA!="" & $StatA!="---") {
$Status[$StatA][]="$rowA[AR1Nombre](A)";
$Prob[$StatA][]=$rowA[AR1Monto1];
$Valor[$StatA][]=$rowA[AR1Cant1];
};
if ($StatB!="" & $StatB!="---") {
$Status[$StatB][]="$rowA[AR1Nombre](B)";
$Prob[$StatB][]=$rowA[AR1Monto2];
$Valor[$StatB][]=$rowA[AR1Cant2];
};
if ($StatB!="" & $StatC!="---") {
$Status[$StatC][]="$rowA[AR1Nombre](C)";
$Prob[$StatC][]=$rowA[AR1Monto3];
$Valor[$StatC][]=$rowA[AR1Cant3];
};
};
$TablaStatus=array("01-Prospecto","02-Invest Inic","03-Prep Propuesta","04-Espera Aprob","05-Negociación",
"06-Pre-Arranque","07-Proyecto","08-Operación","09-Cierre","10-Cancelado");
echo "EMBUDO DE VENTAS
";
echo "";
echo "| Fase |
| Total |
";
for ($i=0; $i<9; $i++){
$Stat=$TablaStatus[$i];
echo "| $Stat | ";
$TotJ=0;
for ($j=0; $j
";
$a=$Status[$Stat][$j];
$b=$Valor[$Stat][$j];
$c=$Prob[$Stat][$j];
$d=$b*$c;
$TotJ+=$d;
$b=number_format($b,0,",",".");
$c=number_format($c,2,",",".");
$d=number_format($d,0,",",".");
echo "| $a | $b | $c | $d | |
";
};
echo "$TotJ | ";
};
echo "";
?>