PHP class_datastore::insertRow方法代码示例

	function uf_cargar_datastore_plan_cuentas($ads_cuentas)
	{
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_cargar_datastore_plan_cuentas
		//		   Access: public 
		//      Arguments: ads_cuentas // Datastored de cuentas
		//	  Description: inserta la información del saldo de la cuenta correspondiente.
		//	      Returns: booleano lb_valido
		//	   Creado Por: Ing. Wilmer Briceño
		// Modificado Por: Ing. Yesenia Moreno								Fecha Última Modificación : 31/05/2007
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		$li_fila=0;
		$i=0;
		$lb_valido=true;
		$ls_sc_cuentas="";
		$ls_denominacion="";
		$ls_status="";
		$ls_cadena="";
		$ls_sql="SELECT sc_cuenta,denominacion,status ". 	
				"  FROM scg_Cuentas " .
				" WHERE codemp='".$this->dat_emp["codemp"]."'".
				" ORDER BY sc_cuenta ";
		$rs_data=$this->io_sql->select($ls_sql);
		if($rs_data===false)
		{
			$lb_valido=false;
			$this->is_msg_error="CLASE->sigesp_int_scg MÉTODO->uf_cargar_datastore_plan_cuentas ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message);
		}
		else
		{
			$ads_cuentas=new class_datastore();
			while($row=$this->io_sql->fetch_row($rs_data)) 
			{
				$i=$i+1;
				$ls_sc_cuentas=trim($row["sc_cuenta"]);
				$ads_cuentas->insertRow("sc_cuenta",$ls_sc_cuentas);
				$ls_denominacion=trim($row["denominacion"]);
				$ads_cuentas->insertRow("denominacion",$ls_denominacion);
				$ls_status=trim($row["status"]);
				$ads_cuentas->insertRow("status",$ls_status);
			} //fin del while
		}
		$this->io_sql->free_result($rs_data);						
		return $lb_valido;
	} // end function uf_cargar_datastore_plan_cuentas

   function  uf_scg_reporte_balance_general($adt_feclimit,$ai_nivel) 
   {				 
	 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
	 //	      Function :	uf_scg_reporte_balance_general
	 //         Access :	private
	 //     Argumentos :    $adt_feclimit  // fecha  limite
     //              	    $ai_nivel  // nivel de la cuenta
     //	       Returns :	Retorna true o false si se realizo la consulta para el reporte
	 //	   Description :	Reporte que genera salida del Balance General
	 //     Creado por :    Ing. Yozelin Barragan.
	 // Fecha Creaci� :    03/05/2006          Fecha ltima Modificacion : 08/05/06     Hora :
  	 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
	  $lb_valido = true;
	  $ls_codemp = $this->dts_empresa["codemp"];
	  $this->dts_egresos->resetds("sc_cuenta");
	  $this->dts_reporte->resetds("sc_cuenta");
	  $dts_Balance2=new class_datastore();
      $li_activo = $this->dts_empresa["activo"];
      $li_pasivo = $this->dts_empresa["pasivo"];
      $li_resultado = $this->dts_empresa["resultado"];
      $li_capital = $this->dts_empresa["capital"];
      $li_orden_d = $this->dts_empresa["orden_d"];
      $li_orden_h = $this->dts_empresa["orden_h"];
	  $li_ingreso = $this->dts_empresa["ingreso"];
      $li_gasto = $this->dts_empresa["gasto"];
      $li_c_resultad = $this->dts_empresa["c_resultad"];
	  
	  $ls_sql=" SELECT SC.sc_cuenta,SC.denominacion,SC.status,SC.nivel as rnivel, ".
              "        coalesce(curSaldo.T_Debe,0) as total_debe, ".
              "        coalesce(curSaldo.T_Haber,0) as total_haber,0 as nivel ".
              " FROM scg_cuentas SC LEFT OUTER JOIN (SELECT codemp,sc_cuenta, coalesce(sum(debe_mes),0)as T_Debe, ".
			  "                                             coalesce(sum(haber_mes),0) as T_Haber ".
              "                                      FROM   scg_saldos ".
              "                                      WHERE  codemp='".$ls_codemp."' AND fecsal<='".$adt_feclimit."' ".
              "                                      GROUP BY sc_cuenta) curSaldo ".
              " ON SC.sc_cuenta=curSaldo.sc_cuenta ".
              " WHERE SC.codemp=curSaldo.codemp AND  curSaldo.codemp='".$ls_codemp."' AND ".
			  "       (SC.sc_cuenta like '".$li_activo."%' OR SC.sc_cuenta like '".$li_pasivo."%' OR ".
			  "        SC.sc_cuenta like '".$li_resultado."%' OR  SC.sc_cuenta like '".$li_capital."%' OR ".
			  "        SC.sc_cuenta like '".$li_orden_d."%' OR SC.sc_cuenta like '".$li_orden_h."%') ".
              " ORDER BY  SC.sc_cuenta ";
	 $rs_data=$this->SQL->select($ls_sql);
	 if($rs_data===false)
	 {// error interno sql
		$this->is_msg_error="Error en consulta metodo uf_scg_reporte_balance_general ".$this->fun->uf_convertirmsg($this->SQL->message);
		$lb_valido = false;
	 }
	 else
	 {
        $ld_saldo_ganancia=0;
		while($row=$this->SQL->fetch_row($rs_data))
		{
		  $ls_sc_cuenta=$row["sc_cuenta"];
		  $ls_denominacion=$row["denominacion"];
		  $ls_status=$row["status"];
		  $ls_rnivel=$row["rnivel"];
		  $ld_total_debe=$row["total_debe"];
		  $ld_total_haber=$row["total_haber"];
		  if($ls_status=="C")
		  {
    		$ls_nivel="4";		
		  }//if
		  else
		  {
    		$ls_nivel=$ls_rnivel;		
		  }//else
		  if($ls_nivel<=$ai_nivel)
		  {
			  $this->dts_Prebalance->insertRow("sc_cuenta",$ls_sc_cuenta);
			  $this->dts_Prebalance->insertRow("denominacion",$ls_denominacion);
			  $this->dts_Prebalance->insertRow("status",$ls_status);
			  $this->dts_Prebalance->insertRow("nivel",$ls_nivel);
			  $this->dts_Prebalance->insertRow("rnivel",$ls_rnivel);
			  $this->dts_Prebalance->insertRow("total_debe",$ld_total_debe);
			  $this->dts_Prebalance->insertRow("total_haber",$ld_total_haber);
		      $lb_valido = true;
		  }//if
		}//while
	    $li=$this->dts_Prebalance->getRowCount("sc_cuenta");
		if($li==0)
		{
		  $lb_valido = false;
		  return false;
		}//if
	 } //else
	 $ld_saldo_i=0;
	 if($lb_valido)
	 {
	   $lb_valido=$this->uf_scg_reporte_select_saldo_ingreso_BG($adt_feclimit,$li_ingreso,$ld_saldo_i);
	 } 
     if($lb_valido)
	 {
       $ld_saldo_g=0;	 
	   $lb_valido=$this->uf_scg_reporte_select_saldo_gasto_BG($adt_feclimit,$li_gasto,$ld_saldo_g);  
	 }//if
	 if($lb_valido)
	 {
	   $ld_saldo_ganancia=$ld_saldo_ganancia+($ld_saldo_i+$ld_saldo_g);
	 }//if
	 $la_sc_cuenta=array();
//.........这里部分代码省略.........

	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é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") ;
//.........这里部分代码省略.........

							  $ls_PadNextCuenta =$int_scg->uf_pad_cuenta_plan($dat["formplan"] , $ls_NextCuenta)	;				
							 
							  $int_scg->uf_select_plan_unico_cuenta($ls_PadNextCuenta,&$as_denominacion_plan);
							  
												
								  if($li_Nivel > 1)
								  {
									  $ls_cuenta_ref = $int_scg->uf_scg_next_cuenta_nivel( $ls_NextCuenta );
									  
								  }
								  else	
								  {
									  $ls_cuenta_ref = "             ";
								  }
								 
								  $lds_cuenta_temp->insertRow("SC_cuenta",$ls_NextCuenta);				  			  
								  $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);				  			  
								  $li_fila =  $li_fila + 1;
								  
							  } 
				
							if ($li_Nivel > 1)
							{
									$ls_NextCuenta = $int_scg->uf_scg_next_cuenta_nivel( $ls_NextCuenta );
									$li_Nivel      = $int_scg->uf_scg_obtener_nivel( $ls_NextCuenta );
									
							}
							else
							{

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});'>";
//.........这里部分代码省略.........

	$ld_fecha=$_GET["fecha"];
	$ls_observacion=$_GET["observacion"];	
	$lb_valido=uf_insert_seguridad();
	if($lb_valido)
	{
		uf_print_encabezado_pagina($ls_numanacot,$ld_fecha,$io_pdf);
		$lb_valido=$io_class_report->uf_cargar_cotizaciones_esp($ls_numanacot,$la_cotizaciones);
		if($lb_valido)
		{
			//print_r($la_cotizaciones);
			$li_totrow=count($la_cotizaciones);
			//print $li_totrow;
			for($li_i=1;$li_i<=$li_totrow;$li_i++)
			{
				$io_ds_detalle->insertRow("codigo",$la_cotizaciones[$li_i]["codigo"]);
				$io_ds_detallepro->insertRow("cod_pro",$la_cotizaciones[$li_i]["cod_pro"]);
				$io_ds_detallepro->insertRow("nompro",$la_cotizaciones[$li_i]["nompro"]);
			}
			$io_ds_detallepro->group('cod_pro');
			$io_ds_detalle->group('codigo');
			$lb_valido=$io_class_report->uf_count_cotizaciones($ls_numanacot,$ls_countcot);
			$ls_countcot=count($ls_countcot);
			if($lb_valido)
			{
				uf_print_proveedores($la_cotizaciones,$io_ds_detalle,$io_ds_detallepro,$ls_countcot,$io_pdf);
			}
			$lb_valido=$io_class_report->uf_select_items($ls_numanacot,$ls_tipsolcot,$la_items);
			if($lb_valido)
			{
				//uf_print_items($ls_tipsolcot,$la_items,$io_pdf);
				$la_ganadores=$io_class_report->uf_select_cotizacion_analisis($ls_numanacot,$ls_tipsolcot);

 error_reporting(E_ALL);
 set_time_limit(1800);
 $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.6, 5, 3, 3);
 // Configuración de los margenes en centímetros
 $io_pdf->ezStartPageNumbers(570, 47, 8, '', '', 1);
 // Insertar el número de página
 $li_totrow = $io_report->DS->getRowCount("numsol");
 $li_monretiva = 0;
 if ($li_totrow > 1) {
     for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
         $ls_dencla = $io_report->DS->data["dencla"][$li_i];
         $ds_dencla->insertRow("dencla", $ls_denominacion);
     }
     $ds_dentipdoc->group("dencla");
     $li_fila = $ds_dentipdoc->getRowCount("dencla");
     for ($li_i = 1; $li_i <= $li_fila; $li_i++) {
         $ls_denominacion = $ds_dentipdoc->getValue("dencla", $li_i);
         if ($ls_denominacion != "") {
             if ($li_i == 1) {
                 $ls_dencla = $ls_denominacion;
             } else {
                 $ls_dencla = $ls_dencla . ", " . $ls_denominacion;
             }
         }
     }
 } else {
     $ls_dencla = $io_report->DS->data["dencla"][1];

function uf_balance_general_consolidado($ad_fecfin)
{
	$lb_valido=true;
	$ds_Balance2=new class_datastore();
	$ldec_resultado=0;
	$ld_saldo_ganancia=0;
	$this->ls_activo    = trim($this->la_empresa["activo"]);
	$this->ls_pasivo    = trim($this->la_empresa["pasivo"]);		
	$this->ls_capital   = trim($this->la_empresa["capital"]);
	$this->ls_orden_d   = trim($this->la_empresa["orden_d"]);
	$this->ls_orden_h   = trim($this->la_empresa["orden_h"]);
	$this->ls_ingreso   = trim($this->la_empresa["ingreso"]);
	$this->ls_gastos    = trim($this->la_empresa["gasto"]);
	
	$this->ls_cta_resultado = trim($this->la_empresa["c_resultad"]);
	$this->ls_resultado = trim($this->la_empresa["resultado"]);
	
	$ad_fecfin=$this->io_fun->uf_convertirdatetobd($ad_fecfin);
	$ls_codemp=$this->la_empresa["codemp"];
		
	 $ls_sql = "SELECT TRIM(scg_cuentas_consolida.sc_cuenta) as sc_cuenta, scg_cuentas_consolida.nivel,
					   scg_cuentas_consolida.denominacion,0 as mondeb, 0 as monhab
				  FROM scg_cuentas_consolida
				 WHERE sc_cuenta like '".$this->ls_activo."%' 
					OR sc_cuenta like '".$this->ls_pasivo."%' 
					OR sc_cuenta like '".$this->ls_resultado."%' 
					OR sc_cuenta like '".$this->ls_capital."%' 
					OR sc_cuenta like '".$this->ls_orden_d."%' 
					OR sc_cuenta like '".$this->ls_orden_h."%'
				 UNION
				SELECT TRIM(sc_cuenta) as sc_cuenta,0 as nivel,'' as denominacion,coalesce(sum(debe_mes),0)as mondeb, 
				       coalesce(sum(haber_mes),0) as monhab 
				  FROM scg_saldos_consolida 
				 WHERE (sc_cuenta like '".$this->ls_activo."%' 
					OR sc_cuenta like '".$this->ls_pasivo."%' 
					OR sc_cuenta like '".$this->ls_resultado."%' 
					OR sc_cuenta like '".$this->ls_capital."%' 
					OR sc_cuenta like '".$this->ls_orden_d."%' 
					OR sc_cuenta like '".$this->ls_orden_h."%')
				   AND fecsal<='".$ad_fecfin."'
				 GROUP BY sc_cuenta
				 ORDER BY sc_cuenta";
			 
     $rs_data=$this->io_sql->select($ls_sql);
	 if ($rs_data===false)
	    {
		  $this->is_msg_error="Error en consulta metodo uf_scg_reporte_balance_general_consolidado;".$this->io_fun->uf_convertirmsg($this->io_sql->message);
		  $lb_valido = false;
	    }
	 else
	    {
          $ld_saldo_ganancia=0;
		  while(!$rs_data->EOF)
		       {
			     $ls_scgcta = $rs_data->fields["sc_cuenta"];
				 $ls_dencta = $rs_data->fields["denominacion"];				 
				 $ld_mondeb = number_format($rs_data->fields["mondeb"],2,'.','');
				 $ld_monhab = number_format($rs_data->fields["monhab"],2,'.','');
				 $li_nivcta = $rs_data->fields["nivel"];
				 
				 $this->ds_Prebalance->insertRow("scgcta",$ls_scgcta);
				 $this->ds_Prebalance->insertRow("dencta",$ls_dencta);
				 $this->ds_Prebalance->insertRow("mondeb",$ld_mondeb);
				 $this->ds_Prebalance->insertRow("monhab",$ld_monhab);
				 $this->ds_Prebalance->insertRow("nivcta",$li_nivcta);
				 $this->ds_Prebalance->insertRow("rnivcta",$li_nivcta);				 
			     $rs_data->MoveNext();
			   }
		  $this->ds_Prebalance->group_by(array('0'=>'scgcta'),array('0'=>'monhab'),'scgcta');
		  $this->ds_Prebalance->sortData('scgcta');
	      $li_totrows = $this->ds_Prebalance->getRowCount("scgcta");
		  if ($li_totrows==0)
		     {
		       $lb_valido = false;
		       return false;
		     }
	    }
	 $ld_saldo_i=0;		
	 if ($lb_valido)
	    {
	      $lb_valido = $this->uf_scg_reporte_select_saldo_ingreso_consolida($ad_fecfin,$this->ls_ingreso,$ld_saldo_i);
	    }  
     if ($lb_valido)
	    {
          $ld_saldo_g=0;	 
	      $lb_valido=$this->uf_scg_reporte_select_saldo_gasto_consolida($ad_fecfin,$this->ls_gastos,$ld_saldo_g);  
	    }
	 if ($lb_valido)
	    {
	      $ld_saldo_ganancia=$ld_saldo_ganancia+($ld_saldo_i+$ld_saldo_g);
	    }
	 
	 $la_sc_cuenta	  =	array();
	 $la_denominacion = array();
	 $la_saldo		  = array();
	 for ($i=1;$i<=$li_nivcta;$i++)
		 {
		   $la_sc_cuenta[$i]="";
		   $la_denominacion[$i]="";
		   $la_saldo[$i]=0;
//.........这里部分代码省略.........

 function uf_load_creditos_nota($as_codemp, $as_numncnd, $as_numrecdoc, $as_codtipdoc, $as_numsol, $as_codope, $as_tipproben, $as_codproben)
 {
     require_once "../../shared/class_folder/sigesp_include.php";
     $io_include = new sigesp_include();
     $io_conexion = $io_include->uf_conectar();
     require_once "../../shared/class_folder/class_sql.php";
     $io_sql = new class_sql($io_conexion);
     require_once "../../shared/class_folder/class_mensajes.php";
     $io_mensajes = new class_mensajes();
     require_once "../../shared/class_folder/class_funciones.php";
     $io_funciones = new class_funciones();
     require_once "../../shared/class_folder/class_datastore.php";
     $io_ds_cargos = new class_datastore();
     $ls_sqlaux = "";
     $ld_montotcre = 0;
     if ($as_tipproben == 'P') {
         $ls_sqlaux = " AND cxp_dc_cargos.cod_pro='" . $as_codproben . "' AND cxp_dc_cargos.ced_bene='----------'";
     } elseif ($as_tipproben == 'B') {
         $ls_sqlaux = " AND trim(cxp_dc_cargos.ced_bene)='" . trim($as_codproben) . "' AND cxp_dc_cargos.cod_pro='----------'";
     } else {
         $ls_sqlaux = " AND cxp_dc_cargos.cod_pro='----------'";
     }
     $ls_sql = "SELECT cxp_dc_cargos.* \n\t               FROM cxp_dc_cargos, cxp_rd, cxp_solicitudes, cxp_dt_solicitudes\n\t\t\t\t  WHERE cxp_dc_cargos.codemp='" . $as_codemp . "'\n\t\t\t\t    AND cxp_dc_cargos.numsol='" . $as_numsol . "'\n\t\t\t\t\tAND trim(cxp_dc_cargos.numrecdoc)='" . trim($as_numrecdoc) . "'\n\t\t\t\t\tAND cxp_dc_cargos.codtipdoc='" . $as_codtipdoc . "'\n\t\t\t\t\tAND cxp_dc_cargos.codope='" . $as_codope . "'\n\t\t\t\t\tAND trim(cxp_dc_cargos.numdc)='" . trim($as_numncnd) . "' {$ls_sqlaux}\n\t\t\t\t\tAND cxp_dc_cargos.codemp=cxp_solicitudes.codemp\n\t\t\t\t\tAND cxp_dc_cargos.numsol=cxp_solicitudes.numsol\t\t\t\t\t\n\t\t\t\t\tAND cxp_solicitudes.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_solicitudes.numsol=cxp_dt_solicitudes.numsol\t\t\t\t\t\n\t\t\t\t\tAND cxp_dc_cargos.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_dc_cargos.codtipdoc=cxp_dt_solicitudes.codtipdoc\n\t\t\t\t\tAND cxp_dc_cargos.numrecdoc=cxp_dt_solicitudes.numrecdoc\n\t\t\t\t\tAND cxp_dc_cargos.cod_pro=cxp_dt_solicitudes.cod_pro\n\t\t\t\t\tAND cxp_dc_cargos.ced_bene=cxp_dt_solicitudes.ced_bene\t\t\t\t\t\n\t\t\t\t\tAND cxp_rd.codemp=cxp_dt_solicitudes.codemp\n\t\t\t\t\tAND cxp_rd.codtipdoc=cxp_dt_solicitudes.codtipdoc\n\t\t\t\t\tAND cxp_rd.numrecdoc=cxp_dt_solicitudes.numrecdoc\n\t\t\t\t\tAND cxp_rd.cod_pro=cxp_dt_solicitudes.cod_pro\n\t\t\t\t\tAND cxp_rd.ced_bene=cxp_dt_solicitudes.ced_bene";
     //echo $ls_sql.'<br>';
     $rs_data = $io_sql->select($ls_sql);
     if ($rs_data === false) {
         $this->io_mensajes->message("CLASE->Recepcion MÉTODO->uf_load_creditos_nota ERROR->" . $this->io_funciones->uf_convertirmsg($this->io_sql->message));
         $rs_data = false;
     } else {
         $li_numrows = $io_sql->num_rows($rs_data);
         if ($li_numrows > 0) {
             while ($row = $io_sql->fetch_row($rs_data)) {
                 $ls_codcar = $row["codcar"];
                 $ld_monret = $row["monret"];
                 $ls_spgcta = trim($row["spg_cuenta"]);
                 $ls_estcla = $row["estcla"];
                 $ld_monret = $row["monret"];
                 $ld_monobjret = $row["monobjret"];
                 $ls_codestpro = $row["codestpro1"] . $row["codestpro2"] . $row["codestpro3"] . $row["codestpro4"] . $row["codestpro5"];
                 $io_ds_cargos->insertRow("codcar", $ls_codcar);
                 $io_ds_cargos->insertRow("spg_cuenta", $ls_spgcta);
                 $io_ds_cargos->insertRow("estcla", $ls_estcla);
                 $io_ds_cargos->insertRow("codestpro", $ls_codestpro);
                 $io_ds_cargos->insertRow("monret", number_format($ld_monret, 2, ',', '.'));
                 $io_ds_cargos->insertRow("monobjret", number_format($ld_monobjret, 2, ',', '.'));
                 $ld_montotcre += $ld_monret;
             }
             $_SESSION["la_crenotas"] = $io_ds_cargos->data;
         }
     }
     unset($io_include, $io_conexion, $io_sql, $io_mensajes, $io_funciones, $io_ds_cargos);
     return $ld_montotcre;
 }

	function uf_balance_general($ad_fecfin,$ai_nivel)
	{
		$lb_valido=true;
		$ds_Balance2=new class_datastore();
		$ldec_resultado=0;
		$ld_saldo_ganancia=0;
		$this->ls_activo=trim($this->la_empresa["activo"]);
		$this->ls_pasivo=trim($this->la_empresa["pasivo"]);
		$this->ls_resultado=trim($this->la_empresa["resultado"]);
		$this->ls_capital=trim($this->la_empresa["capital"]);
		$this->ls_orden_d=trim($this->la_empresa["orden_d"]);
		$this->ls_orden_h=trim($this->la_empresa["orden_h"]);
		$this->ls_ingreso=trim($this->la_empresa["ingreso"]);
		$this->ls_gastos =trim($this->la_empresa["gasto"]);
		$this->ls_cta_resultado = trim($this->la_empresa["c_resultad"]);
		$ad_fecfin=$this->io_fun->uf_convertirdatetobd($ad_fecfin);
		$ls_codemp=$this->la_empresa["codemp"];
		$ls_sql=" SELECT SC.sc_cuenta,SC.denominacion,SC.status,SC.nivel as rnivel, ".
              "        coalesce(curSaldo.T_Debe,0) as total_debe, ".
              "        coalesce(curSaldo.T_Haber,0) as total_haber,0 as nivel ".
              " FROM scg_cuentas SC LEFT OUTER JOIN (SELECT codemp,sc_cuenta, coalesce(sum(debe_mesaux),0)as T_Debe, ".
			  "                                             coalesce(sum(haber_mesaux),0) as T_Haber ".
              "                                      FROM   scg_saldos ".
              "                                      WHERE  codemp='".$ls_codemp."' AND fecsal<='".$ad_fecfin."' ".
              "                                      GROUP BY codemp,sc_cuenta) curSaldo ".
              " ON SC.sc_cuenta=curSaldo.sc_cuenta ".
              " WHERE SC.codemp=curSaldo.codemp AND  curSaldo.codemp='".$ls_codemp."' AND ".
			  "       (SC.sc_cuenta like '".$this->ls_activo."%' OR SC.sc_cuenta like '".$this->ls_pasivo."%' OR ".
			  "        SC.sc_cuenta like '".$this->ls_resultado."%' OR  SC.sc_cuenta like '".$this->ls_capital."%' OR ".
			  "        SC.sc_cuenta like '".$this->ls_orden_d."%' OR SC.sc_cuenta like '".$this->ls_orden_h."%') ".
              " ORDER BY  SC.sc_cuenta ";
		$rs_data=$this->io_sql->select($ls_sql);

	 if($rs_data===false)
	 {// error interno sql
		$this->is_msg_error="Error en consulta metodo uf_scg_reporte_balance_general ".$this->io_fun->uf_convertirmsg($this->io_sql->message);
		print $this->io_sql->message;
		$lb_valido = false;
	 }
	 else
	 {
        $ld_saldo_ganancia=0;
		while($row=$this->io_sql->fetch_row($rs_data))
		{
		  $ls_sc_cuenta=$row["sc_cuenta"];
		  $ls_denominacion=$row["denominacion"];
		  $ls_status=$row["status"];
		  $ls_rnivel=$row["rnivel"];
		  $ld_total_debe=$row["total_debe"];
		  $ld_total_haber=$row["total_haber"];
		  if($ls_status=="C")
		  {
    		$ls_nivel="4";		
		  }//if
		  else
		  {
    		$ls_nivel=$ls_rnivel;		
		  }//else
		  if($ls_nivel<=$ai_nivel)
		  {
			  $this->ds_Prebalance->insertRow("sc_cuenta",$ls_sc_cuenta);
			  $this->ds_Prebalance->insertRow("denominacion",$ls_denominacion);
			  $this->ds_Prebalance->insertRow("status",$ls_status);
			  $this->ds_Prebalance->insertRow("nivel",$ls_nivel);
			  $this->ds_Prebalance->insertRow("rnivel",$ls_rnivel);
			  $this->ds_Prebalance->insertRow("total_debe",$ld_total_debe);
			  $this->ds_Prebalance->insertRow("total_haber",$ld_total_haber);
		      $lb_valido = true;
		  }//if
		}//while
	    $li=$this->ds_Prebalance->getRowCount("sc_cuenta");
		if($li==0)
		{
		  $lb_valido = false;
		  return false;
		}//if
	 } //else
	 $ld_saldo_i=0;		
		
	 if($lb_valido)
	 {
	   $lb_valido=$this->uf_scg_reporte_select_saldo_ingreso_BG($ad_fecfin,$this->ls_ingreso,$ld_saldo_i);
	 } 
     if($lb_valido)
	 {
       $ld_saldo_g=0;	 
	   $lb_valido=$this->uf_scg_reporte_select_saldo_gasto_BG($ad_fecfin,$this->ls_gastos,$ld_saldo_g);  
	 }//if
	 if($lb_valido)
	 {
	   $ld_saldo_ganancia=$ld_saldo_ganancia+($ld_saldo_i+$ld_saldo_g);
	 }//if
	 $la_sc_cuenta=array();
	 $la_denominacion=array();
	 $la_saldo=array();
	 for($i=1;$i<=$ai_nivel;$i++)
	 {
		 $la_sc_cuenta[$i]="";
		 $la_denominacion[$i]="";
		 $la_saldo[$i]=0;
//.........这里部分代码省略.........

	function uf_calcular_saldolibro($as_codban,$as_ctaban,$ad_fecha)
	{
	/////////////////////////////////////////////////////////////////////////////
	// Funtion	    :  uf_calcular_saldolibro
	//	Return	    :  ldec_saldo
	//	Descripcion :  Fucnion que se encarga de obtener el saldo de los movimientos registrdos en libro
	///////////////////////////////////////////////////////////////////////////// 
	$ldec_monto_haber=0;$ldec_monto_debe=0;$ldec_saldo=0;
	
	$ls_codemp = $this->dat["codemp"];	
	$ld_fecha=$this->io_fecha->uf_last_day(substr($ad_fecha,0,2),substr($ad_fecha,3,4));
	$ld_fecha = $this->fun->uf_convertirdatetobd($ld_fecha);
	$ds_debe=new class_datastore();
	$ds_haber=new class_datastore();
	//--------------------DEBE------------------------------------//	
	$ls_sql="SELECT (monto - monret) As mondeb,estmov
				   FROM scb_movbco
				   WHERE codban='".$as_codban."' AND ctaban='".$as_ctaban."' AND  
	 			   (codope='NC' OR codope='DP')  
					AND ((estreglib IS NULL) or estreglib<>'A' or (estreglib='A' AND estcon=1)) AND 
					codemp='".$ls_codemp."' AND fecmov<='".$ld_fecha."'";
		
	$rs_saldos=$this->io_sql->select($ls_sql);
	if(($rs_saldos==false)&&($this->io_sql->message!=""))
	{
		print "Saldolibro".$this->io_sql->message;
	}
	else
	{
	    while($row=$this->io_sql->fetch_row($rs_saldos))
		{
			$ds_debe->insertRow("mondeb", $row["mondeb"]);
			$ds_debe->insertRow("estmov", $row["estmov"]);	
		}
	}
	$this->io_sql->free_result($rs_saldos);
	
//-----------------------HABER---------------------------------------//
	$ls_sql="SELECT (monto - monret) As monhab,estmov
				   FROM  scb_movbco 
				   WHERE codban='".$as_codban."' AND ctaban='".$as_ctaban."' AND  
	  			   (codope='RE' OR codope='ND' OR codope='CH') 
					 AND ((estreglib IS NULL) or estreglib<>'A' OR (estreglib='A' AND estcon=1)) AND codemp='".$ls_codemp."'
					  AND fecmov<='".$ld_fecha."'";
		    
	$rs_saldos=$this->io_sql->select($ls_sql);
	if(($rs_saldos==false)&&($this->io_sql->message!=""))
	{
		print "Saldolibro".$this->io_sql->message;
	}
	else
	{
	    while($row=$this->io_sql->fetch_row($rs_saldos))
		{
			$ds_haber->insertRow("monhab", $row["monhab"]);
			$ds_haber->insertRow("estmov", $row["estmov"]);	
		}
	}
	$this->io_sql->free_result($rs_saldos);	
	$li_totdebe=$ds_debe->getRowCount("estmov");
	$ldec_totdeb=0;
	$ldec_totdeb_anulado=0;
	for($li_i=1;$li_i<=$li_totdebe;$li_i++)
	{
		$ls_estmov=$ds_debe->getValue("estmov",$li_i);
		$ls_mondeb=$ds_debe->getValue("mondeb",$li_i);
		if($ls_estmov!='A')
		{
			$ldec_totdeb+=$ls_mondeb;
		}
		else
		{
			$ldec_totdeb_anulado+=$ls_mondeb;
		}		
	}
	
	$ldec_totdeb=$ldec_totdeb-$ldec_totdeb_anulado;
	$li_tothaber=$ds_haber->getRowCount("estmov");
	$ldec_tothab=0;
	$ldec_tothab_anulado=0;
	for($li_i=1;$li_i<=$li_tothaber;$li_i++)
	{
		$ls_estmov=$ds_haber->getValue("estmov",$li_i);
		$ls_monhab=$ds_haber->getValue("monhab",$li_i);
		if($ls_estmov!='A')
		{
			$ldec_tothab+=$ls_monhab;
		}
		else
		{
			$ldec_tothab_anulado+=$ls_monhab;
		}		
	}
	$ldec_tothab=number_format($ldec_tothab,4,'.','');
	$ldec_tothab_anulado=number_format($ldec_tothab_anulado,4,'.','');
	$ldec_tothab=$ldec_tothab-$ldec_tothab_anulado;
	$ldec_saldo=$ldec_totdeb-$ldec_tothab;
    return $ldec_saldo;	
	}

	function uf_preparar_resumen($ls_codemp,$adt_fecdesde,$adt_fechasta)
	{
		$ls_cuenta_resultado="";$ldec_ganancia="";
		$li_maxnivel=3;
		$li_activo=$this->la_empresa["activo"];
		$li_pasivo=$this->la_empresa["pasivo"];
		$li_resultado=$this->la_empresa["resultado"];
		$li_capital=$this->la_empresa["capital"];		
		$li_orden_d=$this->la_empresa["orden_d"];
		$li_orden_h=$this->la_empresa["orden_h"];		
		$li_ingreso=$this->la_empresa["ingreso"];
		$li_gastos =$this->la_empresa["gasto"];
		$ds_balance2=new class_datastore();
		$ls_cuenta_resultado = $this->la_empresa["c_resultad"];		
						
		$ls_sql=" SELECT SC.sc_cuenta,SC.denominacion,SC.status,SC.nivel as rnivel, ".
              "        coalesce(curSaldo.T_Debe,0) as total_debe, ".
              "        coalesce(curSaldo.T_Haber,0) as total_haber,0 as nivel ".
              " FROM scg_cuentas SC LEFT OUTER JOIN (SELECT codemp,sc_cuenta, coalesce(sum(debe_mesaux),0)as T_Debe, ".
			  "                                             coalesce(sum(haber_mesaux),0) as T_Haber ".
              "                                      FROM   scg_saldos ".
              "                                      WHERE  codemp='".$ls_codemp."' AND fecsal between '".$this->io_fun->uf_convertirdatetobd($adt_fecdesde)."' AND '".$this->io_fun->uf_convertirdatetobd($adt_fechasta)."' ".
              "                                      GROUP BY sc_cuenta) curSaldo ".
              " ON SC.sc_cuenta=curSaldo.sc_cuenta ".
              " WHERE SC.codemp=curSaldo.codemp AND  curSaldo.codemp='".$ls_codemp."' AND ".
			  "       (SC.sc_cuenta like '".$li_activo."%' OR SC.sc_cuenta like '".$li_pasivo."%' OR ".
			  "        SC.sc_cuenta like '".$li_resultado."%' OR  SC.sc_cuenta like '".$li_capital."%' OR ".
			  "        SC.sc_cuenta like '".$li_orden_d."%' OR SC.sc_cuenta like '".$li_orden_h."%') AND SC.nivel<=".$li_maxnivel.
              " ORDER BY  SC.sc_cuenta ";	
	 $rs_data=$this->io_sql->select($ls_sql);
	 if($rs_data===false)
	 {// error interno sql
		$this->is_msg_error="Error en consulta metodo uf_scg_reporte_balance_general ".$this->io_fun->uf_convertirmsg($this->io_sql->message);
		print $this->is_msg_error;
		$lb_valido = false;
	 }
	 else
	 {
        $ld_saldo_ganancia=0;
		while($row=$this->io_sql->fetch_row($rs_data))
		{
		  $ls_sc_cuenta=$row["sc_cuenta"];
		  $ls_denominacion=$row["denominacion"];
		  $ls_status=$row["status"];
		  $ls_rnivel=$row["rnivel"];
		  $ld_total_debe=$row["total_debe"];
		  $ld_total_haber=$row["total_haber"];
		  if($ls_status=="C")
		  {
    		$ls_nivel="4";		
		  }//if
		  else
		  {
    		$ls_nivel=$ls_rnivel;		
		  }//else
		  $this->ds_prebalance->insertRow("sc_cuenta",$ls_sc_cuenta);
		  $this->ds_prebalance->insertRow("denominacion",$ls_denominacion);
		  $this->ds_prebalance->insertRow("status",$ls_status);
		  $this->ds_prebalance->insertRow("nivel",$ls_nivel);
		  $this->ds_prebalance->insertRow("rnivel",$ls_rnivel);
		  $this->ds_prebalance->insertRow("total_debe",$ld_total_debe);
		  $this->ds_prebalance->insertRow("total_haber",$ld_total_haber);
		  $lb_valido = true;
		}//while
	    $li=$this->ds_prebalance->getRowCount("sc_cuenta");
		if($li==0)
		{
		  $lb_valido = false;
		  return false;
		}//if
	 } //else
	 $ld_saldo_i=0;
	 if($lb_valido)
	 {
	   $lb_valido=$this->uf_scg_reporte_select_saldo_ingreso_BG($adt_fecdesde,$adt_fechasta,$li_ingreso,$ld_saldo_i);
	 } 
     if($lb_valido)
	 {
       $ld_saldo_g=0;	 
	   $lb_valido=$this->uf_scg_reporte_select_saldo_gasto_BG($adt_fecdesde,$adt_fechasta,$li_gastos,$ld_saldo_g);  
	 }//if
	 if($lb_valido)
	 {
	   $ld_saldo_ganancia=$ld_saldo_ganancia+($ld_saldo_i+$ld_saldo_g);
	 }//if	 
     $la_sc_cuenta=array();
	 $la_denominacion=array();
	 $la_saldo=array();
	 $li_nivel=3;
	 for($i=1;$i<=$li_nivel;$i++)
	 {
		 $la_sc_cuenta[$i]="";
		 $la_denominacion[$i]="";
		 $la_saldo[$i]=0;
	 }//for				
		
	 $li_nro_reg=0;
     $ld_saldo_resultado=0;
	 $li_row=$this->ds_prebalance->getRowCount("sc_cuenta");
	 for($li_i=1;$li_i<=$li_row;$li_i++)
//.........这里部分代码省略.........

					   $ldec_baseimp   = $row["baseimp"];	
					   $ls_codcar      = $row["codcar"];
					   $ls_cargo       = '';
					   $lb_valido      = false;
					   $ls_scgcuenta   = $row["sc_cuenta"]; 
					   $io_dspresupuesto->insertRow('txtcodcar',$ls_codcar);
					   $io_dspresupuesto->insertRow('txtestcla',$ls_estcla);
					   $io_dspresupuesto->insertRow('txtmontopre',$ld_monto);
					   $io_dspresupuesto->insertRow('txtbaseimp',$ldec_baseimp);
					   $io_dspresupuesto->insertRow('txtestadistico',$ls_spgcuenta);
					   $io_dspresupuesto->insertRow('txtcompromisopre',$ls_comprobante);
					   $io_dspresupuesto->insertRow('txtprogramatico',$ls_programatica);
					   
					   $ld_monto     = doubleval($ld_monto);
					   $ld_montodebe = $ld_montodebe+$ld_monto;
					   $io_dscontable->insertRow('txtcompromisocon',$ls_comprobante);
					   $io_dscontable->insertRow('txtcontable',$ls_scgcuenta);
					   $io_dscontable->insertRow('txtoperacion','D');
					   $io_dscontable->insertRow('txtmontocont',$ld_monto);
					   $io_dscontable->insertRow('txtmontoorig',$ld_monto);     
					   $ls_deduccion = '';
					 }
				}
			   $io_dscontable->insertRow('txtcompromisocon',$ls_mov_document);
			   $io_dscontable->insertRow('txtcontable',$ls_cuenta_scg);
			   $io_dscontable->insertRow('txtoperacion','H');
			   $io_dscontable->insertRow('txtmontocont',$ld_montopro);
			   $io_dscontable->insertRow('txtmontoorig',$ld_montopro); 
			       
 			   $li_totdspresupuesto=$io_dspresupuesto->getRowCount('txtestadistico'); 
				$li_auxpre   = 0;

 function uf_procesar_programacion($as_filnam, $ai_totrow, $aa_seguridad)
 {
     /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
     //	     Function: uf_procesar_programacion
     //		   Access: private
     //	    Arguments: $as_filnam
     //                   $ai_totrow
     //                   $aa_seguridad
     //	      Returns: .
     //	  Description: .
     //	   Creado Por: Ing. Nestor Falcón.
     //   Fecha Creación: 07/07/2008. 							Fecha Última Modificación : 07/07/2008.
     /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
     require_once "../shared/class_folder/class_datastore.php";
     $io_dsprog = new class_datastore();
     $lb_valido = true;
     $ls_cedben = $_POST["txtcedben"];
     $lb_exiben = $this->io_xml->uf_validar_beneficiario($this->ls_codemp, $ls_cedben);
     if ($lb_exiben) {
         $ls_numsol = $_POST["txtnumsol"];
         $ls_fecliq = $this->io_funcion->uf_convertirdatetobd($_POST["txtfecliq"]);
         $lb_valido = $this->uf_load_solicitud_pago($as_filnam, $ls_numsol, $ls_fecliq);
         if ($lb_valido) {
             for ($li_i = 1; $li_i <= $ai_totrow; $li_i++) {
                 $ls_numsoldes = $_POST["hidnumsol" . $li_i];
                 if ($ls_numsoldes != $ls_numsol) {
                     $ls_errmsg = "{$as_filnam}.- Inconsistencia entre Numeros de Solicitud (Cabecera/Detalle) !!!";
                     $this->io_msg->message($ls_errmsg);
                     $lb_valido = false;
                 }
                 if ($lb_valido) {
                     $ls_codban = $_POST["hidcodban" . $li_i];
                     $lb_exiban = $this->io_xml->uf_validar_banco($this->ls_codemp, $ls_codban);
                     if (!$lb_exiban) {
                         $ls_errmsg = "{$as_filnam}.- Codigo del Banco no encontrado !!!";
                         $this->io_msg->message($ls_errmsg);
                         $lb_valido = false;
                     }
                 }
                 if ($lb_valido) {
                     $ls_ctaban = $_POST["hidctaban" . $li_i];
                     $lb_exicta = $this->io_xml->uf_validar_cuenta_bancaria($this->ls_codemp, $ls_codban, $ls_ctaban);
                     if (!$lb_exicta) {
                         $ls_errmsg = "{$ls_filnam}.- Cuenta Bancaria no encontrada !!!";
                         $this->io_msg->message($ls_errmsg);
                         $lb_valido = false;
                     }
                 }
                 if ($lb_valido) {
                     $io_dsprog->insertRow("codban", $ls_codban);
                     $io_dsprog->insertRow("ctaban", $ls_ctaban);
                     $io_dsprog->insertRow("numsol", $ls_numsol);
                     $io_dsprog->insertRow("fecpropag", $ls_fecliq);
                 } else {
                     if (isset($io_dsprog) || !empty($io_dsprog)) {
                         unset($io_dsprog);
                     }
                 }
             }
         }
     } else {
         $ls_msgerr = "{$as_filnam}.- Código/Cédula del Beneficiario no encontrado !!!";
         $this->io_msg->message($ls_msgerr);
         $lb_valido = false;
     }
     if ($lb_valido) {
         $la_items = array('0' => 'numsol', '1' => 'codban', '2' => 'ctaban');
         $io_dsprog->group_by($la_items, array(), 'codban');
         $this->io_sql->begin_transaction();
         $lb_valido = $this->uf_insertar_programacion($io_dsprog, $aa_seguridad);
     }
     if ($lb_valido) {
         $this->io_sql->commit();
         $this->io_xml->{$io_docxml}->save($as_filnam);
         $this->io_msg->message("Documento {$as_filnam}, procesado con Éxito !!!");
     } else {
         $this->io_sql->rollback();
         $this->io_msg->message("Documento {$as_filnam}, No se realizó la Programación del Pago !!!");
     }
 }

     print " close();";
     print "</script>";
 } else {
     error_reporting(E_ALL);
     set_time_limit(1800);
     $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];