";
print "location.href='sigesp_inicio_sesion.php'";
print "";
}
$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_1x1000.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;
}
?>
Comprobante de Retenciones 1x1000
uf_conectar();
$fun = new class_funciones();
$ddlb_mes = new ddlb_meses();
$in_class_cmp_ret = new sigesp_scb_c_cmp_ret('0000000005');
$io_msg = new class_mensajes();
$arre = $_SESSION["la_empresa"];
$ls_empresa = $arre["codemp"];
$la_emp = $_SESSION["la_empresa"];
if(array_key_exists("operacion",$_POST))
{
$ls_operacion= $_POST["operacion"];
$ls_tipo = $_POST["rb_provbene"];
$ls_mes = $_POST["mes"];
$ls_agno = $_POST["agno"];
$ls_provbenedesde = $_POST["txtprovbendesde"];
$ls_provbenehasta = $_POST["txtprovbenhasta"];
}
else
{
// Validando si las retenciones municipales se deben hacer por Banco o por Cuentas por pagar
require_once("sigesp_scb_c_config.php");
$in_classconfig=new sigesp_scb_c_config($la_seguridad);
$ls_fuente=$in_classconfig->uf_select_fuente_1x1000();
if($ls_fuente!=false)
{
if($ls_fuente=="C")
{
print "";
}
}
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);
}
}
if($ls_tipo=='-')
{
$rb_n="checked";
$rb_p="";
$rb_b="";
}
if($ls_tipo=='P')
{
$rb_n="";
$rb_p="checked";
$rb_b="";
}
if($ls_tipo=='B')
{
$rb_n="";
$rb_p="";
$rb_b="checked";
}
?>