$FechaHoy=date('Y-m-d');
$HoraHoy = date('H:i');
$Estacion=$cok["COKGlobal2"];
$AGECodigo = $cok["COKAgente"];
$MontoTotProduc=ObtenerUno("410OTB",$OSPLink1_OTB,"OTBMonto6","");
$OTBpapa=ObtenerUno("410OTB",$OSPLink1_OTB,"OTBLink1_OTB","");
$MontoProduc=ObtenerUno("410OTB",$OTBpapa,"OTBMonto6","");
for($i=0; $i < $CantProductos; $i++){
if($OSPCant1[$i] != '' AND $OSPCant1[$i] != 0){
//SI EL TIPO DE FLOTA ES Externo NO PASA POR EL WS EN CASO CONTRARIO SI
if($TipoFlota != 'Externo'){
$StatusOSP = 'Descargado';
$NomProduc=ObtenerUno("410TPR",$CodProdN2C[$i],"TPRLinea3","");
$CodProducGP=ObtenerUno("410TPR",$CodProdN2C[$i],"TPRNombre","");
$CodEstacOTB=ObtenerUno("410EST",$EstacionOTB,"ESTLinea1","");
$CodEstacUND=ObtenerUno("410EST",$EstacionUND,"ESTLinea1","");
//MIENTRAS TANTO QUE ESTA COMENTADO EL WS
$aRespuesta = '';
} else {
$StatusOSP = '';
}
//SI PASA EL TRUE O VIENE DE UN TIPO DE FLORA EXTERNO VIENE TODO LO QUE SIGUE
if($aRespuesta == 1 OR $TipoFlota == 'Externo'){
$ProdSiExito .= "\\n $NomProduc";
//Insertar en ORDENES SALIDA DE PRODUCTOS como Descargados
$queryOSP= "INSERT INTO 410OSP (OSPCodAgente,OSPLink1_OTB,OSPLink1_TPR,OSPFecha1,OSPHora1,OSPLink1_AGE,OSPCant1,OSPLink1_EST,OSPLink2_EST,OSPLista1)
VALUES ('$AGECodigo','$OSPLink1_OTB','$CodProdN2C[$i]','$FechaHoy','$HoraHoy','$AGECodigo','$OSPCant1[$i]','$EstacionOTB','$EstacionOTB','$StatusOSP')";
mysql_query($queryOSP);
$MontoUni =ObtenerUno("410TPR",$CodProdN2C[$i],"TPRMonto1","");
$MontoTotProduc = $MontoTotProduc + ($OSPCant1[$i] * $MontoUni);
$MontoProduc = $MontoProduc + ($OSPCant1[$i] * $MontoUni);
$pasa++;
}else if($TipoFlota != 'Externo'){
//SI NO PASA EL TRUE Y DA FALSE SE COLOCA EL MISMO INSERT DE ARRIBA PERO CON STATUS 'Pendiente' Y NO SE HACEN CALCULOS
//PARA EL CASO DE EXTERNO NO PASA
$ProdNoExito .= "\\n $NomProduc";
//Insertar en ORDENES SALIDA DE PRODUCTOS como Pendiente
$queryOSP= "INSERT INTO 410OSP (OSPCodAgente,OSPLink1_OTB,OSPLink1_TPR,OSPFecha1,OSPHora1,OSPLink1_AGE,OSPCant1,OSPLink1_EST,OSPLink2_EST,OSPLista1)
VALUES ('$AGECodigo','$OSPLink1_OTB','$CodProdN2C[$i]','$FechaHoy','$HoraHoy','$AGECodigo','$OSPCant1[$i]','$EstacionOTB','$EstacionOTB','Pendiente')";
mysql_query($queryOSP);
}
}
}
for($o=0; $o < $ContaPend; $o++){
if($PendOSPCant[$o] != '' AND $PendOSPCant[$o] != 0){
$NomProduc=ObtenerUno("410TPR",$PendCodProdN2C[$o],"TPRLinea3","");
$CodProducGP=ObtenerUno("410TPR",$PendCodProdN2C[$o],"TPRNombre","");
$CodEstacOTB=ObtenerUno("410EST",$EstacionOTB,"ESTLinea1","");
$CodEstacUND=ObtenerUno("410EST",$EstacionUND,"ESTLinea1","");
//LLAMADA AL WS
/*$aParametros = array('item_number' => "$CodProducGP",
'station_request' => "$CodEstacOTB",
'station_destination' => "$CodEstacUND",
'item_amount' => "$PendOSPCant[$o]",
'invREQbyItemNumberReturn' => ""
);
$aRespuesta = $oSoapClient->call('invREQbyItemNumber', $aParametros);*/
//MIENTRAS TANTO QUE ESTA COMENTADO EL WS
$aRespuesta = '';
if($aRespuesta){
$ProdSiExito .= "\\n $NomProduc";
//Actualizar ORDEN DE SALIDA PRODUCTO si el producto esta Pendiente
$queryOSP = "UPDATE 410OSP SET
OSPLista1 = 'Descargado',
OSPCant1 = '$PendOSPCant[$o]'
WHERE OSPCodigo='$CodOSPN2C[$o]'";
mysql_query($queryOSP);
$MontoUni =ObtenerUno("410TPR",$PendCodProdN2C[$o],"TPRMonto1","");
$MontoTotProduc = $MontoTotProduc + ($PendOSPCant[$o] * $MontoUni);
$MontoProduc = $MontoProduc + ($OSPCant1[$o] * $MontoUni);
$pasa++;
} else {
$ProdNoExito .= "\\n $NomProduc";
}
} else {
//ESTE ELSE ES PORQUE EL PRODUCTO VIENE PENDIENTE Y NO SE COLOCO CANTIDAD Y AHORA SE COLOCA EN STATUS 'Anulado' LA OSP
//Actualizar ORDEN DE SALIDA PRODUCTO si el producto esta Pendiente
$queryOSP = "UPDATE 410OSP SET
OSPLista1 = 'Anulado'
WHERE OSPCodigo='$CodOSPN2C[$o]'";
mysql_query($queryOSP);
}
}
$ProductosExternos =ObtenerUno("410OTB",$OSPLink1_OTB,"OTBBloque2","");
for($b=0; $b < $ContaBlo; $b++){
if($OSPCantBlo[$b] != '' AND $OSPCantBlo[$b] != 0){
$ProductosExternos .= $DescripcionProductoBlo[$b]."?".$OSPCantBlo[$b]."|";
$pasa++;
}
}
if($TipoFlota != 'Externo'){
if($pasa > 0){
//Actualizar ORDEN DE TRABAJO Monto de Productos y Productos Externos Descargados
$queryOTB = "UPDATE 410OTB SET
OTBMonto6 = '$MontoTotProduc',
OTBBloque2 = '$ProductosExternos'
WHERE OTBCodigo='$OSPLink1_OTB'";
$resultOTB = mysql_query($queryOTB);
if($OTBpapa != '' AND $OTBpapa != 0){
//Actualizar ORDEN DE TRABAJO PAPA Monto de Producto Total
$queryOTBpapa = "UPDATE 410OTB SET
OTBMonto6 = '$MontoProduc'
WHERE OTBCodigo='$OTBpapa'";
$resultOTBpapa = mysql_query($queryOTBpapa);
}
}
} else {
$queryOTB = "UPDATE 410OTB SET
OTBBloque2 = '$ProductosExternos'
WHERE OTBCodigo='$OSPLink1_OTB'";
$resultOTB = mysql_query($queryOTB);
}
if($TipoFlota == 'Externo'){
$Alerta1 = "PRODUCTO GUARDADO EXITOSAMENTE";
$Alerta2 = "";
} else {
if($ProdSiExito){
$Alerta1 = "DESCARGA EXITOSA para: $ProdSiExito";
if($ProdNoExito) $Alerta2 = "NO HAY LO SOLICITADO para: $ProdNoExito";
else $Alerta2 = "";
} else {
if($ProdNoExito){
$Alerta1 = "NO HAY LO SOLICITADO para: $ProdNoExito";
$Alerta2 = "";
} else {
$Alerta1 = "";
$Alerta2 = "";
}
}
}
?>