 |
Alarmas |
Fecha: - Hora: |
Nombre Cliente Juridico: ".$rowAR1[AR1Nombre];
//echo "
Email Cliente Juridico: ".$rowAR1[AR1Email1];
$EmailSinCtrJur .= ",".$rowAR1[AR1Email1];
}
if($rowCTR[CTRLink1_PER] != '' AND $rowCTR[CTRLink1_PER] != 0){
$CantPER=LeerStd($LecturaPER,"410PER","*","PERCodigo=$rowCTR[CTRLink1_PER]","","","","");
$rowPER= mysql_fetch_array($LecturaPER);
//echo "
Nombre Cliente Natural: ".$rowPER[PERNombre];
//echo "
Email Cliente Natural: ".$rowPER[PEREmail1];
$EmailSinCtrNat .= ",".$rowPER[PEREmail1];
}
}
//Ordenes Uso de Vehículos Vencidas
$ContarOAS=LeerStd($LecturaOAS,"410OAS,410UND","*","OASLink1_UND = UNDCodigo AND OASFecha2<'$FechaHoy2' AND OASFecha3 is Null AND OASLink1_UND!='0'","UNDLink1_EST,UNDLink1_SUB,OASFecha2 DESC","","","");
//Unidades con Placa Perdida
$ContarPlacas=LeerStd($LecturaSIN,"410SIN,410UND","*","SINLink1_UND=UNDCodigo AND SINFecha2='$FechaHoy2' AND SINLista1='Pérdida de Placa'","","","","");
//Unidades con más de xx xxx en reparación Mecánica
$FechaMenos7 = date("Y-m-d", strtotime("$FechaHoy2 -$dia1 day"));
$CantReparMeca=LeerStd($LecturaOTB,"410OTB,410UND","*","OTBLink1_UND=UNDCodigo AND OTBLista2='Reparación Mecánica' AND OTBFecha2<'$FechaMenos7'","UNDLink1_EST,UNDLink1_SUB,OTBFecha2","","","");
//Unidad con más de xx xxx en Mantenimiento Preventivo
$FechaAyer = date("Y-m-d", strtotime("$FechaHoy2 -1 day"));
$CantOTB=LeerStd($LecturaOTB,"410OTB,410UND","*","OTBLink1_UND=UNDCodigo AND OTBLista2='Mantenimiento Preventivo' AND OTBFecha2<'$FechaHoy2' AND OTBFecha5 is Null","UNDLink1_EST,UNDLink1_SUB,OTBFecha2","","","");
for ($j=0; $j<$CantOTB; $j++){
$rowOTB= mysql_fetch_array($LecturaOTB);
$Suma = $Hora+$rowOTB[OTBHora1]-10;
if ((($Suma>$dia2) AND ($rowOTB[OTBFecha2] == $FechaAyer)) OR $rowOTB[OTBFecha2] < $FechaAyer){
//echo "Hora: ".$Hora; echo "
";
//echo "Resta: ".$Resta; echo "
";
//echo "Hora OTB: ".$rowOTB[OTBHora1]; echo "
";
//echo "Unidad: ".$rowUND[UNDCodigo]; echo "
";
//echo "Tipo Reparación: ".$rowOTB[OTBLista2]; echo "
";
//echo "Fecha recepcion: ".$rowOTB[OTBFecha2]; echo "
";
$CantMantPrev++;
}
}
if ($CantMantPrev=='') $CantMantPrev=0;
//Ordenes de Trabajo por Evaluación
$CantRepEval=LeerStd($LecturaOTB,"410OTB,410UND","*","OTBLink1_UND=UNDCodigo AND OTBLista2='Evaluación' AND OTBFecha2<='$FechaHoy2'","UNDLink1_EST,UNDLink1_SUB,OTBFecha2","","","");
//Ordenes Lavado/Combustible con mas de xx xxx abiertas
$FechaAyerLC = date("Y-m-d", strtotime("$FechaHoy2 -$dia3 day"));
$CantLavCom=LeerStd($LecturaOAS,"410OAS,410UND","*","OASLink1_UND=UNDCodigo AND (OASLista1='Lavado' OR OASLista1='Combustible' OR OASLista1='Lavado y Combustible') AND OASFecha3 is Null AND OASFecha1<'$FechaAyerLC'","UNDLink1_EST,UNDLink1_SUB,OASFecha1","","","");
//Unidades Robadas
$ContarSinExtRobo=LeerStd($LecturaSIN,"410SIN,410UND","*","SINLink1_UND=UNDCodigo AND SINLista1='Extravío o Robo' AND SINFecha2='$FechaHoy2'","","","","");
//Ordenes de Trabajo con mas de xx xxx abiertas
$FechaOtbAbiertas = date("Y-m-d", strtotime("$FechaHoy2 -$dia4 day"));
$CantOtbAbiertas=LeerStd($LecturaOTB,"410OTB,410UND","*","OTBLink1_UND=UNDCodigo AND OTBFecha2 < '$FechaOtbAbiertas' AND OTBFecha5 is Null","UNDLink1_EST,UNDLink1_SUB,OTBFecha2","","","");
//Unidades Disponible con combustible < xxx
$ContarCombust=LeerStd($LecturaUND,"410UND","*","UNDLista8='Disponible' AND (UNDLista7<'$dia5' OR UNDLista7='Vacío')","","","","");
//Unidades del Grupo F usadas por Gerentes
$ContarGF=LeerStd($LecturaOAS,"410OAS,410UND,410AGE","*","OASLink1_UND=UNDCodigo AND AGECodigo = OASLink1_AGE AND UNDLista1='F' AND AGELista2='Amigos Rental Car' AND AGELinea4 LIKE 'Gerente%'","OASFecha1","","","");
//Autorizaciones Pagos Vencidas en Contratos
$ContarPAG=LeerStd($LecturaPAG,"410PAG,410CTR","*","PAGLink1_CTR = CTRCodigo AND PAGLista10 = 'Autorización de Garantía' AND PAGFecha2='$FechaHoy2'","","","","");
//Autorizaciones Pagos por Vencerse en Contratos
$ContarPAGv=LeerStd($LecturaPAG,"410PAG,410CTR","*","PAGLink1_CTR = CTRCodigo AND PAGLista10 = 'Autorización de Garantía' AND PAGFecha2>'$FechaHoy2'","","","","");
//Traslados Pendientes por Cierre
$ContarOTSPend=LeerStd($LecturaOTS,"410OTS,410UND","*","OTSLink1_UND = UNDCodigo AND (OTSFecha2 is Null OR OTSFecha2='0000-00-00')","","","","");
//Unidades por Confirmar en Lista de Espera
$CantListEsp=LeerStd($LecturaAR7,"410AR7","*","(AR7Lista3 LIKE 'LNP -%' OR AR7Lista3 LIKE 'LN -%') AND AR7Fecha4='$FechaHoy2' GROUP BY AR7Linea13","AR7Codigo DESC","","","");
//Empresas con Recorrido Mayor a xxxx
$FechaMesPasado = date("Y-m-d", strtotime("$FechaHoy2 -31 day"));
$CantCTR=LeerStd($LecturaCTR,"410CTR","*,Sum(CTRMonto7-CTRMonto1) as Total","CTRFecha2<='$FechaHoy2' AND CTRFecha1>'$FechaMesPasado' AND CTRLink1_AR1!='' GROUP BY CTRLink1_AR1","CTRLink1_AR1 ASC","","","");
for ($i=0; $i<$CantCTR; $i++){
$rowCTR= mysql_fetch_array($LecturaCTR);
if ($rowCTR[Total]>=$dia6){
$ContarKmtsMay++;
}
} if ($ContarKmtsMay=='')$ContarKmtsMay=0;
//Facturas Crédito con más de xx xxx y No Entregadas
$FechaFCT = date("Y-m-d", strtotime("$FechaHoy2 -$dia7 day"));
$ContarFctNoEnt=LeerStd($LecturaFCT,"410FCT","*","FCTLista1='Crédito' AND FCTFecha2<='$FechaFCT' AND (FCTFecha3 is Null OR FCTFecha3 ='0000-00-00') AND (FCTFecha1='0000-00-00' OR FCTFecha1 is Null)","","","","");
//Facturas Pendientes por Siniestralidad con más de xx xxx
$FechaFPS = date("Y-m-d", strtotime("$FechaHoy2 -$dia8 day"));
$ContarFacPenSin=LeerStd($LecturaFCT,"410FCT,410CTR,410SIN","*","FCTLink1_CTR=CTRCodigo AND CTRLink1_SIN = SINCodigo AND FCTLista1='Crédito' AND FCTFecha2<='$FechaFPS' AND CTRFecha2 != '' AND CTRFecha2 != '0000-00-00' AND (FCTFecha3 is Null OR FCTFecha3 ='0000-00-00') AND (FCTFecha1='0000-00-00' OR FCTFecha1 is Null)","","","","");
//Estaciones con % de Utilización de flota menor al xxx
$CantUND=LeerStd($LecturaUND,"410UND","*","UNDCodigo!='' GROUP BY UNDLink1_EST","UNDLink1_EST ASC","","","");
for ($i=0; $i<$CantUND; $i++){
$rowUND= mysql_fetch_array($LecturaUND);
$e=$rowUND[UNDLink1_EST];
$CantUND2=LeerStd($LecturaUND2,"410UND","*","UNDLink1_EST=$rowUND[UNDLink1_EST]","UNDLink1_SUB ASC","","","");
for ($j=0; $j<$CantUND2; $j++){
$rowUND2= mysql_fetch_array($LecturaUND2);
$CantCTR=LeerStd($LecturaCTR,"410CTR","*","CTRFecha2='$FechaHoy2' AND CTRLink1_UND=$rowUND2[UNDCodigo]","","","","");
for ($y=0; $y<$CantCTR; $y++){
$rowCTR= mysql_fetch_array($LecturaCTR);
if ($PreSubGrupo==$rowUND2[UNDLink1_SUB]){
$ReporteFlota[$e][1] = $rowUND2[UNDLink1_SUB];
$s=RestarFechas($rowCTR[CTRFecha1], $FechaHoy2);
$ReporteFlota[$e][2] = $ReporteFlota[$e][2]+$s;
$ReporteFlota[$e][3] = $FechaHoy2;
}else {
$ReporteFlota[$e][1] = $rowUND2[UNDLink1_SUB];
$s=RestarFechas($rowCTR[CTRFecha1], $FechaHoy2);
$ReporteFlota[$e][2] = $s;
$ReporteFlota[$e][3] = $FechaHoy2;
}
$PreSubGrupo = $rowUND2[UNDLink1_SUB];
}
}
}
for ($e=0; $e<$CantUND; $e++){
$Porcenta = ($ReporteFlota[$e][2]/30)*100;
if (($Porcenta<=$dia9) AND ($ReporteFlota[$e][1]=!'') AND ($ReporteFlota[$e][3]==$FechaHoy2)) {
//echo "Porcentaje: ".$Porcenta;
//echo "
Estación: ".$e;
//echo "
Subgrupo: ".$ReporteFlota[$e][1];
//echo "
Paso de 50 y su monto es: ".$ReporteFlota[$e][2];
//echo "
Fecha: ".$ReporteFlota[$e][3];
//echo "
";
$ContarEstFlot++;
}
}if ($ContarEstFlot=='')$ContarEstFlot=0;
/*$CantAGE=LeerStd($LecturaAGE,"050AGE","*","AGEMacroPerfil='Admin'","","","","ECHO");
if ($CantAGE==0) die("No se consiguió el sitio ");
for ($i=0; $i<$CantAGE; $i++){
$rowAGE= mysql_fetch_array($LecturaAGE);
}; */
//Leer permisos
$PerfilCompleto = $cok[COKAutorizacion];
$MatrizPerfiles = explode("-", $PerfilCompleto);
$Perfil = $MatrizPerfiles[0];
$CantALR=LeerStd($LecturaALR,"410ALR","*","","","","","");
?>
|