<?php
	session_start();
	if(!array_key_exists("la_logusr",$_SESSION))
	{
		print "<script language=JavaScript>";
		print "close();";
		print "opener.document.formulario.submit();";
		print "</script>";		
	}
    require_once("class_folder/class_funciones_soc.php");
	$io_funciones_soc=new class_funciones_soc();
	$ls_tipsol=$io_funciones_soc->uf_obtenervalor_get("tipsol",""); 
	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_select_tipo()
   	{
		//////////////////////////////////////////////////////////////////////////////
		//	   Function: uf_print
		//	  Arguments: 
		//	Description: Función que obtiene e imprime los tipos de articulos
		//////////////////////////////////////////////////////////////////////////////
		global $io_fun_soc;
		require_once("../shared/class_folder/sigesp_include.php");
		$io_include=new sigesp_include();
		$io_conexion=$io_include->uf_conectar();
		require_once("../shared/class_folder/class_sql.php");
		$io_sql=new class_sql($io_conexion);	
		require_once("../shared/class_folder/class_mensajes.php");
		$io_mensajes=new class_mensajes();		
		require_once("../shared/class_folder/class_funciones.php");
		$io_funciones=new class_funciones();		
        $ls_codemp=$_SESSION["la_empresa"]["codemp"];
		print "<select name='cmbcodtipart' id='cmbcodtipart' style='width:150px'> ";
		print "		<option value='' selected>---seleccione---</option> ";
		$ls_sql="SELECT codtipart, dentipart ".
		        "  FROM siv_tipoarticulo ".
				" ORDER BY codtipart ASC"; 
		$rs_data=$io_sql->select($ls_sql);
		if($rs_data===false)
		{
        	$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message)); 
		}
		else
		{
			while($row=$io_sql->fetch_row($rs_data))
			{
				$ls_codtipart=$row["codtipart"];
				$ls_dentipart=$row["dentipart"];
		  	    print "<option value='$ls_codtipart'>".$ls_dentipart."</option>";
			}
			$io_sql->free_result($rs_data);
		}
		print "</select>";
		unset($io_include);
		unset($io_conexion);
		unset($io_sql);
		unset($io_mensajes);
		unset($io_funciones);
		unset($ls_codemp);
	}
	//-----------------------------------------------------------------------------------------------------------------------------------
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Cat&aacute;logo de Bienes y Materiales</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link {
	color: #006699;
}
a:visited {
	color: #006699;
}
a:active {
	color: #006699;
}
-->
</style>
<link href="../shared/css/ventanas.css" rel="stylesheet" type="text/css">
<link href="../shared/css/general.css" rel="stylesheet" type="text/css">
<link href="../shared/css/tablas.css" rel="stylesheet" type="text/css">
</head>
<script type="text/javascript" language="JavaScript1.2" src="js/funcion_soc.js"></script>
<script type="text/javascript" language="JavaScript1.2" src="../shared/js/disabled_keys.js"></script>
<body>
<form name="formulario" method="post" action="">
<br>
    <table width="500" border="0" align="center" cellpadding="1" cellspacing="0" class="formato-blanco">
      <tr>
        <td height="22" colspan="2" class="titulo-celda"><input name="campoorden" type="hidden" id="campoorden" value="codart">
        Cat&aacute;logo de Bienes y Materiales 
        <input name="orden" type="hidden" id="orden" value="ASC"></td>
      </tr>
      <tr>
        <td height="15"><span class="titulo-celda">
          <input name="tipsol" type="hidden" id="tipsol" value="<?php print $ls_tipsol; ?>">
        </span></td>
        <td height="15">&nbsp;</td>
      </tr>
      <tr>
        <td width="82" height="22"><div align="right">C&oacute;digo</div></td>
        <td width="412" height="22"><div align="left">
          <input name="txtcodart" type="text" id="txtcodart" onKeyPress="javascript: ue_mostrar(this,event);">        
        </div></td>
      </tr>
      <tr>
        <td height="22"><div align="right">Denominaci&oacute;n</div></td>
        <td height="22"><input name="txtdenart" type="text" id="nombre" onKeyPress="javascript: ue_mostrar(this,event);" size="70">      </td>
      </tr>
      <tr>
        <td height="22"><div align="right">Tipo </div></td>
        <td height="22"><div align="left">
          <?php uf_select_tipo(); ?>
        </div></td>
      </tr>
	  <tr>
        <td height="22" colspan="2"><div align="right"><a href="javascript: ue_search();"><img src="../shared/imagebank/tools20/buscar.gif" alt="Buscar" width="20" height="20" border="0"> Buscar</a><a href="javascript: ue_close();"> <img src="../shared/imagebank/eliminar.gif" width="15" height="15" class="sin-borde">Cerrar</a></div></td>
	  </tr>
	</table> 
	<p>
  <div id="resultados" align="center"></div>	
	</p>
<input name="estartgen" type="hidden" id="estartgen" value="0">
<input name="codartpri" type="hidden" id="codartpri" value="--------------------">
</form>      
</body>
<script language="JavaScript">
function ue_search()
{
	f=document.formulario;
	// Cargamos las variables para pasarlas al AJAX
	ls_tipo=opener.document.formulario.tipo.value;
	if((ls_tipo=="REPDES")||(ls_tipo=="REPHAS"))
	{
		codestpro1="";
		codestpro2="";
		codestpro3="";
		codestpro4="";
		codestpro5="";
		ls_estcla=""; 
	}
	else
	{
		codestpro1 = opener.document.formulario.txtcodestpro1.value;
		codestpro2 = opener.document.formulario.txtcodestpro2.value;
		codestpro3 = opener.document.formulario.txtcodestpro3.value;
		codestpro4 = opener.document.formulario.txtcodestpro4.value;
		codestpro5 = opener.document.formulario.txtcodestpro5.value;
		ls_estcla  = opener.document.formulario.hidestcla.value;
	    
		if (opener.document.formulario.id=='orden_compra')
		   {
			 if (opener.document.formulario.radiotipbieordcom[0].checked==true)
			    {
				  ls_tipbie = opener.document.formulario.radiotipbieordcom[0].value;
				}
			 else
			    {
				  if (opener.document.formulario.radiotipbieordcom[1].checked==true)
					 { 
					   ls_tipbie = opener.document.formulario.radiotipbieordcom[1].value;
					 }
			      else
				    {
					  ls_tipbie = "-";//Se manejarán los Materiales/Sumistros y Activos en una orden compra.
					}
				}		   
		   }
		else
		   {
			 if (opener.document.formulario.radiotipbiesol[0].checked==true)
			    {
				  ls_tipbie = opener.document.formulario.radiotipbiesol[0].value;
				}
			 else
			    {
				  if (opener.document.formulario.radiotipbiesol[1].checked==true)
					 { 
					   ls_tipbie = opener.document.formulario.radiotipbiesol[1].value;
					 }
			      else
				    {
					  ls_tipbie = "-";//Se manejarán los Materiales/Sumistros y Activos en una Solicitud de Cotización.
					}
			    }		   
		   }
	}	
	codart       = f.txtcodart.value;
	denart       = f.txtdenart.value;
	codtipart    = f.cmbcodtipart.value;
	orden        = f.orden.value;
	campoorden   = f.campoorden.value;
	estartgen = f.estartgen.value;
	codartpri = f.codartpri.value;
	if(ls_tipo=="REPDES")
	{
		ls_codunieje = opener.document.formulario.txtcoduniejedes.value;
		ls_tipbie = "-";
	}
	else if (ls_tipo=="REPHAS")
	{
		ls_codunieje = opener.document.formulario.txtcoduniejehas.value;
		ls_tipbie = "-";
	}
	else
	{
		ls_codunieje = opener.document.formulario.txtcodunieje.value;
	}
	// Div donde se van a cargar los resultados
	divgrid = document.getElementById('resultados');
	// Instancia del Objeto AJAX
	ajax=objetoAjax();
	// Pagina donde están los métodos para buscar y pintar los resultados
	ajax.open("POST","class_folder/sigesp_soc_c_catalogo_ajax.php",true);
	ajax.onreadystatechange=function(){
		if(ajax.readyState==1)
		{
			divgrid.innerHTML = "<img src='imagenes/loading.gif' width='350' height='200'>";
		}
		else
		{
			if(ajax.readyState==4)
			{
				if(ajax.status==200)
				{//mostramos los datos dentro del contenedor
					divgrid.innerHTML = ajax.responseText;
				}
				else
				{
					if(ajax.status==404)
					{
						divgrid.innerHTML = "La página no existe";
					}
					else
					{//mostramos el posible error     
						divgrid.innerHTML = "Error:".ajax.status;
					}
				}
			}
		}
	}	
	ajax.setRequestHeader("Content-Type","application/x-www-form-urlencoded"); 
   ajax.setRequestHeader("X-Requested-With", "XMLHttpRequest");
	// Enviar todos los campos a la pagina para que haga el procesamiento
	ajax.send("catalogo=BIENES&codart="+codart+"&denart="+denart+"&codtipart="+codtipart+"&codestpro1="+codestpro1+
			  "&codestpro2="+codestpro2+"&codestpro3="+codestpro3+"&codestpro4="+codestpro4+"&codestpro5="+codestpro5+"&hidestcla="+ls_estcla+
			  "&orden="+orden+"&campoorden="+campoorden+"&tipo="+ls_tipo+"&codunieje="+ls_codunieje+"&tipbiesol="+ls_tipbie+
			  "&estartgen="+estartgen+"&codartpri="+codartpri);
}

function ue_aceptar_bienes_solicitud_cotizacion(as_codart,as_denart,ad_mondiscta)
{   
	//---------------------------------------------------------------------------------
	// Verificamos que el artículo no esté en el formulario
	//---------------------------------------------------------------------------------
	valido = true;
	li_valdispre = "<?php print $_SESSION["la_empresa"]["estparsindis"] ?>";//Validar disponibilidad Presupuestaria.
	li_estmodest= <?php print $_SESSION["la_empresa"]["estmodest"]?>;
	li_loncodestpro1 = <?php print $_SESSION["la_empresa"]["loncodestpro1"]?>;
	li_loncodestpro2 = <?php print $_SESSION["la_empresa"]["loncodestpro2"]?>;
	li_loncodestpro3 = <?php print $_SESSION["la_empresa"]["loncodestpro3"]?>;
	li_loncodestpro4 = <?php print $_SESSION["la_empresa"]["loncodestpro4"]?>;
	li_loncodestpro5 = <?php print $_SESSION["la_empresa"]["loncodestpro5"]?>;
	ls_codestpro1 = opener.document.formulario.txtcodestpro1.value;
	ls_codestpro2 = opener.document.formulario.txtcodestpro2.value;
	ls_codestpro3 = opener.document.formulario.txtcodestpro3.value;
	ls_codestpro4 = opener.document.formulario.txtcodestpro4.value;
	ls_codestpro5 = opener.document.formulario.txtcodestpro5.value;
    if(li_estmodest==1){
        ls_codestpromen = ls_codestpro1.substr(25-li_loncodestpro1)+"-"+ls_codestpro2.substr(25-li_loncodestpro2)+"-"+ls_codestpro3.substr(25-li_loncodestpro3);
	}
    else{
    	ls_codestpromen = ls_codestpro1.substr(25-li_loncodestpro1)+"-"+ls_codestpro2.substr(25-li_loncodestpro2)+"-"+ls_codestpro3.substr(25-li_loncodestpro3)+"-"+ls_codestpro4.substr(25-li_loncodestpro4)+"-"+ls_codestpro5.substr(25-li_loncodestpro5);
	}

	if (li_valdispre==1 && ad_mondiscta<=0){
	     alert("No hay Disponibilidad en la Estructura "+ls_codestpromen+", Partida "+as_spg_cuenta+"  asociada al Item");
		 valido = false;
	}
		
	li_totrowbienes = ue_calcular_total_fila_opener("txtcodart");
	opener.document.formulario.totrowbienes.value = li_totrowbienes;
	for (j=1;(j<=li_totrowbienes)&&(valido);j++)
	    {
		  codartgrid=eval("opener.document.formulario.txtcodart"+j+".value");
		  if (codartgrid==as_codart)
		     {
			   alert("El Artículo ya está en la solicitud !!!");
			   valido=false;
		     }
	    }
    parametros="";
	for (j=1;(j<li_totrowbienes)&&(valido);j++)
	    { 
		  ls_codart    = eval("opener.document.formulario.txtcodart"+j+".value");
		  ls_denart    = eval("opener.document.formulario.txtdenart"+j+".value");
	      ld_canart    = eval("opener.document.formulario.txtcanart"+j+".value");
		  ls_numsep    = eval("opener.document.formulario.hidnumsep"+j+".value");
		  ls_codunieje = eval("opener.document.formulario.hidcodunieje"+j+".value");
		  ls_codestpro = eval("opener.document.formulario.hidcodestpro"+j+".value");
		  ls_estcla    = eval("opener.document.formulario.estcla"+j+".value");
		  parametros = parametros+"&txtcodart"+j+"="+ls_codart+"&txtdenart"+j+"="+ls_denart+"&txtcanart"+j+"="+ld_canart+"&hidnumsep"+j+"="+ls_numsep+"&hidcodunieje"+j+"="+ls_codunieje+"&hidcodestpro"+j+"="+ls_codestpro+"&estcla"+j+"="+ls_estcla;
		} 
   	totalbienes = eval(li_totrowbienes+"+1");
    ls_codunieje  = opener.document.formulario.txtcodunieje.value;
	ls_codestpro  = ls_codestpro1+ls_codestpro2+ls_codestpro3+ls_codestpro4+ls_codestpro5;
	ls_estcla     = opener.document.formulario.hidestcla.value;
	parametros    = parametros+"&txtcodart"+li_totrowbienes+"="+as_codart+"&txtdenart"+li_totrowbienes+"="+as_denart+"&txtcanart"+li_totrowbienes+"=0,00"+"&totalbienes="+totalbienes+"&hidcodunieje"+li_totrowbienes+"="+ls_codunieje+"&hidcodestpro"+li_totrowbienes+"="+ls_codestpro+"&estcla"+li_totrowbienes+"="+ls_estcla;	

	//--------------------------------------------------------------------------
	// Incorporamos los detalles existentes de los proveedores en el formulario
	//--------------------------------------------------------------------------
	total=ue_calcular_total_fila_opener("txtcodpro");
	opener.document.formulario.totrowproveedores.value=total;
	rowproveedores = opener.document.formulario.totrowproveedores.value;
	for(j=1;(j<=rowproveedores)&&(valido);j++)
	{ 
		codpro     = eval("opener.document.formulario.txtcodpro"+j+".value");
		nompro     = eval("opener.document.formulario.txtnompro"+j+".value");
		dirpro     = eval("opener.document.formulario.txtdirpro"+j+".value");
		telpro     = eval("opener.document.formulario.txttelpro"+j+".value");
		parametros = parametros+"&txtcodpro"+j+"="+codpro+"&txtnompro"+j+"="+nompro+"&txtdirpro"+j+"="+dirpro+"&txttelpro"+j+"="+telpro;
	}
	parametros = parametros+"&totalproveedores="+rowproveedores;

	//--------------------------------------------------------------------------
	// Incorporamos los detalles existentes de las SEP en el formulario
	//--------------------------------------------------------------------------
	li_totrowsep = ue_calcular_total_fila_opener("txtnumsep");
	opener.document.formulario.totrowsep.value = li_totrowsep;
	for(j=1;(j<=li_totrowsep)&&(valido);j++)
	{ 
		ls_numsep = eval("opener.document.formulario.txtnumsep"+j+".value");
		ls_densep = eval("opener.document.formulario.txtdensep"+j+".value");
		ld_monsep = eval("opener.document.formulario.txtmonsep"+j+".value");
		ls_unieje = eval("opener.document.formulario.txtunieje"+j+".value");
        ls_denuni = eval("opener.document.formulario.txtdenuni"+j+".value");
		
		parametros = parametros+"&txtnumsep"+j+"="+ls_numsep+"&txtdensep"+j+"="+ls_densep+"&txtmonsep"+j+"="+ld_monsep+"&txtunieje"+j+"="+ls_unieje+"&txtdenuni"+j+"="+ls_denuni;
	}
	parametros = parametros+"&totalsep="+li_totrowsep;
	
	if ((parametros!="")&&(valido))
	   {
		// Div donde se van a cargar los resultados
		divgrid = opener.document.getElementById("bienesservicios");
		// Instancia del Objeto AJAX
		ajax=objetoAjax();
		// Pagina donde están los métodos para buscar y pintar los resultados
		ajax.open("POST","class_folder/sigesp_soc_c_solicitud_cotizacion_ajax.php",true);
		ajax.onreadystatechange=function(){
		if (ajax.readyState==1)
			{
				divgrid.innerHTML = "<img src='imagenes/loading.gif' width='350' height='200'>";
			}
		else
			{
			  if (ajax.readyState==4)
				 {
				   if (ajax.status==200)
					  {//mostramos los datos dentro del contenedor
					    divgrid.innerHTML = ajax.responseText
					  }
				   else
					  {
						if (ajax.status==404)
						   {
							 divgrid.innerHTML = "La página no existe";
					 	   }
						else
						   {//mostramos el posible error     
							 divgrid.innerHTML = "Error:".ajax.status;
						   }
					  }
					
				 }
			}
		}	
		ajax.setRequestHeader("Content-Type","application/x-www-form-urlencoded"); 
   ajax.setRequestHeader("X-Requested-With", "XMLHttpRequest");
		// Enviar todos los campos a la pagina para que haga el procesamiento
		ajax.send("proceso=AGREGARBIENES"+parametros);
		opener.document.formulario.totrowbienes.value=totalbienes;
        }
}

function ue_aceptar_bienes_orden_compra(as_codart,as_denart,as_unidad,as_spg_cuenta,ai_precio,ai_totalcargos,ai_existecuenta,ad_mondiscta)
{
	//---------------------------------------------------------------------------------
	// Verificamos que el artículo no esté en el formulario
	//---------------------------------------------------------------------------------
	valido = true;
	li_valdispre = "<?php print $_SESSION["la_empresa"]["estparsindis"] ?>";//Validar disponibilidad Presupuestaria.
	li_estmodest= <?php print $_SESSION["la_empresa"]["estmodest"]?>;
	li_loncodestpro1 = <?php print $_SESSION["la_empresa"]["loncodestpro1"]?>;
	li_loncodestpro2 = <?php print $_SESSION["la_empresa"]["loncodestpro2"]?>;
	li_loncodestpro3 = <?php print $_SESSION["la_empresa"]["loncodestpro3"]?>;
	li_loncodestpro4 = <?php print $_SESSION["la_empresa"]["loncodestpro4"]?>;
	li_loncodestpro5 = <?php print $_SESSION["la_empresa"]["loncodestpro5"]?>;
	ls_codestpro1 = opener.document.formulario.txtcodestpro1.value;
	ls_codestpro2 = opener.document.formulario.txtcodestpro2.value;
	ls_codestpro3 = opener.document.formulario.txtcodestpro3.value;
	ls_codestpro4 = opener.document.formulario.txtcodestpro4.value;
	ls_codestpro5 = opener.document.formulario.txtcodestpro5.value;

    if(li_estmodest==1){
        ls_codestpromen = ls_codestpro1.substr(25-li_loncodestpro1)+"-"+ls_codestpro2.substr(25-li_loncodestpro2)+"-"+ls_codestpro3.substr(25-li_loncodestpro3);
	}
    else{
    	ls_codestpromen = ls_codestpro1.substr(25-li_loncodestpro1)+"-"+ls_codestpro2.substr(25-li_loncodestpro2)+"-"+ls_codestpro3.substr(25-li_loncodestpro3)+"-"+ls_codestpro4.substr(25-li_loncodestpro4)+"-"+ls_codestpro5.substr(25-li_loncodestpro5);
	}
    
	if (li_valdispre==1 && ad_mondiscta<=0){
		alert("No hay Disponibilidad en la Estructura "+ls_codestpromen+", Partida "+as_spg_cuenta+"  asociada al Item");
		 valido = false;
	}
	total=ue_calcular_total_fila_opener("txtcodart");
	tipsol=document.formulario.tipsol;
	opener.document.formulario.totrowbienes.value=total;
	ls_tipsol  = opener.document.formulario.txttipsol.value;
	rowbienes=opener.document.formulario.totrowbienes.value;
	ls_coduniadm  = opener.document.formulario.txtcodunieje.value;
	ls_denuniadm  = opener.document.formulario.txtdenunieje.value;
	ls_estclauni  = opener.document.formulario.hidestcla.value; 
	ls_codestpre  = ls_codestpro1+ls_codestpro2+ls_codestpro3+ls_codestpro4+ls_codestpro5; 
	for(j=1;(j<=rowbienes)&&(valido);j++)
	{
		codartgrid=eval("opener.document.formulario.txtcodart"+j+".value");
		if(codartgrid==as_codart)
		{
			alert("El Artículo ya existe en esta Orden de Compra !!!");
			valido=false;
			
		}
	}
	//---------------------------------------------------------------------------------
	// Cargar los Bienes del opener y el seleccionado
	//---------------------------------------------------------------------------------
	parametros="";
	for(j=1;(j<=rowbienes)&&(valido);j++)
	{
		codart		 = eval("opener.document.formulario.txtcodart"+j+".value");
		denart		 = eval("opener.document.formulario.txtdenart"+j+".value");
		canart		 = eval("opener.document.formulario.txtcanart"+j+".value");
		unidad		 = eval("opener.document.formulario.cmbunidad"+j+".value");
		preart		 = eval("opener.document.formulario.txtpreart"+j+".value");
		subtotart    = eval("opener.document.formulario.txtsubtotart"+j+".value");
		carart       = eval("opener.document.formulario.txtcarart"+j+".value");
		totart       = eval("opener.document.formulario.txttotart"+j+".value");
		spgcuenta    = eval("opener.document.formulario.txtspgcuenta"+j+".value");
		unidadfisica = eval("opener.document.formulario.txtunidad"+j+".value");
		ls_codunieje = eval("opener.document.formulario.txtcoduniadmsep"+j+".value");
		ls_denunieje = eval("opener.document.formulario.txtdenuniadmsep"+j+".value");
		ls_codestpro = eval("opener.document.formulario.hidcodestpro"+j+".value");
		ls_estcla    = eval("opener.document.formulario.estcla"+j+".value");
		ls_numsep    = eval("opener.document.formulario.txtnumsolord"+j+".value");
	   
	    if(ls_tipsol=='SOC')
		{
		   ls_codunieje='';
		}
		parametros=parametros+"&txtcodart"+j+"="+codart+"&txtdenart"+j+"="+denart+""+
				   "&txtcanart"+j+"="+canart+"&cmbunidad"+j+"="+unidad+""+
				   "&txtpreart"+j+"="+preart+"&txtsubtotart"+j+"="+subtotart+""+
				   "&txtcarart"+j+"="+carart+"&txttotart"+j+"="+totart+""+
				   "&txtspgcuenta"+j+"="+spgcuenta+"&txtunidad"+j+"="+unidadfisica+"&txtdenuniadmsep"+j+"="+ls_denunieje+""+
				   "&txtnumsolord"+j+"="+ls_numsep+"&txtcoduniadmsep"+j+"="+ls_codunieje+""+
				   "&hidcodestpro"+j+"="+ls_codestpro+"&estcla"+j+"="+ls_estcla;
	}
	totalbienes=eval(rowbienes+"+1");
	parametros=parametros+"&txtcodart"+rowbienes+"="+as_codart+"&txtdenart"+rowbienes+"="+as_denart+""+
			   "&txtcanart"+rowbienes+"=0,00&cmbunidad"+rowbienes+"=D"+
			   "&txtpreart"+rowbienes+"="+ai_precio+"&txtsubtotart"+rowbienes+"=0,00"+
			   "&txtcarart"+rowbienes+"=0,00&txttotart"+rowbienes+"=0,00"+
			   "&txtspgcuenta"+rowbienes+"="+as_spg_cuenta+"&txtunidad"+rowbienes+"="+as_unidad+""+
			   "&txtdenuniadmsep"+j+"="+ls_denuniadm+"&txtnumsolord"+j+"=---------------"+
			   "&totalbienes="+totalbienes+"&hidcodestpro"+rowbienes+"="+ls_codestpre+"&estcla"+rowbienes+"="+ls_estclauni;
	//---------------------------------------------------------------------------------
	// Cargar los Cargos del opener y el seleccionado
	//---------------------------------------------------------------------------------
	//obtener el numero de filas real de los cargos y asignarlo al total row
	total=ue_calcular_total_fila_opener("txtcodservic");
	opener.document.formulario.totrowcargos.value=total;
	rowcargos=opener.document.formulario.totrowcargos.value;  
	for(j=1;(j<=rowcargos)&&(valido);j++)
	{
		codservic=eval("opener.document.formulario.txtcodservic"+j+".value");
		codcar=eval("opener.document.formulario.txtcodcar"+j+".value");
		dencar=eval("opener.document.formulario.txtdencar"+j+".value"); 
		bascar=eval("opener.document.formulario.txtbascar"+j+".value");
		moncar=eval("opener.document.formulario.txtmoncar"+j+".value");
		subcargo=eval("opener.document.formulario.txtsubcargo"+j+".value");
		cuentacargo=eval("opener.document.formulario.cuentacargo"+j+".value"); 
		formulacargo = eval("opener.document.formulario.formulacargo"+j+".value");
		ls_numsep    = eval("opener.document.formulario.hidnumsepcar"+j+".value");
		codprogcargo=eval("opener.document.formulario.codprogcargo"+j+".value");
		estclacargo=eval("opener.document.formulario.estclacargo"+j+".value"); 
		
		parametros=parametros+"&txtcodservic"+j+"="+codservic+"&txtcodcar"+j+"="+codcar+
				   "&txtdencar"+j+"="+dencar+"&txtbascar"+j+"="+bascar+
				   "&txtmoncar"+j+"="+moncar+"&txtsubcargo"+j+"="+subcargo+
				   "&cuentacargo"+j+"="+cuentacargo+"&formulacargo"+j+"="+formulacargo+
				   "&hidnumsepcar"+j+"="+ls_numsep+"&codprogcargo"+j+"="+codprogcargo+
				   "&estclacargo"+j+"="+estclacargo;
	}
	totalcargos=eval(rowcargos);
	parametros=parametros+"&txtcodservic="+as_codart+"&totalcargos="+totalcargos;
	//---------------------------------------------------------------------------------
	// Cargar las Cuentas Presupuestarias del opener y el seleccionado
	//---------------------------------------------------------------------------------
	//obtener el numero de filas real de las cuentas y asignarlo al total row
/*	total=ue_calcular_total_fila_opener("txtcuentagas");
	opener.document.formulario.totrowcuentas.value=total;
	rowcargos=opener.document.formulario.totrowcargos.value; 
	rowcuentas=opener.document.formulario.totrowcuentas.value; 
	for(j=1;(j<rowcuentas)&&(valido);j++)
	{ 
		codpro=eval("opener.document.formulario.txtcodprogas"+j+".value");
		cuenta=eval("opener.document.formulario.txtcuentagas"+j+".value");
		moncue=eval("opener.document.formulario.txtmoncuegas"+j+".value");
		ls_estcla1 = eval("opener.document.formulario.estclapre"+j+".value");
		//ls_numsep    = eval("opener.document.formulario.hidnumsepcar"+j+".value"); 

		parametros=parametros+"&txtcodprogas"+j+"="+codpro+"&txtcuentagas"+j+"="+cuenta+
				   "&txtmoncuegas"+j+"="+moncue+"&estclapre"+j+"="+ls_estcla1;
	}
	programatica="";
	ls_estcla="";
	if(ai_existecuenta!=0)
	{ 
		programatica = ls_codestpro1+ls_codestpro2+ls_codestpro3+ls_codestpro4+ls_codestpro5; 
		ls_estcla    = ls_estclauni; 
	}
	totalcuentas=eval(rowcuentas);
	parametros=parametros+"&txtcodprogas"+rowcuentas+"="+programatica+"&txtcuentagas"+rowcuentas+"="+as_spg_cuenta+
			   "&totalcuentas="+totalcuentas+"&estclapre"+rowcuentas+"="+ls_estcla; 
	//---------------------------------------------------------------------------------
	// Cargar las Cuentas Presupuestarias del Cargo del opener y el seleccionado
	//---------------------------------------------------------------------------------
	//obtener el numero de filas real de las cuentas y asignarlo al total row
	total=ue_calcular_total_fila_opener("txtcuentacar");
	opener.document.formulario.totrowcuentascargo.value=total;
	rowcuentas=opener.document.formulario.totrowcuentascargo.value;
	for(j=1;(j<rowcuentas)&&(valido);j++)
	{ 
		cargo=eval("opener.document.formulario.txtcodcargo"+j+".value");
		codpro=eval("opener.document.formulario.txtcodprocar"+j+".value");
		cuenta=eval("opener.document.formulario.txtcuentacar"+j+".value");
		moncue=eval("opener.document.formulario.txtmoncuecar"+j+".value");
		ls_estcla=eval("opener.document.formulario.estclacar"+j+".value");
		parametros=parametros+"&txtcodcargo"+j+"="+cargo+"&txtcodprocar"+j+"="+codpro+"&txtcuentacar"+j+"="+cuenta+
				   "&txtmoncuecar"+j+"="+moncue+"&estclacar"+j+"="+ls_estcla;
	} 
	totalcuentascargo=eval(rowcuentas);
	parametros=parametros+"&totalcuentascargo="+totalcuentascargo;
	//---------------------------------------------------------------------------------
	// Cargar los totales
	//---------------------------------------------------------------------------------
	subtotal=eval("opener.document.formulario.txtsubtotal.value");
	cargos=eval("opener.document.formulario.txtcargos.value");
	total=eval("opener.document.formulario.txttotal.value");
	tipconpro=opener.document.formulario.tipconpro.value;
	parametros=parametros+"&subtotal="+subtotal+"&cargos="+cargos+"&total="+total+
	"&codprounidad="+ls_codestpro1+ls_codestpro2+ls_codestpro3+ls_codestpro4+ls_codestpro5+"&tipconpro="+tipconpro
	+"&estcla="+ls_estclauni+"&tipsol="+ls_tipsol; */

	if(opener.document.getElementById("txtcodmon")!=null){		
		jcodmon = opener.document.formulario.txtcodmon.value;		
		jtascam = opener.document.formulario.txttascamordcom.value;
		parametros=parametros+"&tascamordcom="+jtascam+"&codmon="+jcodmon;
	}
	 
	tipconpro=opener.document.formulario.tipconpro.value;
	parametros=parametros+"&tipconpro="+tipconpro+"&codprounidad="+ls_codestpro1+ls_codestpro2+ls_codestpro3+ls_codestpro4+ls_codestpro5+"&estcla="+ls_estclauni+"&tipsol="+ls_tipsol;
	if((parametros!="")&&(valido))
	{
		// Div donde se van a cargar los resultados
		divgrid = opener.document.getElementById("bienesservicios");
		// Instancia del Objeto AJAX
		ajax=objetoAjax();
		// Pagina donde están los métodos para buscar y pintar los resultados
		ajax.open("POST","class_folder/sigesp_soc_c_registro_orden_compra_ajax.php",true);
		ajax.onreadystatechange=function(){
			if(ajax.readyState==1)
			{
				//divgrid.innerHTML = "";//<-- aqui iria la precarga en AJAX 
			}
			else
			{
				if(ajax.readyState==4)
				{
					if(ajax.status==200)
					{//mostramos los datos dentro del contenedor
						divgrid.innerHTML = ajax.responseText
					}
					else
					{
						if(ajax.status==404)
						{
							divgrid.innerHTML = "La página no existe";
						}
						else
						{//mostramos el posible error     
							divgrid.innerHTML = "Error:".ajax.status;
						}
					}
					
				}
			}
		}	
		ajax.setRequestHeader("Content-Type","application/x-www-form-urlencoded"); 
   ajax.setRequestHeader("X-Requested-With", "XMLHttpRequest");
		// Enviar todos los campos a la pagina para que haga el procesamiento
		ajax.send("proceso=AGREGARBIENES"+parametros);
		opener.document.formulario.totrowbienes.value=totalbienes;
	}
}

function ue_aceptar_reportedesde(as_codart)
{
	opener.document.formulario.txtcodartdes.value=as_codart;
	close();
}

function ue_aceptar_reportehasta(as_codart)
{
	opener.document.formulario.txcodtarthas.value=as_codart;
	close();
}
function ue_close()
{
	close();
}
</script>
</html>