$lb_vali=$io_casig->uf_llenarcombo_pais($la_pais);
		   
		   if($lb_vali)
		   {
		    $io_data->data=$la_pais;
		    $totrow=$io_data->getRowCount("codpai");
		   }
		   else
		   	$totrow=0;			
			
		   ?>
          <select name="cmbpais" size="1" id="cmbpais" onChange="javascript:ue_cambiarestado()">
            <?Php
					for($li_i=1;$li_i<=$totrow;$li_i++)
					{
					 $ls_codigo=$io_data->getValue("codpai",$li_i);
					 $ls_desest=$io_data->getValue("despai",$li_i);
					 if ($ls_codigo==$ls_codpai)
					 {
						  print "<option value='$ls_codigo' selected>$ls_desest</option>";
					 }
					 else
					 {
						  print "<option value='$ls_codigo'>$ls_desest</option>";
					 }
					} 
	                ?>
          </select>
          <input name="hidpais" type="hidden" id="hidpais" value="<? print $ls_codpai?>">
        </span></td>
      </tr>
 $io_pdf = new Cezpdf('LETTER', 'portrait');
 // Instancia de la clase PDF
 $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
 // Seleccionamos el tipo de letra
 $io_pdf->ezSetCmMargins(4, 2.5, 3, 3);
 // Configuración de los margenes en centímetros
 $li_totrow = $io_report->DS->getRowCount("numsol");
 if ($li_totrow > 1) {
     for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
         $ls_denominacion = $io_report->DS->data["dentipdoc"][$li_i];
         $ds_dentipdoc->insertRow("dentipsol", $ls_denominacion);
     }
     $ds_dentipdoc->group("dentipsol");
     $li_fila = $ds_dentipdoc->getRowCount("dentipsol");
     for ($li_i = 1; $li_i <= $li_fila; $li_i++) {
         $ls_denominacion = $ds_dentipdoc->getValue("dentipsol", $li_i);
         if ($ls_denominacion != "") {
             if ($li_i == 1) {
                 $ls_dentipdoc = $ls_denominacion;
             } else {
                 $ls_dentipdoc = $ls_dentipdoc . ", " . $ls_denominacion;
             }
         }
     }
 } else {
     $ls_dentipdoc = $io_report->DS->data["dentipdoc"][1];
 }
 for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
     $ls_numsol = $io_report->DS->data["numsol"][$li_i];
     $ls_codpro = $io_report->DS->data["cod_pro"][$li_i];
     $ls_cedbene = $io_report->DS->data["ced_bene"][$li_i];
    function uf_spg_reporte_disponibilidad_formato2($as_codestpro1_ori,$as_codestpro2_ori,$as_codestpro3_ori,$as_codestpro4_ori,
	                                                $as_codestpro5_ori,$as_codestpro1_des,$as_codestpro2_des,$as_codestpro3_des,
												    $as_codestpro4_des,$as_codestpro5_des,$adt_fecini,$adt_fecfin,
												    $as_cuenta_from,$as_cuenta_to)
    {//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
	 //	      Function :	uf_spg_reporte_disponibilidad_formato2
	 //         Access :	private
	 //     Argumentos :    as_codestpro1_ori .. $as_codestpro5_ori  // codigo de la estructura programatica origen 
     //              	    as_codestpro1_des .. $as_codestpro5_des  // codigo de la estructura programatica destino
	 //                     $adt_fecini   //  fecha de inicio 
	 //                     $adt_fecfin  // fecha de  fin
	 //                     $as_cuenta_from   //  cuenta desde
	 //                     $as_cuenta_to    //  desde hasta 
     //	       Returns :	Retorna true en caso de exito de la consulta o false en otro caso 
	 //	   Description :	Reporte que genera la salida para el disponible presupuestario acumulada segun fecha seleccionada 
	 //     Creado por :    Ing. Yozelin Barragán.
	 // Fecha Creación :    26/01/2007          Fecha última Modificacion :      Hora :
  	 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		$lb_existe = false;	 
		$lb_valido = true;
		$ls_codemp = $this->dts_empresa["codemp"];
	    $this->dts_reporte->reset_ds();
        $ls_str_sql_where="";
		$dts_disponible=new class_datastore();
		$rs_data=0;
		$ls_estructura_desde=$as_codestpro1_ori.$as_codestpro2_ori.$as_codestpro3_ori.$as_codestpro4_ori.$as_codestpro5_ori;
		$ls_estructura_hasta=$as_codestpro1_des.$as_codestpro2_des.$as_codestpro3_des.$as_codestpro4_des.$as_codestpro5_des;
		$this->uf_obtener_rango_programatica($as_codestpro1_ori,$as_codestpro2_ori,$as_codestpro3_ori,$as_codestpro4_ori,$as_codestpro5_ori,
											 $as_codestpro1_des,$as_codestpro2_des,$as_codestpro3_des,$as_codestpro4_des,$as_codestpro5_des,
											 $ls_Sql_Where,$ls_str_estructura_from,$ls_str_estructura_to);

		$ls_Sql_Where = trim($ls_Sql_Where);
		if ( !empty($ls_Sql_Where) )  
		{
		   $ls_str_sql_where=$ls_Sql_Where." AND ";
		}
		else
		{
		   $ls_str_sql_where="";
		}
		$ls_gestor = $_SESSION["ls_gestor"];
		if(strtoupper($ls_gestor)=="MYSQL")
		{
		   $ls_concat="CONCAT(PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4,PCT.codestpro5)";
		}
		else
		{
		   $ls_concat="(PCT.codestpro1||PCT.codestpro2||PCT.codestpro3||PCT.codestpro4||PCT.codestpro5)";
		}
		$ls_sql=" SELECT ".$ls_concat." AS programatica, PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4, ".
				"        PCT.codestpro5, PCT.spg_cuenta, PCT.denominacion, PCT.status, EP.denestpro5  ".
				" FROM   spg_cuentas PCT, spg_ep5 EP ".
				" WHERE  PCT.codemp='".$ls_codemp."' AND PCT.codemp=EP.codemp AND  PCT.codestpro1=EP.codestpro1 AND ".
				"        PCT.codestpro2=EP.codestpro2 AND PCT.codestpro3=EP.codestpro3 AND PCT.codestpro4=EP.codestpro4 AND ".
				"        PCT.codestpro5=EP.codestpro5 AND ".$ls_str_sql_where." ".
				"        PCT.spg_cuenta between '".$as_cuenta_from."' AND  '".$as_cuenta_to."' ".
				" ORDER BY PCT.codestpro1, PCT.codestpro2, PCT.codestpro3, PCT.codestpro4, PCT.codestpro5, PCT.spg_cuenta ";
	   $rs_data=$this->SQL->select($ls_sql);
	   if($rs_data===false)
	   {
		  $lb_valido=false;
		  $this->io_msg->message("CLASE->sigesp_spg_class_report MÉTODO->uf_spg_reporte_disponibilidad_presupuestaria ERROR->".$this->fun->uf_convertirmsg($this->SQL->message));
	   }
	   else
	   {
		   if($row=$this->SQL->fetch_row($rs_data))
		   {
			  $dts_disponible->data=$this->SQL->obtener_datos($rs_data);
			  $lb_existe=true;
		   }
		   $this->SQL->free_result($rs_data);   
		   if($lb_existe==false)
		   {
			  return false; // no hay registro
		   }
		   $li_total_row=$dts_disponible->getRowCount("spg_cuenta");			
		   for ($li_i=1;$li_i<=$li_total_row;$li_i++)
		   {   
			   $ls_codestpro1 = $dts_disponible->getValue("codestpro1",$li_i);
			   $ls_codestpro2 = $dts_disponible->getValue("codestpro2",$li_i);
			   $ls_codestpro3 = $dts_disponible->getValue("codestpro3",$li_i);
			   $ls_codestpro4 = $dts_disponible->getValue("codestpro4",$li_i);
			   $ls_codestpro5 = $dts_disponible->getValue("codestpro5",$li_i);
			   $ls_programatica = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
			   $ls_spg_cuenta = $dts_disponible->getValue("spg_cuenta",$li_i);
			   $ls_denominacion = $dts_disponible->getValue("denominacion",$li_i);
			   $ls_status = $dts_disponible->getValue("status",$li_i);
			   $ls_denestpro5 = $dts_disponible->getValue("denestpro5",$li_i);
			   
			   $ld_monto_asignado=0;
			   $ld_monto_aumento=0;
			   $ld_monto_disminucion=0;
			   $ld_monto_precompromiso=0;
			   $ld_monto_compromiso=0;
			   $ld_monto_causado=0;
			   $ld_monto_pagado=0;
			   $ld_monto_aumento_a=0;
			   $ld_monto_disminucion_a=0;
			   $ld_monto_precompromiso_a=0;
			   $ld_monto_compromiso_a=0;
			   
			   if(!$this->uf_calcular_disponible_operacion_por_cuenta($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
																	  $ls_codestpro5,$ls_spg_cuenta,$adt_fecini,$adt_fecfin,
																	  &$ld_monto_asignado,&$ld_monto_aumento,&$ld_monto_disminucion,
																	  &$ld_monto_precompromiso,&$ld_monto_compromiso,&$ld_monto_causado,
																	  &$ld_monto_pagado,&$ld_monto_aumento_a,&$ld_monto_disminucion_a,
																	  &$ld_monto_precompromiso_a,&$ld_monto_compromiso_a))
				{
				  return false;
				}
				else
				{	
					$ld_asignado=$ld_monto_asignado+$ld_monto_aumento_a+$ld_monto_aumento-$ld_monto_disminucion_a-$ld_monto_disminucion;
					$ld_disponible=$ld_monto_asignado+$ld_monto_aumento-$ld_monto_disminucion-$ld_monto_compromiso-$ld_monto_precompromiso;
                    
					$ld_monto_ejecutado=0;
					$ld_monto_acumulado=0;
					$ldt_fecini=$this->fun->uf_convertirfecmostrar($adt_fecini);
					$ldt_fecfin=$this->fun->uf_convertirfecmostrar($adt_fecfin);
					$lb_valido=$this->uf_spg_reporte_calcular_ejecutado($ls_spg_cuenta,$ls_estructura_desde,$ls_estructura_hasta,
					                                                    $ldt_fecini,$ldt_fecfin,$ld_monto_ejecutado,$ld_monto_acumulado);					
					
					$this->dts_reporte->insertRow("programatica",$ls_programatica);
					$this->dts_reporte->insertRow("spg_cuenta",$ls_spg_cuenta);
					$this->dts_reporte->insertRow("denominacion",$ls_denominacion);
					$this->dts_reporte->insertRow("status",$ls_status);
					$this->dts_reporte->insertRow("denestpro5",$ls_denestpro5);
					$this->dts_reporte->insertRow("asignado",$ld_asignado);
					$this->dts_reporte->insertRow("disponible",$ld_disponible);
					$this->dts_reporte->insertRow("monto_ejecutado",$ld_monto_ejecutado);
					$this->dts_reporte->insertRow("monto_acumulado",$ld_monto_acumulado);
					$lb_valido = true;
			    }	
		   }//for
	   }//else 
  return $lb_valido;
}//fin uf_spg_reporte_disponibilidad_formato2
	function uf_print_amortizacion()
   	{
		////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_print_amortizacion
		//		   Access: private
		//	    Arguments: 
		//	  Description: Función que obtiene e imprime los resultados de la busqueda de compromisos
		//	   Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
		// Fecha Creación: 09/05/2007 								Fecha Última Modificación : 
		////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_funciones_sob;
		
		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();		
		require_once("sigesp_sob_c_recepcion.php");
		$io_recepcion=new sigesp_sob_c_recepcion("../../");		
		require_once("../../shared/class_folder/class_datastore.php");
		$io_ds_amortizacion=new class_datastore(); // Datastored de cuentas contables
		$ls_codigo=$_POST['codigo'];
		$ls_tipodes=$_POST['tipodes'];
		switch($ls_tipodes)
		{
			case "P":
				$ls_codprov=$ls_codigo;
				$ls_cedbene="----------";
				break;
			case "B":
				$ls_codprov="----------";
				$ls_cedbene=$ls_codigo;
				break;
		}
		if(array_key_exists("amortizacion",$_SESSION))
		{
			$io_ds_amortizacion->data=$_SESSION["amortizacion"];
		}
		$lb_valido=$io_recepcion->uf_select_amortizaciones($ls_codprov,$ls_cedbene);
		if($lb_valido==true)
		{
				$li_totrow=$io_recepcion->io_ds_anticipos->getRowCount('numrecdoc');
				if($li_totrow>0)
				{//print_r($io_ds_amortizacion->data);
					print "<table width=600 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
					print "<tr class=titulo-celda>";
					print "	<td align='center' >Recepcion</td>";
					print "	<td align='rigth' >Total Anticipo</td>";
					print "	<td align='rigth' >Saldo</td>";
					print "	<td align='rigth' >Amortizacion</td>";
					print "</tr>";
					for($li_i=1;($li_i<=$li_totrow)&&($lb_valido);$li_i++)
					{
						$ls_numrecdoc=trim($io_recepcion->io_ds_anticipos->data["numrecdoc"][$li_i]);
						$ls_codtipdoc=trim($io_recepcion->io_ds_anticipos->data["codtipdoc"][$li_i]);
						$li_monsal=$io_recepcion->io_ds_anticipos->data["monsal"][$li_i];
						$li_montotamo=$io_recepcion->io_ds_anticipos->data["montotamo"][$li_i];				  
						$ls_cuenta=$io_recepcion->io_ds_anticipos->data["cuenta"][$li_i];				  
						$ls_codamo=$io_recepcion->io_ds_anticipos->data["codamo"][$li_i];				  
						$li_monamo=0;
						if($lb_valido)
						{
							$li_row=$io_ds_amortizacion->findValues(array('recdocant'=>$ls_numrecdoc,'codtipdoc'=>$ls_codtipdoc),"recdocant");
							if($li_row>0)
							{
								$li_monamo=$io_ds_amortizacion->getValue("monto",$li_row);
							}
							print "<tr class=celdas-blancas>";
							print "	<td  width=155 align=center><input name=txtnumrecdoc".$li_i." type=text class=sin-borde style=text-align:center id=txtnumrecdoc".$li_i."' value=".$ls_numrecdoc." readonly/>".
								  "	<input name=txtcuenta".$li_i." type=hidden id=txtcuenta".$li_i."' value=".$ls_cuenta."  /><input name=txtcodtipdoc".$li_i." type=hidden id=txtcodtipdoc".$li_i."' value=".$ls_codtipdoc."  />".
								  " <input name=txtcodamo".$li_i." type=hidden id=txtcodamo".$li_i."' value=".$ls_codamo."  /></td>";
							print "	<td  width=155  align=right>".number_format($li_montotamo,2,',','.')."</td>";
							print " <td  width=155 align=right><input name=txtsaldo".$li_i." type=text class=sin-borde style=text-align:right id=txtsaldo".$li_i."' value=".number_format($li_monsal,2,',','.')." readonly/></td>";
							print " <td  width=155 align=right><input name=txtmonto".$li_i." type=text class=sin-borde style=text-align:right id=txtmonto".$li_i."' value=".number_format($li_monamo,2,',','.')." onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur= ue_validarmonto(); /> </td>";
							print "</tr>";
						}
					}
					print "<tr><td>";
					print "<input name=txttotrow type=hidden class=sin-borde  id=txttotrow value=".$li_totrow." onKeyPress=return(ue_formatonumero(this,'.',',',event)); />";
					print "</td></tr>";
					print "</table>";
				}
				else
				{
        			$io_mensajes->message("ERROR->No hay Anticipos asociados a este Proveedor ó Beneficiario"); 
				}
			}
		unset($io_mensajes);
		unset($io_funciones);
		unset($io_recepcion);
	}// end function uf_print_compromisos
				for($li_i=1;$li_i<=$li_totrow;$li_i++)
				{
					
					$li_totprenom = 0;
					$ldec_mondeb  = 0;
					$ldec_monhab  = 0;
					$li_totant	  = 0;
					$ls_numdoc		= $ds_voucher->data["numdoc"][$li_i];
					$ls_codban		= $ds_voucher->data["codban"][$li_i];
					$ls_nomban		= $class_report->uf_select_data($io_sql,"SELECT nomban FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban");
					$ls_ctaban		= $ds_voucher->data["ctaban"][$li_i];
					$ls_chevau		= $ds_voucher->data["chevau"][$li_i];
					$ld_fecmov	  	= $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
					$ls_nomproben 	= $ds_voucher->data["nomproben"][$li_i];
					$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
					$ls_conmov		= $ds_voucher->getValue("conmov",$li_i);
					$ldec_monret	= $ds_voucher->getValue("monret",$li_i);
					$ldec_monto		= $ds_voucher->getValue("monto",$li_i);
					//$ldec_total		= $ldec_monto-$ldec_monret;
					$ldec_total		= $ldec_monto;
					//Asigno el monto a la clase numero-letras para la conversion.
					$numalet->setNumero($ldec_total);
					//Obtengo el texto del monto enviado.
					$ls_monto= $numalet->letra();
					uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la p�gina
					
					uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
					
					$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
					$la_items = array('0'=>'scg_cuenta');
					$la_suma  = array('0'=>'monto');
      <td class="fd-blanco">&nbsp;</td>
      <td>&nbsp;</td>
      <td width="17" rowspan="9">&nbsp;</td>
      <td class="fd-blanco">&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
    <?php 
  if ($ls_operacion=="")
  {
  	  global $ds_prorep;
	  $i=$_GET["fila"];
	  $ds_prorep->data=$_SESSION["objact"];
	  $li_num=$ds_prorep->getRowCount("cod_report");
	  $ld_marzo=$ds_prorep->getValue("marzo",$i);
	  $ld_junio=$ds_prorep->getValue("junio",$i);
	  $ld_septiembre=$ds_prorep->getValue("septiembre",$i);
	  $ld_diciembre=$ds_prorep->getValue("diciembre",$i);
      $ld_total="0.0000";	
  }//($ls_operacion=="")
  ?>
      <td width="71" class="fd-blanco"><div align="right">Trimestre(1)</div></td>
      <td width="137">
        <div align="left">
          <input name="txtMarzo" type="text" class="fd-blanco" id="txtMarzo" onKeyPress="return(currencyFormat(this,'.',',',event))" value="<?php print $ld_marzo ?>" onBlur="uf_actualizar(this)">
      </div></td>
      <td width="75" class="fd-blanco"><div align="right">Trimestre(2)</div></td>
      <td width="134"><input name="txtJunio" type="text" class="fd-blanco" id="txtJulio3" onKeyPress="return(currencyFormat(this,'.',',',event))" value="<?php print $ld_junio?>" onBlur="uf_actualizar(this)"></td>
      <td width="5"><div align="right"> </div></td>
    </tr>
        <td width="431"><div align="left">
          <?Php
           $lb_vali=$io_cunid->uf_llenarcombo_tipouni(&$la_tipoun);
		   
		   if($lb_vali)
		   {
		    $io_data->data=$la_tipoun;
		    $totrow=$io_data->getRowCount("codtun");
		   }
		   ?>
             <select name="cmbtipouni" id="cmbtipouni">
			 <option value="">Seleccione</option>
         <?Php
			for($z=1;$z<=$totrow;$z++)
			 {
			  $ls_tipoun=$io_data->getValue("codtun",$z);
		      $ls_nombreun=$io_data->getValue("nomtun",$z);
		      if ($ls_tipoun==$ls_tipounidad)
			   {
				print "<option value='$ls_tipoun' selected>$ls_nombreun</option>";
			   }
		       else
			   {
				print "<option value='$ls_tipoun'>$ls_nombreun</option>";
			   }
		      }      
	        ?>
          </select>
                  <input name="hidestado" type="hidden" id="hidestado"  value="<? print $ls_tipounidad ?>">
</div></td>
      </tr>
	$li_temp_nota_cred_mas   = 0;
	$li_temp_nota_cred_menos = 0;
	$li_temp_retiro_mas      = 0;
	$li_temp_retiro_menos    = 0;
	$li_temp_deposito_mas    = 0;
	$li_temp_deposito_menos  = 0;
	
	for($li_i=1;$li_i<=$li_totrow;$li_i++)
	{
		$li_temp=$li_temp+1;

		$li_totprenom = 0;
		$ldec_mondeb  = 0;
		$ldec_monhab  = 0;
		$li_totant    = 0;		
		$ls_tipo      = $ds_concil->getValue("tipo",$li_i);
		$ls_suma      = $ds_concil->getValue("suma",$li_i);
		$ls_codope    = $ds_concil->getValue("codope",$li_i);
		$ls_numdoc    = $ds_concil->getValue("numdoc",$li_i);
		$ls_nomproben = $ds_concil->getValue("nomproben",$li_i);
		$ld_fecmov    = $ds_concil->getValue("fecmov",$li_i);
		$ldec_monto   = $ds_concil->getValue("monto",$li_i);
		$ld_fecmov    = $io_funciones->uf_convertirfecmostrar($ld_fecmov);
		$ls_item      = $ls_numdoc."  ".$ls_nomproben."   ".$ld_fecmov;
		if($ls_suma=='+')//En caso que sean mas
		{
			switch($ls_codope)
			{
				case "CH":
					$la_data_cheque_mas[$li_temp_cheque_mas]["fecha"]=$ld_fecmov;
					$la_data_cheque_mas[$li_temp_cheque_mas]["numdoc"]=$ls_numdoc;
 function uf_procesar_cuentas($as_cuenta_spg, $as_denominacion_cta, $aa_estpro, $as_cuenta_scg, $aa_security)
 {
     $ls_spg_cuenta = $as_cuenta_spg;
     $ls_cuenta_tempo = $ls_spg_cuenta;
     $ls_denominacion_cta = $as_denominacion_cta;
     $ls_scg_cuenta = $as_cuenta_scg;
     $ls_codest1 = $aa_estpro[0];
     $ls_codest2 = $aa_estpro[1];
     $ls_codest3 = $aa_estpro[2];
     $ls_codest4 = $aa_estpro[3];
     $ls_codest5 = $aa_estpro[4];
     $ls_estcla = $aa_estpro[5];
     $ls_scgctaint = $aa_estpro[6];
     $lb_valido = true;
     //Tomo los valores anteriores de la cuenta y denominacion.
     if ($this->int_spg->uf_spg_select_cuenta($this->dat["codemp"], $aa_estpro, $ls_spg_cuenta, &$ls_status, &$ls_denominacion, $ls_scg_cuenta)) {
         $lb_valido = $this->int_spg->uf_spg_update_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_spg_cuenta, $ls_denominacion_cta, $as_cuenta_scg);
         if ($lb_valido) {
             $ls_estpro1 = "";
             $ls_estpro2 = "";
             $ls_ctapu = "";
             $ls_denctapu = "";
             $ls_ctaplan = "";
             $this->is_msg_error = "Denominación Actualizada";
             $disabled = "";
             $this->int_spg->io_sql->commit();
             /////////////////////////////////         SEGURIDAD               /////////////////////////////
             $ls_evento = "UPDATE";
             $ls_desc_event = "Actualizo la cuenta " . $ls_spg_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $ls_scg_cuenta;
             $ls_variable = $this->io_seguridad->uf_sss_insert_eventos_ventana($aa_security[1], $aa_security[2], $ls_evento, $aa_security[3], $aa_security[4], $ls_desc_event);
             ////////////////////////////////         SEGURIDAD               //////////////////////////////
         } else {
             $this->is_msg_error = "Error " . $this->int_spg->io_sql->message;
         }
     } else {
         $ls_cuenta_tempo = $ls_spg_cuenta;
         $ls_denominacion = "";
         $ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_spg_cuenta);
         $li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_NextCuenta);
         $li_fila = 1;
         $lds_cuenta_temp = new class_datastore();
         do {
             if (!$this->int_spg->uf_spg_select_cuenta($this->dat["codemp"], $aa_estpro, $ls_NextCuenta, &$ls_status, &$ls_denominacion, $ls_scg_cuenta)) {
                 $ls_PadNextCuenta = $this->int_scg->uf_pad_cuenta_plan($this->dat["formplan"], $ls_NextCuenta);
                 $this->int_spg->uf_select_plan_unico_cuenta($ls_PadNextCuenta, &$as_denominacion_plan);
                 if ($li_Nivel > 1) {
                     $ls_cuenta_ref = $this->int_spg->uf_spg_next_cuenta_nivel($ls_NextCuenta);
                 } else {
                     $ls_cuenta_ref = "             ";
                 }
                 if ($as_denominacion_plan == "") {
                     $as_denominacion_plan = $as_denominacion_cta;
                 }
                 $lds_cuenta_temp->insertRow("sc_cuenta", trim($ls_scg_cuenta));
                 $lds_cuenta_temp->insertRow("spg_cuenta", $ls_NextCuenta);
                 $lds_cuenta_temp->insertRow("codestpro1", $ls_codest1);
                 $lds_cuenta_temp->insertRow("codestpro2", $ls_codest2);
                 $lds_cuenta_temp->insertRow("codestpro3", $ls_codest3);
                 $lds_cuenta_temp->insertRow("codestpro4", $ls_codest4);
                 $lds_cuenta_temp->insertRow("codestpro5", $ls_codest5);
                 $lds_cuenta_temp->insertRow("denominacion", $as_denominacion_plan);
                 $lds_cuenta_temp->insertRow("sc_cuenta_ref", $ls_cuenta_ref);
                 $lds_cuenta_temp->insertRow("nivel", $li_Nivel);
                 $lds_cuenta_temp->insertRow("estcla", $ls_estcla);
                 $lds_cuenta_temp->insertRow("scgctaint", $ls_scgctaint);
                 $li_fila++;
             }
             if ($li_Nivel > 1) {
                 $ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_NextCuenta);
                 $li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_NextCuenta);
             } else {
                 $li_Nivel = 0;
             }
         } while ($li_Nivel >= 1);
         $li_total = $lds_cuenta_temp->getRowCount("sc_cuenta");
         if ($li_total > 0) {
             $this->int_spg->io_sql->begin_transaction();
             for ($li_fila = 1; $li_fila <= $li_total; $li_fila++) {
                 $ls_sc_cuenta = $lds_cuenta_temp->getValue("sc_cuenta", $li_fila);
                 $ls_spg_cuenta = $lds_cuenta_temp->getValue("spg_cuenta", $li_fila);
                 $ls_codest1 = $lds_cuenta_temp->getValue("codestpro1", $li_fila);
                 $ls_codest2 = $lds_cuenta_temp->getValue("codestpro2", $li_fila);
                 $ls_codest3 = $lds_cuenta_temp->getValue("codestpro3", $li_fila);
                 $ls_codest4 = $lds_cuenta_temp->getValue("codestpro4", $li_fila);
                 $ls_codest5 = $lds_cuenta_temp->getValue("codestpro5", $li_fila);
                 $ls_denominacion = $lds_cuenta_temp->getValue("denominacion", $li_fila);
                 $ls_cuenta_ref = $lds_cuenta_temp->getValue("sc_cuenta_ref", $li_fila);
                 $li_Nivel = $lds_cuenta_temp->getValue("nivel", $li_fila);
                 $ls_estcla = $lds_cuenta_temp->getValue("estcla", $li_fila);
                 $ls_scgctaint = $lds_cuenta_temp->getValue("scgctaint", $li_fila);
                 $ls_mensaje_error = "Error en Guardar";
                 $ls_status = "S";
                 $lb_valido = $this->int_spg->uf_spg_insert_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_spg_cuenta, $ls_denominacion, trim($ls_sc_cuenta), $ls_status, $li_Nivel, $ls_cuenta_ref, $ls_scgctaint);
                 if (!$lb_valido) {
                     break;
                 } else {
                     /////////////////////////////////         SEGURIDAD               /////////////////////////////
                     $ls_evento = "INSERT";
                     $ls_desc_event = "Inserto la cuenta " . $ls_spg_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $ls_sc_cuenta;
                     //////////////////////////////         SEGURIDAD               /////////////////////////////
                 }
             }
         }
         if ($lb_valido) {
             $ls_cuenta = $ls_cuenta_tempo;
             $ls_Cuenta_temp = $this->int_spg->uf_spg_padcuenta_plan($this->dat["formplan"], $ls_cuenta);
             $ls_NextCuenta = $this->int_spg->uf_spg_next_cuenta_nivel($ls_cuenta);
             $li_Nivel = $this->int_spg->uf_spg_obtener_nivel($ls_cuenta);
             $ls_status = "C";
             $lb_valido = $this->int_spg->uf_spg_insert_cuenta($ls_codest1, $ls_codest2, $ls_codest3, $ls_codest4, $ls_codest5, $ls_estcla, $ls_cuenta, $ls_denominacion_cta, $as_cuenta_scg, $ls_status, $li_Nivel, $ls_NextCuenta, $ls_scgctaint);
             /////////////////////////////////         SEGURIDAD               /////////////////////////////
             $ls_evento = "INSERT";
             $ls_desc_event = "Inserto la cuenta " . $ls_cuenta . ", asociada a la programatica " . $ls_codest1 . "-" . $ls_codest2 . "-" . $ls_codest3 . "-" . $ls_codest4 . "-" . $ls_codest5 . " y a la cuenta contable " . $as_cuenta_scg;
             //////////////////////////////         SEGURIDAD               /////////////////////////////
         }
         if ($lb_valido) {
             $this->int_spg->io_sql->commit();
             $this->is_msg_error = "Registro guardado";
             /////////////////////////////////         SEGURIDAD               /////////////////////////////
             $ls_variable = $this->io_seguridad->uf_sss_insert_eventos_ventana($aa_security[1], $aa_security[2], $ls_evento, $aa_security[3], $aa_security[4], $ls_desc_event);
             ////////////////////////////////         SEGURIDAD               //////////////////////////////
         } else {
             $this->int_spg->io_sql->rollback();
             $this->is_msg_error = "Error al guardar cuenta ";
         }
     }
     return $lb_valido;
 }
					$la_data[$li_b]=array('programatica'=>$ds_dt_spg->getValue("estpro",$li_b),
										  'cuenta'=>$ds_dt_spg->getValue("spg_cuenta",$li_b),
										  'monto'=>number_format($ds_dt_spg->getValue("monto",$li_b),2,",","."));
				}				
				uf_print_detalle_presupuestario($la_data,$io_pdf);
				unset($la_data);
			}

			//Obtengo el detalle presupuestario del movimiento.
			$ds_dt_spi->data=$class_report->uf_cargar_dt_spi($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope,$ls_estmov);
			$li_totspi=$ds_dt_spi->getRowCount("spi_cuenta");
			if($li_totspi>0)		
			{
				for($li_b=1;$li_b<=$li_totspi;$li_b++)
				{				
					$la_data[$li_b]=array('cuenta'=>$ds_dt_spi->getValue("spi_cuenta",$li_b),
										  'monto'=>number_format($ds_dt_spi->getValue("monto",$li_b),2,",","."));
				}
				uf_print_detalle_ingreso($la_data,$io_pdf);
			}
			$ldec_total=$ldec_total+$ldec_monto;
			uf_print_fin_detalle(&$io_pdf);	
		}
		uf_print_totales(number_format($ldec_total,2,",","."),&$io_pdf);
		if($lb_valido) // Si no ocurrio ningún error
		{
			$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
			$io_pdf->ezStream(); // Mostramos el reporte
		}
		else  // Si hubo algún error
		{
          <a href="javascript:catprovbene(document.form1.tipo.value)"><img src="../shared/imagebank/tools15/buscar.gif" alt="Catalogo Proveedores/Beneficiarios" width="15" height="15" border="0"></a>		</td>
        <td colspan="2" align="left"><input name="txtprovbene" type="text" id="txtprovbene" style="text-align:center" value="" size="14" maxlength="10">          <label>
          <input type="text" name="txtnomproben" id="txtnomproben">
        </label>
        <div align="right"></div></td>
        <td width="70"><div align="right">Hasta </div></td>
        <td width="82" align="left"><input name="txtfechahasta" type="text" id="txtfechahasta" size="15" maxlength="10" style="text-align:center" onKeyDown="javascript:ue_formato_fecha(this,'/',patron,true,event);" onBlur="javascript: ue_validar_formatofecha(this);" datepicker="true"> </td>
      </tr>
      <tr>
        <td height="10"><div align="right">Procedencia</div></td>
        <td colspan="3" align="left" ><select name="procede" id="select">
          <option value="N" "<? print $sel_N?>" >Ninguno</option>
          <?php
		  	for($li_i=1;$li_i<=$li_rowcount;$li_i++)
			{
				$ls_procede=$ds_procedencias->getValue("procede",$li_i);
				$ls_despro=$ds_procedencias->getValue("desproc",$li_i);
				if($ls_procede_ant==$ls_procede)
				{
				?>
          <option value="<?php print $ls_procede?>" selected><?php print $ls_despro; ?></option>
          <?php
				}
				else
				{
				?>
          <option value="<?php print $ls_procede?>"><?php print $ls_despro; ?></option>
          <?php
				}
			}
			?>
	if(($ls_operacion=="CAMBIO_TIPO"))
	{
		//Cargo los datos de las programaciones.
		$ld_fechadesde=$_POST["txtfechadesde"];
		$ld_fechahasta=$_POST["txtfechahasta"];
		$ls_documento=$_POST["txtdocumento"];	
		$ls_numcarta=$_POST["txtnumcarta"];	
		$data=$io_carta->uf_cargar_cartas_filtradas($ls_empresa,$ls_tipo,$ld_fechadesde,$ld_fechahasta,$ls_documento,$ls_numcarta);		
		$ldec_total_prog=0;
		if($data!="")
		{
			$ds_carta->data=$data;
			$li_total=$ds_carta->getRowCount("numdoc");
			for($i=1;$i<=$li_total;$i++)
			{
				$ls_numdoc  = $ds_carta->getValue("numdoc",$i);
				$ldec_monto = $ds_carta->getValue("monto",$i);
				$ld_fecmov  = $fun->uf_formatovalidofecha($ds_carta->getValue("fecmov",$i));
				$ld_fecmov  = $fun->uf_convertirfecmostrar($ld_fecmov);
				$ls_prov	= $ds_carta->getValue("cod_pro",$i);
				if($ls_prov=="----------")
				{
					$ls_prov=$ds_carta->getValue("ced_bene",$i);		
				}
				$ls_nomproben = $ds_carta->getValue("nomproben",$i);
				$ls_codban	  = $ds_carta->getValue("codban",$i);				
				$ls_ctaban	  = $ds_carta->getValue("ctaban",$i);				
				$ls_conmov	  = $ds_carta->getValue("conmov",$i);
				$ls_carta	  = $ds_carta->getValue("numcarord",$i);
				$ls_estcon	  = $ds_carta->getValue("estcon",$i);
				$ld_fecpropag='';						
 function uf_trasladar_saldos($ad_periodoviejo, $ad_periodonuevo, $as_codban, $as_ctaban, $ab_transito)
 {
     /*------------------------------------------------------------------
     		- Funcion que se encarga de trasladar los saldos
     		- Retorna true si la operacion se ejecuto correctamente, de lo contrario, false
     		- Elaborado por Ing. Laura Cabré.
     		- Fecha: 12/01/2007			
     	//-----------------------------------------------------------------*/
     set_time_limit(0);
     $ls_codemp = $this->dat["codemp"];
     $ds_cuenta = new class_datastore();
     $ds_colocaciones = new class_datastore();
     $ds_transito = new class_datastore();
     $ds_doc_repetidos = new class_datastore();
     $lb_valido = false;
     $ad_periodoviejo = $this->io_funciones->uf_convertirdatetobd($ad_periodoviejo);
     $ad_periodonuevo = $this->io_funciones->uf_convertirdatetobd($ad_periodonuevo);
     // -----------------Se obtiene la cuenta bancaria
     $ls_sql = "SELECT 0.0000  AS saldo\n\t\t\t   FROM scb_ctabanco\n\t\t\t  WHERE codemp='{$ls_codemp}' \n\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\tAND ctaban='{$as_ctaban}'\n\t\t\t  GROUP BY codban,ctaban,codtipcta\n\t\t\t  ORDER BY codban,ctaban";
     $io_recordset = $this->io_sql_origen->select($ls_sql);
     if ($io_recordset === false) {
         $ls_cadena = "Error al trasladar saldos - Obtención de la cuenta bancaria- .\r\n" . $this->io_sql_origen->message . "\r\n";
         $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
         if ($this->lo_archivo) {
             @fwrite($this->lo_archivo, $ls_cadena);
         }
         return false;
     } else {
         if ($this->io_sql_origen->fetch_row($io_recordset)) {
             $ds_cuenta->data = $this->io_sql_origen->obtener_datos($io_recordset);
             $lb_valido = true;
         }
     }
     // -----------------Se obtiene las colocaciones------------
     $ls_sql = "SELECT numcol,codtipcol,codban,ctaban, 0.0000  AS saldo\n\t\t\t   FROM scb_colocacion\n\t\t\t  GROUP by codban,ctaban,numcol,codtipcol";
     $io_recordset = $this->io_sql_origen->select($ls_sql);
     if ($io_recordset === false) {
         $ls_cadena = "Error al trasladar saldos - Obtención de las colocaciones- .\r\n" . $this->io_sql_origen->message . "\r\n";
         $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
         if ($this->lo_archivo) {
             @fwrite($this->lo_archivo, $ls_cadena);
         }
         return false;
     } else {
         if ($this->io_sql_origen->fetch_row($io_recordset)) {
             $ds_colocaciones->data = $this->io_sql_origen->obtener_datos($io_recordset);
             $lb_valido = true;
         }
     }
     if ($lb_valido) {
         //-------------Calculando los saldos de los documentos
         $ldec_saldo_documentos_temp = 0;
         $ldec_saldo_documentos_temp = $this->uf_calcular_saldo_documento($as_codban, $as_ctaban);
         if ($ldec_saldo_documentos_temp === false) {
             return false;
         }
         $ds_cuenta->updateRow("saldo", $ldec_saldo_documentos_temp, 1);
         //-------------Calculando los saldos de las colocaciones-----------//
         $li_totcol = $ds_colocaciones->getRowCount("numcol");
         for ($li_i = 1; $li_i <= $li_totcol; $li_i++) {
             $ls_codban = $ds_colocaciones->getValue("codban", $li_i);
             $ls_numcol = $ds_colocaciones->getValue("numcol", $li_i);
             $ls_ctaban = $ds_colocaciones->getValue("ctaban", $li_i);
             $ldec_saldo = $this->uf_calcular_saldo_colocacion($ls_codban, $ls_numcol);
             if ($ldec_saldo === false) {
                 return false;
             } else {
                 $ds_colocaciones->updateRow("saldo", $ldec_saldo, $li_i);
             }
         }
         //-------------Se chequean los movimientos en transito
         if ($ab_transito) {
             $ls_sql = "SELECT *\n\t\t\t\t\t\t   FROM scb_movbco \n\t\t\t\t\t\t  WHERE codemp='{$ls_codemp}' \n\t\t\t\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\t\t\t\tAND ctaban='{$as_ctaban}' \n\t\t\t\t\t\t\tAND estcon=0 \n\t\t\t\t\t\t\tAND (estmov='C' OR estmov='L')\n\t\t\t\t\t\t  ORDER BY codban,ctaban,numdoc";
             $io_recordset = $this->io_sql_origen->select($ls_sql);
             if ($io_recordset === false) {
                 $ls_cadena = "Error al Trasladar saldos - Obtención de los movimientos en tránsito- .\r\n" . $this->io_sql_origen->message . "\r\n";
                 $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
                 if ($this->lo_archivo) {
                     @fwrite($this->lo_archivo, $ls_cadena);
                 }
                 return false;
             } else {
                 $lb_valido = true;
                 if ($this->io_sql_origen->fetch_row($io_recordset)) {
                     $ds_transito->data = $this->io_sql_origen->obtener_datos($io_recordset);
                 }
             }
             // Movimientos en transito en forma resumida
             $ls_sql = "SELECT codban,ctaban,codope,SUM(monto-monret) AS total, estmov \n\t\t\t\t\t\t   FROM scb_movbco \n\t\t\t\t\t\t  WHERE codemp='{$ls_codemp}' \n\t\t\t\t\t\t\tAND codban='{$as_codban}' \n\t\t\t\t\t\t\tAND ctaban='{$as_ctaban}' \n\t\t\t\t\t\t\tAND estcon=0 \n\t\t\t\t\t\t\tAND (estmov='C' OR estmov='L')\n\t\t\t\t\t\t  GROUP by codban,ctaban,codope,estmov \n\t\t\t\t\t\t  ORDER BY codban,ctaban";
             $io_recordset = $this->io_sql_origen->select($ls_sql);
             if ($io_recordset === false) {
                 $ls_cadena = "Error al Trasladar saldos -Obtención de los movimientos en tránsito resumidos- .\r\n" . $this->io_sql_origen->message . "\r\n";
                 $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
                 if ($this->lo_archivo) {
                     @fwrite($this->lo_archivo, $ls_cadena);
                 }
                 return false;
             } else {
                 $lb_valido = true;
                 $ldec_debitostmp = 0;
                 $ldec_creditostmp = 0;
                 $ldec_debitos_negativostmp = 0;
                 $ldec_creditos_negativostmp = 0;
                 $li_numrows = $this->io_sql_origen->num_rows($io_recordset);
                 if ($li_numrows > 0) {
                     while ($row = $this->io_sql_origen->fetch_row($io_recordset)) {
                         $ls_operacion = $row["codope"];
                         $ls_estado = $row["estmov"];
                         $ldec_monto = $row["total"];
                         if (($ls_operacion == "CH" || $ls_operacion == "ND" || $ls_operacion == "RE") && $ls_estado != "A") {
                             $ldec_creditostmp += $ldec_monto;
                         } elseif (($ls_operacion == "CH" || $ls_operacion == "ND" || $ls_operacion == "RE") && $ls_estado == "A") {
                             $ldec_creditos_negativostmp += $ldec_monto;
                         } elseif (($ls_operacion == "DP" || $ls_operacion == "NC") && $ls_estado != "A") {
                             $ldec_debitostmp += $ldec_monto;
                         } elseif (($ls_operacion == "DP" || $ls_operacion == "NC") && $ls_estado == "A") {
                             $ldec_debitos_negativostmp += $ldec_monto;
                         }
                     }
                 }
             }
             if ($lb_valido) {
                 $ldec_debitos = $ldec_debitostmp - $ldec_debitos_negativostmp;
                 $ldec_creditos = $ldec_creditostmp - $ldec_creditos_negativostmp;
                 $ldec_saldo_tmp = $ds_cuenta->getValue("saldo", 1);
                 $ds_cuenta->updateRow("saldo", $ldec_saldo_tmp + $ldec_creditos - $ldec_debitos, 1);
             }
         }
         //Fin del else de los mov en transito resumidos
     }
     //Fin del select de los movimientos en transito.
     //-------Se realiza el traspaso de los saldos de banco-------------------//
     $lb_existe = $this->uf_verificar_cuenta($as_codban, $as_ctaban);
     if ($lb_existe === 1) {
         $ldec_saldo = $ds_cuenta->getValue("saldo", 1);
         if ($ldec_saldo >= 0) {
             $ls_operacion = "NC";
         } else {
             $ls_operacion = "ND";
         }
         $ldec_saldoaux = abs($ds_cuenta->getValue("saldo", 1));
         $ldec_saldo = $ldec_saldoaux;
         $ls_numdoc = "0000000APERTURA";
         $lb_existe = $this->uf_verificar_apertura($ls_numdoc, $as_codban, $as_ctaban);
         if ($lb_existe === 0) {
             $ls_sql = "INSERT INTO scb_movbco (codemp,numdoc,codban,ctaban,codope,fecmov,conmov,codconmov,\n\t\t\t\t\t\t\ttipo_destino,estmov,monto,estbpd,estcon,estimpche,monret,cod_pro,\n\t\t\t\t\t\t\tced_bene,chevau,feccon,monobjret,nomproben)\n\t\t\t\t\t\t\tVALUES ('{$ls_codemp}','{$ls_numdoc}','{$as_codban}','{$as_ctaban}','{$ls_operacion}','{$ad_periodoviejo}',\n\t\t\t\t\t\t\t'SALDO INICIAL DE LA CUENTA','---','','L'," . $ldec_saldo . ",'M',0,1,\n\t\t\t\t\t\t\t0.0000,'----------','----------','','1900-01-01'," . $ldec_saldo . ",'')";
             $li_row = $this->io_sql_destino->execute($ls_sql);
             if ($li_row === false) {
                 $lb_valido = false;
                 $ls_cadena = "Error al Insertar apertura -Inserción del documento de la Apertura- .\r\n" . $this->io_sql_destino->message . "\r\n";
                 $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
                 if ($this->lo_archivo) {
                     @fwrite($this->lo_archivo, $ls_cadena);
                 }
             } else {
                 $lb_valido = true;
             }
         }
     } else {
         $lb_valido = false;
         if ($lb_existe === 0) {
             $ls_cadena = "La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise \r\n";
             $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
             if ($this->lo_archivo) {
                 @fwrite($this->lo_archivo, $ls_cadena);
             }
             $this->io_mensajes->message("La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise");
         } else {
             $this->io_mensajes->message("Error al buscar la cuenta");
         }
     }
     //------Se insertan los movimientos en transito si la opcion esta tildada
     $la_indices_repetidos = array();
     if ($ab_transito && $lb_valido) {
         $li_totrow = $ds_transito->getRowCount("numdoc");
         $la_indices_repetidos = array();
         for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
             $ls_codban = $ds_transito->getValue("codban", $li_i);
             $ls_ctaban = trim($ds_transito->getValue("ctaban", $li_i));
             $ls_numdoc = $ds_transito->getValue("numdoc", $li_i);
             $ls_codope = $ds_transito->getValue("codope", $li_i);
             $ls_estmov = $ds_transito->getValue("estmov", $li_i);
             $ls_fecmov = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecmov", $li_i), "1900-01-01");
             $ls_conmov = $ds_transito->getValue("conmov", $li_i) . ". Fecha original del Documento:" . $this->io_funciones->uf_convertirdatetobd($ls_fecmov);
             $ls_nomproben = $ds_transito->getValue("nomproben", $li_i);
             $ls_codpro = $this->io_funciones->uf_cerosizquierda($ds_transito->getValue("cod_pro", $li_i), 10);
             $ls_cedbene = $ds_transito->getValue("ced_bene", $li_i);
             $ls_chevau = $ds_transito->getValue("chevau", $li_i);
             $ls_tipodestino = $ds_transito->getValue("tipo_destino", $li_i);
             $ls_codconmov = $ds_transito->getValue("codconmov", $li_i);
             $ld_montoaux = $ds_transito->getValue("monto", $li_i);
             $ld_monto = $ld_montoaux;
             $ls_estcon = $ds_transito->getValue("estcon", $li_i);
             $ls_estcobing = $ds_transito->getValue("estcobing", $li_i);
             $ls_esttra = $ds_transito->getValue("esttra", $li_i);
             $ls_estimpche = $ds_transito->getValue("estimpche", $li_i);
             $ld_monobjretaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("monobjret", $li_i), 0);
             $ld_monobjret = $ld_monobjretaux;
             $ld_monretaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("monret", $li_i), 0);
             $ld_monret = $ld_monretaux;
             $ls_procede = $ds_transito->getValue("procede", $li_i);
             $ls_comprobante = $ds_transito->getValue("comprobante", $li_i);
             $ls_fecha = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecha", $li_i), '1900-01-01');
             $ls_id_mco = $ds_transito->getValue("id_mco", $li_i);
             $ls_comprobante = $ds_transito->getValue("comprobante", $li_i);
             $ls_emicheproc = $ds_transito->getValue("emicheproc", $li_i);
             $ls_emicheced = $ds_transito->getValue("emicheced", $li_i);
             $ls_emichenom = $ds_transito->getValue("emichenom", $li_i);
             $ls_emichefec = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("emichefec", $li_i), '1900-01-01');
             $ls_estmovint = $ds_transito->getValue("estmovint", $li_i);
             $ls_codusu = $ds_transito->getValue("codusu", $li_i);
             $ls_codopeidb = $ds_transito->getValue("codopeidb", $li_i);
             $ld_aliidbaux = $this->io_validacion->uf_valida_monto($ds_transito->getValue("aliidb", $li_i), 0);
             $ld_aliidb = $ld_aliidbaux;
             $ls_feccon = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("feccon", $li_i), '1900-01-01');
             $ls_estreglib = $ds_transito->getValue("estreglib", $li_i);
             $ls_numcarord = $ds_transito->getValue("numcarord", $li_i);
             $ls_numpolcon = $ds_transito->getValue("numpolcon", $li_i);
             $ls_coduniadmsig = $ds_transito->getValue("coduniadmsig", $li_i);
             $ls_codbansig = $ds_transito->getValue("codbansig", $li_i);
             $ls_fecordpagsig = $this->io_validacion->uf_valida_fecha($ds_transito->getValue("fecordpagsig", $li_i), '1900-01-01');
             $ls_tipdocressig = $ds_transito->getValue("tipdocressig", $li_i);
             $ls_numdocressig = $ds_transito->getValue("numdocressig", $li_i);
             $ls_estmodordpag = $ds_transito->getValue("estmodordpag", $li_i);
             $ls_codfuefin = $ds_transito->getValue("codfuefin", $li_i);
             $ls_forpagsig = $ds_transito->getValue("forpagsig", $li_i);
             $ls_medpagsig = $ds_transito->getValue("medpagsig", $li_i);
             $ls_codestprosig = $ds_transito->getValue("codestprosig", $li_i);
             $ls_nrocontrolop = $ds_transito->getValue("nrocontrolop", $li_i);
             $ls_fechaconta = $ds_transito->getValue("fechaconta", $li_i);
             $ls_fechaconta = $this->io_validacion->uf_valida_fecha($ls_fechaconta, "1900-01-01");
             $ls_fechaanula = $ds_transito->getValue("fechaanula", $li_i);
             $ls_fechaanula = $this->io_validacion->uf_valida_fecha($ls_fechaanula, "1900-01-01");
             $lb_existe = $this->uf_verificar_cuenta($ls_codban, $ls_ctaban);
             $li_temp = 1;
             if ($lb_existe === 1) {
                 $lb_existe = $this->uf_verificar_documento($ls_codban, $ls_ctaban, $ls_numdoc, $ls_codope);
                 if ($lb_existe === 1) {
                     array_push($la_indices_repetidos, $li_i);
                 } else {
                     $ls_sql = "INSERT INTO scb_movbco (codemp, codban, ctaban, numdoc, codope, estmov, cod_pro, ced_bene, \n\t\t\t\t\t\t                                   tipo_destino, codconmov, fecmov, conmov, nomproben, monto, estbpd, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t   estcon, estcobing, esttra, chevau, estimpche, monobjret, monret, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t   procede, comprobante, fecha, id_mco, emicheproc, emicheced, emichenom, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t   emichefec, estmovint, codusu, codopeidb, aliidb, feccon, estreglib, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t   numcarord, numpolcon, coduniadmsig, codbansig, fecordpagsig, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t   tipdocressig, numdocressig, estmodordpag, codfuefin, forpagsig, \n\t\t\t\t\t\t\t\t\t\t\t\t\t\t   medpagsig, codestprosig, nrocontrolop, fechaconta, fechaanula) \n\t\t\t\t\t\t\t\t\t\t\t\t    VALUES ('" . $ls_codemp . "','" . $ls_codban . "','" . $ls_ctaban . "','" . $ls_numdoc . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t        '" . $ls_codope . "','L','" . $ls_codpro . "','" . $ls_cedbene . "','" . $ls_tipodestino . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codconmov . "','" . $ls_fecmov . "','" . $ls_conmov . "','" . $ls_nomproben . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t" . $ld_monto . ",'D','" . $ls_estcon . "','" . $ls_estcobing . "','" . $ls_esttra . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_chevau . "','" . $ls_estimpche . "'," . $ld_monobjret . "," . $ld_monret . ",\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_procede . "','" . $ls_comprobante . "','" . $ls_fecha . "','" . $ls_id_mco . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_emicheproc . "','" . $ls_emicheced . "','" . $ls_emichenom . "','" . $ls_emichefec . "','" . $ls_estmovint . "',\n\t\t\t\t\t\t\t\t                            '" . $ls_codusu . "','" . $ls_codopeidb . "'," . $ld_aliidb . ",'" . $ls_feccon . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_estreglib . "','" . $ls_numcarord . "','" . $ls_numpolcon . "','" . $ls_coduniadmsig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codbansig . "','" . $ls_fecordpagsig . "','" . $ls_tipdocressig . "','" . $ls_numdocressig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_estmodordpag . "','" . $ls_codfuefin . "','" . $ls_forpagsig . "','" . $ls_medpagsig . "',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t'" . $ls_codestprosig . "','" . $ls_nrocontrolop . "','" . $ls_fechaconta . "','" . $ls_fechaanula . "')";
                     $li_row = $this->io_sql_destino->execute($ls_sql);
                     if ($li_row === false) {
                         $lb_valido = false;
                         $ls_cadena = "Error al Insertar apertura -Inserción de los movimientos en tránsito-.\r\n" . $this->io_sql_destino->message . "\r\n";
                         $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
                         if ($this->lo_archivo) {
                             @fwrite($this->lo_archivo, $ls_cadena);
                         }
                     } else {
                         $lb_valido = true;
                     }
                 }
             } else {
                 $lb_valido = false;
                 if ($lb_existe === 0) {
                     $ls_cadena = "La cuenta No. {$ls_ctaban} no existe en la nueva Base de Datos, Favor revise \r\n";
                     $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
                     if ($this->lo_archivo) {
                         @fwrite($this->lo_archivo, $ls_cadena);
                     }
                     $this->io_mensajes->message("La cuenta No. {$as_ctaban} no existe en la nueva Base de Datos, Favor revise");
                 } else {
                     $this->io_mensajes->message("Error al buscar la cuenta");
                 }
             }
         }
     }
     //Fin de la inserción de los movimientos en transito.
     //-------------Se insertan los movimientos de colocacion--------------------------------//
     if ($lb_valido) {
         $li_totrow = $ds_colocaciones->getRowCount("numcol");
         for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
             $ls_codban = $ds_colocaciones->getValue("codban", $li_i);
             $ls_ctaban = $ds_colocaciones->getValue("ctaban", $li_i);
             $ls_numcol = $ds_colocaciones->getValue("numcol", $li_i);
             $ldec_saldo = $ds_colocaciones->getValue("saldo", $li_i);
             $lb_existe = $this->uf_verificar_colocacion($ls_codban, $ls_ctaban, $ls_numcol);
             if ($lb_existe === 1) {
                 if ($ldec_saldo >= 0) {
                     $ls_operacion = "NC";
                 } else {
                     $ls_operacion = "ND";
                 }
                 $ldec_saldoaux = abs($ldec_saldo);
                 $lb_existe = $this->uf_verificar_movimiento_colocacion($ls_codban, $ls_ctaban, $ls_numcol, "0000000APERTURA", $ls_operacion, "L");
                 if ($lb_existe === 0) {
                     $ldec_saldo = $ldec_saldoaux;
                     $ls_sql = "INSERT INTO scb_movcol\t(codemp,codban,ctaban,numcol,numdoc,codope,estcol,fecmovcol,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t monmovcol,tasmovcol,conmov,estcob,esttranf)\n\t\t\t\t\t\t\t\t\t\t\t\t VALUES ('{$ls_codemp}','{$ls_codban}','{$ls_ctaban}','{$ls_numcol}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t '0000000APERTURA','{$ls_operacion}','L','{$ad_periodoviejo}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t " . $ldec_saldo . ",0,'SALDO INICIAL DE LA COLOCACION',0,0)";
                     $li_row = $this->io_sql_destino->execute($ls_sql);
                     if ($li_row === false) {
                         $lb_valido = false;
                         $ls_cadena = "Error al Insertar apertura - Inserción de movimientos de colocación- .\r\n" . $this->io_sql_destino->message . "\r\n";
                         $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
                         if ($this->lo_archivo) {
                             @fwrite($this->lo_archivo, $ls_cadena);
                         }
                     } else {
                         $lb_valido = true;
                     }
                 } else {
                     if ($lb_existe === 1) {
                         $lb_valido = true;
                     } else {
                         $lb_valido = false;
                     }
                 }
             } else {
                 $lb_valido = false;
                 if ($lb_existe === 0) {
                     $ls_cadena = "La colocación No. {$ls_numcol} NO existe en la nueva Base de Datos, Favor revise \r\n";
                     $ls_cadena = $ls_cadena . $ls_sql . "\r\n";
                     if ($this->lo_archivo) {
                         @fwrite($this->lo_archivo, $ls_cadena);
                     }
                     $this->io_mensajes->message("La colocación No. {$ls_numcol} NO existe en la nueva Base de Datos, Favor revise");
                 } else {
                     $this->io_mensajes->message("Error al buscar la colocacion");
                 }
             }
         }
     }
     if ($lb_valido) {
         $li_totrow = count($la_indices_repetidos);
         if ($li_totrow > 0) {
             $ls_fecha = date("Y_m_d_H_i");
             $ls_nombre = "resultado/documentos_repetidos" . $ls_fecha . ".txt";
             $lo_archivo2 = @fopen("{$ls_nombre}", "a+");
             $this->io_mensajes->message("Se ha generado un archivo (documentos_repetidos.txt), el cual contiene los documentos que no se pueden traspasar, debido a que ya se encuentran registrados en la nueva Base de Datos.");
             for ($li_i = 0; $li_i < $li_totrow; $li_i++) {
                 $li_indice = $la_indices_repetidos[$li_i];
                 $ls_numdoc = $ds_transito->getValue("numdoc", $li_indice);
                 $ls_cadena = "El Movimiento No. {$ls_numdoc} no pudo ser traspasado debido a que ya existía en la nueva Base de Datos \r\n\r\n";
                 if ($lo_archivo2) {
                     @fwrite($lo_archivo2, $ls_cadena);
                 }
             }
         }
         @fwrite($this->lo_archivo, "Proceso ejecutado sin errores");
     }
     return $lb_valido;
 }
	if($lb_valido!=0)
	{
		$x = (count($la_disminucion, COUNT_RECURSIVE) / count($la_disminucion)) - 1;
		for($li_i=1;$li_i<=$x;$li_i++)
		{
			$ld_totaldisminucion=$ld_totaldisminucion+$la_disminucion["monto"][$li_i];
		}
	}	
	$ld_totalvariacion=$ld_totalaumento-$ld_totaldisminucion;
	
	$lb_valido=$io_contrato-> uf_select_contrato($ls_codcon,$la_contrato);
	if ($lb_valido)
	{
		$io_datastore->data=$la_contrato;
		$li_i=1;
		$ls_codcon=$io_datastore->getValue("codcon",$li_i);
		$ls_moncon=$io_funsob->uf_convertir_numerocadena($io_datastore->getValue("monto",$li_i));
	}	
	
	$io_anticipo->uf_calcular_montoanticipo($ls_codcon,$ld_montototalanticipoaux);
	$ld_montototalanticipo=$io_funsob->uf_convertir_numerocadena($ld_montototalanticipoaux);
	$ld_montocontrato=$la_contrato["monto"][1];
	$ld_montocontratofinal=$ld_montocontrato+$ld_totalvariacion;	
	$ld_montocontrato=$io_funsob->uf_convertir_numerocadena($ld_montocontrato);	
	$ld_montocontratofinal=$io_funsob->uf_convertir_numerocadena($ld_montocontratofinal);
	$ld_monvar=$io_funsob->uf_convertir_numerocadena($ld_totalvariacion);
	$lb_valido=$io_obra->uf_select_obra($io_datastore->getValue("codobr",$li_i),$la_obra);	
	if($lb_valido)
		$ls_desobr=$la_obra["desobr"][1];		
}
elseif($ls_operacion=="ue_guardar")
			else
			{
				if($row=$io_sql->fetch_row($rs_datauni))
				{
					print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
					print "<tr class=titulo-celda>";
					print "<td><a href=javascript:ue_ordenar('codtob','');><font color=#FFFFFF>Código</font></a></td>";
					print "<td><a href=javascript:ue_ordenar('nomtob','');><font color=#FFFFFF>Nombre</font></a></td>";
					$la_unidades=$io_sql->obtener_datos($rs_datauni);
					$io_data->data=$la_unidades;
					$totrow=$io_data->getRowCount("codtob");
						
					for($z=1;$z<=$totrow;$z++)
					{
						print "<tr class=celdas-blancas>";
						$codtob=$io_data->getValue("codtob",$z);
						$nomtob=$io_data->getValue("nomtob",$z);
						$destob=$io_data->getValue("destob",$z);
						print "<td align=center><a href=\"javascript: aceptar('$codtob','$nomtob','$destob');\">".$codtob."</a></td>";
						print "<td align=left>".$nomtob."</td>";
					    print "</tr>";			
					}
				}
				else
				{
					$io_msg->message("No se han creado Tipos de Obra");
				}
		}

print "</table>";
?>
									
							}
							else
							{
								$li_Nivel = 0 ;
							}
							
						}while( $li_Nivel >= 1);
						
						$li_total = $lds_cuenta_temp->getRowCount("SC_cuenta");
			
						 if($li_total>0)
						 {
							for($li_fila=1;$li_fila<=$li_total;$li_fila++)
							{
								 $ls_cuenta      = $lds_cuenta_temp->getValue("SC_cuenta",$li_fila); 	    
								 $ls_denominacion= $lds_cuenta_temp->getValue("denominacion",$li_fila) ;	    		 
								 $ls_cuenta_ref  = $lds_cuenta_temp->getValue("sc_cuenta_ref",$li_fila) ;	    		 
								 $li_Nivel       = $lds_cuenta_temp->getValue("Nivel",$li_fila); 	    		 
								 $ls_mensaje_error="Error en Guardar";
								 $ls_status = "S";
								 $int_scg->SQL->begin_transaction();
								 $lb_valido = $int_scg->uf_scg_insert_cuenta($is_codemp,$ls_cuenta,$ls_denominacion,$ls_status,$li_Nivel,$ls_cuenta_ref,$ls_mensaje_error);
								
								 
								 if (!$lb_valido)
								 {
									break; 
								 }	
							}
						 }
	function uf_print_cierrecuentas_cargo($ai_total,$as_cargarcargos,$as_tipo)
	{	
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_print_cierrecuentas_cargo
		//		   Access: private
		//	    Arguments: ai_total  // Total de filas a imprimir
		//                 as_cargarcargos // Si cargamos los cargos ó solo pintamos
		//                 as_tipo // Tipo de SEP si es de bienes ó de servicios
		//	  Description: Método que imprime el grid de las cuentas presupuestarias de los cargos
		//	   Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
		// Modificado Por: Ing. Yozelin Barragan
		// Fecha Creación: 17/03/2007								Fecha Última Modificación : 12/05/2007
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_grid, $io_funciones_sep,$la_cuentacargo,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,
	 	       $li_loncodestpro4,$li_loncodestpro5;
		require_once("../../shared/class_folder/class_datastore.php");
		$io_dscuentas=new class_datastore();
		
		// Titulos el Grid
		$lo_title[1]="Cr&eacute;dito";
		$lo_title[2]="Estructura Presupuestaria";
		$lo_title[3]="Cuenta";
		$lo_title[4]="Monto";
		//$lo_title[5]=""; 
		$ls_codpro="";
		// Recorrido del Grid de Cuentas Presupuestarias del Cargo
		for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
		{ 
			$ls_cargo= trim($io_funciones_sep->uf_obtenervalor("txtcodcar".$li_fila,""));
			$li_moncue= $io_funciones_sep->uf_obtenervalor("txtmoncar".$li_fila,""); 
			$ls_cuenta= trim($io_funciones_sep->uf_obtenervalor("txtcodspgcre".$li_fila,""));
		    $ls_codpro= $io_funciones_sep->uf_obtenervalor("txtcodgascre".$li_fila,"");
			$ls_estcla= $io_funciones_sep->uf_obtenervalor("txtstatuscre".$li_fila,"");
			$li_moncue = str_replace(".","",$li_moncue);
			$li_moncue = str_replace(",",".",$li_moncue);
		    $ls_codestpro1 = substr($ls_codpro,0,25); 
			$ls_codestpro2 = substr($ls_codpro,25,25); 
			$ls_codestpro3 = substr($ls_codpro,50,25); 
			$ls_codestpro4 = substr($ls_codpro,75,25); 
			$ls_codestpro5 = substr($ls_codpro,100,25);	
			if($ls_cuenta!="")
			{
				$valores["codcargo"]=$ls_cargo;
				$valores["cuentacar"]=$ls_cuenta;
				$valores["estcla"]=$ls_estcla;
				$valores["codestpro1"]=$ls_codestpro1;
				$valores["codestpro2"]=$ls_codestpro2;
				$valores["codestpro3"]=$ls_codestpro3;
				$valores["codestpro4"]=$ls_codestpro4;
				$valores["codestpro5"]=$ls_codestpro5;
				$ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ;
				if($ll_row_found>0)
				{  
					$ldec_monto=0;
					$ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found);
					$ldec_monto=$ldec_monto + $li_moncue;
					$io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found);	
				}
				else
				{
					$io_dscuentas->insertRow("codcargo",$ls_cargo);			
					$io_dscuentas->insertRow("codprocar",$ls_codpro);			
					$io_dscuentas->insertRow("cuentacar",$ls_cuenta);			
					$io_dscuentas->insertRow("moncuecar",$li_moncue);
					$io_dscuentas->insertRow("estcla",$ls_estcla);
					$io_dscuentas->insertRow("codestpro1",$ls_codestpro1);
					$io_dscuentas->insertRow("codestpro2",$ls_codestpro2);
					$io_dscuentas->insertRow("codestpro3",$ls_codestpro3);
					$io_dscuentas->insertRow("codestpro4",$ls_codestpro4);
					$io_dscuentas->insertRow("codestpro5",$ls_codestpro5);	
				}		
			}
		}
		if($as_cargarcargos=="1")
		{	// si los cargos se deben cargar recorremos el arreglo de cuentas
			// que se lleno con los cargos 
			$li_cuenta=count($la_cuentacargo)-1;
			for($li_fila=1;($li_fila<=$li_cuenta);$li_fila++)
			{
				$ls_cargo        = trim($la_cuentacargo[$li_fila]["cargo"]);
				$ls_cuenta       = trim($la_cuentacargo[$li_fila]["cuenta"]);
				$ls_programatica = trim($la_cuentacargo[$li_fila]["programatica"]);
				$ls_estcla       = trim($la_cuentacargo[$li_fila]["estcla"]);
				$li_moncue="0.00";
				$ls_codestpro1 = substr($ls_programatica,0,25);
			    $ls_codestpro2 = substr($ls_programatica,25,25);
			    $ls_codestpro3 = substr($ls_programatica,50,25);
			    $ls_codestpro4 = substr($ls_programatica,75,25);
			    $ls_codestpro5 = substr($ls_programatica,100,25); 
				if($ls_cuenta!="")
				{
					$valores["codcargo"]=$ls_cargo;
					$valores["cuentacar"]=$ls_cuenta;
					$valores["estcla"]=$ls_estcla;
					$valores["codestpro1"]=$ls_codestpro1;
					$valores["codestpro2"]=$ls_codestpro2;
					$valores["codestpro3"]=$ls_codestpro3;
					$valores["codestpro4"]=$ls_codestpro4;
					$valores["codestpro5"]=$ls_codestpro5;
					$ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ;
					if($ll_row_found>0)
					{  
						$ldec_monto=0;
						$ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found);
						$ldec_monto=$ldec_monto + $li_moncue;
						$io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found);	
					}
					else
					{
						$io_dscuentas->insertRow("codcargo",$ls_cargo);			
						$io_dscuentas->insertRow("codprocar",$ls_programatica);			
						$io_dscuentas->insertRow("cuentacar",$ls_cuenta);			
						$io_dscuentas->insertRow("moncuecar",$li_moncue);
						$io_dscuentas->insertRow("estcla",$ls_estcla);
						$io_dscuentas->insertRow("codestpro1",$ls_codestpro1);
						$io_dscuentas->insertRow("codestpro2",$ls_codestpro2);
						$io_dscuentas->insertRow("codestpro3",$ls_codestpro3);
						$io_dscuentas->insertRow("codestpro4",$ls_codestpro4);
						$io_dscuentas->insertRow("codestpro5",$ls_codestpro5);
					}
				}			
			}
		} 
		// Agrupamos las cuentas por programatica y cuenta
		//$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codprocar','2'=>'cuentacar','3'=>'estcla'),array('0'=>'moncuecar'),'moncuecar');
		$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codestpro1','2'=>'codestpro2','3'=>'codestpro3','4'=>'codestpro4','5'=>'codestpro5',
		                              '6'=>'estcla','7'=>'cuentacar'),array('0'=>'moncuecar'),'moncuecar');
		$li_total=$io_dscuentas->getRowCount('codcargo');	
		//print_r($io_dscuentas->data);
		// Recorremos el data stored de cuentas que se lleno y se agrupo anteriormente
		for($li_fila=1;$li_fila<=$li_total;$li_fila++)
		{ 
			$ls_cargo     = $io_dscuentas->getValue('codcargo',$li_fila);
			$ls_codpro    = $io_dscuentas->getValue('codprocar',$li_fila);
			$ls_cuenta    = $io_dscuentas->getValue('cuentacar',$li_fila);
			$li_moncue    = number_format($io_dscuentas->getValue('moncuecar',$li_fila),2,",",".");
			$ls_codestpro = "";
			if (!empty($ls_codpro))
			   {
				 $ls_codestpro1 = substr($ls_codpro,0,25);
				 $ls_codestpro2 = substr($ls_codpro,25,25);
				 $ls_codestpro3 = substr($ls_codpro,50,25);
				 $ls_codestpro4 = substr($ls_codpro,75,25);
				 $ls_codestpro5 = substr($ls_codpro,100,25);
				 $ls_codestpro1 = substr($ls_codestpro1,-$li_loncodestpro1);
			 	 $ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
				 $ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
				 $ls_codestpro  = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
			   } 
			if ($li_estmodest==2)
			   {
			     if (!empty($ls_codpro))
				    {
					  $ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
					  $ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
					  $ls_codestpro  = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
					}
			   }
			$ls_estcla = $io_dscuentas->getValue('estcla',$li_fila);
			if($ls_cuenta!="")
			{

				$lo_object[$li_fila][1]="<input name=txtcodcargo".$li_fila." type=text id=txtcodcargo".$li_fila." class=sin-borde  style=text-align:center size=12 value='".$ls_cargo."' readonly>";
				$lo_object[$li_fila][2]="<input name=txtprogramaticacar".$li_fila." type=text id=txtprogramaticacar".$li_fila." class=sin-borde  style=text-align:center size=75 value='".$ls_codestpro."' readonly>";
				$lo_object[$li_fila][3]="<input name=txtcuentacar".$li_fila." type=text id=txtcuentacar".$li_fila." class=sin-borde  style=text-align:center size=25 value='".$ls_cuenta."' readonly>";
				$lo_object[$li_fila][4]="<input name=txtmoncuecar".$li_fila." type=text id=txtmoncuecar".$li_fila." class=sin-borde  style=text-align:right  size=25 onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$li_moncue."' readonly>".
				                        "<input name=txtcodprocar".$li_fila."  type=hidden id=txtcodprocar".$li_fila."  value='".$ls_codpro."'>".
										"<input name=estclacar".$li_fila."  type=hidden id=estclacar".$li_fila."  value='".$ls_estcla."'>";
			   // $lo_object[$li_fila][5]="<a href=javascript:ue_delete_cuenta_cargo('".$li_fila."','".$as_tipo."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>".
										
			}
		}
		$ai_total=$li_total+1;
		$lo_object[$ai_total][1]="<input name=txtcodcargo".$ai_total." type=text id=txtcodcargo".$ai_total." class=sin-borde  style=text-align:center size=12 value='' readonly>";
		$lo_object[$ai_total][2]="<input name=txtprogramaticacar".$ai_total." type=text id=txtprogramaticacar".$ai_total." class=sin-borde  style=text-align:center size=75 value='' readonly>";
		$lo_object[$ai_total][3]="<input name=txtcuentacar".$ai_total."       type=text id=txtcuentacar".$ai_total."       class=sin-borde  style=text-align:center size=25 value='' readonly>";
		$lo_object[$ai_total][4]="<input name=txtmoncuecar".$ai_total."       type=text id=txtmoncuecar".$ai_total."       class=sin-borde  style=text-align:right  size=25 value='' readonly>";
		$lo_object[$ai_total][5]="<input name=txtcodprocar".$ai_total."       type=hidden id=txtcodprocar".$ai_total."  value=''><input name=estclacar".$li_fila."  type=hidden id=estclacar".$li_fila."  value=''>";        

		print "<p>&nbsp;</p>";
		print "  <table width='840' border='0' align='center' cellpadding='0' cellspacing='0'";
		print "    <tr>";
		//print "      <td  align='left'><a href='javascript:ue_catalogo_cuentas_cargos();'><img src='../shared/imagebank/tools/nuevo.gif' width='20' height='20' border='0' title='Agregar Cuenta'>Agregar Cuenta Otros Cr&eacute;ditos</a>&nbsp;&nbsp;</td>";
		print "    </tr>";
		print "  </table>";
		$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Cuentas Otros Cr&eacute;ditos","gridcuentascargos");
		unset($io_dscuentas);
	}// end function uf_print_cuentas_cargo
function uf_cargar_dtnotacon()
{
    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    //	     Function: uf_cargar_dtnotacon
    //		   Access: public
    //	  Description: Funcion para pintar detalles contables a la nota de debito y credito solo para recepciones documento tipo contable
    //	   Creado Por: Ing. Nelson Barraez
    // Fecha Creacin: 27/05/2007 								Fecha ltima Modificacin :
    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    require_once "../../shared/class_folder/grid_param.php";
    require_once "../../shared/class_folder/class_datastore.php";
    $io_grid = new grid_param();
    global $io_funciones_cxp;
    $io_grid = new grid_param();
    $ds_detscg = new class_datastore();
    $ldec_total = 0;
    $li_totalactual = $io_funciones_cxp->uf_obtenervalor("totalactual", "");
    $ls_tiponota = $io_funciones_cxp->uf_obtenervalor("tiponota", "");
    $ls_cuentaprov = $io_funciones_cxp->uf_obtenervalor("txtctaprov", "");
    $ls_denctaprov = $io_funciones_cxp->uf_obtenervalor("denctascg", "");
    $ls_tipproben = $io_funciones_cxp->uf_obtenervalor("tipproben", "");
    $ls_codproben = trim($io_funciones_cxp->uf_obtenervalor("codproben", ""));
    $ls_numrecdoc = trim($io_funciones_cxp->uf_obtenervalor("numrecdoc", ""));
    $ls_codtipdoc = $io_funciones_cxp->uf_obtenervalor("codtipdoc", "");
    $ldec_totaldebe = 0;
    $ldec_totalhaber = 0;
    if ($li_totalactual == 0) {
        uf_dt_nota();
    } else {
        for ($lx = 1; $lx <= 4; $lx++) {
            $lo_object2[$lx][1] = "<input type=text name=txtcuentaspgncnd" . $lx . " id=txtcuentaspgncnd" . $lx . " class=sin-borde style=text-align:center size=22 readonly ><input type=hidden name=txtscgcuentadt" . $lx . "    id=txtscgcuentadt" . $lx . "  readonly><input type=hidden name=txtdenscgcuentadt" . $lx . "    id=txtdenscgcuentadt" . $lx . "><input type=hidden name=txtestcargo" . $lx . "    id=txtestcargo" . $lx . ">";
            $lo_object2[$lx][2] = "<input type=text name=txtcodestproncnd" . $lx . " id=txtcodestproncnd" . $lx . " class=sin-borde style=text-align:center   size=40    readonly><input name=txtcodpro" . $lx . " type=hidden id=txtcodpro" . $lx . " >";
            $lo_object2[$lx][3] = "<input type=text name=txtestclaaux" . $lx . "     id=txtestclaaux" . $lx . "     class=sin-borde style=text-align:center   size=20   readonly><input name=txtestclancnd" . $lx . " type=hidden id=txtestclancnd" . $lx . " >";
            $lo_object2[$lx][4] = "<input type=text name=txtdencuentancnd" . $lx . " id=txtdencuentancnd" . $lx . " class=sin-borde style=text-align:left size=39   readonly>";
            $lo_object2[$lx][5] = "<input type=text name=txtmontoncnd" . $lx . "     id=txtmontoncnd" . $lx . "     class=sin-borde style=text-align:right  size=20 readonly>";
        }
        for ($li = 1; $li <= $li_totalactual; $li++) {
            $ls_cuenta = $io_funciones_cxp->uf_obtenervalor("txtscgcuentancnd" . $li, "");
            $ls_dencuenta = $io_funciones_cxp->uf_obtenervalor("txtdencuentascgncnd" . $li, "");
            $ldec_mondeb = $io_funciones_cxp->uf_obtenervalor("txtdebencnd" . $li, "");
            $ldec_monhab = $io_funciones_cxp->uf_obtenervalor("txthaberncnd" . $li, "");
            if ($ls_tiponota == "NC") {
                if ($li == 1) {
                    $ds_detscg->insertRow("txtscgcuentancnd", $ls_cuentaprov);
                    $ds_detscg->insertRow("txtdencuentascgncnd", $ls_denctaprov);
                    $ds_detscg->insertRow("txtdebencnd", 0, 00);
                    $ds_detscg->insertRow("txthaberncnd", "0,00");
                    $ds_detscg->insertRow("txtdebhab", '');
                }
                $ds_detscg->insertRow("txtscgcuentancnd", $ls_cuenta);
                $ds_detscg->insertRow("txtdencuentascgncnd", $ls_dencuenta);
                $ds_detscg->insertRow("txtdebencnd", $ldec_monhab);
                $ds_detscg->insertRow("txthaberncnd", $ldec_mondeb);
                $ds_detscg->insertRow("txtdebhab", 'H');
                $ldec_monto = str_replace(".", "", $ldec_mondeb);
                $ldec_monto = str_replace(",", ".", $ldec_monto);
                $ldec_total = $ldec_total + $ldec_monto;
            } else {
                $ds_detscg->insertRow("txtscgcuentancnd", $ls_cuenta);
                $ds_detscg->insertRow("txtdencuentascgncnd", $ls_dencuenta);
                $ds_detscg->insertRow("txtdebencnd", $ldec_mondeb);
                $ds_detscg->insertRow("txthaberncnd", $ldec_monhab);
                $ds_detscg->insertRow("txtdebhab", 'D');
                $ldec_monto = str_replace(".", "", $ldec_mondeb);
                $ldec_monto = str_replace(",", ".", $ldec_monto);
                $ldec_total = $ldec_total + $ldec_monto;
            }
        }
        $ldec_total = number_format($ldec_total, 2, ",", ".");
        if ($ls_tiponota == "ND") {
            $ldec_mondebe = "0,00";
            $ldec_monhaber = $ldec_total;
            $li_aux++;
            $ds_detscg->insertRow("txtscgcuentancnd", $ls_cuentaprov);
            $ds_detscg->insertRow("txtdencuentascgncnd", $ls_denctaprov);
            $ds_detscg->insertRow("txtdebencnd", $ldec_mondebe);
            $ds_detscg->insertRow("txthaberncnd", $ldec_monhaber);
            $ds_detscg->insertRow("txtdebhab", 'H');
        } else {
            $ldec_mondebe = $ldec_total;
            $ldec_monhaber = "0,00";
            $ds_detscg->updateRow("txtdebencnd", $ldec_mondebe, 1);
            $ds_detscg->updateRow("txtdebhab", 'D', 1);
        }
        $aa_items = array('0' => 'txtscgcuentancnd', '1' => 'txtdebhab');
        $aa_sum = array('0' => 'txtdebencnd', '1' => 'txthaberncnd');
        $ds_detscg->group_by_conformato($aa_items, $aa_sum, 'txtscgcuentancnd');
        $li_totalrows = $ds_detscg->getRowCount("txtscgcuentancnd");
        for ($la = 1; $la <= $li_totalrows; $la++) {
            $ls_scgcuenta = $ds_detscg->getValue("txtscgcuentancnd", $la);
            $ls_dencuenta = $ds_detscg->getValue("txtdencuentascgncnd", $la);
            $ldec_mondebe = $ds_detscg->getValue("txtdebencnd", $la);
            $ldec_monhaber = $ds_detscg->getValue("txthaberncnd", $la);
            $ldec_auxdebe = str_replace(".", "", $ldec_mondebe);
            $ldec_auxdebe = str_replace(",", ".", $ldec_auxdebe);
            $ldec_auxhaber = str_replace(".", "", $ldec_monhaber);
            $ldec_auxhaber = str_replace(",", ".", $ldec_auxhaber);
            $ldec_totaldebe = $ldec_totaldebe + $ldec_auxdebe;
            $ldec_totalhaber = $ldec_totalhaber + $ldec_auxhaber;
            $lo_object[$la][1] = "<input type=text name=txtscgcuentancnd" . $la . "    id=txtscgcuentancnd" . $la . " class=sin-borde style=text-align:center size=22 value='{$ls_scgcuenta}'    readonly onClick='javascript:uf_select_filadelete({$la});'>";
            $lo_object[$la][2] = "<input type=text name=txtdencuentascgncnd" . $la . "    class=sin-borde style=text-align:left   size=59 value='{$ls_dencuenta}'    readonly onClick='javascript:uf_select_filadelete({$la});'>";
            $lo_object[$la][3] = "<input type=text name=txtdebencnd" . $la . "    class=sin-borde style=text-align:right size=20  value='{$ldec_mondebe}'   readonly onClick='javascript:uf_select_filadelete({$la});uf_mostrar_alerta();'>";
            $lo_object[$la][4] = "<input type=text name=txthaberncnd" . $la . "    class=sin-borde style=text-align:right  size=20 value='{$ldec_monhaber}' readonly onClick='javascript:uf_select_filadelete({$la});uf_mostrar_alerta();'>";
            $lo_object[$la][5] = "<a href=javascript:uf_delete_dtnota('" . $la . "');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
        }
        $lo_title[1] = "C&oacute;digo Estad&iacute;stico";
        $lo_title[2] = "C&oacute;digo Program&aacute;tico ";
        $lo_title[3] = "Estatus";
        $lo_title[4] = "Denominaci&oacute;n";
        $lo_title[5] = "Monto";
        $io_grid->make_gridScroll($lx - 1, $lo_title, $lo_object2, 758, "Detalle Presupuestario de la Nota", "grid", 120);
        $lo_titlesc[1] = "Cuenta";
        $lo_titlesc[2] = "Denominaci&oacute;n";
        $lo_titlesc[3] = "Monto Debe";
        $lo_titlesc[4] = "Monto Haber";
        $lo_titlesc[5] = " ";
        $io_grid->make_gridScroll($la - 1, $lo_titlesc, $lo_object, 758, "Detalle Contable de la Nota", "gridscg", 120);
        print "<input type=hidden name=numrowsprenota id=numrowsprenota value=" . ($lx - 1) . ">";
        print "<input type=hidden name=numrowsconnota id=numrowsconnota value=" . ($la - 1) . ">";
        print "<table width='758' border='0' align='center' cellpadding='0' cellspacing='0' class='celdas-blancas'>";
        print "        <tr>";
        print "          <td width='508' height='22' align='right'><div align='right'><strong>Total Debe</strong></div></td>";
        print "          <td width='80' height='22' align='right'><input name='txtmontodeb'  type='text' id='txtmontodeb' style='text-align:right' value=" . number_format($ldec_totaldebe, 2, ",", ".") . " size='22' maxlength='20' readonly align='right' class='letras-negrita'></td>";
        print "          <td width='90' height='22' align='right'><div align='right'><strong>Total Haber</strong></div></td>";
        print "          <td width='80' height='22' align='right'><input name='txtmontohab'  type='text' id='txtmontohab' style='text-align:right' value=" . number_format($ldec_totalhaber, 2, ",", ".") . " size='22' maxlength='20' readonly align='right' class='letras-negrita'></td>";
        print "        </tr>";
        print "        <tr>";
        print "          <td width='508' height='22' align='right'>&nbsp;</td>";
        print "          <td width='80' height='22' align='right'>&nbsp;</td>";
        print "          <td width='90' height='22' align='right'>&nbsp;</td>";
        print "          <td width='80' height='22' align='right'>&nbsp;</td>";
        print "        </tr>";
        print "</table>";
        print "<table width=780 border=0 cellpadding=0 cellspacing=0 class=formato-blanco>";
        print " <tr class=titulo-ventana>";
        print "  <td height=23 colspan=4><div align=center class=Estilo1><b>TOTALES</b></div></td>";
        print "  </tr>";
        print "<tr height=20>";
        print " <td width=49>&nbsp;</td>";
        print " <td width=413>&nbsp;</td>";
        print " <td width=167><div align=right><b>SUBTOTAL</b></div></td>";
        print " <td width=151><input name=txtmontosincargo type=text id=txtmontosincargo value=" . $ldec_total . " style='text-align:right' class='letras-negrita' size='22' maxlength='20' readonly></td>";
        print "</tr>";
        print "<tr height=20>";
        print " <td width=49>&nbsp;</td>";
        print " <td width=413>&nbsp;</td>";
        print " <td width=167><div align=right><input name='btnotroscreditos' type='button' class='boton' id='btnotroscreditos' value='Otros Cr&eacute;ditos' onClick='javascript:uf_agregar_dtcargos(\"\",\"\",\"\",\"\",\"\");'></div></td>";
        print " <td width=151><input name=txtmontocargo type=text id=txtmontocargo value='0,00' style='text-align:right' class='letras-negrita' size='22' maxlength='20' readonly></td>";
        print "</tr>";
        print "<tr height=20>";
        print " <td width=49>&nbsp;</td>";
        print " <td width=413>&nbsp;</td>";
        print " <td width=147><div align=right><b>MONTO TOTAL</b></div></td>";
        print " <td width=171><input name=txtmonto type=text class=texto-rojo id=txtmonto value=" . $ldec_total . " style='text-align:right' size='22' maxlength='20' readonly></td>";
        print "</tr>";
        print "</table>";
    }
}
				   $ldec_monto    = $ds_dt_scg->data["monto"][$li_s];
				   if ($ls_debhab=='D')
				      {
					    $ldec_mondeb = number_format($ldec_monto,2,",",".");
					    $ldec_monhab = "";
				      }
				   else
				      {
					    $ldec_monhab = number_format($ldec_monto,2,",",".");
					    $ldec_mondeb = "";
				      }
				   if (array_key_exists("spg_cuenta",$ds_dt_spg->data))
				      {
					    if (array_key_exists($li_s,$ds_dt_spg->data["spg_cuenta"]))
					       {
						     $ls_cuentaspg   = trim($ds_dt_spg->getValue("spg_cuenta",$li_s));
						     $ls_estpro      = $ds_dt_spg->getValue("estpro",$li_s);	  
						     $ldec_monto_spg = number_format($ds_dt_spg->getValue("monto",$li_s),2,",",".");
					       }
					    else
						   {
							 $ls_cuentaspg   = "";	
							 $ls_estpro      = "";	  
							 $ldec_monto_spg = "";
						   }
					  }
				   else
				      {
						$ls_cuentaspg   = "";	
						$ls_estpro      = "";	  
						$ldec_monto_spg = "";
		<script language=javascript>
		 alert('No hay datos a reportar');
		 close();
		</script>
		<?php
		exit();
	}
	$io_pdf=new Cezpdf('LETTER','portrait'); // Instancia de la clase PDF
	$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
	$io_pdf->ezSetCmMargins(3.5,3.5,3.5,3.5); // Configuración de los margenes en centímetros
	uf_print_encabezado_pagina("Estado de Cuenta (Colocaciones)","Del $ld_fecdesde al $ld_fechasta",$io_pdf); // Imprimimos el encabezado de la página
	$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
	$ldec_saldoactual=$ldec_saldoant+$ldec_total_debe-$ldec_total_haber;
	$ldec_saldo=$ldec_saldoant;
	$ldec_saldoant=number_format($ldec_saldoant,2,",",".");
	$ls_nomban=$ds_edocta->getValue("nomban",1);
	$ls_nomtipcta=$ds_edocta->getValue("nomtipcta",1);
	uf_print_cabecera($ls_nomban,$ls_ctaban,$ls_nomtipcta,$ldec_saldoant,$io_pdf); // Imprimimos la cabecera del registro
	$li_pos=0;
	for($li_i=1;$li_i<=$li_totrow;$li_i++)
	{
		$io_pdf->transaction('start'); // Iniciamos la transacción
		$thisPageNum=$io_pdf->ezPageCount;
		$li_totprenom=0;
		$ldec_mondeb=0;
		$ldec_monhab=0;
		$li_totant=0;
		$li_pos=$li_pos+1;
		//unset($la_data);
		$ls_numdoc=$ds_edocta->getValue("numdoc",$li_i);
		$ls_codban=$ds_edocta->getValue("codban",$li_i);
   $io_valuacion->uf_select_variaciones($ls_codcon,&$ld_dis,2);
   $ls_desobr=$la_contrato["desobr"][1];
   $ls_puncue=$la_contrato["codasi"][1];
   $ls_estcon=$io_funcsob->uf_convertir_numeroestado ($la_contrato["estcon"][1]);
   $ls_moncon=$la_contrato["monto"][1];
   $ls_feccon=$io_function->uf_convertirfecmostrar($la_contrato["feccon"][1]);
   $ls_totcon=$la_contrato["monto"][1]+$ld_aum+$ld_dis;
   
   $lb_validop=$io_valuacion->uf_select_partidasasignadas($ls_codcon,&$la_partidas,&$li_totalfilas);
	if($lb_validop)
	{
	$io_datastore->data=$la_partidas;
	$li_filaspartidas=$io_datastore->getRowCount("codpar");
	for($li_i=1;$li_i<=$li_filaspartidas;$li_i++)
	{
		    $ls_codigo=$io_datastore->getValue("codpar",$li_i);
			$ls_nombre=$io_datastore->getValue("nompar",$li_i);
			$ls_unidad=$io_datastore->getValue("nomuni",$li_i);
			$ls_preuni=$io_datastore->getValue("prerefparasi",$li_i);
			$ls_preunimod=$io_datastore->getValue("preparasi",$li_i);
			$ls_canttot=$io_datastore->getValue("canxeje",$li_i);
			$ls_canpareje=$io_datastore->getValue("canasipareje",$li_i);
			$ls_codasi=$io_datastore->getValue("codasi",$li_i);
			$ls_codobr=$io_datastore->getValue("codobr",$li_i);
			$la_objectpartidas[$li_i][1]="<input type=checkbox name=flagpar".$li_i." value=1 class=sin-borde>";
	        $la_objectpartidas[$li_i][2]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." value='".$ls_codigo."' class=sin-borde style= text-align:center size=8 readonly><input name=canpareje".$li_i." type=hidden id=canpareje".$li_i." value='".$ls_canpareje."'><input name=codasi".$li_i." type=hidden id=codasi".$li_i." value='".$ls_codasi."'><input name=codobr".$li_i." type=hidden id=codobr".$li_i." value='".$ls_codobr."'>";
	        $la_objectpartidas[$li_i][3]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." value='".$ls_nombre."' class=sin-borde style= text-align:left size=25 readonly>";
	        $la_objectpartidas[$li_i][4]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." value='".$ls_unidad."' class=sin-borde size=5 style= text-align:center readonly>";
	        $la_objectpartidas[$li_i][5]="<input name=txtpreuni".$li_i." type=text id=txtpreuni".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center readonly>";
			$la_objectpartidas[$li_i][6]="<input name=txtpreunimod".$li_i." type=text id=txtpreunimod".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preunimod)."' class=sin-borde size=15 style= text-align:center readonly>";
	        $la_objectpartidas[$li_i][7]="<input name=txtcanttot".$li_i." type=text id=txtcanttot".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_canttot)."' class=sin-borde size=5 style= text-align:center readonly>";
		 $io_pdf->ezSetCmMargins(6,3.5,3.5,3.5); // Configuración de los margenes en centímetros
	   	 $ls_nomtipcta     = $io_report->uf_select_data($io_sql,"SELECT * FROM scb_tipocuenta t, scb_ctabanco c WHERE c.codemp='".$ls_codemp."' AND c.ctaban='".$ls_ctaban."' AND c.codtipcta=t.codtipcta ","nomtipcta");	
		 $ldec_saldoactual = ($ldec_saldoant+$ldec_total_debe-$ldec_total_haber);
	     $ldec_saldo       = $ldec_saldoant;
		 $ldec_saldoant    = number_format($ldec_saldoant,2,",",".");
		 uf_print_encabezado_pagina("<b>Libro de Banco $ls_tipbol</b>","<b>Del</b> $ld_fecdesde <b>al</b> $ld_fechasta",$ls_nomban,$ls_nomtipcta,$ls_ctaban,$ls_denctaban,$ldec_saldoant,$ls_desconmov,$io_pdf); // Imprimimos el encabezado de la página
	     $io_pdf->ezStartPageNumbers(720,50,10,'','',1); // Insertar el número de página
		 uf_print_cabecera($li_totrows,$io_pdf); // Imprimimos la cabecera del registro
         $li_estmodest = $_SESSION["la_empresa"]["estmodest"];
		 if ($li_totrows>0)
		 {
		 for ($li_i=1;$li_i<=$li_totrows;$li_i++)
		     {
				$io_pdf->transaction('start'); // Iniciamos la transacción
			    $thisPageNum    = $io_pdf->ezPageCount;
			    $ld_fecmov	    = $io_funciones->uf_convertirfecmostrar($ds_edocta->getValue("fecmov",$li_i));
			    $ls_operacion   = $ds_edocta->getValue("operacion",$li_i);
		   	    $ls_numdoc	    = $ds_edocta->getValue("numdoc",$li_i);
			    $ls_nomproben   = $ds_edocta->getValue("beneficiario",$li_i);
			    $ls_region      = $ds_edocta->getValue("region",$li_i);
				if ($ls_region=='---seleccione---')
				   {
				     $ls_region = "";
				   } 
				$ls_codestpro   = $ds_edocta->getValue("codestpro",$li_i);
			    if ($li_estmodest=='1')
				   {
				     $ls_codestpro1 = substr($ls_codestpro,0,20);
					 $ls_codestpro2 = substr($ls_codestpro,20,6);
					 $ls_codestpro3 = substr($ls_codestpro,26,3);
  				     $ls_codestpro  = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
			$sel_N="selected";
			}
			uf_cargar_procedencias($SQL);
			$li_rowcount=$ds_procedencias->getRowCount("procede");
			
			?>
			<td width="78" align="right"> Procedencia	    </td>
            <td align="left" width="118">
			
              <select name="procede" id="procede">
			  
                <option value="N" "<? print $sel_N?>" >Ninguno</option>
				<?php
		  	for($li_i=1;$li_i<=$li_rowcount;$li_i++)
			{
				$ls_procede=$ds_procedencias->getValue("procede",$li_i);
				if($ls_procede_ant==$ls_procede)
				{
				?>
                <option value="<? print $ls_procede?>" selected><? print $ls_procede?></option>
                <?php
				}
				else
				{
				?>
                <option value="<? print $ls_procede?>"><? print $ls_procede?></option>
                <?php
				}
			}
			?>
              </select>
  $int_spg->uf_init_niveles();
  $arr_spg=$int_spg->ia_niveles_spg;
  function uf_obtener_seccion_cuenta($ls_spg_cuenta,$desde,$hasta)
  {
  	  $ls_seccion="";
	  for($li=$desde;$li<=$hasta;$li++)
	  {
	  	 $ls_seccion=$ls_seccion.$ls_spg_cuenta{$li};	
	  }
	  return $ls_seccion;
  }

  for($li_i=0;$li_i<$li_totrow;$li_i++)
  {
		$li_row=$li_i+1;
		$la_data[$li_i]["ae"]=substr($ds_dt_spg->getValue("estpro",$li_row),20,6);
		$la_data[$li_i]["uel"]=$ds_dt_spg->getValue("coduniadm",$li_row);
		$ls_spg_cuenta=$ds_dt_spg->getValue("spg_cuenta",$li_row);
	    $li_len=strlen($ls_spg_cuenta);
		$la_data[$li_i]["pa"]=uf_obtener_seccion_cuenta($ls_spg_cuenta,0,$arr_spg[1]);
		$la_data[$li_i]["ge"]=uf_obtener_seccion_cuenta($ls_spg_cuenta,$arr_spg[1]+1,$arr_spg[2]);
		$la_data[$li_i]["es"]=uf_obtener_seccion_cuenta($ls_spg_cuenta,$arr_spg[2]+1,$arr_spg[3]);
		$la_data[$li_i]["se"]=uf_obtener_seccion_cuenta($ls_spg_cuenta,$arr_spg[3]+1,$arr_spg[4]);
		$la_data[$li_i]["denominacion"]=$ds_dt_spg->getValue("denominacion",$li_row);
		$la_data[$li_i]["monto"]=number_format($ds_dt_spg->getValue("monto",$li_row),2,",",".");
  }
  $la_anchos_col = array(8,13,4,4,4,8.04,93,31.7);  
  $la_indices_claves=array("ae","uel","pa","ge","es","se","denominacion","monto");
  $la_filasusadas=$io_pdf->obtener_lineas_por_fila(6,$la_anchos_col,$la_data,$la_indices_claves,0);
  $li_totalfilasusadas=array_sum($la_filasusadas);
  if($li_totalfilasusadas<($li_maxfilas*2))
	function uf_select_cmp_ret($as_numcom,$as_codret,&$object,&$li_total_rows)
	{
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//  Function:    uf_cargar_dt_cmp_ret
		//	Description: - Metodo que se encarga de seleccionar los detalles de un comprobante de retencion y los retorna en 
		//				   un arreglo de Objects que sera enviado a la clase grid_param.	
		//  Arguments:   - $as_numcom:    - Numero del comprobante de retenci�n a buscar.
		//				 - $as_codret:    - Codigo de la Retenci� a buscar.	
		//				 - $object:       - Arreglo de object que se retorna como referencia, lleno con los detalles del 
		//									comprobante en caso de poseer.
		//				 - $li_total_rows - Total de filas retornadas en la consulta.
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////		
		$ds_temp=new class_datastore();
		$li_total_rows=0;		
		$ls_codemp=$this->dat_emp["codemp"];
		
		$ls_sql="SELECT codemp, codret, numcom, numope, fecfac, numfac, numcon, numnd, numnc, 
		                tiptrans, totcmp_sin_iva, totcmp_con_iva, basimp, porimp, totimp,
						iva_ret, desope, numsop, codban, ctaban, numdoc, codope 
				 FROM   scb_dt_cmp_ret 
				 WHERE  codemp='".$ls_codemp."' AND numcom='".$as_numcom."' AND codret='".$as_codret."'";	
		
		$rs_result=$this->io_sql->select($ls_sql);
		
		if($rs_result===false)
		{
			$this->is_msg_error="Error en uf_cargar_dt_cmp_ret, ".$this->io_function->uf_convertirmsg($this->io_sql->message);
			$lb_valido=false;
		}
		else
		{
			if($row=$this->io_sql->fetch_row($rs_result))
			{
				$ds_temp->data=$this->io_sql->obtener_datos($rs_result);
				$li_total_rows=$ds_temp->getRowCount("numcom");
				for($li_i=1;$li_i<=$li_total_rows;$li_i++)
				{
					$ls_numope  = $ds_temp->getValue("numope",$li_i);	
					$ls_numfac  = $ds_temp->getValue("numfac",$li_i);	
					$ls_numcon  = $ds_temp->getValue("numcon",$li_i);	
					$ld_fecfac  = $ds_temp->getValue("fecfac",$li_i);	
					$ld_fecfac  = $this->io_function->uf_convertirfecmostrar($ld_fecfac);
					$ldec_totalsiniva= $ds_temp->getValue("totcmp_sin_iva",$li_i);	
					$ldec_totalconiva= $ds_temp->getValue("totcmp_con_iva",$li_i);	
					$ldec_baseimp    = $ds_temp->getValue("basimp",$li_i);	
					$ldec_porimp     = $ds_temp->getValue("porimp",$li_i);	
					$ldec_totimp     = $ds_temp->getValue("totimp",$li_i);
					$ldec_ivaret     = $ds_temp->getValue("iva_ret",$li_i);	
					$ls_numdoc  = $ds_temp->getValue("numdoc",$li_i);	
					
					
				  	$ldec_totalsiniva = number_format($ldec_totalsiniva,2,",","."); 
					$ldec_totalconiva = number_format($ldec_totalconiva,2,",",".");			
					$ldec_baseimp     = number_format($ldec_baseimp,2,",",".");			
					$ldec_porimp      = number_format($ldec_porimp,2,",",".");			
				    $ldec_totimp      = number_format($ldec_totimp,2,",",".");				
					$ldec_ivaret      = number_format($ldec_ivaret,2,",",".");		
					
					$object[$li_i][1] = "<input type=text name=txtnumope".$li_i." value='$ls_numope' style=text-align:center class=sin-borde size=15 readonly>"; 
					$object[$li_i][2] = "<input type=text name=txtnumfac".$li_i." value='$ls_numfac' style=text-align:center class=sin-borde size=16 readonly>";
					$object[$li_i][3] = "<input type=text name=txtnrocon".$li_i." value='$ls_numcon' style=text-align:center class=sin-borde size=16 readonly>";					
					$object[$li_i][4] = "<input type=text name=txtfecfac".$li_i." value='$ld_fecfac' style=text-align:center class=sin-borde size=13 readonly>";
					$object[$li_i][5] = "<input type=text name=txtsiniva".$li_i." value='$ldec_totalsiniva' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
					$object[$li_i][6] = "<input type=text name=txtconiva".$li_i." value='$ldec_totalconiva' style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
					$object[$li_i][7] = "<input type=text name=txtbasimp".$li_i." value='$ldec_baseimp'     style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";
					$object[$li_i][8] = "<input type=text name=txtporiva".$li_i." value='$ldec_porimp'      style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) <a href=javascript:uf_iva(".$li_i.");><img src=../shared/imagebank/tools15/buscar.gif width=15 height=15 border=0></a>";						
					$object[$li_i][9] = "<input type=text name=txttotimp".$li_i." value='$ldec_totimp'      style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";					
					$object[$li_i][10] = "<input type=text name=txtivaret".$li_i." value='$ldec_ivaret'      style=text-align:right class=sin-borde size=15 onKeyPress=return(currencyFormat(this,'.',',',event)) >";			
					$object[$li_i][11]= "<input type=text name=txtnumdoc".$li_i." value='$ls_numdoc'        style=text-align:right class=sin-borde size=16 onKeyPress=return(currencyFormat(this,'.',',',event)) >";					
					$object[$li_i][12]= "<a href=javascript:uf_delete_dt('$ls_numope','$ls_numfac');><img src=../shared/imagebank/tools15/eliminar.gif alt='Eliminar Retencion' width=15 height=10 border=0></a><input type=hidden name=hidforcar".$li_i."  value=''><input type=hidden name=hidcodded".$li_i."  value=''><input type=hidden name=hidforded".$li_i."  value=''>";	
				}
			}
		}		
	}		
	function uf_select_cmp_ret($as_numcom,$as_codret,&$object,&$li_total_rows)
	{
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//
		//  Function:    uf_cargar_dt_cmp_ret
		//
		//	Description: - Metodo que se encarga de seleccionar los detalles de un comprobante de retencion y los retorna en 
		//				   un arreglo de Objects que sera enviado a la clase grid_param.	
		//
		//  Arguments:   - $as_numcom:    - Numero del comprobante de retenciónn a buscar.
		//				 - $as_codret:    - Codigo de la Retención a buscar.	
		//				 - $object:       - Arreglo de object que se retorna como referencia, lleno con los detalles del 
		//									comprobante en caso de poseer.
		//				 - $li_total_rows - Total de filas retornadas en la consulta.
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		
		$ds_temp=new class_datastore();
		$li_total_rows=0;
		$ls_codemp=$this->dat_emp["codemp"];
		
		
		$ls_origen=$this->uf_select_origen($as_codret,$as_numcom);
		$ls_sql="SELECT codemp, codret, numcom, numope, fecfac, numfac, numcon, numnd, 
				numnc, tiptrans, totcmp_sin_iva, totcmp_con_iva, basimp, porimp, totimp, 
				iva_ret, desope, numsop, codban, ctaban, numdoc, codope 
				 FROM scb_dt_cmp_ret 
				 WHERE codemp='".$ls_codemp."' AND numcom='".$as_numcom."' AND codret='".$as_codret."'";	
	//	print $ls_sql;
		$rs_result=$this->io_sql->select($ls_sql);
		
		if($rs_result===false)
		{
			$this->is_msg_error="Error en uf_cargar_dt_cmp_ret, ".$this->io_function->uf_convertirmsg($this->io_sql->message);
			$lb_valido=false;
		}
		else
		{
			if($row=$this->io_sql->fetch_row($rs_result))
			{
				$ds_temp->data=$this->io_sql->obtener_datos($rs_result);
			      //print_r($ds_temp->data);
				$li_total_rows=$ds_temp->getRowCount("numcom");
				for($li_i=1;$li_i<=$li_total_rows;$li_i++)
				{
					$ls_numope  = $ds_temp->getValue("numope",$li_i);	
					$ls_numfac  = $ds_temp->getValue("numfac",$li_i);	
					$ld_fecfac  = $ds_temp->getValue("fecfac",$li_i);	
					$ld_fecfac  = $this->io_function->uf_convertirfecmostrar($ld_fecfac);
					$ldec_totalsiniva= $ds_temp->getValue("totcmp_sin_iva",$li_i);	
					$ldec_totalconiva= $ds_temp->getValue("totcmp_con_iva",$li_i);	
					$ldec_baseimp    = $ds_temp->getValue("basimp",$li_i);	
					$ldec_porimp     = $ds_temp->getValue("porimp",$li_i);	
					$ldec_totimp     = $ds_temp->getValue("totimp",$li_i);
					$ldec_ivaret     = $ds_temp->getValue("iva_ret",$li_i);	
					$ls_numdoc  = $ds_temp->getValue("numdoc",$li_i);	
					//print "origen   '".$ls_origen."'";
					if($ls_origen=='M')
						$object[$li_i][1] = "<a href=\"javascript:aceptar('$as_numcom','$as_codret','$ls_numope','$ls_numfac');\">".$ls_numope."</a>";
					elseif($ls_origen=='A')
						$object[$li_i][1] = $ls_numope;
					$object[$li_i][2] = $ls_numfac;
					$object[$li_i][3] = $ld_fecfac;
					$object[$li_i][4] = number_format($ldec_totalsiniva,2,",","."); 
					$object[$li_i][5] = number_format($ldec_totalconiva,2,",",".");			
					$object[$li_i][6] = number_format($ldec_baseimp,2,",",".");			
					$object[$li_i][7] = number_format($ldec_porimp,2,",",".");			
					$object[$li_i][8] = number_format($ldec_totimp,2,",",".");							
					$object[$li_i][9] = number_format($ldec_ivaret,2,",",".");			
					$object[$li_i][10]= $ls_numdoc;			
					$object[$li_i][11]= "<div align=center><a href=javascript:uf_delete_dt('$ls_numope','$ls_numfac');><img src=../shared/imagebank/tools15/eliminar.gif alt='Eliminar Retención' width=15 height=15 border=0></a></div>";
	
				}
			}
		}	
	
	}
	function uf_calcular($data,$ls_mesano)		 
	{
		$ds_mov=new class_datastore();	
		$ds_mov->data=$data;
		$li_total=$ds_mov->getRowCount("numdoc");
		$ldec_CreditosTmp=0;
		$ldec_CreditosTmpNeg=0;
		$ldec_DebitosTmp=0;
		$ldec_DebitosTmpNeg=0;
		for($li_i=1;$li_i<=$li_total;$li_i++)
		{
			$ls_codope=$ds_mov->getValue("codope",$li_i);
			$ls_estmov=$ds_mov->getValue("estmov",$li_i);
			$ldec_monto=$ds_mov->getValue("monto",$li_i);
			if((($ls_codope=='CH')||($ls_codope=='ND')||($ls_codope=='RE'))&&($ls_estmov<>'A'))
			{
				$ldec_CreditosTmp=$ldec_CreditosTmp+$ldec_monto;
			}
			if((($ls_codope=='CH')||($ls_codope=='ND')||($ls_codope=='RE'))&&($ls_estmov=='A'))
			{
				$ldec_CreditosTmpNeg=$ldec_CreditosTmpNeg+$ldec_monto;
			}
			if((($ls_codope=='DP')||($ls_codope=='NC'))&&($ls_estmov<>'A'))
			{
				$ldec_DebitosTmp=$ldec_DebitosTmp+$ldec_monto;
			}
			if((($ls_codope=='DP')||($ls_codope=='NC'))&&($ls_estmov=='A'))
			{
				$ldec_DebitosTmpNeg=$ldec_DebitosTmpNeg+$ldec_monto;
			}
		}
		$ldec_DebitosAnt = $ldec_DebitosTmp-$ldec_DebitosTmpNeg;
		$ldec_CreditosAnt = $ldec_CreditosTmp-$ldec_CreditosTmpNeg;
		$ldec_SaldoAnterior = $ldec_DebitosAnt - $ldec_CreditosAnt;
				
		return round($ldec_SaldoAnterior,2);	
	
	}
	 $io_msg->message("La Obra seleccionada ya fue asignada en su totalidad!!");
	}
	
	if (!empty ($ls_ptocueasi))
	 {
	   $ls_readonly="readonly"; 
	 }
	 
	$lb_validop=$io_asignacion->uf_select_partidasobra($ls_codobrasi,&$la_partidas,&$li_totalfilas);
	if($lb_validop)
	{
	$io_datastore->data=$la_partidas;
	$li_filaspartidas=$io_datastore->getRowCount("codpar");
	for($li_i=1;$li_i<=$li_filaspartidas;$li_i++)
	{
		    $ls_codigo=$io_datastore->getValue("codpar",$li_i);
			$ls_nombre=$io_datastore->getValue("nompar",$li_i);
			$ls_unidad=$io_datastore->getValue("nomuni",$li_i);
			$ls_preuni=$io_datastore->getValue("prepar",$li_i);
			$ls_canttot=$io_datastore->getValue("canxeje",$li_i);
			$ls_canpareje=$io_datastore->getValue("canparasi",$li_i);
			$la_objectpartidas[$li_i][1]="<input type=checkbox name=flagpar".$li_i." value=1 class=sin-borde>";
	        $la_objectpartidas[$li_i][2]="<input name=txtcodpar".$li_i." type=text id=txtcodpar".$li_i." value='".$ls_codigo."' class=sin-borde style= text-align:center size=8 readonly><input name=canpareje".$li_i." type=hidden id=canpareje".$li_i." value='".$ls_canpareje."'>";
	        $la_objectpartidas[$li_i][3]="<input name=txtnompar".$li_i." type=text id=txtnompar".$li_i." value='".$ls_nombre."' class=sin-borde style= text-align:left size=25 readonly>";
	        $la_objectpartidas[$li_i][4]="<input name=txtnomuni".$li_i." type=text id=txtnomuni".$li_i." value='".$ls_unidad."' class=sin-borde size=5 style= text-align:center readonly>";
	        $la_objectpartidas[$li_i][5]="<input name=txtpreuni".$li_i." type=text id=txtpreuni".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center readonly>";
			$la_objectpartidas[$li_i][6]="<input name=txtpreunimod".$li_i." type=text id=txtpreunimod".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_preuni)."' class=sin-borde size=15 style= text-align:center onKeyPress=return(currencyFormat(this,'.',',',event))>";
	        $la_objectpartidas[$li_i][7]="<input name=txtcanttot".$li_i." type=text id=txtcanttot".$li_i." value='".$io_funcsob->uf_convertir_numerocadena($ls_canttot)."' class=sin-borde size=5 style= text-align:center readonly>";
	        $la_objectpartidas[$li_i][8]="<input name=txtcantpar".$li_i." type=text id=txtcantpar".$li_i." class=sin-borde size=5 style= text-align:center onKeyPress=return(currencyFormat(this,'.',',',event)) $ls_readonly>";
	        $la_objectpartidas[$li_i][9]="<input name=txttotal".$li_i." type=text id=txttotal".$li_i." class=sin-borde size=15 style= text-align:center readonly>";	
			if($ls_canttot==0)
				  $msg->message("Error al cargar los datos");
				}
			}//if($ls_cod_report==0409")
		}//($li_rtn>0)
			
	    elseif(($lb_valido)&&($ai_cuantos>0))
	    {
  
	     $rs_cta=$iscg_procesos->uf_select_datastore_trim( $ls_codemp, $ls_cod_report );
		 $data=$SQL->obtener_datos($rs_cta);
		 $ds_proaf=new class_datastore();
		 $ds_proaf->data=$data;
		 $li_num=$ds_proaf->getRowCount("cod_report");
		 for($i=1;$i<=$li_num;$i++)
		 { 
			$ls_status=$ds_proaf->getValue("status",$i);
			if($ls_status=="C")
			{
				?>
    <tr class="celdas-azules">
      <td ><a href="javascript: aceptar('<?php print $ds_proaf->getValue("asignado",$i);?>','<?php print $ds_proaf->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_proaf->getValue("sc_cuenta",$i);?></a></td>
      <?php
		    }
		    elseif($ls_status=="S")
		    {
			   ?>
    <tr class="celdas-blancas">
      <td ><a href="javascript: aceptar('<?php print $ds_proaf->getValue("asignado",$i);?>','<?php print $ds_proaf->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_proaf->getValue("sc_cuenta",$i);?></a></td>
      <?php
			}
			elseif($ls_status=="I")
				{
	                 $msg->message("Los datos fueron cargados");
				     $rs_cta=$iscg_procesos->uf_select_scg_datastore( $ls_codemp, $ls_cod_report );
					 $data=$SQL->obtener_datos($rs_cta);
					 $ds_prorep=new class_datastore();
					 $ds_prorep->data=$data;
					 $li_num=$ds_prorep->getRowCount("cod_report");
					 
					 for($i=1;$i<=$li_num;$i++)
					 { 
							$ls_status=$data["status"][$i];
							if($ls_status=="S")
							{
								?>
    <tr class="celdas-azules">
      <td ><a href="javascript: aceptar('<?php print $ds_prorep->getValue("asignado",$i);?>','<?php print $ds_prorep->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_prorep->getValue("sc_cuenta",$i);?></a></td>
      <?php
							}
							elseif($ls_status=="C")
							{
							   ?>
    <tr class="celdas-blancas">
      <td ><a href="javascript: aceptar('<?php print $ds_prorep->getValue("asignado",$i);?>','<?php print $ds_prorep->getValue("sc_cuenta",$i);?>','<?php print $i?>','<?php print $li_num?>','<?php print $ls_status ?>');"><?php print $ds_prorep->getValue("sc_cuenta",$i);?></a></td>
      <?php
							}
							elseif($ls_status=="I")
							{
							   ?>
    <tr class="celdas-amarillas">
      <td height="20"><?php print $ds_prorep->getValue("sc_cuenta",$i)?></td>
      <?php