getError()) { echo "No se pudo realizar la operación [" . $sError . "]"; die(); }*/
$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($CantProdDevol[$i] != '' AND $CantProdDevol[$i] != 0){
$NomProduc=ObtenerUno("410TPR",$CodProdN2C[$i],"TPRLinea3","");
$CodProducGP=ObtenerUno("410TPR",$CodProdN2C[$i],"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' => "$CantProdDevol[$i]",
'invDEVbyItemNumberResponse' => ""
);
$aRespuesta = $oSoapClient->call('invDEVbyItemNumber', $aParametros);*/
//MIENTRAS TANTO QUE ESTA COMENTADO EL WS
$aRespuesta = '';
//SI PASA EL TRUE VIENE TODO LO QUE SIGUE
if($aRespuesta){
$ProdSiExito .= "\\n $NomProduc";
$CantDevAnt=ObtenerUno("410OSP",$CodOSPn2c[$i],"OSPCant2","");
$CantDevTot = $CantProdDevol[$i] + $CantDevAnt;
//Actualizar ORDENES SALIDA DE PRODUCTOS
$queryOSP = "UPDATE 410OSP SET
OSPFecha2 = '$FechaHoy',
OSPHora2 = '$HoraHoy',
OSPLink2_AGE = '$AGECodigo',
OSPCant2 = '$CantDevTot'
WHERE OSPCodigo='$CodOSPn2c[$i]'";
$resultOTB = mysql_query($queryOSP);
$MontoUni =ObtenerUno("410TPR",$CodProdN2C[$i],"TPRMonto1","");
$MontoTotProduc = $MontoTotProduc - ($CantProdDevol[$i] * $MontoUni);
$MontoProduc = $MontoProduc - ($CantProdDevol[$i] * $MontoUni);
$pasa++;
} else {
$ProdNoExito .= "\\n $NomProduc";
}
}
}
if($pasa > 0){
//Actualizar ORDEN DE TRABAJO Monto de Productos
$queryOTB = "UPDATE 410OTB SET
OTBMonto6 = '$MontoTotProduc'
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);
}
}
if($ProdSiExito){
$Alerta1 = "DEVOLUCION EXITOSA para: $ProdSiExito";
if($ProdNoExito) $Alerta2 = "NO SE HA DEVUELTO para: $ProdNoExito";
else $Alerta2 = "";
} else {
if($ProdNoExito){
$Alerta1 = "NO SE HA DEVUELTO: $ProdNoExito";
$Alerta2 = "";
} else {
$Alerta1 = "";
$Alerta2 = "";
}
}
echo "";
?>