<?php
session_start();
if (!array_key_exists("la_logusr",$_SESSION))
   {
     print "<script language=JavaScript>";
  	 print "location.href='../../sigesp_inicio_sesion.php'";
	 print "</script>";		
   }
$la_empresa		  = $_SESSION["la_empresa"];
$li_estmodest     = $la_empresa["estmodest"];
$li_estpreing     = $la_empresa["estpreing"];
$li_loncodestpro1 = $la_empresa["loncodestpro1"];
$li_loncodestpro2 = $la_empresa["loncodestpro2"];
$li_loncodestpro3 = $la_empresa["loncodestpro3"];
$li_loncodestpro4 = $la_empresa["loncodestpro4"];
$li_loncodestpro5 = $la_empresa["loncodestpro5"];

$li_size1 = $li_loncodestpro1+10;
$li_size2 = $li_loncodestpro2+10;
$li_size3 = $li_loncodestpro3+10;
$li_size4 = $li_loncodestpro4+10;
$li_size5 = $li_loncodestpro5+10;
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Entrada de Comprobante de Ingresos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link {
	color: #006699;
}
a:visited {
	color: #006699;
}
a:active {
	color: #006699;
}
-->
</style>
<link href="../../shared/css/ventanas.css" rel="stylesheet" type="text/css">
<link href="../../shared/css/general.css" rel="stylesheet" type="text/css">
<link href="../../shared/css/tablas.css" rel="stylesheet" type="text/css">
<link href="../../shared/css/cabecera.css" rel="stylesheet" type="text/css">
<script type="text/javascript" language="JavaScript1.2" src="../../shared/js/number_format.js"></script>
<script type="text/javascript" language="JavaScript1.2" src="../../shared/js/disabled_keys.js"></script>
</head>
<body>
<?php
require_once("../../shared/class_folder/sigesp_include.php");
require_once("../../shared/class_folder/class_funciones.php");
require_once("../../shared/class_folder/class_mensajes.php");
require_once("../../shared/class_folder/class_sql.php");
$io_msg          = new class_mensajes();
$siginc       = new sigesp_include();
$con          = $siginc->uf_conectar();
$fun          = new class_funciones();
$io_sql       = new class_sql($con);
$arre         = $_SESSION["la_empresa"];
$ls_empresa   = $arre["codemp"];

if (array_key_exists("operacion",$_POST))
{
    $ls_operacion=$_POST["operacion"];
	$ls_cuentaplan=$_POST["txtcuenta"];
	$ls_denominacion =$_POST["txtdenominacion"];
	$ls_procedencia	 =$_POST["txtprocedencia"];
	$ls_descripcion	 =$_POST["txtdescripcion"];
	$ls_comprobante	 =$_POST["comprobante"];
	$ls_proccomp   	 =$_POST["procede"];
	$ls_desccomp   	 =$_POST["descripcion"];
	$ld_fecha	     =$_POST["fecha"];
	$ls_tipo         =$_POST["tipo"];
	$ls_provbene     =$_POST["provbene"];
	$ls_mov_document =$_POST["mov_document"];
	$ls_mov_procede	 =$_POST["procede"];
	$ld_fecha		 =$_POST["fecha"];
	$ls_provbene	 =$_POST["provbene"];
	$ls_tipo		 =$_POST["tipo"];
	$ls_mov_descripcion=$_POST["descripcion"];
	$ls_codban		 =$_POST["codban"];
	$ls_ctaban		 =$_POST["ctaban"];
	$ls_cuenta_scg	 =$_POST["cuenta_scg"];
	$ls_codope	  	 =$_POST["mov_operacion"];
	$ldec_monto_mov	 =$_POST["monto"];
	$ldec_objret	 =$_POST["objret"];
	$ldec_retenido	 =$_POST["retenido"];
	$ls_chevau		 =$_POST["chevau"];
	$li_estint		 =$_POST["estint"];
	$li_estcob		 =$_POST["estcob"];
	$li_cobrapaga	 =$_POST["cobrapaga"];
	$ls_estbpd		 =$_POST["estbpd"];
	$ls_nomproben	 =$_POST["txtnomproben"];
	$ls_estmov	 	 =$_POST["estmov"];
	$ls_codconmov	 =$_POST["codconmov"];
	$ls_estreglib	 =$_POST["tip_mov"];
	$ls_opener   	 =$_POST["opener"];
	$ls_estdoc   	 =$_POST["estdoc"];
	$ls_afectacion 	 =$_POST["txtafectacion"];
	$ls_codfuefin 	 =$_POST["codfuefin"];
	$ls_codtipfon 	 = $_POST["hidcodtipfon"];
	$ls_numordpagmin = $_POST["hidnumordpagmin"];
	$ls_numconint	 = $_POST["numconint"];	
}
else
{
	$ls_operacion="";
	$ls_cuentaplan="";
	$ls_denominacion="";
	$ls_procedencia="SCBMOV";
	$ls_mov_document=$_GET["mov_document"];
	//$ls_mov_procede=$_GET["procede"];
	//$ld_fecha=$_GET["fecha"];
	//$ls_provbene=$_GET["provbene"];
	//$ls_tipo=$_GET["tipo"];
	$ls_mov_descripcion=$_GET["descripcion"];
	$ls_descripcion=$ls_mov_descripcion;
	/*$ls_codban=$_GET["codban"];
	$ls_ctaban=$_GET["ctaban"];
	$ls_cuenta_scg=$_GET["cuenta_scg"];
	$ls_codope=$_GET["mov_operacion"];
	$ldec_monto_mov=$_GET["monto"];
	$ldec_objret=$_GET["objret"];
	$ldec_retenido =$_GET["retenido"];
	$ls_chevau     = $_GET["chevau"];
	$li_estint     = $_GET["estint"];
	$li_estcob     = $_GET["estcob"];
	$li_cobrapaga  = $_GET["cobrapaga"];
	$ls_estbpd     = $_GET["estbpd"];
	$ls_nomproben  = $_GET["txtnomproben"];
	$ls_estmov     = $_GET["estmov"];
	$ls_codconmov  = $_GET["codconmov"];
	$ls_estreglib  = $_GET["tip_mov"];
	$ls_opener     = $_GET["opener"];
	$ls_estdoc     = $_GET["estdoc"];
	$ls_afectacion = $_GET["afectacion"];
    $ls_codfuefin     = $_GET["codfuefin"];
	$ls_codtipfon     = $_GET["codtipfon"];
    $ls_numordpagmin  = $_GET["numordpagmin"];
	$ls_numconint	= $_GET["numconint"];*/
}
/*if ($ls_codfuefin=="")
   {
     $ls_codfuefin="--";
   }*/

$ls_logusr=$_SESSION["la_logusr"];
/*require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB",$ls_opener,$ls_permisos,&$la_seguridad,$la_permisos);

require_once("sigesp_scb_c_movbanco.php");
$in_classmovbanco=new sigesp_scb_c_movbanco($la_seguridad);
*/
if ($ls_operacion=="GUARDAR")
   {
	  $ldec_monto = $_POST["txtmoning"];
	  $ls_estmov  = "N";
	  if ($ls_tipo=="P")
		 {
		   $ls_codpro  = $ls_provbene;
		   $ls_cedbene = "----------";
		 }
	  else
		 {
		   $ls_cedbene=$ls_provbene;
		   $ls_codpro ="----------";
		 }		
	  $in_classmovbanco->io_sql->begin_transaction();
	  $lb_valido                  = $in_classmovbanco->uf_guardar_automatico($ls_codban,$ls_ctaban,$ls_mov_document,$ls_codope,$ld_fecha,$ls_mov_descripcion,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_nomproben,$ldec_monto_mov,$ldec_objret,$ldec_retenido,$ls_chevau,$ls_estmov,$li_estint,$li_cobrapaga,$ls_estbpd,$ls_mov_procede,$ls_estreglib,$ls_estdoc,$ls_tipo,$ls_codfuefin,$ls_numordpagmin,$ls_codtipfon,$li_estcob,$ls_numconint);
	  $arr_movbco["codban"]       = $ls_codban;
	  $arr_movbco["ctaban"]       = $ls_ctaban;
	  $arr_movbco["mov_document"] = $ls_mov_document;
	  $ld_fecdb                   = $fun->uf_convertirdatetobd($ld_fecha);
	  $arr_movbco["codope"]       = $ls_codope;
	  $arr_movbco["fecha"] 		  = $ld_fecha;
	  $arr_movbco["codpro"]		  = $ls_codpro;
	  $arr_movbco["cedbene"]	  = $ls_cedbene;
	  $arr_movbco["monto_mov"]	  = $ldec_monto_mov;
	  $arr_movbco["objret"]   	  = $ldec_objret;
	  $arr_movbco["retenido"] 	  = $ldec_retenido;
	  $arr_movbco["estmov"]		  = $ls_estmov;
	  $ls_cuenta				  = $_POST["cuenta_ingreso"];
	  $ld_monto       			  = $_POST["txtmoning"];
	  $ldec_monto				  = str_replace(".","",$ld_monto);
	  $ldec_monto				  = str_replace(",",".",$ldec_monto);
	  if ($lb_valido)
		 {
		   $ls_operacioncon="H";
		   if ($li_cobrapaga==0)
				$lb_valido  = $in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta,$ls_procedencia,$ls_mov_descripcion,$ls_mov_document,$ls_operacioncon,$ldec_monto,$ldec_objret,false,'00000');
		   $ls_cuenta       = $_POST["cuenta_scg"];
		   $ls_documento    = $_POST["txtdocumento"];
		   $ls_denominacion = $_POST["txtdescripcion"];
		   $ls_operacioncon = "D";
		   $ld_mondeb       = $_POST["monto"];
		   if ($lb_valido)
			  {
				$lb_valido = $in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta,$ls_procedencia,$ls_descripcion,$ls_mov_document,$ls_operacioncon,$ld_mondeb,$ldec_objret,true,'00000');
				if ($lb_valido)
				   {
					 $ls_spicuenta = trim($_POST["txtcuenta"]);
					 $ls_desmov    = $_POST["txtdescripcion"];
					 $ls_operacion = $_POST["txtafectacion"];
					 $ldec_monto   = $_POST["txtmoning"];
					 $ldec_monto   = str_replace(".","",$ldec_monto);
					 $ldec_monto   = str_replace(",",".",$ldec_monto);
					 if ($li_estpreing==1)
						{
						  $ls_estcla     = trim($_POST["hidtipestpro"]);
						  $ls_codestpro1 = str_pad(trim($_POST["codestpro1"]),25,0,0);
						  $ls_codestpro2 = str_pad(trim($_POST["codestpro2"]),25,0,0);
						  $ls_codestpro3 = str_pad(trim($_POST["codestpro3"]),25,0,0);
						  if ($li_estmodest==2)
							 {
							   $ls_codestpro4 = str_pad(trim($_POST["codestpro4"]),25,0,0);
							   $ls_codestpro5 = str_pad(trim($_POST["codestpro5"]),25,0,0);
							 }
						  else
							 {
							   $ls_codestpro4 = $ls_codestpro5 = str_pad("",25,0,0);
							 }
						}
					 else
						{
						  $ls_estcla = '-';
						  $ls_codestpro1 = $ls_codestpro2 = $ls_codestpro3 = $ls_codestpro4 = $ls_codestpro5 = str_pad("",25,"-",0);
						}
					 $lb_valido = $in_classmovbanco->uf_procesar_dt_ingreso($ls_codban,$ls_ctaban,$ls_mov_document,$ls_codope,$ls_estmov,$ls_spicuenta,$ls_mov_document,$ls_desmov,$ls_procedencia,$ldec_monto,$ls_operacion,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla);
					 if ($lb_valido)
						{
						  $in_classmovbanco->io_sql->commit();
						  $ls_estdoc='C';
						  if ($li_cobrapaga==0)
							$ls_cadena="f.ddlb_spi.value=0";
						  else
							$ls_cadena="f.ddlb_spi.value=1";
						  ?>
						  <script language="javascript">
							f=opener.document.form1;
							f.operacion.value="CARGAR_DT";
							f.status_doc.value='C';//Cambio estatus a actualizable
							f.action="<?php print $ls_opener;?>";
							f.submit();
						  </script>	
						  <?php
						}
					 else
						{
						  $in_classmovbanco->io_sql->rollback();
						  $io_msg->message($in_classmovbanco->is_msg_error);
						}
				   }
				else
				   {
					 $in_classmovbanco->io_sql->rollback();
					 $io_msg->message($in_classmovbanco->is_msg_error);
				   }
			  }
		   else
			  {
				$io_msg->message($in_classmovbanco->is_msg_error);
				$in_classmovbanco->io_sql->rollback();
			  } 				
		 } 	
	  else
		 {
		   $io_msg->message($in_classmovbanco->is_msg_error);
		   $in_classmovbanco->io_sql->rollback();
		   ?>
		   <script language="javascript">
			 close();
		   </script>	
		   <?php
		 }			
   }
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";	   
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";	   	   	   

switch ($ls_operacion) 
{
   case 'AAP':
       $ls_apertura="selected";
       break;
   case 'AU':
       $ls_aumento="selected";
       break;
   case 'DI':
       $ls_disminucion="selected";
       break;
	case 'PC':
       $ls_precompromiso="selected";	   
	   break;
	case 'CS':   
       $ls_compromiso="selected";
	   break;
	case 'CG': 
	   $ls_compromisogastocausado="selected";
	   break;
	case 'GC':
	   $ls_gastocausado="selected";
	   break;   
	case 'CP':
       $ls_causadopago="selected";
	   break;
	case 'PG':
       $ls_pago="selected";
	   break;
	case 'CCP':
       $ls_compromisocausasopago="selected";	   	   	   
	   break;
    default:
	   $ls_compromisogastocausado="selected";
	   break;
}
?>
<form method="post" name="form1" action=""> 
<?php
/*//////////////////////////////////////////////         SEGURIDAD               /////////////////////////////////////////////
	$io_fun_banco->uf_print_permisos($ls_permisos,$la_permisos,$ls_logusr,"location.href='sigespwindow_blank.php'");
	unset($io_fun_banco);
//////////////////////////////////////////////         SEGURIDAD               /////////////////////////////////////////////*/
?>
<table width="583" border="0" align="center" cellpadding="0" cellspacing="0" class="formato-blanco">
  <tr>
   <td height="22" colspan="2" class="titulo-celda"><input name="hidcodtipfon" type="hidden" id="hidcodtipfon" value="<?php echo $ls_codtipfon; ?>">
     Entrada de Comprobante de Ingresos 
      <input name="hidnumordpagmin" type="hidden" id="hidnumordpagmin" value="<?php echo $ls_numordpagmin; ?>"></td>
  </tr>
  <tr>
    <td height="13">&nbsp;</td>
    <td height="13">&nbsp;</td>
  </tr>
  <tr>
    <td width="120" height="22" align="right">Documento</td>
    <td width="461" height="22"><input name="txtdocumento" type="text" id="txtdocumento" style="text-align:center" onBlur="javascript:valid_cmp(this);" size="22" maxlength="15" value="<?php print $ls_mov_document;?>" readonly></td>
  </tr>
  <tr>
    <td height="22" align="right">Descripci&oacute;n</td>
    <td height="22"><input name="txtdescripcion" type="text" id="txtdescripcion" size="80" maxlength="100" style="text-align:left" value="<?php print $ls_descripcion;?>"></td>
  </tr>
  <tr>
    <td height="22" align="right">Procedencia</td>
    <td height="22"><input name="txtprocedencia" type="text" id="txtprocedencia" size="22" maxlength="6" style="text-align:center" value="<?php print $ls_procedencia;?>" readonly></td>
  </tr>
  <?php
  if ($li_estpreing==1)//LLevar a 1
     {
  ?>
  <tr>
    <td height="22" style="text-align:right"><?php print $la_empresa["nomestpro1"];  ?></td>
    <td height="22"><label>
      <input name="codestpro1" type="text" id="codestpro1" size="<?php echo $li_size1; ?>" maxlength="<?php echo $li_loncodestpro1 ?>" style="text-align:center">
      <a href="javascript:catalogo_estpro1();"><img src="../../shared/imagebank/tools15/buscar.gif" width="15" height="15" border="0" alt="Cat&aacute;logo de Estructura Programatica 1"></a>
      <input name="denestpro1" type="text" class="sin-borde" id="denestpro1" size="50" readonly>
      <input name="hidtipestpro" type="hidden" id="hidtipestpro">
      </label></td>
  </tr>
  <tr>
    <td height="22" style="text-align:right"><?php print $la_empresa["nomestpro2"] ; ?></td>
    <td height="22"><label>
      <input name="codestpro2" type="text" id="codestpro2" size="<?php echo $li_size2; ?>" maxlength="<?php echo $li_loncodestpro2 ?>" style="text-align:center">
      <a href="javascript:catalogo_estpro2();"><img src="../../shared/imagebank/tools15/buscar.gif" width="15" height="15" border="0" alt="Cat&aacute;logo de Estructura Programatica 2"></a>
      <input name="denestpro2" type="text" class="sin-borde" id="denestpro2" size="50" readonly>
      </label></td>
  </tr>
  <tr>
    <td height="22" style="text-align:right"><?php print $la_empresa["nomestpro3"] ; ?></td>
    <td height="22"><label>
      <input name="codestpro3" type="text" id="codestpro3" size="<?php echo $li_size3; ?>" maxlength="<?php echo $li_loncodestpro3 ?>" style="text-align:center">
      <a href="javascript:catalogo_estpro3();"><img src="../../shared/imagebank/tools15/buscar.gif" width="15" height="15" border="0" alt="Cat&aacute;logo de Estructura Programatica 3"></a>
      <input name="denestpro3" type="text" class="sin-borde" id="denestpro3" size="50" readonly>
      </label></td>
  </tr>
  <?php 
  if ($li_estmodest==2)
     {
  ?>
  <tr>
    <td height="22" style="text-align:right"><?php print $la_empresa["nomestpro4"];  ?></td>
    <td height="22"><label>
      <input name="codestpro4" type="text" id="codestpro4" size="<?php echo $li_size4; ?>" maxlength="<?php echo $li_loncodestpro4 ?>" style="text-align:center">
      <a href="javascript:catalogo_estpro4();"><img src="../../shared/imagebank/tools15/buscar.gif" width="15" height="15" border="0" alt="Cat&aacute;logo de Estructura Programatica 4"></a>
      <input name="denestpro4" type="text" class="sin-borde" id="denestpro4" size="50" readonly>
      </label></td>
  </tr>
  <tr>
    <td height="22" style="text-align:right"><?php print $la_empresa["nomestpro5"];  ?></td>
    <td height="22"><label>
      <input name="codestpro5" type="text" id="codestpro5" size="<?php echo $li_size5; ?>" maxlength="<?php echo $li_loncodestpro5 ?>" style="text-align:center">
      <a href="javascript:catalogo_estpro5();"><img src="../../shared/imagebank/tools15/buscar.gif" width="15" height="15" border="0" alt="Cat&aacute;logo de Estructura Programatica 5"></a>
      <input name="denestpro5" type="text" class="sin-borde" id="denestpro5" size="50" readonly>
      </label></td>
  </tr>
  <?php
     }
  }
  ?> 
  <tr>
    <td height="22" style="text-align:right">Cuenta</td>
    <td height="22"><input name="txtcuenta" type="text" id="txtcuenta" size="22" style="text-align:center"> 
    <a href="javascript:catalogo_cuentasSPI();"><img src="../../shared/imagebank/tools15/buscar.gif" width="15" height="15" border="0" alt="Catálogo de Cuentas de Gastos"></a><input name="txtdenominacion" type="text" class="sin-borde" id="txtdenominacion" style="text-align:left" size="50" maxlength="254" readonly></td>
  </tr>
  <tr>
    <td height="22" align="right">&nbsp;</td>
    <td height="22"><a href="javascript:aceptar_presupuestario();">Aceptar<img src="../../shared/imagebank/tools15/aprobado.gif" alt="Agregar Detalle Presupuestario" width="15" height="15" border="0">  </a> <a href="javascript: close();">  Cancelar<img src="../../shared/imagebank/tools15/eliminar.gif" alt="Cancelar Registro de Detalle Presupuestario" width="15" height="15" border="0"></a></td>
  </tr>
  <tr>
    <td height="22">&nbsp;</td>
    <td height="22"><input name="txtcuentascg" type="hidden" id="txtcuentascg">
      <input name="comprobante" type="hidden" id="comprobante" value="<?php print $ls_comprobante;?>">
      <input name="procede" type="hidden" id="procede" value="<?php print $ls_mov_procede;?>">
	  <input name="fecha" type="hidden" id="fecha" value="<?php print $ld_fecha;?>">
      <input name="provbene" type="hidden" id="provbene" value="<?php print $ls_provbene;?>">
      <input name="tipo" type="hidden" id="tipo" value="<?php print $ls_tipo;?>">
      <input name="descripcion" type="hidden" id="descripcion" value="<?php print $ls_mov_descripcion;?>">
      <input name="operacion" type="hidden" id="operacion">
      <input name="mov_document" type="hidden" id="mov_document" value="<?php print $ls_mov_document;?>">
      <input name="codban" type="hidden" id="codban" value="<?php print $ls_codban;?>">
      <input name="ctaban" type="hidden" id="ctaban" value="<?php print $ls_ctaban;?>">
      <input name="cuenta_scg" type="hidden" id="cuenta_scg" value="<?php print $ls_cuenta_scg;?>">
      <input name="mov_operacion" type="hidden" id="mov_operacion" value="<?php print $ls_codope;?>">
      <input name="txtnomproben" type="hidden" id="txtnomproben" value="<?php print $ls_nomproben;?>">
      <input name="monto" type="hidden" id="monto" value="<?php print $ldec_monto_mov;?>">
      <input name="objret" type="hidden" id="objret" value="<?php print $ldec_objret;?>">
      <input name="retenido" type="hidden" id="retenido" value="<?php print $ldec_retenido;?>">
      <input name="chevau" type="hidden" id="chevau" value="<?php print $ls_chevau;?>">
      <input name="estint" type="hidden" id="estint" value="<?php print  $li_estint;?>">
	  <input name="estcob" type="hidden" id="estcob" value="<?php print  $li_estcob;?>">
      <input name="cobrapaga" type="hidden" id="cobrapaga" value="<?php print $li_cobrapaga;?>">
      <input name="estbpd" type="hidden" id="estbpd" value="<?php print $ls_estbpd;?>">
      <input name="estmov" type="hidden" id="estmov" value="<?php print $ls_estmov;?>">
      <input name="codconmov" type="hidden" id="codconmov" value="<?php print $ls_codconmov;?>">
      <input name="tip_mov" type="hidden" id="tip_mov" value="<?php print $ls_estreglib;?>">
      <input name="opener" type="hidden" id="opener" value="<?php print $ls_opener;?>">
      <input name="estdoc" type="hidden" id="estdoc" value="<?php print $ls_estdoc;?>">
	  <input name="cuenta_ingreso" type="hidden" id="cuenta_ingreso">
	  <input name="codfuefin" type="hidden" id="codfuefin" value="<?php print $ls_codfuefin;?>">
	  <input name="numconint" type="hidden" id="numconint" value="<?php print $ls_numconint;?>"></td>
  </tr>
</table>
</form>
</body>
<script language="javascript">
  function aceptar_presupuestario()
  {
  	f             = document.form1;
	ls_numdoc     = f.txtdocumento.value;
	ls_procede    = f.txtprocedencia.value;
	ls_cuenta     = f.txtcuenta.value;
  	ls_codestpro1 = f.codestpro1.value;
	ls_codestpro2 = f.codestpro2.value;
	ls_codestpro3 = f.codestpro3.value;
	li_estmodest  = "<?php echo $_SESSION["la_empresa"]["estmodest"]; ?>";
	if (li_estmodest==2)
	{
	ls_codestpro4 = f.codestpro4.value;
	ls_codestpro5 = f.codestpro5.value;
    }
	ls_denctaspi  = f.txtdenominacion.value;
	ls_estcla 	  = f.hidtipestpro.value;
	opener.document.form1.txtcuentaspi.value = ls_cuenta;
	opener.document.form1.txtdencuentaspi.value = ls_denctaspi;
	opener.document.form1.txthidcodestpro1.value = ls_codestpro1;
	opener.document.form1.txthidcodestpro2.value = ls_codestpro2;
	opener.document.form1.txthidcodestpro3.value = ls_codestpro3;
	if (li_estmodest==2)
	{
	opener.document.form1.txthidcodestpro4.value = ls_codestpro4;
	opener.document.form1.txthidcodestpro5.value = ls_codestpro5;
	}
	opener.document.form1.txthidestcla.value = ls_estcla;
	close();
  }
  
  function uf_close()
  {
	  close();
  }
	
 function agregar_scg(ls_cuenta,ls_descripcion,ls_documento,ldec_monto,ls_procede,ls_debhab)
 {
	f=document.form1;
	fop=opener.document.form1;
	li_total =fop.totcon.value;
	li_last  =fop.lastscg.value;	
  	li_newrow= parseInt(li_last,10)+1;
	ls_cuenta=f.txtcuentascg.value;
	lb_valido=false;
	for(li_i=1;li_i<=li_total&&lb_valido!=true;li_i++)
	{
		
		ls_cuenta_opener=eval("fop.txtcontable"+li_i+".value");
		if(ls_cuenta==ls_cuenta_opener)
		{
			ldec_monto_actual=eval("fop.txtmontocont"+li_i+".value");	
			while(ldec_monto_actual.indexOf('.')>0)
			{//Elimino todos los puntos o separadores de miles
				ldec_monto_actual=ldec_monto_actual.replace(".","");
			}
			ldec_monto_actual=ldec_monto_actual.replace(",",".");//Cambio la coma de separacion de decimales por un punto para poder realizar la operacion
			while(ldec_monto.indexOf('.')>0)
			{//Elimino todos los puntos o separadores de miles
				ldec_monto=ldec_monto.replace(".","");
			}
			ldec_monto=ldec_monto.replace(",",".");//Cambio la coma de separacion de decimales por un punto para poder realizar la operacion
			ldec_monto_nuevo=parseFloat(parseFloat(ldec_monto) + parseFloat(ldec_monto_actual));
			ldec_monto_nuevo=uf_convertir(ldec_monto_nuevo);
			eval("fop.txtmontocont"+li_i+".value='"+ldec_monto_nuevo+"'");	
			lb_valido=true;
		}
	}
	if((li_newrow<=li_total))
	{
		if(!lb_valido)
		{
		eval("fop.txtcontable"+li_newrow+".value='"+ls_cuenta+"'");
		eval("fop.txtdesdoc"+li_newrow+".value='"+ls_descripcion+"'");
		eval("fop.txtdocscg"+li_newrow+".value='"+ls_documento+"'");
		eval("fop.txtmontocont"+li_newrow+".value='"+ldec_monto+"'");
		eval("fop.txtdebhab"+li_newrow+".value='"+ls_debhab+"'");
		eval("fop.txtprocdoc"+li_newrow+".value='"+ls_procede+"'");
		fop.lastscg.value=li_newrow;
		}
		uf_calcular_montoscg();
	}
	else
	{
		alert("Debe agregar mas filas a la tabla");
	}
 }	
function valid_cmp(cmp)
{
	if((cmp.value==0)||(cmp.value==""))
	{
		alert("Introduzca un numero comprobante valido");
		cmp.focus();
	}
	else
	{
		rellenar_cad(cmp.value,15,"doc");
	}
}

//Funciones de validacion de fecha.
function rellenar_cad(cadena,longitud,campo)
{
	var mystring=new String(cadena);
	cadena_ceros="";
	lencad=mystring.length;
	
	total=longitud-lencad;
	for(i=1;i<=total;i++)
	{
		cadena_ceros=cadena_ceros+"0";
	}
	cadena=cadena_ceros+cadena;
	if(campo=="doc")
	{
		document.form1.txtdocumento.value=cadena;
	}
	else
	{
		document.form1.txtcomprobante.value=cadena;
	}

}

function catalogo_cuentasSPI()
{
  f=document.form1;
  li_estpreing = "<?php echo $_SESSION["la_empresa"]["estpreing"]; ?>";
  if (li_estpreing==1)
     {
	   ls_codestpro1 = f.codestpro1.value;
	   ls_codestpro2 = f.codestpro2.value;
	   ls_codestpro3 = f.codestpro3.value;
	   ls_denestpro1 = f.denestpro1.value;
	   ls_denestpro2 = f.denestpro2.value;
	   ls_denestpro3 = f.denestpro3.value;
	   ls_estcla     = f.hidtipestpro.value;
	   li_estmodest  = "<?php echo $_SESSION["la_empresa"]["estmodest"]; ?>";
	   if (li_estmodest==2)
		  {
		    ls_codestpro4 = f.codestpro4.value;
		    ls_codestpro5 = f.codestpro5.value;
		    ls_denestpro4 = f.denestpro4.value;
		    ls_denestpro5 = f.denestpro5.value;	 
		  }
	   else
		  {
		    ls_codestpro4 = ls_codestpro5 = '0000000000000000000000000';
		    ls_denestpro4 = ls_denestpro5 = "";
		  }   
	   lb_valido = true;
	   if (li_estmodest==2)
		  {
		    if (ls_codestpro1=='' || ls_codestpro2=='' || ls_codestpro3=='' || ls_codestpro4=='' || ls_codestpro5=='')
			   {
				 alert("Debe completar la Estructura Presupuestaria !!!");
				 lb_valido = false;
			   }
		  }
	   else
		  {
		    if (ls_codestpro1=='' || ls_codestpro2=='' || ls_codestpro3=='')
			   {
				 alert("Debe completar la Estructura Presupuestaria !!!");
				 lb_valido = false;
			   }
		  }
	   if (lb_valido)
		  {
		    pagina="sigesp_cat_colctasspi.php?codestpro1="+ls_codestpro1+"&codestpro2="+ls_codestpro2+"&codestpro3="+ls_codestpro3+"&codestpro4="+ls_codestpro4+"&codestpro5="+ls_codestpro5+"&estcla="+ls_estcla+"&txtdenestpro1="+ls_denestpro1+"&txtdenestpro2="+ls_denestpro2+"&txtdenestpro3="+ls_denestpro3+"&txtdenestpro4="+ls_denestpro4+"&txtdenestpro5="+ls_denestpro5;
		    window.open(pagina,"_blank","dependent=yes,menubar=no,toolbar=no,scrollbars=yes,width=770,height=550,resizable=yes,location=no");	 
		  }
	 }
  else
     {
	   pagina="sigesp_cat_ctasspi.php";
	   window.open(pagina,"_blank","dependent=yes,menubar=no,toolbar=no,scrollbars=yes,width=770,height=550,resizable=yes,location=no");	 
	 }
}
 
function  uf_cambiar()
{
  f=document.form1;
  fop=opener.document.form1;
  li_newtotal=f.totalpre.value;
  fop.totpre.value=li_newtotal;
  fop.operacion.value="RECARGAR"
  fop.submit();		
}

function uf_calcular_montoscg()
  {
  	f=document.form1;
	ldec_mondeb=0;
	ldec_monhab=0;
	li_total=fop.lastscg.value;
	for(li_i=1;li_i<=li_total;li_i++)
	{
			ls_debhab=eval("fop.txtdebhab"+li_i+".value");
			ldec_monto=eval("fop.txtmontocont"+li_i+".value");	
			while(ldec_monto.indexOf('.')>0)
			{//Elimino todos los puntos o separadores de miles
				ldec_monto=ldec_monto.replace(".","");
			}
			ldec_monto=ldec_monto.replace(",",".");//Cambio la coma de separacion de decimales por un punto para poder realizar la operacion
			if(ls_debhab=="D")
			{
				ldec_mondeb=parseFloat(ldec_mondeb)+parseFloat(ldec_monto);
				
			}
			else
			{
				ldec_monhab=parseFloat(ldec_monhab) + parseFloat(ldec_monto);
				
			}
			
	}
	ldec_diferencia=parseFloat(ldec_mondeb)-parseFloat(ldec_monhab);
	ldec_mondeb=uf_convertir(ldec_mondeb);
	fop.txtdebe.value=ldec_mondeb;	
	ldec_monhab=uf_convertir(ldec_monhab);
	fop.txthaber.value=ldec_monhab;	
	ldec_diferencia=uf_convertir(ldec_diferencia);
	fop.txtdiferencia.value=ldec_diferencia;	
  }
  
function uf_format(obj)
{
  ldec_monto=uf_convertir(obj.value);
  obj.value=ldec_monto;
}
   
function uf_validar_cantidad()
{
  f=opener.document.form1;
  f2=document.form1;
  ldec_monto_mov     = parseFloat(uf_convertir_monto(f.txtmonto.value));
  ldec_totspi        = parseFloat(uf_convertir_monto(f.totspgi.value));
  ldec_monto_guardar = parseFloat(uf_convertir_monto(f2.txtmoning.value));
  if ((ldec_monto_guardar + ldec_totspi) > ldec_monto_mov)
	 {
	   alert("El monto total del movimiento de ingreso supera el monto total");
	   f2.txtmoning.value="0,00";
	 }		
}

function catalogo_estpro1()
{
  pagina="sigesp_cat_public_colestpro1.php";
  window.open(pagina,"_blank","menubar=no,toolbar=no,scrollbars=yes,width=568,height=400,resizable=yes,location=no");
}

function catalogo_estpro2()
{
	f=document.form1;
	codestpro1=f.codestpro1.value;
	denestpro1=f.denestpro1.value;
	ls_estcla = f.hidtipestpro.value;
	if((codestpro1!="")&&(denestpro1!=""))
	{
		pagina="sigesp_cat_public_colestpro2.php?codestpro1="+codestpro1+"&denestpro1="+denestpro1+"&hidestcla="+ls_estcla;
		window.open(pagina,"_blank","menubar=no,toolbar=no,scrollbars=yes,width=650,height=400,resizable=yes,location=no");
	}
	else
	{
		alert("Seleccione la Estructura nivel 1");
	}
}

function catalogo_estpro3()
{
	f=document.form1;
	codestpro1=f.codestpro1.value;
	denestpro1=f.denestpro1.value;
	codestpro2=f.codestpro2.value;
	codestpro3=f.codestpro3.value;
	denestpro2=f.denestpro2.value;
	ls_estcla = f.hidtipestpro.value;
	if(<?php print $li_estmodest?>==1)
	{
		if((codestpro1!="")&&(denestpro1!="")&&(codestpro2!="")&&(codestpro3=="")&&(denestpro2!=""))
		{
			pagina="sigesp_cat_public_colestpro3.php?codestpro1="+codestpro1+"&denestpro1="+denestpro1+"&codestpro2="+codestpro2+"&denestpro2="+denestpro2+"&hidestcla="+ls_estcla;
			window.open(pagina,"_blank","menubar=no,toolbar=no,scrollbars=yes,width=730,height=400,resizable=yes,location=no");
		}
		else
		{
			pagina="sigesp_cat_public_colestpro.php?tipo=ingreso";
			window.open(pagina,"_blank","menubar=no,toolbar=no,scrollbars=yes,width=730,height=400,resizable=yes,location=no");
		}
	}
	else
	{
		if((codestpro1!="")&&(denestpro1!="")&&(codestpro2!="")&&(denestpro2!=""))
		{
			pagina="sigesp_cat_public_colestpro3.php?codestpro1="+codestpro1+"&denestpro1="+denestpro1+"&codestpro2="+codestpro2+"&denestpro2="+denestpro2;
			window.open(pagina,"_blank","menubar=no,toolbar=no,scrollbars=yes,width=568,height=400,resizable=yes,location=no");
		}
		else
		{
			alert("Seleccione la Estructura nivel 2 !!!");
		}
	}		
}

function catalogo_estpro4()
{
	f=document.form1;
	codestpro1 = f.codestpro1.value;
	denestpro1 = f.denestpro1.value;
	codestpro2 = f.codestpro2.value;
	denestpro2 = f.denestpro2.value;
	codestpro3 = f.codestpro3.value;
	denestpro3 = f.denestpro3.value;
	ls_estcla  = f.hidtipestpro.value;
	if((codestpro1!="")&&(codestpro2!="")&&(codestpro3!="")&&(denestpro1!="")&&(denestpro2!="")&&(denestpro3!=""))
	{
		pagina="sigesp_cat_public_estpro4.php?codestpro1="+codestpro1+"&denestpro1="+denestpro1+"&codestpro2="+codestpro2+"&denestpro2="+denestpro2+"&codestpro3="+codestpro3+"&denestpro3="+denestpro3+"&hidestcla="+ls_estcla;
		window.open(pagina,"_blank","menubar=no,toolbar=no,scrollbars=yes,width=568,height=400,resizable=yes,location=no");
	}
	else
	{
		alert("Seleccione la Estructura nivel 3");
	}
}

function catalogo_estpro5()
{
	f=document.form1;
	codestpro1=f.codestpro1.value;
	denestpro1=f.denestpro1.value;
	codestpro2=f.codestpro2.value;
	denestpro2=f.denestpro2.value;
	codestpro3=f.codestpro3.value;
	denestpro3=f.denestpro3.value;
	codestpro4=f.codestpro4.value;
	denestpro4=f.denestpro4.value;
	codestpro5=f.codestpro5.value;
	if((codestpro1!="")&&(codestpro2!="")&&(codestpro3!="")&&(denestpro1!="")&&(denestpro2!="")&&(denestpro3!="")&&(codestpro4!="")&&(denestpro4!="")&&(codestpro5==""))
	{
		pagina="sigesp_cat_public_estpro5.php?codestpro1="+codestpro1+"&denestpro1="+denestpro1+"&codestpro2="+codestpro2+"&denestpro2="+denestpro2+"&codestpro3="+codestpro3+"&denestpro3="+denestpro3+"&codestpro4="+codestpro4+"&denestpro4="+denestpro4;
		window.open(pagina,"_blank","menubar=no,toolbar=no,scrollbars=yes,width=568,height=400,resizable=yes,location=no");
	}
	else
	{
		pagina="sigesp_cat_public_estprograma.php";
		window.open(pagina,"_blank","menubar=no,toolbar=no,scrollbars=yes,width=568,height=400,resizable=yes,location=no");
	}
}  
</script>
</html>