{ $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);