<?php
session_start();
if (!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr = $_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_r_disponibilidad.php",$ls_permisos,$la_seguridad,$la_permisos);
$ls_reporte = $io_fun_banco->uf_select_config("SCB","REPORTE","DISPONIBILIDAD_FINANCIERA","sigesp_scb_rpp_disponibilidad_pdf.php","C");//print $ls_reporte;
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
$ls_codconmov=$_GET["codconmov"];
$ls_estreglib=$_GET["tip_mov"];
$ls_estdoc =$_GET["estdoc"];
$ls_codfuefin =$_GET["codfuefin"];
$ls_codtipfon = $_GET["codtipfon"];
$ls_numordpagmin = $_GET["numordpagmin"];
}
if($ls_codfuefin=="")
{
$ls_codfuefin="--";
}
$ls_empresa=$la_emp["codemp"];
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB",$ls_opener,$ls_permisos,&$la_seguridad,$la_permisos);
$title[1]="Check"; $title[2]="Documento"; $title[3]="Denominación"; $title[4]="Monto Obj.Ret."; $title[5]="Monto Ret."; $title[6]="Monto Deducible"; $title[7]="ISLR";
$grid1="grid";
$totrow=0;
$ldec_totret=0;
if($ls_operacion=="")
{
$ls_codemp=$la_emp["codemp"];
$ls_sql=" SELECT * FROM sigesp_deducciones";
$rs=$io_sql->select($ls_sql);
if($rs===false)
{
$io_msg->message($fun->uf_convertirmsg($io_sql->message));
}
else
<?Php
session_start();
if (!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr = $_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_r_relacion_sel_chq.php",$ls_permisos,$la_seguridad,$la_permisos);
$ls_reporte = $io_fun_banco->uf_select_config("SCB","REPORTE","RELACION_CHEQUE","sigesp_scb_rpp_relacion_chq.php","C");
$ls_reporte2 = $io_fun_banco->uf_select_config("SCB","REPORTE","CHEQUE_VOUCHER","sigesp_scb_rpp_voucher_pdf.php","C");
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
$ls_codconmov=$_GET["codconmov"];
$ls_estreglib=$_GET["tip_mov"];
$ls_opener =$_GET["opener"];
$ls_estdoc =$_GET["estdoc"];
$ls_codfuefin =$_GET["codfuefin"];
$ls_anticipo= $_GET["anticipo"];
$ls_codtipfon = $_GET["codtipfon"];
$ls_numordpagmin = $_GET["numordpagmin"];
}
if($ls_codfuefin=="")
{
$ls_codfuefin="--";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB",$ls_opener,$ls_permisos,&$la_seguridad,$la_permisos);
require_once("sigesp_scb_c_movbanco.php");
$in_classmovbanco=new sigesp_scb_c_movbanco($la_seguridad);
if(($ls_codope=="ND")||($ls_codope=="RE")||($ls_codope=="CH"))
{
$ls_operacioncon="H";
$lb_seldeb="selected";
$lb_selhab="";
}
else
{
$ls_operacioncon="D";
$lb_seldeb="";
<?php
session_start();
if (!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr = $_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_r_chq_custodia_entregados.php",$ls_permisos,$la_seguridad,$la_permisos);
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
</head>
<body>
<form name="form1" method="post" action="">
<p align="center">
<input name="operacion" type="hidden" id="operacion">
</p>
<table width="500" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td width="500" height="20" colspan="2" class="titulo-ventana">Explorar Archivos TXT </td>
</tr>
</table>
<br>
<?php
require_once("class_funciones_banco.php");
$io_fun_banco=new class_funciones_banco();
$ls_ruta=$_GET["ruta"];
$ls_file=$io_fun_banco->uf_obtenervalor_get("file","");
if($ls_file!="")
{
@unlink($ls_ruta."/".$ls_file);
}
uf_print($ls_ruta);
unset($io_fun_banco);
?>
<br>
</div>
</form>
<p> </p>
<p> </p>
<?Php
session_start();
if (!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr = $_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_r_list_doc_conciliados.php",$ls_permisos,$la_seguridad,$la_permisos);
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
$documento=$_GET["docum"];
$montret=$_GET["montret"];
$ls_mov_operacion=$_GET["mov_operacion"];
$ldec_monobjret=$_GET["montobjret"];
$ld_fecha=$_GET["fecha"];
$ls_desmov=$_GET["dencon"];
$ls_codconmov=$_GET["codmov"];
$ls_desproben=$_GET["desproben"];
$ls_mov_operacion=$_GET["mov_operacion"];
$ls_chevau=$_GET["chevau"];
$ls_estmov=$_GET["estmov"];
$ls_codfuefin=$_GET["fuente"];
$ls_valido=false;
}
require_once("class_funciones_banco.php");
$io_scb= new class_funciones_banco();
$io_scb->uf_load_seguridad("SCB","sigesp_scb_p_emision_chq.php",$ls_permisos,$la_seguridad,$la_permisos);
require_once("sigesp_scb_c_movbanco.php");
$in_classmovbanco=new sigesp_scb_c_movbanco($la_seguridad);
function uf_print(&$totrow, $provbene, $tipproben)
{
require_once("../shared/class_folder/grid_param.php");
require_once("../shared/class_folder/sigesp_include.php");
require_once("../shared/class_folder/class_sql.php");
require_once("../shared/class_folder/class_funciones.php");
$in = new sigesp_include();
$con = $in->uf_conectar();
$io_msg = new class_mensajes();
$io_sql = new class_sql($con);
$io_funcion = new class_funciones();
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_cmp_ret_mun_otros.php",$ls_permisos,$la_seguridad,$la_permisos);
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
require_once("../shared/class_folder/ddlb_operaciones_spi.php");
require_once("../shared/class_folder/ddlb_conceptos.php");
require_once("../shared/class_folder/grid_param.php");
require_once("class_funciones_banco.php");
require_once("class_folder/sigesp_scb_c_disponibilidad_financiera.php");
$msg = new class_mensajes();
$fun = new class_funciones();
$sig_inc = new sigesp_include();
$con = $sig_inc->uf_conectar();
$obj_spg = new ddlb_operaciones_spg($con);
$io_function_db = new class_funciones_db($con);
$obj_spi = new ddlb_operaciones_spi($con);
$obj_con = new ddlb_conceptos($con);
$io_grid = new grid_param();
$funciones_banco= new class_funciones_banco();
$io_disfin = new sigesp_scb_c_disponibilidad_financiera("../");
$ls_tipvaldis = $io_disfin->uf_load_tipo_validacion();
$ls_empresa = $_SESSION["la_empresa"]["codemp"];
$as_estmodest = $_SESSION["la_empresa"]["estmodest"];
$li_estciespg = $io_fun_banco->uf_load_estatus_cierre($li_estciespi,$li_estciescg);
$li_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"];
$li_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"];
$li_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"];
$li_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"];
$li_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"];
require_once("sigesp_scb_c_movbanco.php");
$in_classmovbco=new sigesp_scb_c_movbanco($la_seguridad);
require_once("sigesp_scb_c_config.php");
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$dat=$_SESSION["la_empresa"];
require_once("class_funciones_banco.php");
$io_fun_banco = new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_concilerror.php",$ls_permisos,&$la_seguridad,$la_permisos);
if( array_key_exists("operacion",$_POST))
{
$ls_nombre=$_POST["nombre"];
$ls_mesano=$_POST["mesano"];
$ls_tip_mov=$_POST["tip_mov"];
}
else
{
$ls_nombre=$_GET["nombre"];
$ls_tip_mov=$_GET["tip_mov"];
$ls_codban=$_GET["txtcodban"];
$ls_denban=$_GET["txtdenban"];
$ls_cuenta_banco=$_GET["txtcuenta"];
$ls_dencuenta_banco=$_GET["txtdenominacion"];
$ls_cuenta_scg=$_GET["txtcuenta_scg"];
$ldec_disponible=$_GET["txtdisponible"];
$ls_mesano=$_GET["mesano"];
<?php
session_start();
require_once "../../shared/class_folder/grid_param.php";
$io_grid = new grid_param();
require_once "../class_funciones_banco.php";
$io_funciones_scb = new class_funciones_banco("../../");
// Tipo del catalogo que se requiere pintar
$ls_origen = uf_obtenervalor("origen", "");
$ls_catalogo = uf_obtenervalor("catalogo", "");
switch ($ls_catalogo) {
case "RETENCIONIVA":
uf_print_retencioniva();
break;
case "PROVEEDOR":
uf_print_proveedor();
break;
case "BENEFICIARIO":
uf_print_beneficiario();
break;
case "SOLICITUDPAGO":
uf_print_solicitudespago();
break;
case "OTROSCREDITOS":
uf_print_otroscreditos();
break;
case "DEDUCCIONES":
uf_print_deducciones();
break;
case "ORDENESMINISTERIO":
uf_print_ordenespago($ls_origen);
<?php
session_start();
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_ano=date('Y');
$ls_mes=date('m');
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_r_retencionesislr.php",$ls_permisos,$la_seguridad,$la_permisos);
$ls_reporte=$io_fun_banco->uf_select_config("CXP","REPORTE","FORMATO_ISLR","sigesp_cxp_rpp_retencionislr.php","C");
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
<?php
session_start();
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco=new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_r_declaracionxml.php",$ls_permisos,$la_seguridad,$la_permisos);
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
//--------------------------------------------------------------
function uf_limpiarvariables()
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Access: private
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $io_fun_banco,$ls_operacion,$ls_codtipsol,$ld_fecregdes,$ld_fecreghas,$ld_fecaprord,$li_totrow;
$ls_operacion=$io_fun_banco->uf_obteneroperacion();
$ls_codtipsol="";
$ld_fecregdes=date("01/m/Y");
$ld_fecreghas=date("d/m/Y");
<?php
session_start();
if (!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr = $_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_r_documentos.php",$ls_permisos,$la_seguridad,$la_permisos);
$ls_reporte = $io_fun_banco->uf_select_config("SCB","REPORTE","LISTADO_MOVBCO","sigesp_scb_rpp_documentos_pdf.php","C");
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
?>
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_orden_pago_directo.php",$ls_permisos,&$la_seguridad,$la_permisos);
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Catálogo Deducciones</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link {
color: #006699;
}
a:visited {
color: #006699;
}
a:active {
color: #006699;
}
-->
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_pago_directo.php",$ls_permisos,$la_seguridad,$la_permisos);
$ls_reporte = $io_fun_banco->uf_select_config("SCB","REPORTE","CHEQUE_VOUCHER","sigesp_scb_rpp_voucher_pdf.php","C");//print $ls_reporte;
$ls_empresa = $_SESSION["la_empresa"]["codemp"];
$li_estmodest = $_SESSION["la_empresa"]["estmodest"];
$li_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"];
$li_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"];
$li_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"];
$li_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"];
$li_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"];
$li_estciespg = $io_fun_banco->uf_load_estatus_cierre($li_estciespi,$li_estciescg);
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
// Access: private
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 19/04/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $ls_codprovben,$ls_nomprovben,$ls_tipodestino,$ls_operacion,$io_fun_scb;
require_once("../shared/class_folder/class_generar_id_process_sol.php");
$io_id_process= new class_generar_id_process_sol();
$ls_codprovben="";
$ls_nomprovben="";
$ls_tipodestino="";
$ls_operacion=$io_fun_scb->uf_obteneroperacion();
}
require_once("class_funciones_banco.php");
$io_fun_scb=new class_funciones_banco();
uf_limpiarvariables();
$ls_tipo=$io_fun_scb->uf_obtenertipo();
unset($io_fun_scb);
$ld_fecdes="01/".date("m")."/".date("Y");
$ld_fechas=date("d/m/Y");
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Catálogo de Solicitudes de Pago </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link {
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "close();";
print "opener.document.formulario.submit();";
print "</script>";
}
require_once("class_funciones_banco.php");
$io_fun_scb = new class_funciones_banco();
$ls_tipo = $io_fun_scb->uf_obtenertipo();
$ls_numrecdoc = $io_fun_scb->uf_obtenervalor_get("numrecdoc","");
$li_subtotal = $io_fun_scb->uf_obtenervalor_get("subtotal","0,00");
$ls_procede = $io_fun_scb->uf_obtenervalor_get("procede","0,00");
unset($io_fun_scb);
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Otros Créditos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link {
color: #006699;
}
a:visited {
color: #006699;
}
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_pago_caficultores.php",$ls_permisos,$la_seguridad,$la_permisos);
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
require_once("sigesp_scb_c_emision_chq.php");
require_once("../shared/class_folder/class_sql.php");
require_once("../shared/class_folder/grid_param.php");
require_once("../shared/class_folder/class_mensajes.php");
require_once("../shared/class_folder/sigesp_include.php");
require_once("../shared/class_folder/ddlb_conceptos.php");
require_once("../shared/class_folder/class_funciones.php");
$io_msg = new class_mensajes();
$io_funcion = new class_funciones();
$io_include = new sigesp_include();
$ls_conect = $io_include->uf_conectar();
$obj_con = new ddlb_conceptos($ls_conect);
$io_grid = new grid_param();
$io_emiche = new sigesp_scb_c_emision_chq();
$io_update = new class_funciones_banco();
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
$li_estciespg = $io_fun_banco->uf_load_estatus_cierre($li_estciespi,$li_estciescg);
require_once("sigesp_scb_c_movbanco.php");
$in_classmovbco=new sigesp_scb_c_movbanco($la_seguridad);
if( array_key_exists("operacion",$_POST))
{
$ls_operacion= $_POST["operacion"];
$ls_estdoc=$_POST["status_doc"];
$ls_mov_operacion="CH";
$ls_numdoc=$_POST["txtdocumento"];
$ls_codban=$_POST["txtcodban"];
$ls_denban=$_POST["txtdenban"];
$ls_ctaban=$_POST["txtcuenta"];
$ls_dencuenta_banco=$_POST["txtdenominacion"];
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$dat=$_SESSION["la_empresa"];
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_carta_orden.php",$ls_permisos,$la_seguridad,$la_permisos);
$ls_report = $io_fun_banco->uf_select_config("SCB","REPORTE","CARTA_ORDEN","sigesp_scb_rpp_cartaorden_pdf.php","C");
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_scb = new class_funciones_banco();
$io_fun_scb->uf_load_seguridad("SCB","sigesp_scb_p_recuperacion_creditos.php",$ls_permisos,$la_seguridad,$la_permisos);
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
function uf_limpiar_variables()
<?php
session_start();
if (!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "close();";
print "opener.document.form1.submit();";
print "</script>";
}
require_once ("class_funciones_banco.php");
$io_scb= new class_funciones_banco();
$ls_orden=$io_scb->uf_obtenervalor("orden","ASC");
$ls_campoorden=$io_scb->uf_obtenervalor("campoorden","codtipfon");
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Catálogo de Tipos de Fondos</title>
<link href="../shared/css/general.css" rel="stylesheet" type="text/css" />
<link href="../shared/css/tablas.css" rel="stylesheet" type="text/css" />
<link href="../shared/css/ventanas.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" language="JavaScript1.2" src="js/funcion_scb.js"></script>
<script type="text/javascript" language="JavaScript1.2" src="../shared/js/valida_tecla.js"></script>
<style type="text/css">
<!--
a:link {
color: #006699;
}
a:visited {
color: #006699;
function uf_procesar_cobranza($as_rutfil, $ai_totrows, $aa_seguridad)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_procesar_cobranza.
// Access: private
// Arguments: $aa_datos
// Returns: Arreglo cargado con la cabecera para ser procesado el movimiento bancario.
// Description: .
// Creado Por: Ing. Néstor Falcón.
// Fecha Creación: 07/07/2008. Fecha Última Modificación : 07/07/2008.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once "class_funciones_banco.php";
$io_funciones_scb = new class_funciones_banco();
$lb_valido = true;
for ($li_i = 1; $li_i <= $ai_totrows; $li_i++) {
if (array_key_exists("chk" . $li_i, $_POST)) {
$this->io_sql->begin_transaction();
$ls_filnam = trim($io_funciones_scb->uf_obtenervalor("txtfilnam" . $li_i, ""));
if (!empty($ls_filnam)) {
$ls_rutori = $as_rutfil . '/' . $ls_filnam;
//Ruta Completa de Ubicación del Archivo xml.
$ls_rutdes = "../scc/cobranza/procesados/";
$la_datmov = $this->io_xml->uf_cargar_scb_movbco($ls_rutori, 'C');
$li_totdat = count($la_datmov);
for ($li_z = 1; $li_z <= $li_totdat; $li_z++) {
$ls_numdoc = $la_datmov[$li_z]["numdoc"];
$ls_codban = $la_datmov[$li_z]["codban"];
$lb_existe = $this->io_xml->uf_validar_banco($this->ls_codemp, $ls_codban);
if (!$lb_existe) {
$ls_errmsg = "{$ls_filnam}.- Codigo del Banco no encontrado !!!";
$this->io_msg->message($ls_errmsg);
$lb_valido = false;
}
if ($lb_valido) {
$ls_ctaban = $la_datmov[$li_z]["ctaban"];
$lb_existe = $this->io_xml->uf_validar_cuenta_bancaria($this->ls_codemp, $ls_codban, $ls_ctaban);
if (!$lb_existe) {
$ls_errmsg = "{$ls_filnam}.- Cuenta Bancaria no encontrada !!!";
$this->io_msg->message($ls_errmsg);
$lb_valido = false;
}
}
if ($lb_valido) {
$ls_codope = $la_datmov[$li_z]["codope"];
if ($ls_codope != 'DP' && $ls_codope != 'NC') {
$ls_errmsg = "{$ls_filnam}.- Error en Tipo de Operacion, solo estan permitidos DP=Depositos y NC=Notas de Credito !!!";
$this->io_msg->message($ls_errmsg);
$lb_valido = false;
}
}
$lb_existe = false;
if ($lb_valido) {
$lb_existe = $this->io_xml->uf_load_movimiento_bancario($this->ls_codemp, $ls_numdoc, $ls_codban, $ls_ctaban, $ls_codope);
}
if (!$lb_existe && $lb_valido) {
$lb_valido = $this->uf_insert_movimiento_banco($ls_filnam, $ls_numdoc, $ls_codban, $ls_ctaban, $ls_codope, $la_datmov, $ls_errmsg, $aa_seguridad);
if ($lb_valido) {
$la_datscg = $this->io_xml->uf_cargar_scb_movbco_scg($ls_rutori);
if (!empty($la_datscg)) {
$lb_valido = $this->uf_insert_movimiento_banco_scg($ls_filnam, $ls_numdoc, $ls_codban, $ls_ctaban, $ls_codope, $la_datscg, $ls_errmsg, $aa_seguridad);
unset($la_datscg);
} else {
$ls_errmsg = "{$ls_filnam}.- Movimiento Bancario sin Detalle Contable !!!";
$this->io_msg->message($ls_errmsg);
return false;
}
}
if ($lb_valido) {
$la_datspi = $this->io_xml->uf_cargar_scb_movbco_spi($ls_rutori);
if (!empty($la_datspi)) {
$lb_valido = $this->uf_insert_movimiento_banco_spi($ls_filnam, $ls_numdoc, $ls_codban, $ls_ctaban, $ls_codope, $la_datspi, $ls_errmsg, $aa_seguridad);
unset($la_datspi);
}
}
} elseif ($lb_existe) {
$ls_errmsg = "{$ls_filnam}.- Movimiento Bancario ya esta registrado !!!";
$this->io_msg->message($ls_errmsg);
return false;
}
unset($la_datmov);
}
if ($lb_valido) {
$this->io_sql->commit();
$this->io_msg->message("Documento {$ls_filnam}, procesado con Éxito !!!");
} else {
$this->io_sql->rollback();
$this->io_msg->message("Documento {$ls_filnam}, Registro No Incluido !!!");
}
$lb_copval = $this->io_xml->uf_mover_xml($ls_filnam, $ls_rutori, $ls_rutdes);
if ($lb_copval) {
$this->io_xml->uf_update_xml_procesado($ls_filnam, $ls_rutdes, "SCB_MOVBCO", $lb_valido, $ls_errmsg);
}
}
}
}
}
<?php
session_start();
if(!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_progpago.php",$ls_permisos,$la_seguridad,$la_permisos);
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<?php
session_start();
if (!array_key_exists("la_logusr",$_SESSION))
{
print "<script language=JavaScript>";
print "location.href='../sigesp_inicio_sesion.php'";
print "</script>";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_conf_select_cartaorden.php",$ls_permisos,$la_seguridad,$la_permisos);
$li_diasem = date('w');
switch ($li_diasem){
case '0': $ls_diasem='Domingo';
break;
case '1': $ls_diasem='Lunes';
break;
case '2': $ls_diasem='Martes';
break;
case '3': $ls_diasem='Miércoles';
break;
case '4': $ls_diasem='Jueves';
break;
case '5': $ls_diasem='Viernes';
break;
case '6': $ls_diasem='Sábado';
break;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
function uf_load_detalles_spg($as_filnam, &$li_totdet, &$la_datscg, &$ld_totmonspg)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_detalles_desembolso
// Access: private
// Arguments: $as_filnam = Nombre del archivo xml a procesar con toda su ruta de ubicación.
// $la_object = Matriz cargada con la información de los detalles de la liquidación.
// $li_totdet = Número total de filas de los detalles de la liquidación contenidos en el xml.
// Returns: Arreglo cargado con los archivos xml ubicados en $as_rutfil para ser procesados.
// Description: Carga los detalles de la liquidación a partir del archivo xml $as_filnam.
// Creado Por: Ing. Nestor Falcón.
// Fecha Creación: 07/07/2008. Fecha Última Modificación : 07/07/2008.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once "class_funciones_banco.php";
$io_funciones_scb = new class_funciones_banco();
$ld_montotmov = $io_funciones_scb->uf_obtenervalor("txtmonmov", 0);
$ld_montotmov = str_replace(".", "", $ld_montotmov);
$ld_montotmov = str_replace(",", ".", $ld_montotmov);
$lb_valido = true;
$li_totdet = $li_y = 0;
$li_estmodest = $_SESSION["la_empresa"]["estmodest"];
$li_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"];
$li_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"];
$li_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"];
$li_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"];
$li_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"];
if (!empty($as_filnam)) {
$la_datmov = $this->io_xml->uf_cargar_detalles_spg($as_filnam);
if (!empty($la_datmov)) {
$li_totdet = count($la_datmov);
$la_datscg = array();
$ld_totmonspg = 0;
//Acumulador para la sumatoria de los Detalles de la Liquidación.
for ($li_i = 1; $li_i <= $li_totdet; $li_i++ && $lb_valido) {
$ls_spgcta = $la_datmov[$li_i]['spgcta'];
//Cuenta Presupuestaria.
$ls_estcla = $la_datmov[$li_i]['estcla'];
if ($ls_estcla == 'A') {
$ls_denestcla = "Acción";
} elseif ($ls_estcla == 'P') {
$ls_denestcla = "Proyecto";
} else {
$ls_errmsg = "{$as_filnam}.- Modalidad Presupuestaria Invalida, P=Proyecto y A=Acción !!!";
$this->io_msg->message($ls_errmsg);
$lb_valido = false;
}
$ls_denctaspg = "";
$ls_codestpro1 = $la_datmov[$li_i]['codestpro1'];
$ls_codestpro2 = $la_datmov[$li_i]['codestpro2'];
$ls_codestpro3 = $la_datmov[$li_i]['codestpro3'];
$ls_codestpro4 = $la_datmov[$li_i]['codestpro4'];
$ls_codestpro5 = $la_datmov[$li_i]['codestpro5'];
$lb_valido = $this->uf_validar_presupuesto($ls_spgcta, $ls_codestpro1, $ls_codestpro2, $ls_codestpro3, $ls_codestpro4, $ls_codestpro5, $ls_estcla, $ls_denctaspg);
if ($lb_valido) {
$ls_denestpro1 = $this->uf_load_denestpro1($ls_codestpro1, $ls_estcla);
$ls_scgcta = $this->uf_load_scgcta($ls_spgcta, $ls_codestpro1, $ls_codestpro2, $ls_codestpro3, $ls_codestpro4, $ls_codestpro5, $ls_estcla, $ls_denctascg);
if (empty($ls_scgcta)) {
$ls_errmsg = "{$as_filnam}.- Cuenta Contable no encontrada para {$ls_spgcta} !!!";
$this->io_msg->message($ls_errmsg);
$lb_valido = false;
} else {
$li_y++;
$ls_codestpre = $ls_codestpro1 . $ls_codestpro2 . $ls_codestpro3 . $ls_codestpro4 . $ls_codestpro5;
$ls_codestpro1 = substr($ls_codestpro1, -$li_loncodestpro1);
$ls_codestpro2 = substr($ls_codestpro2, -$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3, -$li_loncodestpro3);
$ls_codestpro = $ls_codestpro1 . '-' . $ls_codestpro2 . '-' . $ls_codestpro3;
if ($li_estmodest == 2) {
$ls_codestpro4 = substr($ls_codestpro4, -$li_loncodestpro4);
$ls_codestpro5 = substr($ls_codestpro5, -$li_loncodestpro5);
$ls_codestpro = $ls_codestpro . '-' . $ls_codestpro4 . '-' . $ls_codestpro5;
}
$li_estmodest = $_SESSION["la_empresa"]["estmodest"];
$ld_mondetspg = $la_datmov[$li_i]['monto'];
$la_datscg["scgcta"][$li_y] = $ls_scgcta;
// Armado de la Información Contable
$la_datscg["denctascg"][$li_y] = $ls_denctascg;
// asociada a la Cuenta y Estructura
$la_datscg["mondetscg"][$li_y] = $ld_mondetspg;
// presupuestaria.
$ld_totmonspg += $ld_mondetspg;
$ld_mondetspg = number_format($ld_mondetspg, 2, ',', '.');
$la_object[$li_i][1] = "<input type=text name=txtspgcta" . $li_i . " id=txtspgcta" . $li_i . " value='" . $ls_spgcta . "' \t class=sin-borde readonly style=text-align:center size=15 maxlength=25>";
$la_object[$li_i][2] = "<input type=text name=txtdenctaspg" . $li_i . " id=txtdenctaspg" . $li_i . " value='" . $ls_denctaspg . "' class=sin-borde readonly style=text-align:left size=45 maxlength=500 title='" . $ls_denctaspg . "'>";
$la_object[$li_i][3] = "<input type=text name=txtcodestpro" . $li_i . " id=txtcodestpro" . $li_i . " value='" . $ls_codestpro . "' class=sin-borde readonly style=text-align:center size=30 maxlength=129 title='" . $ls_denestpro1 . "'>";
$la_object[$li_i][4] = "<input type=text name=txtcodtipest" . $li_i . " id=txtcodtipest" . $li_i . " value='" . $ls_denestcla . "' class=sin-borde readonly style=text-align:center size=10 maxlength=8>";
$la_object[$li_i][5] = "<input type=text name=txtmondetspg" . $li_i . " id=txtmondetspg" . $li_i . " value='" . $ld_mondetspg . "' class=sin-borde readonly style=text-align:right size=17 maxlength=24>\n\t\t\t\t\t\t\t\t\t\t\t\t\t <input type=hidden name=hidcodestpre" . $li_i . " id=hidcodestpre" . $li_i . " value='" . $ls_codestpre . "'>";
}
} else {
$li_totdet = 1;
$la_object[$li_totdet][1] = "<input type=text name=txtspgcta" . $li_totdet . " id=txtspgcta" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=15 maxlength=25>";
$la_object[$li_totdet][2] = "<input type=text name=txtdenctaspg" . $li_totdet . " id=txtdenctaspg" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=45 maxlength=254>";
$la_object[$li_totdet][3] = "<input type=text name=txtcodestpro" . $li_totdet . " id=txtcodestpro" . $li_totdet . " value='' class=sin-borde readonly style=text-align:left size=30 maxlength=254>";
$la_object[$li_totdet][4] = "<input type=text name=txtcodtipest" . $li_totdet . " id=txtcodtipest" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=10 maxlength=254>";
$la_object[$li_totdet][5] = "<input type=text name=txtmondetspg" . $li_totdet . " id=txtmondetspg" . $li_totdet . " value='' class=sin-borde readonly style=text-align:right size=17 maxlength=23>\n\t\t\t\t\t\t\t\t\t\t\t\t\t <input type=hidden name=txtfilnam" . $li_totdet . " id=txtfilnam" . $li_totdet . " value=''>";
$la_datscg = "";
$ls_errmsg = "{$as_filnam}.- Error en datos de la Afectación Presupuestaria !!!";
$this->io_msg->message($ls_errmsg);
$lb_valido = false;
}
}
$ld_montotsep = $io_funciones_scb->uf_obtenervalor("txtmonmov", 0);
$ld_montotsep = str_replace('.', '', $ld_montotsep);
$ld_montotsep = str_replace(',', '.', $ld_montotsep);
if ($ld_montotsep != $ld_totmonspg && $lb_valido) {
$li_totdet = 1;
$la_object[$li_totdet][1] = "<input type=text name=txtspgcta" . $li_totdet . " id=txtspgcta" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=15 maxlength=25>";
$la_object[$li_totdet][2] = "<input type=text name=txtdenctaspg" . $li_totdet . " id=txtdenctaspg" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=45 maxlength=254>";
$la_object[$li_totdet][3] = "<input type=text name=txtcodestpro" . $li_totdet . " id=txtcodestpro" . $li_totdet . " value='' class=sin-borde readonly style=text-align:left size=30 maxlength=254>";
$la_object[$li_totdet][4] = "<input type=text name=txtcodtipest" . $li_totdet . " id=txtcodtipest" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=10 maxlength=254>";
$la_object[$li_totdet][5] = "<input type=text name=txtmondetspg" . $li_totdet . " id=txtmondetspg" . $li_totdet . " value='' class=sin-borde readonly style=text-align:right size=17 maxlength=23>\n\t\t\t\t\t\t\t\t\t\t\t <input type=hidden name=txtfilnam" . $li_totdet . " id=txtfilnam" . $li_totdet . " value=''>";
$la_datscg = "";
$ls_errmsg = "{$as_filnam}.- Descuadre entre el monto del Movimiento Bancario y su Detalle Presupuestario !!!";
$this->io_msg->message($ls_errmsg);
$lb_valido = false;
}
if (!$lb_valido) {
$ls_rutdes = "../scc/liquidacion/procesados/";
$ls_filnam = trim(substr($as_filnam, 30, 254));
$lb_copval = $this->io_xml->uf_mover_xml($ls_filnam, $as_filnam, $ls_rutdes);
if ($lb_copval) {
$this->io_xml->uf_update_xml_procesado($ls_filnam, $ls_rutdes, "SCB_MOVBCO", $lb_valido, $ls_errmsg);
}
}
}
if (isset($la_datmov)) {
unset($la_datmov);
}
}
return $la_object;
}
