Conexion->Cerrar();
//________________________________________________________________________________________________________
?>
';
echo 'window.parent.resultado_Configurar(1)'.chr(13);
echo '';
}
else{
echo '';
}
?>
CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1);
$cmd->CreaParametro("@idtipoaccion",$identificador,1);
$cmd->CreaParametro("@cateaccion",$PROCESOS,1);
$cmd->CreaParametro("@ambito",$ambito,1);
$cmd->CreaParametro("@idambito",$idambito,1);
$cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0);
$cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
$cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
$cmd->CreaParametro("@idcentro",$idcentro,1);
$cmd->CreaParametro("@parametros","",0);
$cmd->CreaParametro("@descripcion","",0);
$cmd->CreaParametro("@idtarea",0,1);
$cmd->CreaParametro("@idprocedimiento",0,1);
$cmd->CreaParametro("@idcomando",0,1);
$parampar="";
$lparampar="";
$hdclean="";
$isizepart=0;
for($j=0;$j4)
$isizepart+=(int)($sizepart);
$accion=$cuadruparticion[3];
if($accion==2) $nemopar="H".$nemopar; // Particion oculta
if($particion<5)
$parampar.=$nemopar.":".$sizepart." ";
else
$lparampar.=$nemopar.":".$sizepart." ";
if($accion==1) $hdclean.=$particion.";"; // Formatear la partici�
}
if($isizepart>0) // Existen particiones extendidas
$parampar.="EXT:".$isizepart." ";
$parampar=substr($parampar,0,strlen($parampar)-1); // Quita el espacion final
if(strlen($lparampar)>0)
$lparampar=substr($lparampar,0,strlen($lparampar)-1); // Quita el espacion final
$hdclean=substr($hdclean,0,strlen($hdclean)-1); // Quita la coma final
$parametros=$ejecutor;
$parametros.="nfn=".$nombrefuncion.chr(13);
$parametros.="ppa=".$parampar.chr(13);
$parametros.="lpa=".$lparampar.chr(13);
$parametros.="hdc=".$hdclean.chr(13);
$parametros.="iph=".$cadenaip.chr(13);
$cmd->ParamSetValor("@parametros",$parametros);
return(CuestionAcciones($cmd,$shidra,$parametros));
}
?>