{
$ls_nummov="";
$lb_valido=$io_siv->uf_siv_insert_movimiento(&$ls_nummov,$ld_fecmov,$ls_nomsol,$ls_codusu,$la_seguridad);
if ($lb_valido)
{
for($li_i=1;$li_i<$li_totrows;$li_i++)
{
$ls_codart= $_POST["txtcodart".$li_i];
$ls_codalm= $_POST["txtcodalm".$li_i];
$ls_numdoc= $_POST["txtnumdoc".$li_i];
$li_canart= $_POST["txtcanart".$li_i];
$li_cosart= $_POST["txtcosart".$li_i];
$ls_opeinv= $_POST["cmbopeinv".$li_i];
$ls_codprodoc=$_POST["cmbcodprodoc".$li_i];
$ls_numdoc=$io_func->uf_cerosizquierda($ls_numdoc,15);
$lb_valido=$io_siv->uf_siv_insert_dt_movimiento($ls_codemp,$ls_nummov,$ld_fecmov,$ls_codart,$ls_codalm,
$ls_opeinv,$ls_codprodoc,$ls_numdoc,$li_canart,$li_cosart,
$la_seguridad);
if($lb_valido)
{
switch ($ls_opeinv)
{
case "API":
$lb_valido=$io_art->uf_siv_aumentar_articuloxalmacen($ls_codemp,$ls_codart,$ls_codalm,
$li_canart,$la_seguridad);
break;
case "ENT":
$lb_valido=$io_art->uf_siv_aumentar_articuloxalmacen($ls_codemp,$ls_codart,$ls_codalm,
$li_canart,$la_seguridad);
f=document.form1;
f.action="sigespwindow_blank.php";
f.submit();
</script>
<?php
}
}
if ($ls_operacion=="CARGAR" )
{
$la_empresa = $_SESSION["la_empresa"];
$ls_codemp = $la_empresa["codemp"];
//$ls_cmbbsf=$_POST["cmbbsf"]; si se muestra en bolivar fuerte
if($li_estmodest==2)
{
$ls_codestpro1=$io_function->uf_cerosizquierda($ls_codestpro1,25); // CAMBIO DE TAMAÑO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro2=$io_function->uf_cerosizquierda($ls_codestpro2,25); // CAMBIO DE TAMAÑO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro3=$io_function->uf_cerosizquierda($ls_codestpro3,25); // CAMBIO DE TAMAÑO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro4=$io_function->uf_cerosizquierda($ls_codestpro4,25); // CAMBIO DE TAMAÑO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro5=$io_function->uf_cerosizquierda($ls_codestpro5,25); // CAMBIO DE TAMAÑO DE LA ESTRUCTURA PROGRAMATICA
}
else
{
$ls_codestpro1=$io_function->uf_cerosizquierda($ls_codestpro1,25); // CAMBIO DE TAMAÑO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro2=$io_function->uf_cerosizquierda($ls_codestpro2,25); // CAMBIO DE TAMAÑO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro3=$io_function->uf_cerosizquierda($ls_codestpro3,25); // CAMBIO DE TAMAÑO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro4=$io_function->uf_cerosizquierda(0,25);
$ls_codestpro5=$io_function->uf_cerosizquierda(0,25);
}
$ls_estcla=$_POST["estcla"];
$rs_load=$io_class_aper->uf_spg_load_cuentas_apertura($ls_codemp,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla);
}
}
elseif($li_estmodest==2)
{
$ls_codestpro4_min = $_GET["codestpro4"];
$ls_codestpro5_min = $_GET["codestpro5"];
$ls_codestpro4h_max = $_GET["codestpro4h"];
$ls_codestpro5h_max = $_GET["codestpro5h"];
if(($ls_codestpro1_min=='**') ||($ls_codestpro1_min==''))
{
$ls_codestpro1_min='';
}
else
{
$ls_codestpro1_min = $io_funciones->uf_cerosizquierda($ls_codestpro1_min,20);
}
if(($ls_codestpro2_min=='**') ||($ls_codestpro2_min==''))
{
$ls_codestpro2_min='';
}
else
{
$ls_codestpro2_min = $io_funciones->uf_cerosizquierda($ls_codestpro2_min,6);
}
if(($ls_codestpro3_min=='**')||($ls_codestpro3_min==''))
{
$ls_codestpro3_min='';
}
else
if($io_function_report->uf_spg_reporte_select_min_programatica($ls_codestpro1_min,$ls_codestpro2_min,
$ls_codestpro3_min,$ls_codestpro4_min,
$ls_codestpro5_min,$ls_estclades))
{
$ls_codestpro1 = trim($ls_codestpro1_min);
$ls_codestpro2 = trim($ls_codestpro2_min);
$ls_codestpro3 = trim($ls_codestpro3_min);
$ls_codestpro4 = trim($ls_codestpro4_min);
$ls_codestpro5 = trim($ls_codestpro5_min);
}
}
else
{
if($ls_codestpro1_min<>"")
{
$ls_codestpro1_min=$io_funciones->uf_cerosizquierda($ls_codestpro1_min,25);
$ls_codestpro1= $ls_codestpro1_min;
}
else
{
$io_function_report->uf_spg_reporte_select_min_codestpro1(&$ls_codestpro1_min,&$ls_estclades);
$ls_codestpro1=$ls_codestpro1_min;
}
if($ls_codestpro2_min<>"")
{
$ls_codestpro2_min=$io_funciones->uf_cerosizquierda($ls_codestpro2_min,25);
$ls_codestpro2= $ls_codestpro2_min;
}
else
{
</tr>
</table>
<br>
<?php
print "<table width=550 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td>".$la_empresa["nomestpro1"]."</td>";
print "<td>".$la_empresa["nomestpro2"]."</td>";
print "<td>".$la_empresa["nomestpro3"]."</td>";
print "<td>Código </td>";
print "<td>Denominación</td>";
print "<td>Estatus</td>";
print "</tr>";
if($ls_operacion=="BUSCAR")
{
$ls_codestpro1=$io_function->uf_cerosizquierda($ls_codestprog1,25);
$ls_codestpro2=$io_function->uf_cerosizquierda($ls_codestprog2,25);
$ls_codestpro3=$io_function->uf_cerosizquierda($ls_codestprog3,25);
$ls_logusr = $_SESSION["la_logusr"];
$ls_gestor = $_SESSION["ls_gestor"];
$ls_sql_seguridad = "";
if (strtoupper($ls_gestor) == "MYSQLT")
{
$ls_sql_seguridad = " AND CONCAT('".$ls_codemp."','SPG','".$ls_logusr."',codestpro1,codestpro2,codestpro3,codestpro4,estcla) IN (SELECT distinct CONCAT(codemp,codsis,codusu,CONCAT(substr(codintper,1,100),substr(codintper,126,1)))
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG')";
}
else
{
$ls_sql_seguridad = " AND '".$ls_codemp."'||'SPG'||'".$ls_logusr."'||codestpro1||codestpro2||codestpro3||codestpro4||estcla IN (SELECT distinct codemp||codsis||codusu||substr(codintper,1,100)||substr(codintper,126,1)
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG')";
print "<tr class=titulo-celda>";
print "<td>" . $arr["nomestpro1"] . "</td>";
print "<td>" . $arr["nomestpro2"] . "</td>";
if ($li_estmodest == '1') {
print "<td>Código </td>";
print "<td>Denominación</td>";
} else {
print "<td>" . $arr["nomestpro3"] . "</td>";
print "<td>" . $arr["nomestpro4"] . "</td>";
print "<td>Código </td>";
print "<td>Denominación</td>";
}
print "</tr>";
if ($ls_operacion == "BUSCAR") {
if (!empty($ls_codestpro1) && !empty($ls_codestpro2) && !empty($ls_codestpro3)) {
$ls_codestpro1 = $io_funcion->uf_cerosizquierda($ls_codestpro1, 20);
$ls_codestpro2 = $io_funcion->uf_cerosizquierda($ls_codestpro2, 6);
$ls_codestpro3 = $io_funcion->uf_cerosizquierda($ls_codestpro3, 3);
}
if ($li_estmodest == '1') {
$ls_sql = "SELECT SUBSTR(spg_ep3.codestpro1," . $li_longestpro1 . ",25) as codestpro1,\n\t\t SUBSTR(spg_ep3.codestpro2," . $li_longestpro2 . ",25) as codestpro2,\n\t\t SUBSTR(spg_ep3.codestpro3," . $li_longestpro3 . ",25) as codestpro3,\n\t\t spg_ep3.denestpro3, spg_ep3.estcla as estcla1,spg_ep3.estcla as estcla2, spg_ep3.estcla as estcla3,\n\t\t\t\t\t (SELECT denestpro1 FROM spg_ep1 WHERE spg_ep1.codestpro1=spg_ep3.codestpro1 AND \n\t\t\t\t\t spg_ep1.estcla=spg_ep3.estcla) as denestpro1, \n\t\t\t\t\t (SELECT denestpro2 FROM spg_ep2 WHERE spg_ep2.codestpro1=spg_ep3.codestpro1 AND \n\t\t\t\t\t spg_ep2.codestpro2=spg_ep3.codestpro2 AND spg_ep2.estcla=spg_ep3.estcla) as denestpro2 \n\t\t\t\t FROM spg_ep3 \t\n\t\t\t\t WHERE spg_ep3.codestpro3 like '%{$ls_codestpro}%' AND \n\t\t\t\t spg_ep3.denestpro3 like '%{$ls_denestpro}%' \n\t\t\t\t ORDER BY codestpro1,codestpro2,codestpro3,spg_ep3.estcla ";
} else {
$ls_sql = "SELECT SUBSTR(a.codestpro1," . $li_longestpro1 . ",25) as codestpro1,a.denestpro1 as denestpro1, SUBSTR(b.codestpro2," . $li_longestpro2 . ",25) as codestpro2, " . "\t\t b.denestpro2 as denestpro2, SUBSTR(c.codestpro3," . $li_longestpro3 . ",25) as codestpro3,c.denestpro3 as denestpro3, " . "\t\t SUBSTR(d.codestpro4," . $li_longestpro4 . ",25) as codestpro4,d.denestpro4 as denestpro4, SUBSTR(e.codestpro5," . $li_longestpro5 . ",25) as codestpro5, " . "\t\t e.denestpro5 as denestpro5 " . " FROM spg_ep1 a,spg_ep2 b,spg_ep3 c, spg_ep4 d, spg_ep5 e " . " WHERE e.codestpro5 like '%" . $ls_codestpro . "%' AND e.denestpro5 like '%" . $ls_denestpro . "%' AND " . " a.codemp=b.codemp AND a.codemp=c.codemp AND a.codemp=d.codemp AND " . " a.codemp=e.codemp AND a.codemp='" . $ls_codemp . "' AND " . " a.codestpro1=b.codestpro1 AND a.codestpro1=c.codestpro1 AND b.codestpro2=c.codestpro2 AND " . " a.codestpro1=d.codestpro1 AND a.codestpro1=e.codestpro1 AND b.codestpro2=d.codestpro2 AND " . " b.codestpro2=e.codestpro2 AND c.codestpro3=d.codestpro3 AND c.codestpro3=e.codestpro3 AND " . " d.codestpro4=d.codestpro4 ";
}
$rs_data = $io_sql->select($ls_sql);
$data = $rs_data;
if ($row = $io_sql->fetch_row($rs_data)) {
$data = $io_sql->obtener_datos($rs_data);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$ds->data = $data;
}
else
{
$ls_logusr="";
}
$ls_sistema="SPG";
$ls_ventana="sigesp_spg_p_apertura.php";
$la_security[1]=$ls_empresa;
$la_security[2]=$ls_sistema;
$la_security[3]=$ls_logusr;
$la_security[4]=$ls_ventana;
//////////////////////////////////////////////////////////////////////////////////////////////////
if (array_key_exists("operacion",$_POST))
{
$ls_operacion=$_POST["operacion"];
$ls_estpro1=$io_function->uf_cerosizquierda($_POST["codestpro1"],25);
$ls_estpro2=$io_function->uf_cerosizquierda($_POST["codestpro2"],25);
$ls_estpro3=$io_function->uf_cerosizquierda($_POST["codestpro3"],25);
if($li_estmodest==2)
{
$ls_estpro4=$io_function->uf_cerosizquierda($_POST["codestpro4"],25);
$ls_estpro5=$io_function->uf_cerosizquierda($_POST["codestpro5"],25);
}
else
{
$ls_estpro4=$io_function->uf_cerosizquierda("0",25);
$ls_estpro5=$io_function->uf_cerosizquierda("0",25);
}
$ls_estcla =$_POST["estcla"];
$ls_cuentaplan=$_POST["txtcuenta"];
$ls_denominacion=$_POST["txtdenominacion"];
<?php
require_once "sigesp_saf_c_grupo.php";
require_once "../shared/class_folder/class_mensajes.php";
require_once "../shared/class_folder/class_funciones.php";
$io_saf = new sigesp_saf_c_grupo();
$io_msg = new class_mensajes();
$io_func = new class_funciones();
$ls_operacion = $io_fun_activo->uf_obteneroperacion();
$ls_codigo = $io_fun_activo->uf_obtenervalor("txtcodgru", "");
$ls_denominacion = $io_fun_activo->uf_obtenervalor("txtdengru", "");
switch ($ls_operacion) {
case "NUEVO":
uf_limpiarvariables();
$ls_longitud = 3;
$ls_codigo = $io_saf->uf_saf_generar_codigo("", "", "saf_grupo", "codgru");
$ls_codigo = $io_func->uf_cerosizquierda($ls_codigo, $ls_longitud);
break;
case "GUARDAR":
$lb_valido = $io_saf->uf_saf_guardar_grupo($ls_codigo, $ls_denominacion, $la_seguridad);
uf_limpiarvariables();
break;
case "ELIMINAR":
break;
case "":
$lb_valido = $io_saf->uf_saf_delete_grupo($ls_codigo, $la_seguridad);
if ($lb_valido) {
$io_msg->message("El registro fue eliminado");
uf_limpiarvariables();
} else {
$io_msg->message("No se pudo eliminar el registro");
uf_limpiarvariables();
function RelativeDate($as_fecha,$li_sum)
{//Suma periodos cortos a la fecha enviada como parametro ,no mayores de 365...
$li_dia=0;$li_mes=0;$li_agno=0;$li_diasMes=0;$i=0;
$li_restantes=0;
$li_dia = substr($as_fecha,0,2);
$li_mes = substr($as_fecha,3,2);
$li_agno = substr($as_fecha,6,4);
$lb_bisiesto=$this->esBisiesto($li_agno);
$li_diasMes=$this->diasMes($li_dia,$li_mes,$li_agno);
$li_restantes=$li_dia;
$fun=new class_funciones();
for($i=1;$i<=$li_sum;$i++)
{
if($li_restantes==$li_diasMes)
{
if($li_mes==12)
{
$li_mes=1;
$li_agno=$li_agno+1;
$li_restantes=0;
$li_restantes=$li_restantes+1;
$li_diasMes=$this->diasMes($li_restantes,$li_mes,$li_agno);
}
else
{
$li_mes=$li_mes+1;
$li_restantes=0;
$li_restantes=$li_restantes+1;
$li_diasMes=$this->diasMes($li_restantes,$li_mes,$li_agno);
}
}
else
{
$li_restantes=$li_restantes+1;
}
}
$ls_fecha= $fun->uf_cerosizquierda($li_restantes,2)."-".$fun->uf_cerosizquierda($li_mes,2)."-".$li_agno;
return $ls_fecha;
}//Fin de RelativeDate
{
$ls_codestpro1=$_POST["codestpro1"];
$ls_codestpro2=$_POST["codestpro2"];
$ls_codestpro3=$_POST["codestpro3"];
}
$li_estmodest = $la_empresa["estmodest"];
if($li_estmodest==1)
{
$ls_codestpro4="00";
$ls_codestpro5="00";
}
else
{
$ls_codestpro4=$_POST["codestpro4"];
$ls_codestpro5=$_POST["codestpro5"];
$ls_codestpro1=$io_function->uf_cerosizquierda($ls_codestpro1,20);
$ls_codestpro2=$io_function->uf_cerosizquierda($ls_codestpro2,6);
$ls_codestpro3=$io_function->uf_cerosizquierda($ls_codestpro3,3);
$ls_codestpro4=$io_function->uf_cerosizquierda($ls_codestpro4,2);
$ls_codestpro5=$io_function->uf_cerosizquierda($ls_codestpro5,2);
}
$li_num=$_POST["li_totnum"];
for($i=1;$i<=$li_num;$i++)
{
$ls_cuenta=$_POST["txtCuenta".$i];
$ls_denominacion=$_POST["txtDenominacion".$i];
$ld_asignado=trim($_POST["txtAsignacion".$i]);
$ls_status=$_POST["status".$i];
$ls_distribuir=$_POST["distribuir".$i];
$ls_modrep=$_POST["modrep".$i];
$ls_referencia=$_POST["referencia".$i];
function uf_print_conceptos()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_conceptos
// Access: private
// Arguments:
// Description: Método que obtiene e imprime el resultado de la busqueda de los conceptos
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_fun_sep;
require_once("../../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
$ls_codemp=$_SESSION['la_empresa']['codemp'];
$ls_parsindis=$_SESSION["la_empresa"]["estparsindis"];
$ls_codconsep="%".$_POST['codconsep']."%";
$ls_denconsep="%".$_POST['denconsep']."%";
$ls_codestpro1=$_POST['codestpro1'];
$ls_codestpro2=$_POST['codestpro2'];
$ls_codestpro3=$_POST['codestpro3'];
$ls_codestpro4=$_POST['codestpro4'];
$ls_codestpro5=$_POST['codestpro5'];
$ls_estcla=$_POST["estcla"];
$ls_codestpro1 = $io_funciones->uf_cerosizquierda($ls_codestpro1,25);
$ls_codestpro2 = $io_funciones->uf_cerosizquierda($ls_codestpro2,25);
$ls_codestpro3 = $io_funciones->uf_cerosizquierda($ls_codestpro3,25);
$ls_codestpro4 = $io_funciones->uf_cerosizquierda($ls_codestpro4,25);
$ls_codestpro5 = $io_funciones->uf_cerosizquierda($ls_codestpro5,25);
$ls_orden=$_POST['orden'];
$ls_campoorden=$_POST['campoorden'];
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td style='cursor:pointer' title='Ordenar por Codigo' align='center' onClick=ue_orden('codconsep')>Codigo</td>";
print "<td style='cursor:pointer' title='Ordenar por Denominacion' align='center' onClick=ue_orden('denconsep')>Denominacion</td>";
print "<td style='cursor:pointer' title='Ordenar por Precio' align='center' onClick=ue_orden('monconsepe')>Precio Unitario</td>";
print "<td style='cursor:pointer' title='Ordenar por Cuenta' align='center' onClick=ue_orden('spg_cuenta')>Cuenta</td>";
print "<td></td>";
print "</tr>";
if($ls_parsindis=='0')
{
$ls_sql="SELECT codconsep, denconsep, monconsepe, TRIM(spg_cuenta) as spg_cuenta, ".
" (SELECT COUNT(spg_cuenta) FROM spg_cuentas ".
" WHERE spg_cuentas.codestpro1 = '".$ls_codestpro1."' ".
" AND spg_cuentas.codestpro2 = '".$ls_codestpro2."' ".
" AND spg_cuentas.codestpro3 = '".$ls_codestpro3."' ".
" AND spg_cuentas.codestpro4 = '".$ls_codestpro4."' ".
" AND spg_cuentas.codestpro5 = '".$ls_codestpro5."' ".
" AND spg_cuentas.estcla = '".$ls_estcla."'".
" AND spg_cuentas.spg_cuenta = sep_conceptos.spg_cuenta) AS existecuenta ".
" FROM sep_conceptos ".
" WHERE codconsep like '".$ls_codconsep."' ".
" AND denconsep like '".$ls_denconsep."' ".
" ORDER BY ".$ls_campoorden." ".$ls_orden." ";
}
else
{
$ls_sql="SELECT codconsep, denconsep, monconsepe, TRIM(spg_cuenta) as spg_cuenta, ".
" (SELECT COUNT(spg_cuenta) FROM spg_cuentas ".
" WHERE spg_cuentas.codestpro1 = '".$ls_codestpro1."' ".
" AND spg_cuentas.codestpro2 = '".$ls_codestpro2."' ".
" AND spg_cuentas.codestpro3 = '".$ls_codestpro3."' ".
" AND spg_cuentas.codestpro4 = '".$ls_codestpro4."' ".
" AND spg_cuentas.codestpro5 = '".$ls_codestpro5."' ".
" AND spg_cuentas.estcla = '".$ls_estcla."' ".
" AND spg_cuentas.spg_cuenta = sep_conceptos.spg_cuenta) AS existecuenta, ".
" (SELECT (asignado-(comprometido+precomprometido)+aumento-disminucion) ".
" FROM spg_cuentas ".
" WHERE spg_cuentas.codestpro1 = '".$ls_codestpro1."' ".
" AND spg_cuentas.codestpro2 = '".$ls_codestpro2."'".
" AND spg_cuentas.codestpro3 = '".$ls_codestpro3."' ".
" AND spg_cuentas.codestpro4 = '".$ls_codestpro4."' ".
" AND spg_cuentas.codestpro5 = '".$ls_codestpro5."' ".
" AND spg_cuentas.estcla='".$ls_estcla."'".
" AND spg_cuentas.spg_cuenta = sep_conceptos.spg_cuenta) AS disponibilidad ".
" FROM sep_conceptos ".
" WHERE codconsep like '".$ls_codconsep."' ".
" AND denconsep like '".$ls_denconsep."' ".
" ORDER BY ".$ls_campoorden." ".$ls_orden." ";
}
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
if ($ls_parsindis==0)
{
$ls_codconsep=$row["codconsep"];
$ls_denconsep=$row["denconsep"];
$li_monconsepe=number_format($row["monconsepe"],2,",",".");
$ls_spg_cuenta=$row["spg_cuenta"];
$li_existecuenta=$row["existecuenta"];
if($li_existecuenta==0)
{
$ls_estilo = "celdas-blancas";
}
else
{
$ls_estilo = "celdas-azules";
}
print "<tr class=".$ls_estilo.">";
print "<td align='center'>".$ls_codconsep."</td>";
print "<td align='left'>".$ls_denconsep."</td>";
print "<td align='left'>".$li_monconsepe."</td>";
print "<td align='center'>".$ls_spg_cuenta."</td>";
print "<td style='cursor:pointer'>";
print "<a href=\"javascript: ue_aceptar('".$ls_codconsep."','".$ls_denconsep."','".$li_monconsepe."','".$ls_spg_cuenta."','".$li_existecuenta."');\"><img src='../shared/imagebank/tools20/aprobado.gif' title='Agregar' width='15' height='15' border='0'></a></td>";
print "</tr>";
}
else
{
$ls_codconsep=$row["codconsep"];
$ls_denconsep=$row["denconsep"];
$li_monconsepe=number_format($row["monconsepe"],2,",",".");
$ls_spg_cuenta=$row["spg_cuenta"];
$li_existecuenta=$row["existecuenta"];
$li_existecuenta=$row["existecuenta"];
$li_disponibilidad=$row["disponibilidad"];
if($li_existecuenta==0)
{
$ls_estilo = "celdas-blancas";
}
else
{
$ls_estilo = "celdas-azules";
}
print "<tr class=".$ls_estilo.">";
print "<td align='center'>".$ls_codconsep."</td>";
print "<td align='left'>".$ls_denconsep."</td>";
print "<td align='left'>".$li_monconsepe."</td>";
print "<td align='center'>".$ls_spg_cuenta."</td>";
print "<td style='cursor:pointer'>";
if($li_disponibilidad >0)
{
$ls_estilo = "celdas-azules";
print "<a href=\"javascript: ue_aceptar('".$ls_codconsep."','".$ls_denconsep."','".$li_monconsepe."','".$ls_spg_cuenta."','".$li_existecuenta."');\"><img src='../shared/imagebank/tools20/aprobado.gif' title='Agregar' width='15' height='15' border='0'></a></td>";
print "</tr>";
}
else
{
print "<a href=\"javascript: ue_mensaje();\"><img src='../shared/imagebank/tools20/aprobado.gif' title='Agregar' width='15' height='15' border='0'></a></td>";
print "</tr>";
}
}
}
$io_sql->free_result($rs_data);
}
print "</table>";
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}// end function uf_print_conceptos
$ls_sql_seguridad = "";
if (strtoupper($ls_gestor) == "MYSQLT")
{
$ls_sql_seguridad = " AND CONCAT('".$as_codemp."','SPG','".$ls_logusr."',codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,estcla) IN (SELECT distinct CONCAT(codemp,codsis,codusu,codintper)
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG') ";
}
else
{
$ls_sql_seguridad = " AND '".$as_codemp."'||'SPG'||'".$ls_logusr."'||codestpro1||codestpro2||codestpro3||codestpro4||codestpro5||estcla IN (SELECT distinct codemp||codsis||codusu||codintper
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG') ";
}
if ($ls_estmodprog==0)// se utiliza el monto asignado
{
if($li_estmodest==2)
{
$ls_estpro1=$fun->uf_cerosizquierda($ls_estpro1,25);
$ls_estpro2=$fun->uf_cerosizquierda($ls_estpro2,25);
$ls_estpro3=$fun->uf_cerosizquierda($ls_estpro3,25);
$ls_estpro4=$fun->uf_cerosizquierda($ls_estpro4,25);
$ls_estpro5=$fun->uf_cerosizquierda($ls_estpro5,25);
$ls_sql =" SELECT *,(asignado-(comprometido+precomprometido)+aumento-disminucion) as disponible ".
" FROM spg_cuentas ".
" WHERE codemp = '".$as_codemp."' AND spg_cuenta like '".$ls_codigo."' AND ".
" denominacion like '".$ls_denominacion."' AND sc_cuenta like '".$ls_codscg."' AND ".
" codestpro1 = '".$ls_estpro1."' AND codestpro2 = '".$ls_estpro2."' AND ".
" codestpro3 = '".$ls_estpro3."' AND codestpro4 = '".$ls_estpro4."' AND ".
" codestpro5 = '".$ls_estpro5."' AND estcla='".$ls_estcla."' ".$ls_cadena." ".$ls_sql_seguridad.$ls_cadenaval.
" ORDER BY spg_cuenta";
}
else
{
print "<script>";
print "alert('Los comprobantes deben ser generados a través del módulo de Cuentas por Pagar');";
print "location.href='sigespwindow_blank.php';";
print "</script>";
}
}
else
{
$io_msg->message("Error al seleccionar la fuente");
}
$ls_operacion="";
$arr_fecha=getdate();
$ls_agno=$arr_fecha["year"];
$ls_mes=$arr_fecha["mon"];
$ls_tipo="-";
$ls_mes = $fun->uf_cerosizquierda($ls_mes,2);
$ls_provbenedesde = "";
$ls_provbenehasta = "";
}
if($ls_operacion=="PROCESAR")
{
$ls_fecha_actual=date("m");
if($ls_fecha_actual!=$ls_mes)
{
$io_msg->message("El mes de elaboración del pago no coincide con el mes actual. Favor modificar la fecha del servidor para generar el comprobante");
}
else
{
$in_class_cmp_ret->uf_comprobante_ret($ls_mes,$ls_agno,$ls_provbenedesde,$ls_provbenehasta,$ls_tipo);
}
$ls_estcla=$_POST["txtestcla".$li_fila];
if($li_estmodest==2)
{
$estprog[0]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio1,$ls_loncodestpro1);
$estprog[1]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio2,$ls_loncodestpro2);
$estprog[2]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio3,$ls_loncodestpro3);
$estprog[3]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio4,$ls_loncodestpro4);
$estprog[4]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio5,$ls_loncodestpro5);
}
else
{
$estprog[0]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio1,$ls_loncodestpro1);
$estprog[1]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio2,$ls_loncodestpro2);
$estprog[2]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio3,$ls_loncodestpro3);
$estprog[3]=$io_function->uf_cerosizquierda(0,25);
$estprog[4]=$io_function->uf_cerosizquierda(0,25);
}
$estprog[0] = $io_function->uf_cerosizquierda($estprog[0],25);
$estprog[1] = $io_function->uf_cerosizquierda($estprog[1],25);
$estprog[2] = $io_function->uf_cerosizquierda($estprog[2],25);
$estprog[3] = $io_function->uf_cerosizquierda($estprog[3],25);
$estprog[4] = $io_function->uf_cerosizquierda($estprog[4],25);
$estprog[5] = $ls_estcla;
$ls_cuenta=$_POST["txtcuenta".$li_fila];
$ls_procede_doc=$_POST["txtprocede".$li_fila];
$ls_descripcion=$_POST["txtdescripcion".$li_fila];
$ls_documento=$_POST["txtdocumento".$li_fila];
$ls_operacion2=$_POST["txtoperacion".$li_fila];
$ls_denocuenta = "";
}
if ($ls_operacion == "NUEVO") {
$ls_codestpro1 = "";
$ls_denestpro1 = "";
$ls_clasificacion = "P";
$disabled = "disabled";
$readonly = "";
$ls_chkintercom = "0";
$ls_cuenta = "";
$ls_denocuenta = "";
$ls_status = "NUEVO";
}
if ($ls_operacion == "GUARDAR") {
//$ls_clasificacion = $_POST["rbclasificacion"];
$ls_codestpro1 = $io_funcion->uf_cerosizquierda($ls_codestpro1, 25);
$lb_existe = $io_estpro1->uf_spg_select_estprog1($ls_codemp, $ls_codestpro1, $ls_clasificacion);
if (!$lb_existe) {
$lb_valido = $io_estpro1->uf_spg_insert_estprog1($ls_codemp, $ls_codestpro1, $ls_denestpro1, $ls_clasificacion, $ls_chkintercom, $ls_cuenta, $la_seguridad);
if ($lb_valido) {
$io_sql->commit();
$io_msg->message("Registro Incluido !!!");
$ls_codestpro1 = "";
$ls_denestpro1 = "";
$ls_chkintercom = "";
$ls_cuenta = "";
$ls_denocuenta = "";
$ls_status = "NUEVO";
} else {
$io_sql->rollback();
$io_msg->message($io_estpro1->is_msg_error);
}
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
$ls_readonlyrad="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
$ls_readonlyrad="onClick='return false'";
}
$ls_readonly="readonly";
$ls_numordcom=$io_func->uf_cerosizquierda($ls_numordcom,15);
$ld_fecrecbd=$io_func->uf_formatovalidofecha($ld_fecrec);
$ld_fecrecbd=$io_func->uf_convertirdatetobd($ld_fecrec);
$lb_valido=$io_fec->uf_valida_fecha_mes($ls_codemp,$ld_fecrecbd);
if($lb_valido)
{
if ($ls_status!="C")
{
$lb_encontrado=false;
if ($lb_encontrado)
{
$io_msg->message("Registro ya existe");
uf_pintardetalle($li_totrows+1,$ls_estpro);
}
else
{
$ls_codtipo= $_POST["codtipomod"];
//$ls_compread="readonly";
$ls_compread="";
$ls_existe=$_POST["existe"];
}
else
{
$ls_operacion="NUEVO";
$ls_existe="N";
$_SESSION["ACTUALIZAR"]="NO";
$_SESSION["ib_new"] =true;
$array_fecha=getdate();
$ls_dia=$array_fecha["mday"];
$ls_mes=$array_fecha["mon"];
$ls_ano=$array_fecha["year"];
$ls_fecha=$fun->uf_cerosizquierda($ls_dia,2)."/".$fun->uf_cerosizquierda($ls_mes,2)."/".$ls_ano;
$li_fila = 0;
$ls_fuefin = "--";
$ls_coduniadm = "-----";
$ls_denuniadm="";
}
if($ls_operacion=="VALIDAFECHA")
{
$readonly="";
$ls_comprobante = $_POST["txtcomprobante"];
$ls_procede = $_POST["txtproccomp"];
$ls_fecha = $_POST["txtfecha"];
$ls_descripcion = $_POST["txtdesccomp"];
$ls_codemp=$la_emp["codemp"];
$ls_existe=$_POST["existe"];
<tr>
<td> </td>
<td><div align="right"><a href="javascript: ue_search();"><img src="../shared/imagebank/tools20/buscar.gif" alt="Buscar" width="20" height="20" border="0"> Buscar</a></div></td>
</tr>
</table>
<br>
<?php
print "<table width=550 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td>" . $la_empresa["nomestpro1"] . "</td>";
print "<td>Código </td>";
print "<td>Estatus </td>";
print "<td>Denominación</td>";
print "</tr>";
if ($ls_operacion == "BUSCAR") {
$ls_codestprog1 = $io_function->uf_cerosizquierda($ls_codestprog1, 25);
$ls_sql = " SELECT codestpro1,codestpro2,estcla,denestpro2 " . " FROM spg_ep2 " . " WHERE codemp='" . $ls_codemp . "' AND codestpro1 ='" . $ls_codestprog1 . "' AND estcla = '" . $ls_estcla . "' AND " . " codestpro2 like '" . $ls_codigo . "' AND denestpro2 like '" . $ls_denominacion . "' ";
$rs_data = $io_sql->select($ls_sql);
$data = $rs_data;
if ($row = $io_sql->fetch_row($rs_data)) {
$data = $io_sql->obtener_datos($rs_data);
$li_arrcols = array_keys($data);
$li_totcol = count($li_arrcols);
$ds->data = $data;
$li_totrow = $ds->getRowCount("codestpro1");
for ($z = 1; $z <= $li_totrow; $z++) {
print "<tr class=celdas-blancas>";
$ls_codestprog1 = substr($data["codestpro1"][$z], strlen($data["codestpro1"][$z]) - $li_len1, $li_len1);
$ls_codigo_est = substr($data["codestpro2"][$z], strlen($data["codestpro2"][$z]) - $li_len2, $li_len2);
$ls_denominacion = $data["denestpro2"][$z];
$ls_estcla = $data["estcla"][$z];
if ($ls_nacionalidad == 'V') {
$ls_venezolano = "checked";
$ls_extranjero = "";
} else {
$ls_venezolano = "";
$ls_extranjero = "checked";
}
if (array_key_exists("txtfecregben", $_POST)) {
$ls_fecregben = $_POST["txtfecregben"];
$lr_datos["fecregben"] = $ls_fecregben;
} else {
$arr_date = getdate();
$ls_dia = $arr_date['mday'];
$ls_mes = $arr_date['mon'];
$ls_ano = $arr_date['year'];
$ls_fecregben = $io_funcion->uf_cerosizquierda($ls_dia, 2) . "/" . $io_funcion->uf_cerosizquierda($ls_mes, 2) . "/" . $ls_ano;
}
$ls_readonly = "";
if ($ls_operacion == "GUARDAR") {
$ls_codemp = $la_emp["codemp"];
$lb_existe = $io_beneficiario->uf_select_beneficiario($ls_codemp, $ls_cedula);
if ($lb_existe) {
if ($ls_estatus == "NUEVO") {
$io_msg->message("Este Beneficiario ya existe !!!");
$lb_valido = false;
} elseif ($ls_estatus == "GRABADO") {
$arre = $_SESSION["la_empresa"];
$ls_empresa = $arre["codemp"];
$lb_valido = $io_beneficiario->uf_update_beneficiario($ls_codemp, $lr_datos, $la_seguridad);
if ($lb_valido) {
$io_msg->message("Registro Actualizado !!!");
<td height="22"> </td>
<td height="22"><div align="right"><a href="javascript: ue_search();"><img src="../shared/imagebank/tools15/buscar.gif" alt="Buscar" width="15" height="15" border="0"> Buscar </a></div></td>
</tr>
</table>
<br>
<?php
echo "<table width=550 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
echo "<tr class=titulo-celda>";
echo "<td style=text-align:center width=100>Código</td>";
echo "<td style=text-align:center width=450>Denominación</td>";
echo "</tr>";
if($ls_operacion=="BUSCAR")
{
if($li_estmodest==1)
{
$ls_codestpro1 = $fun->uf_cerosizquierda(trim($ls_codestpro1),25);
$ls_codestpro2 = $fun->uf_cerosizquierda(trim($ls_codestpro2),25);
$ls_codestpro3 = $fun->uf_cerosizquierda(trim($ls_codestpro3),25);
$ls_codestpro4 = $fun->uf_cerosizquierda(trim($ls_codestpro4),25);
$ls_codestpro5 = $fun->uf_cerosizquierda(trim($ls_codestpro5),25);
$ls_codestpro1h = $fun->uf_cerosizquierda(trim($ls_codestpro1h),25);
$ls_codestpro2h = $fun->uf_cerosizquierda(trim($ls_codestpro2h),25);
$ls_codestpro3h = $fun->uf_cerosizquierda(trim($ls_codestpro3h),25);
$ls_codestpro4h = $fun->uf_cerosizquierda(trim($ls_codestpro4h),25);
$ls_codestpro5h = $fun->uf_cerosizquierda(trim($ls_codestpro5h),25);
if (strtoupper($ls_gestor)=="MYSQLT")
{
if(($ls_codestpro1!="")&&($ls_codestpro2!="")&&($ls_codestpro3!="")&&($ls_codestpro1h!="")&&($ls_codestpro2h!="")&&($ls_codestpro3h!="")&&($ls_estclades!="")&&($ls_estclahas!=""))
{
$ls_codestprodes=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5.$ls_estclades;
$ls_codestprohas=$ls_codestpro1h.$ls_codestpro2h.$ls_codestpro3h.$ls_codestpro4h.$ls_codestpro5h.$ls_estclahas;
function uf_print_dt_cmpret_ins($ai_totrowrecepciones)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_recepciones
// Access: private
// Arguments: ai_totrowrecepciones // Total de filas de recepciones de documentos
// ai_total // Monto total
// Description: Método que imprime el grid de las cuentas recepciones de documentos
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 19/04/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid;
require_once "../../shared/class_folder/class_funciones.php";
$io_funciones = new class_funciones();
// Titulos el Grid
$lo_title[1] = utf8_encode("Nro. Operacion");
$lo_title[2] = "Factura";
$lo_title[3] = "Nro. Control";
$lo_title[4] = "Fecha";
$lo_title[5] = "Total con IVA";
$lo_title[6] = "Total sin IVA";
$lo_title[7] = "Base Imponible";
$lo_title[8] = "Porcentaje Impuesto";
$lo_title[9] = "Total Impuesto";
$lo_title[10] = "Impuesto Retenido";
$lo_title[11] = "Nro. Documento";
$lo_title[12] = "Nro. Cheque";
$lo_title[13] = "Editar";
// Recorrido del Grid de Recepciones
for ($li_fila = 1; $li_fila < $ai_totrowrecepciones; $li_fila++) {
$ls_codret = trim(uf_obtenervalor("txtcodret" . $li_fila, ""));
$ls_numope = trim(uf_obtenervalor("txtnumope" . $li_fila, ""));
$ls_fecfac = trim(uf_obtenervalor("txtfecfac" . $li_fila, ""));
$ls_numfac = trim(uf_obtenervalor("txtnumfac" . $li_fila, ""));
$ls_numcon = trim(uf_obtenervalor("txtnumcon" . $li_fila, ""));
$ls_numnd = trim(uf_obtenervalor("txtnumnd" . $li_fila, ""));
$ls_numnc = trim(uf_obtenervalor("txtnumnc" . $li_fila, ""));
$ls_tiptrans = trim(uf_obtenervalor("txttiptrans" . $li_fila, ""));
$ls_totcmp_sin_iva = trim(uf_obtenervalor("txttotsiniva" . $li_fila, "0,00"));
$ls_totcmp_con_iva = trim(uf_obtenervalor("txttotconiva" . $li_fila, "0,00"));
$ls_basimp = trim(uf_obtenervalor("txtbasimp" . $li_fila, "0,00"));
$ls_porimp = trim(uf_obtenervalor("txtporimp" . $li_fila, "0,00"));
$ls_porret = trim(uf_obtenervalor("txtporret" . $li_fila, "0,00"));
$ls_totimp = trim(uf_obtenervalor("txttotimp" . $li_fila, "0,00"));
$ls_ivaret = trim(uf_obtenervalor("txtivaret" . $li_fila, "0,00"));
$ls_numsop = trim(uf_obtenervalor("txtnumsop" . $li_fila, ""));
$ls_numdoc = trim(uf_obtenervalor("txtnumdoc" . $li_fila, ""));
$lo_object[$li_fila][1] = "<input name=txtnumope" . $li_fila . " type=text id=txtnumope" . $li_fila . " class=sin-borde style=text-align:center size=10 value='" . $io_funciones->uf_cerosizquierda($li_fila, 10) . "' readonly>" . "<input name=txtcodret" . $li_fila . " type=hidden id=txtcodret" . $li_fila . " value='" . $ls_codret . "'>";
$lo_object[$li_fila][2] = "<input name=txtnumfac" . $li_fila . " type=text id=txtnumfac" . $li_fila . " class=sin-borde style=text-align:center size=10 value='" . $ls_numfac . "'>";
$lo_object[$li_fila][3] = "<input name=txtnumcon" . $li_fila . " type=text id=txtnumcon" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_numcon . "' >";
$lo_object[$li_fila][4] = "<input name=txtfecfac" . $li_fila . " type=text id=txtfecfac" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_fecfac . "' >";
$lo_object[$li_fila][5] = "<input name=txttotconiva" . $li_fila . " type=text id=txttotconiva" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totcmp_con_iva . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][6] = "<input name=txttotsiniva" . $li_fila . " type=text id=txttotsiniva" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totcmp_sin_iva . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][7] = "<input name=txtbasimp" . $li_fila . " type=text id=txtbasimp" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_basimp . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][8] = "<input name=txtporimp" . $li_fila . " type=text id=txtporimp" . $li_fila . " class=sin-borde style=text-align:right size=10 value='" . $ls_porimp . "' readonly><a href=javascript:uf_load_otros_creditos(" . $li_fila . ");><img src=../shared/imagebank/tools15/buscar.gif alt='Buscar Otros Créditos !!!' width=15 height=15 border=0></a>";
$lo_object[$li_fila][9] = "<input name=txttotimp" . $li_fila . " type=text id=txttotimp" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_totimp . "' onKeyPress=return(ue_formatonumero(this,'.',',',event)); >";
$lo_object[$li_fila][10] = "<input name=txtivaret" . $li_fila . " type=text id=txtivaret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_ivaret . "' readonly><a href=javascript:uf_load_retenciones(" . $li_fila . ");><img src=../shared/imagebank/tools15/buscar.gif alt='Buscar Retenciones !!!' width=15 height=15 border=0></a>\n\t\t\t\t\t\t\t\t\t <input name=txtporret" . $li_fila . " type=hidden id=txtporret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_porret . "' readonly>";
$lo_object[$li_fila][11] = "<input name=txtnumdoc" . $li_fila . " type=text id=txtnumdoc" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_numdoc . "'>" . "<input name=txtnumnd" . $li_fila . " type=hidden id=txtnumnd" . $li_fila . " value='" . $ls_numnd . "'>" . "<input name=txtnumnc" . $li_fila . " type=hidden id=txtnumnc" . $li_fila . " value='" . $ls_numnc . "'>" . "<input name=txttiptrans" . $li_fila . " type=hidden id=txttiptrans" . $li_fila . " value='" . $ls_tiptrans . "'>";
$lo_object[$li_fila][12] = "<input name=txtnumsop" . $li_fila . " type=text id=txtnumsop" . $li_fila . " class=sin-borde value='" . $ls_numsop . "' readonly size=15><a href=javascript:ue_cat_solicitud('" . $li_fila . "');><img src=../shared/imagebank/tools20/buscar.gif alt=Buscar width=15 height=15 border=0 title=Buscar></a>";
$lo_object[$li_fila][13] = "<a href=javascript:ue_delete_detalle('" . $li_fila . "');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
}
$lo_object[$li_fila][1] = "<input name=txtnumope" . $li_fila . " type=text id=txtnumope" . $li_fila . " class=sin-borde style=text-align:center size=10 readonly>" . "<input name=txtcodret" . $li_fila . " type=hidden id=txtcodret" . $li_fila . ">" . "<input name=txtnumsop" . $li_fila . " type=hidden id=txtnumsop" . $li_fila . " >";
$lo_object[$li_fila][2] = "<input name=txtnumfac" . $li_fila . " type=text id=txtnumfac" . $li_fila . " class=sin-borde style=text-align:center size=10 readonly>";
$lo_object[$li_fila][3] = "<input name=txtnumcon" . $li_fila . " type=text id=txtnumcon" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly>";
$lo_object[$li_fila][4] = "<input name=txtfecfac" . $li_fila . " type=text id=txtfecfac" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly>";
$lo_object[$li_fila][5] = "<input name=txttotconiva" . $li_fila . " type=text id=txttotconiva" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly value=''>";
$lo_object[$li_fila][6] = "<input name=txttotsiniva" . $li_fila . " type=text id=txttotsiniva" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly value=''>";
$lo_object[$li_fila][7] = "<input name=txtbasimp" . $li_fila . " type=text id=txtbasimp" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly value=''>";
$lo_object[$li_fila][8] = "<input name=txtporimp" . $li_fila . " type=text id=txtporimp" . $li_fila . " class=sin-borde style=text-align:right size=10 readonly value=''>";
$lo_object[$li_fila][9] = "<input name=txttotimp" . $li_fila . " type=text id=txttotimp" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly value=''>";
$lo_object[$li_fila][10] = "<input name=txtivaret" . $li_fila . " type=text id=txtivaret" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly value=''>\n\t\t\t\t\t\t\t\t <input name=txtporret" . $li_fila . " type=hidden id=txtporret" . $li_fila . " class=sin-borde style=text-align:right size=12 value='" . $ls_porret . "' readonly>";
$lo_object[$li_fila][11] = "<input name=txtnumdoc" . $li_fila . " type=text id=txtnumdoc" . $li_fila . " class=sin-borde style=text-align:right size=12 readonly>" . "<input name=txtnumnd" . $li_fila . " type=hidden id=txtnumnd" . $li_fila . " >" . "<input name=txtnumnc" . $li_fila . " type=hidden id=txtnumnc" . $li_fila . " >" . "<input name=txttiptrans" . $li_fila . " type=hidden id=txttiptrans" . $li_fila . " >";
$lo_object[$li_fila][12] = "<input name=txtnumsop" . $li_fila . " type=text id=txtnumsop" . $li_fila . " class=sin-borde readonly size=15>";
$lo_object[$li_fila][13] = "<a><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
print " <tr>";
print " \t <td height='22' align='left' class='formato-blanco'><a href='javascript:ue_insert_row();'><img src='../shared/imagebank/tools/nuevo.gif' title='Agregar Detalle' width='20' height='20' border='0'>Agregar Detalle</a></td>";
print " </tr>";
print "<br>";
$io_grid->makegrid($li_fila, $lo_title, $lo_object, 720, "Detalle Comprobante", "gridrecepciones");
}
print "</tr>";
$ls_sql_aux="";
if($ls_operacion=="BUSCAR")
{
if($as_estmodest==2)
{
$ls_sql_aux=" AND codestpro4='".$ls_estpro4."' ";
$ls_sql_aux=$ls_sql_aux." AND codestpro5='".$ls_estpro5."' ";
}
$ls_sql = "SELECT spg_cuenta,denominacion,codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,".
" sc_cuenta,status,disponible, ".
" (asignado-(comprometido+precomprometido)+aumento-disminucion) as disponible ".
" FROM spg_cuentas ".
" WHERE codemp = '".$as_codemp."' AND spg_cuenta like '".$ls_codigo."%' ".
" AND denominacion like '%".$ls_denominacion."%' AND sc_cuenta like '".$ls_codscg."%'".
" AND codestpro1='".$fun->uf_cerosizquierda($ls_estpro1,20)."' ".
" AND codestpro2='".$fun->uf_cerosizquierda($ls_estpro2,6)."' ".
" AND codestpro3='".$fun->uf_cerosizquierda($ls_estpro3,3)."' ".$ls_sql_aux."
ORDER BY spg_cuenta";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data==false)
{
$msg->message($fun->uf_convertirmsg($io_sql->message));
}
else
{
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
while ($row=$io_sql->fetch_row($rs_data))
{
$arr_cmp["beneficiario"]=$ls_bene;
$arr_cmp["tipo"] =$ls_tipo;
$arr_cmp["codemp"] =$dat["codemp"];
$arr_cmp["tipo_comp"] =1;
if($lb_valido)
{
$ls_cuenta = $_POST["txtcuenta"];
$ls_est1 = $_POST["codestpro1"];
$ls_est2 = $_POST["codestpro2"];
$ls_est3 = $_POST["codestpro3"];
if($li_estmodest==2)
{
$ls_est4 = $_POST["codestpro4"];
$ls_est5 = $_POST["codestpro5"];
$ls_est1 = $fun->uf_cerosizquierda($ls_est1,25);
$ls_est2 = $fun->uf_cerosizquierda($ls_est2,25);
$ls_est3 = $fun->uf_cerosizquierda($ls_est3,25);
$ls_est4 = $fun->uf_cerosizquierda($ls_est4,25);
$ls_est5 = $fun->uf_cerosizquierda($ls_est5,25);
}
else
{
$ls_est1 = $fun->uf_cerosizquierda($ls_est1,25);
$ls_est2 = $fun->uf_cerosizquierda($ls_est2,25);
$ls_est3 = $fun->uf_cerosizquierda($ls_est3,25);
$ls_est4 = $fun->uf_cerosizquierda(0,25);
$ls_est5 = $fun->uf_cerosizquierda(0,25);
}
$ls_estcla = $_POST["estcla"];
$ls_documento = $_POST["txtdocumento"];
break;
case '11':
$lb_selNoviembre="selected";
break;
case '12':
$lb_selDiciembre="selected";
break;
}
if($ls_operacion=="NUEVO")
{
uf_mantener_grid();
$ls_numcom = "";
$ld_fecdesde = $io_function->uf_convertirdatetobd("01/".$ls_mes."/".$ls_agno);
$ld_hasta = $fec->uf_last_day($ls_mes,$ls_agno);
$ld_fechasta = $io_function->uf_convertirdatetobd($ld_hasta);
$ls_periodofiscal = $io_function->uf_cerosizquierda(substr($ld_fecdesde,0,4),4).$io_function->uf_cerosizquierda(substr($ld_fecdesde,5,2),2) ;
$lb_valido = $io_cmpret->uf_ccr_get_nro($ls_periodofiscal,&$ls_numcom);
if(!$lb_valido)
{
$msg->message("Error al generar el numero del Comprobante");
}
}
if($ls_operacion=="CAMBIO_PERIODO")
{
$io_cmpret->uf_ccr_get_nro($ls_agno.$ls_mes,$ls_numcom);
uf_mantener_grid();
}
if($ls_operacion=="ELIMINAR")
{
if (array_key_exists("txtcodproben", $_POST)) {
$ls_codproben = $_POST["txtcodproben"];
} else {
$ls_codproben = "";
}
if (array_key_exists("prov", $_POST)) {
$ls_prov = $_POST["prov"];
} else {
$ls_prov = "";
}
if (empty($ls_operacion)) {
$array_fecha = getdate();
$ls_dia = $array_fecha["mday"];
$ls_mes = $array_fecha["mon"];
$ls_ano = $array_fecha["year"];
$ls_fecha = $io_fun->uf_cerosizquierda($ls_dia, 2) . "/" . $io_fun->uf_cerosizquierda($ls_mes, 2) . "/" . $ls_ano;
$ls_fecemi = $ls_fecha;
$ls_fechat = $ls_fecha;
}
?>
<form name="form1" method="post" action="">
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0" class="formato-blanco">
<tr class="titulo-celdanew">
<td height="22" colspan="5"><div align="center">Catálogo de Recepción de Documento </div></td>
</tr>
<tr>
<td height="22"> </td>
<td width="182" height="22" colspan="-1"> </td>
<td width="121" height="22" colspan="-1"> </td>
<td width="248" height="22" colspan="-1"> </td>
<td width="29" height="22" colspan="-1"> </td>
require_once "sigesp_saf_c_grupo.php";
require_once "../shared/class_folder/class_funciones_db.php";
$io_saf = new sigesp_saf_c_grupo();
$io_msg = new class_mensajes();
$io_func = new class_funciones();
$ls_operacion = $io_fun_activo->uf_obtenervalor("operacion2", "NUEVO");
$ls_codgru = $io_fun_activo->uf_obtenervalor("txtcodgru", "");
$ls_codsubgru = $io_fun_activo->uf_obtenervalor("txtcodsubgru", "");
$ls_dengru = $io_fun_activo->uf_obtenervalor("txtdengru", "");
$ls_densubgru = $io_fun_activo->uf_obtenervalor("txtdensubgru", "");
switch ($ls_operacion) {
case "NUEVO":
uf_limpiarvariables();
$ls_longitud = 3;
$ls_codsubgru = $io_saf->uf_saf_generar_codigo($ls_codgru, "", "saf_subgrupo", "codsubgru");
$ls_codsubgru = $io_func->uf_cerosizquierda($ls_codsubgru, $ls_longitud);
break;
case "GUARDAR":
$lb_valido = $io_saf->uf_saf_guardar_subgrupo($ls_codgru, $ls_codsubgru, $ls_densubgru, $la_seguridad);
uf_limpiarvariables();
break;
case "ELIMINAR":
$lb_valido = $io_saf->uf_saf_delete_subgrupo($ls_codgru, $ls_codsubgru, $la_seguridad);
if ($lb_valido) {
$io_msg->message("El registro fue eliminado");
uf_limpiarvariables();
} else {
$io_msg->message("No se pudo eliminar el registro");
uf_limpiarvariables();
}
break;
if ($ls_operacion == "NUEVO") {
$ls_codestpro1 = $_POST["txtcodestpro1"];
$ls_denestpro1 = $_POST["txtdenestpro1"];
$ls_codestpro2 = $_POST["txtcodestpro2"];
$ls_denestpro2 = $_POST["txtdenestpro2"];
$ls_codestpro3 = $_POST["txtcodestpro3"];
$ls_denestpro3 = $_POST["txtdenestpro3"];
$ls_codestpro4 = "";
$ls_denestpro4 = "";
$readonly = "";
$disabled = "disabled";
$ls_status = "NUEVO";
}
if ($ls_operacion == "GUARDAR") {
$disabled = "";
$ls_codestp1 = $io_funcion->uf_cerosizquierda($ls_codestpro1, 25);
$ls_codestp2 = $io_funcion->uf_cerosizquierda($ls_codestpro2, 25);
$ls_codestp3 = $io_funcion->uf_cerosizquierda($ls_codestpro3, 25);
$ls_codestp4 = $io_funcion->uf_cerosizquierda($ls_codestpro4, 25);
$ls_clasificacion = $_POST["txtclasificacion"];
$lb_encontrado = $io_estpro3->uf_spg_select_estprog3($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_clasificacion);
if ($lb_encontrado) {
$lb_existe = $io_estpro4->uf_spg_select_estprog4($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_codestp4, $ls_clasificacion);
if (!$lb_existe) {
$lb_valido = $io_estpro4->uf_spg_insert_estprog4($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_codestp4, $ls_denestpro4, $li_estmodest, $ls_clasificacion, $la_seguridad);
if ($lb_valido) {
$io_sql->commit();
$io_msg->message("Registro Incluido !!!");
$ls_codestpro4 = "";
$ls_denestpro4 = "";
$ls_status = "NUEVO";
}
else
{
$ls_codpro = "----------";
$ls_cedbene = $ls_codproben;
}
$lb_valido = true;
$ls_procede = uf_load_datos_recepcion($ls_codemp,$ls_numsol,$lb_valido);//Encontrar la procedencia de la Recepcion de Documentos asociadas a la Solicitud de Pago.
if ($ls_procede=='SCVSOV')
{
$rs_datosbene = uf_load_datos_beneficiario($ls_codemp,$ls_cedbene,&$ls_nombene,&$ls_apebene,&$lb_valido);
$aa_seguridad["empresa"] = $ls_codemp;
$aa_seguridad["sistema"] = "SCB";
$aa_seguridad["logusr"] = $_SESSION["la_logusr"];
$aa_seguridad["ventanas"] = "sigesp_scb_p_carta_orden_mnd.php";
$ds_banco["codper"][1] = $io_function->uf_cerosizquierda($ls_cedbene,10);
$ds_banco["cedper"][1] = $ls_cedbene;
$ls_nombene = $rs_datosbene["nombene"];
$ls_apebene = $rs_datosbene["apebene"];
$ds_banco["nomper"][1] = $ls_nombene;
$ds_banco["apeper"][1] = $ls_apebene;
$ds_banco["nacper"][1] = $rs_datosbene["nacper"];
$ds_banco["codcueban"][1] = $rs_datosbene["ctabene"];
$ds_banco["tipcuebanper"][1] = $ls_tipocta;
$ds_banco["monnetres"][1] = $ldec_monto;
}
if ($ls_codproben!=$ls_probentemp)
{
$ls_numdoc=$io_carord->uf_generar_num_documento($ls_codemp,$ls_mov_operacion);
$arr_movbco["mov_document"] = $ls_numdoc;
$arr_movbco["objret"] = $ldec_monobjret;
print $ls_estcla;
?>
"></td>
<td height="22" colspan="4"><div align="right"><a href="javascript:ue_search();"><img src="../../shared/imagebank/tools20/buscar.gif" alt="Buscar" width="20" height="20" border="0"> Buscar</a> <a href="javascript:aceptar();"><img src="../../shared/imagebank/tools15/aprobado.gif" width="15" height="15" border="0">Aceptar</a> </div></td>
</tr>
</table>
<br>
<?php
$title[1] = "Check <input name=chkall type=checkbox id=chkall value=T style=height:15px;width:15px onClick=javascript:uf_select_all(); >";
$title[2] = "Cuenta Presupuestaria";
$title[3] = "Denominación";
$title[4] = "Cuenta Contable";
$grid1 = "grid";
if ($ls_operacion == "BUSCAR") {
if (!empty($ls_codestpro1) && !empty($ls_codestpro2) && !empty($ls_codestpro3)) {
$ls_codestpro1 = $io_funcion->uf_cerosizquierda($ls_codestpro1, 25);
$ls_codestpro2 = $io_funcion->uf_cerosizquierda($ls_codestpro2, 25);
$ls_codestpro3 = $io_funcion->uf_cerosizquierda($ls_codestpro3, 25);
$ls_codestpro4 = $io_funcion->uf_cerosizquierda($ls_codestpro4, 25);
$ls_codestpro5 = $io_funcion->uf_cerosizquierda($ls_codestpro5, 25);
}
$ls_cadena = "";
if ($li_estmodest == '2') {
$ls_cadena = " AND codestpro4 = '" . $ls_codestpro4 . "' AND codestpro5 = '" . $ls_codestpro5 . "'";
}
$ls_sql = "SELECT spg_cuenta,denominacion,sc_cuenta,status" . " FROM spg_cuentas" . " WHERE codemp = '" . $as_codemp . "'" . " AND spg_cuenta like '" . $ls_codestpro . "%'" . " AND denominacion like '%" . $ls_denestpro . "%'" . " AND sc_cuenta like '" . $ls_codscg . "%'" . " AND codestpro1 = '" . $ls_codestpro1 . "'" . " AND estcla = '" . $ls_estcla . "'" . " AND codestpro2 = '" . $ls_codestpro2 . "'" . " AND codestpro3 = '" . $ls_codestpro3 . "'" . $ls_cadena . "ORDER BY spg_cuenta\t ";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data === false) {
$io_msg->message($io_funcion->uf_convertirmsg($io_sql->message));
} else {
$data = $rs_data;
$li_totsolviaaux= str_replace(",",".",$li_totsolviaaux);
$ls_codpro="----------";
$ls_tipodestino="B";
if($ls_obssolvia=="")
{
$ls_descripcion="Calculo de Viaticos de la solicitud ".$ls_codsolvia;
}
else
{
$ls_descripcion=$ls_obssolvia;
}
$lb_valido=$io_fun_viaticos->uf_select_cierre_presupuestario();
if($lb_valido)
{
$ls_operacion="OC";
$ls_codcom=$io_fun->uf_cerosizquierda($ls_codsolvia,11);
$ls_codcom="SCV-".$ls_codcom;
$li_totper=($li_totrowspersonal-1);
$li_montotper=($li_totsolviaaux/$li_totper);
$io_sql->begin_transaction();
for($li_i=1;$li_i<$li_totrowspersonal;$li_i++)
{
$ls_cedper= $io_fun_viaticos->uf_obtenervalor("txtcedper".$li_i,"");
for($li_j=1;$li_j<$li_totrowspresupuesto;$li_j++)
{
$ls_spgcuenta=$io_fun_viaticos->uf_obtenervalor("txtspgcuenta".$li_j,"");
$lb_valido=$io_scv->uf_scv_insert_dt_spg($ls_codemp,$ls_codsolvia,$ls_codcom,$ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,
$ls_spgcuenta,
$ls_operacion,$ls_codpro,$ls_cedper,$ls_tipodestino,
$ls_descripcion,$li_montotper,$ls_codfuefin,$la_seguridad);
