";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$ls_logusr=$_SESSION["la_logusr"];
$ls_codnom=$_SESSION["la_nomina"]["codnom"];
require_once("class_folder/class_funciones_nomina.php");
$io_fun_nomina=new class_funciones_nomina();
$io_fun_nomina->uf_load_seguridad_nomina("SNO","sigesp_sno_r_metodo_fonz.php",$ls_codnom,$ls_permisos,$la_seguridad,$la_permisos);
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
require_once("sigesp_sno.php");
$io_sno=new sigesp_sno();
$lb_valido=$io_sno->uf_crear_sessionnomina();
$ls_codnom=$_SESSION["la_nomina"]["codnom"];
$ls_desnom=$_SESSION["la_nomina"]["desnom"];
$ls_peractnom=$_SESSION["la_nomina"]["peractnom"];
$ls_desper=$_SESSION["la_nomina"]["descripcionperiodo"];
$li_suspendidos=$io_sno->uf_select_config("SNO","CONFIG","EXCLUIR_SUSPENDIDOS","0","I");
$li_adelanto=$_SESSION["la_nomina"]["adenom"];
$li_divcon=$_SESSION["la_nomina"]["divcon"];
$li_tippernom=$_SESSION["la_nomina"]["tippernom"];
$ls_subnom=$_SESSION["la_nomina"]["subnom"];
$ls_reporte=$io_sno->uf_select_config("SNO","REPORTE","LISTADO_BANCO","sigesp_sno_rpp_listadobanco.php","C");
$ls_nomina=$_SESSION["la_nomina"]["codnom"];
$ls_periodo=$_SESSION["la_nomina"]["peractnom"];
$li_tipnom=$_SESSION["la_nomina"]["tipnom"];
$ls_ruta="txt/disco_banco/".$ls_nomina."-".$ls_periodo;
@mkdir($ls_ruta,0755);
///////////////// PAGINACION /////////////////////
$li_registros = 700;
$ls_codperdes="";
$ls_codperhas="";
$li_pagina=$io_fun_nomina->uf_obtenervalor_get("pagina",0);
if (!$li_pagina)
{
$li_inicio = 0;
$li_pagina = 1;
}
else
{
$li_inicio = ($li_pagina - 1) * $li_registros;
}
$li_totpag=0;
$ls_valor=0;
$li_pag=$li_pagina;
if (array_key_exists("banco",$_GET))
{
$ls_codban=$_GET["banco"];
}
else
{
if (array_key_exists("txtcodban",$_POST))
{
$ls_codban=$_POST["txtcodban"];
}
else
{
$ls_codban="";
}
}
$io_sno->uf_buscar_personal($ls_codnom,$ls_peractnom,$ls_valor,$li_inicio,$li_registros,$li_totpag,$ls_codperdes,$ls_codperhas,$ls_codban);
if ($ls_valor<$li_registros)
{
$ls_codperhas="";
$ls_codperdes="";
}
unset($io_sno);
///////////////// PAGINACION /////////////////////
?>
Reporte Archivo Fonz03
uf_obteneroperacion();
require_once("sigesp_sno_c_metodo_banco.php");
$io_metodobanco=new sigesp_sno_c_metodo_banco();
$ls_codconc="";
switch ($ls_operacion)
{
case "GENDISK":
$ld_monto=0; // ojo monto a pagar
$ld_fecdes=$_SESSION["la_nomina"]["fecdesper"];
$ld_fechas=$_SESSION["la_nomina"]["fechasper"];
$ls_suspendidos=$_POST["txtsuspendidos"];
$ls_quincena=$_POST["cmdquincena"];
$ls_desmet=rtrim("FONZ03");
$ls_codmet="";
$ld_fecpro=$_POST["txtfecpro"];
$ls_ref=$_POST["txtref"];
$ls_codcue="";
$ls_pagtaqnom=$io_fun_nomina->uf_obtenervalor("chkpagtaqnom","0");
$ls_codconc=$_POST["txtcodconc"];
switch ($ls_codconc)
{
case "0000020007":
$ls_ruta2=$ls_ruta."/fonz03-20007.txt";
break;
case "0000020014":
$ls_ruta2=$ls_ruta."/fonz03-20014.txt";
break;
case "0000020003":
$ls_ruta2=$ls_ruta."/fonz03-20003.txt";
break;
case "0000020005":
$ls_ruta2=$ls_ruta."/fonz03-20014.txt";
break;
case "0000020008":
$ls_ruta2=$ls_ruta."/fonz03-20008.txt";
break;
}
switch(substr($ld_fechas,5,2))
{
case "01":
$ls_mes="ENERO";
break;
case "02":
$ls_mes="FEBRERO";
break;
case "03":
$ls_mes="MARZO";
break;
case "04":
$ls_mes="ABRIL";
break;
case "05":
$ls_mes="MAYO";
break;
case "06":
$ls_mes="JUNIO";
break;
case "07":
$ls_mes="JULIO";
break;
case "08":
$ls_mes="AGOSTO";
break;
case "09":
$ls_mes="SEPTIEMBRE";
break;
case "10":
$ls_mes="OCTUBRE";
break;
case "11":
$ls_mes="NOVIEMBRE";
break;
case "12":
$ls_mes="DICIEMBRE";
break;
}
$ls_desope=$ls_mes." DEL ".substr($ld_fechas,0,4);
$ls_desope=str_pad(substr($ls_desope,0,40),40," ");
$lb_valido=$io_metodobanco->uf_listadobanco_gendisk2($ls_codban,$ls_suspendidos,$ls_quincena,$ls_pagtaqnom,$ls_codconc,$rs_data);
if($lb_valido)
{
$lb_valido=$io_metodobanco->uf_load_montototal($ls_codban,$ls_suspendidos,$ls_quincena,$ls_pagtaqnom,$ld_monto);
}
if($lb_valido)
{
//$ds_banco=$io_metodobanco->DS;
$lb_valido=$io_metodobanco->uf_metodo_banco($ls_ruta2,$ls_desmet,$ls_peractnom,$ld_fecdes,$ld_fechas,$ld_fecpro,
$ld_monto,$ls_codcue,$rs_data,$ls_codmet,$ls_desope,$ls_quincena,
$ls_ref,$la_seguridad);
}
break;
default:
$ls_codmet="";
$ls_desmet="";
$ls_codban="";
$ls_nomban="";
$ls_codcue="";
$ld_fecpro="";
$ls_sc_cuenta="";
$ls_ctaban="";
$ls_pagtaqnom="0";
break;
}
unset($io_metodobanco);
?>