function uf_load_bienes($as_numcot,$as_codpro)
	{	
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_load_bienes
		//		   Access: private
		//	    Arguments: as_numsol  // Numero de cotizacion.
		//	  Description: Método que busca los bienes de la Cotización y los imprime
		//	   Creado Por: Ing. Néstor Falcon.
		// Fecha Creación: 28/05/2007								Fecha Última Modificación : 28/05/2007
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_grid, $io_funciones_soc;
		
		// Titulos del Grid de Bienes
	    $lo_title[1] = "Código"; 
		$lo_title[2] = "Denominación"; 
		$lo_title[3] = "Cantidad"; 
		$lo_title[4] = "Precio"; 
		$lo_title[5] = "Subtotal";
		$lo_title[6] = "Créditos"; 
		$lo_title[7] = "Total"; 
		$lo_title[8] = "Calidad"; 
		$lo_title[9] = "";
		
		require_once("sigesp_soc_c_registro_cotizacion.php");
		$io_registro = new sigesp_soc_c_registro_cotizacion("../../");
		$rs_data     = $io_registro->uf_load_bienes($as_numcot,$as_codpro);
		$li_fila     = 0;
		
		$ls_excsel   = 'selected';
		$ls_buesel   = '';
		$ls_regsel   = '';
		$ls_malsel   = '';
		$ls_mumsel   =  '';
		$lb_valido   = true;
		$ls_opcion   = '';
		$ls_disabled = '';
		
		while ($row=$io_registro->io_sql->fetch_row($rs_data))	  
		      {
			    $li_fila++;
				$ls_codart = $row["codart"];
				$ls_denart = $row["denart"];
				$ld_canart = number_format($row["canart"],2,',','.');
				$ld_preart = number_format($row["preuniart"],2,',','.');
				$ld_subart = number_format($row["monsubart"],2,',','.');
				$ld_creart = number_format($row["moniva"],2,',','.');
				$ld_totart = number_format($row["montotart"],2,',','.');
			    $ld_porcre = $io_registro->uf_load_porcentaje_credito($ls_codart,'B',$lb_valido);//Porcentaje del Crédito en caso de tenerlo.
				if ($li_fila==1)//Estatus del Registro de la Cotizacion.
				   {
				     $ls_estcot = $row["estcot"];
				     if ($ls_estcot==0)
					    {
						  $ls_opcion = "onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur=ue_procesar_monto('B','".$li_fila."');";
						}
				     else
					    {
						  $ls_opcion   = "readonly";
						  $ls_disabled = "disabled";
						}
				   }
				$ls_calart = $row["nivcalart"];
				switch ($ls_calart){
				  case 'E':
				    $ls_excsel = 'selected';    
				  break;
				  case 'B':
				    $ls_buesel = 'selected';    
				  break;
				  case 'R':
				    $ls_regsel = 'selected';    
				  break;
				  case 'M':
				    $ls_malsel = 'selected';    
				  break;
				  case 'P':
				    $ls_mumsel = 'selected';    
				  break;
				}

				$lo_object[$li_fila][1] = "<input type=text name=txtcodart".$li_fila."  id=txtcodart".$li_fila."  class=sin-borde style=text-align:center size=20  value='".$ls_codart."'  readonly><input type=hidden name=hidporcre".$li_fila." id=hidporcre".$li_fila." value='".$ld_porcre."'>";
			    $lo_object[$li_fila][2] = "<input type=text name=txtdenart".$li_fila."  id=txtdenart".$li_fila."  class=sin-borde style=text-align:left   size=60  value='".$ls_denart."'  readonly>";
			    $lo_object[$li_fila][3] = "<input type=text name=txtcanart".$li_fila."  id=txtcanart".$li_fila."  class=sin-borde style=text-align:right  size=10  value='".$ld_canart."'  readonly>"; 
			    $lo_object[$li_fila][4] = "<input type=text name=txtpreart".$li_fila."  id=txtpreart".$li_fila."  class=sin-borde style=text-align:right  size=15  value='".$ld_preart."'  $ls_opcion>"; 
			    $lo_object[$li_fila][5] = "<input type=text name=txtsubart".$li_fila."  id=txtsubart".$li_fila."  class=sin-borde style=text-align:right  size=15  value='".$ld_subart."'  readonly>"; 
			    $lo_object[$li_fila][6] = "<input type=text name=txtcreart".$li_fila."  id=txtcreart".$li_fila."  class=sin-borde style=text-align:right  size=15  value='".$ld_creart."'  readonly>"; 
			    $lo_object[$li_fila][7] = "<input type=text name=txttotart".$li_fila."  id=txttotart".$li_fila."  class=sin-borde style=text-align:right  size=15  value='".$ld_totart."'  readonly>"; 
			    $lo_object[$li_fila][8] = "<select name=cmbcalart".$li_fila." style='width:75px ' $ls_disabled><option value=E ".$ls_excsel.">Excelente</option><option value=B ".$ls_buesel.">Bueno</option><option value=R ".$ls_regsel.">Regular</option><option value=M ".$ls_malsel.">Malo</option><option value=P ".$ls_mumsel.">Muy Malo</option></select>";
			    $lo_object[$li_fila][9] = "<a href=javascript:ue_delete_bienes('".$li_fila."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
		      }
		$li_fila++;
		$lo_object[$li_fila][1] = "<input type=text name=txtcodart".$li_fila."  id=txtcodart".$li_fila."  class=sin-borde style=text-align:center size=20  value=''  readonly><input type=hidden name=hidporcre".$li_fila." id=hidporcre".$li_fila." value=''>";
		$lo_object[$li_fila][2] = "<input type=text name=txtdenart".$li_fila."  id=txtdenart".$li_fila."  class=sin-borde style=text-align:left   size=60  value=''  readonly>";
		$lo_object[$li_fila][3] = "<input type=text name=txtcanart".$li_fila."  id=txtcanart".$li_fila."  class=sin-borde style=text-align:right  size=10  value=''  readonly>"; 
		$lo_object[$li_fila][4] = "<input type=text name=txtpreart".$li_fila."  id=txtpreart".$li_fila."  class=sin-borde style=text-align:right  size=15  value=''  readonly>"; 
		$lo_object[$li_fila][5] = "<input type=text name=txtsubart".$li_fila."  id=txtsubart".$li_fila."  class=sin-borde style=text-align:right  size=15  value=''  readonly>"; 
		$lo_object[$li_fila][6] = "<input type=text name=txtcreart".$li_fila."  id=txtcreart".$li_fila."  class=sin-borde style=text-align:right  size=15  value=''  readonly>"; 
		$lo_object[$li_fila][7] = "<input type=text name=txttotart".$li_fila."  id=txttotart".$li_fila."  class=sin-borde style=text-align:right  size=15  value=''  readonly>"; 
		$lo_object[$li_fila][8] = "";
		$lo_object[$li_fila][9] = "";
		print "<p>&nbsp;</p>";
		unset($io_registro);
		$io_grid->make_gridScroll($li_fila,$lo_title,$lo_object,795,"Detalle de Bienes","gridbienes",150);
	}// end function uf_load_bienes